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DATE: 01/27/99 


NAH ODBJGl OEGK-ID N07 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SU HM AR Y-1 1 6«- 

N0700002 
N07: 0003 
N07D OOGL 


1700 ON-LINE DEBUG PACKAGE 


N073 0 006 


9 


CORE 


MAP 


LAY-OUT 


9 9 9 9 9 9 

9 

9 


CORE RESIDENT EXECUTIVE 
SIZE : 210 (APPX.) 

INPUT 

DUFFER 

SIZE J 

tO 

AREA 2 

PROCESSOR 

SIZE : 

340 CAPPX.) 

AREA 3 

SUBROUTINE 

SIZE : 

288 


TOTAL CORE SIZE $569 < 673) 


REQUEST 
PROCESSOR 
OVERLAY AREA 


SUBROUTINE 
OVERLAY AREA 


N0 73 0 0 0 8 
N073G009 
N070 0010 
NO 7 0 0 oil 
NO 70 0 0 1 2 
N0700G13 
N0 70 OOIL 
N070D015 
N07QQQ16 
N07GG017 
NO 70 0 018 
NQ 73 0 01 9 
N0730020 
N070a021 
Ni37G 0 022 
N07u 0 02 3 
N073 0 Q2h 
N070 0 Q25 
N0700026 
NQ7Da027 
N07j 0 023 
N07U0029 
N37Q003G 
N07Q Q031 
NG7Q0032 
N0700Q33 
N070003A 
N070 G 035 
N07Q 0 036 
NQ7a0037 
N070 0 038 
N0700039 
NQ70 G 040 
Ni]70ua41 
N070 0 042 


9 

9 

999 9 
999 9 
99 9 
999 9 


9 99 9 99 9999 99 9999 9 9 99 9 999 9 9 9999 999999 9 99 9 
9 

^ THIS MODULE IS EXECUTED IN BANK 0 


N0700044 
N070 0 045 
NQ70a045 
N0700047 
N070 a 048 
N070 u 049 



o 

o 


o 

o 




o 

o 




o 

o 

o 

o 

o 


0 u p G 

OOBUGi 

PftGE 2 DATE: 01/27/99 

N07G 0050 

00 51 



N07D 0 051 

0 0 5 2 



NO 70 0 05 2 


0 0 5 5 




£ 

N 

T 

R Y NAMES 

N0700055 

0 0 5 6 


ENT 

HANDLE 





Ni37J 0 056 

0 0 5 7 


ENT 

BRIPRl 





NO 73 Q 05 7 

00 58 


ENT 

ERROR 





N07Q0058 

0059 


ENT 

lOERR 





NQ7a 0 05 9 

00 5 0 


ENT 

SOMMOR 





N07UU 060 

00 51 


ENT 

SOME 





NQ 70 0 061 

00 52 


ENT 

MMA3DR 





N37G0062 

0 053 


ENT 

MSG 





N07gO0D3 

0 D 5 -t- 


ENT 

OFF 





NO 73 O 064 

0 0 6 6 




E 

X 

T 

E R N A L S 

N373 0 05b 

0057 


EXT 

GETREQ 




TO HATCH COMMAND 

N07Q0067 

0068 




FOLLOWING EXTERNALS ARE FOR SUBROUTINES (AREA 3) 

Nu73G0o8 

QG59 


EXT 

PRINT 




01. PRINT MESSAGE 

N0 73 Q U69 

0 3 7 0 


EXT 

GETFLD 




02. FIND NEXT FIELD 

N07Q 0 070 

0 0 71 


EXT 

as: HEX 




03. ASCII TO HEX. CONVERSION 

N07G 0 07 1 

0 0 72 


EXT 

DHPBUF 




04. PRINT CORE DATA 

N0 73 3 0 7 2 

13 3 73 


EXT 

ASDOEC 




05. ASCII TO BINARY CONVERSION 

N0 70 0 073 

u G 7 H 


EXT 

HEXASC 




06. HEX. TO I-WORD ASCII CONVERSION 

N0700Q74 

007 5 


EXT 

OEDDHP 




07. PRINT CORE DATA IN DECIMAL FORMAT 

Nu7G0075 

0 0 7 6 


EXT 

GETINT 




08. GET INTEGER FOR E/D VALUE 

NQ73U076 

0 0 77 


EXT 

FETMM 




09. GET/CONVERT MM ADDRESS 

NQ73U Q77 

0 0 78 


EXT 

PNIMD 




10. PRINT MM DATA 

NQ7G 0 078 

0 0 79 


EXT 

MA53T 




11. PRINT HM DATA WITH DIFFERENT FORMATS 

N070C073 

00 80 


EXT 

CONFM 




12. PRINT DATA AND REQUEST CONFIRMATION 

N0700080 

00 3 1 


EXT 

FLCVSG 




13. PRINT/CONFIRM SINGLE PRECISION VALUE 

N07QU081 

0 0 32 


EXT 

FLCVOB 




14. PRINT/CONFIRM DOUBLE PRECISION VALUE 

N0700Q82 

0083 


EXT 

NAMEMS 




15. ••NAMEMS** — COMMAND MESSAGE 

N07S0083 

0 0 8 4 








N07QQ084 

QQ 8 5 


EXT 

ESONV 




E- OR F-FORMAT CONVERSION (SINGLE) 

NQ7Q Q 085 

0 0 36 


EXT 

DCONV 




D- OR F-FORMAT CONVERSION (DOUBLE) 

N070a086 

00 88 


EXT 

ODE BUG 




DIRECTORY NAME OF THIS PACKAGE 

N073U088 

00 89 


EXT 

GHRSFG 




OOP IN-PROGRESS FLAG 

N070QQ89 

0 3 90 


EXT 

NUMLU 




^«^MS0S4. 

0^^N070Q09Q 

0 3 92 




i 

E 

Q 

U ' TABLE 

N0 70 0 092 



o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 


c 
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0 0 93 

0 0F4 
9 OEA 
CO 0 2 
0012 
0 0 33 

EQU 

03 9 4 

0 0 43 
3 0 H 4 
D 022 
0 0 23 
0 027 

EQU 

0 0 9 5 

G02C 
0 G2F 
0 0 2A 

EQU 

0 Lj 9 6 

0 0 26 
0 0 45 
0 0 04 
0 0 03 
QQ24 

EQU 

Gu9 I’ 

0 0 46 

EQU 


00 99 
019 0 

OQ 10 


EQU 

013 1 

0 0 07 


EQU 

013 2 

0 0 28 


EQU 

uiO-+ 
010 5 

01 54 


EQU 

0106 

0120 


EQU 


aio a 

0109 

18FC 


EQU 

0110 

18FD 


EQU 

Qiil 

08C2 


EQU 


AH3MI ($F4) ,AOISP{SEA) ,LPMSK(2) ,NZER0{$i2) ,ZR0BIT($33) Ni)7 3 0 093 


FI\/E ($43) ,SIX , ZERO ($22) ,ONEBI T ($ 23 ) , SIXTEN ($ 27 ) N07D0G9h- 


COMMA ($20 , SLASH ($2F) ,ASTRIC ($2A) 


NQ73C 095 


EIGHT (S 26) , NINE ($45) , THREE (4) , ONE ( 3 ) , T WO ( $2 4 ) 


NO 70 G 09b 


TEM ($46) 


N0700097 


VARIABLE EQUS 
MAXPAG( 16) 
CHRSLV( 7) 
L8J-F{40) 


N07D 0 099 
N07GQi0G 

LEVEL OF THIS PROGRAM 

LENGTH OF OPER. INPUT BUFFER (2 CHAR, /WORD) N0700 1D2 


SIZED TO HOLD AREA 2 AND AREA3 PROGRAMS RESPECTIVELY 
LENGTH (340 ) LENGTH OF PROGIN( AREA 2 ) 

LAREA3(288) LENGTH OF AREA 3 


N070 Q104 
N07-3 0 i05 
NU7G QlOo 


ECUS FOR LOGICAL UNITS 

COHOJK $18FC) TYPER OUTPUT LOGICAL UNIT 
COMLU(SiaFD) INPUT COMMENT MEDIUM 
MA53LU($8G2) MASS MEMORY LOGICAL UNIT 


N070G1B8 

N3700109 

Nfl7QG110 

N070ulil 
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0114 







0115 






¥• ¥■ V- 

0116 




!(■ 



0118 

POOOQ 

C400 

X 

OOP 

LDA 

CHRSFG 


DOOOl 

7FFF 

X 



0119 


QOOl 

P 


EQU 

CHRISODP+l) 

0120 

P00G2 

0101 



SAZ 

SETFG-^ -1 

0121 

P0 0 0 3 

1871 



JMP^' 

GOWAY 

0122 

PC 0 0 4 

DCFC 


SETFS 


(CHRIS) 

0123 

P00 0 5 

5801 



RTJ^ 

SELF 

0124 

P00C6 

GO 0 0 


SELF 

NOP 

0 

0125 

P 0 0 G 7 

C8FE 



LDA"^ 

SELF 

Q12b 

P0 008 

0931 



INA 

HANDLE-SELF 

0127 

P0G09 

680 0 



STA 

8A5E+1 


P 0 0 GA 

0 086 




0128 

P0008 

0975 



INA 

HS3-HAN0LE 

0129 

P 0 0 c c 

6 8 0 0 



STA 

B AS E + 2 


POCGD 

0 0 84 





0130 

P 0 0 G E 

09CA 



INA 

SOMMOR- MSG 

0131 

P 0 G 0 F 

6 80 0 



STA 

BA5E+3 


POGIO 

G 082 





0132 

POOH 

0928 



INA 

I0ERR-30MM0R 

0133 

P0012 

6 8 0 0 



STA 

BA3E+4 


P0Q13 

0 0 80 




0134 

poai4 

C9EC 



INA 

8ASE-I3ERR 

0135 

P0015 

63 7A 



STA^ 

BASE 

0136 

POulc 

CQFC 



LDA- 

$"C 

0137 

0138 

PG017 

68 7E 



STA^ 

COMOLU 

PD018 

68 7C 



STA^ 

LI3TLU 

0139 

P0019 

C0C2 



LOA- 

$C2 

0140 

POOIA 

68 7C 



STA^ 

NEWMLU 

0141 

P OulB 

1800 



JMP 

START 


PO QIC 

G 0 B1 





0142 





BACK 

GROUND INPUT 

0143 

PQOID 

0 C27 


LOKMOR 

END 

L3J-F-1 

0144 

POOIE 

OAFF 



ENA 

-0 

0145 

D 0 0 1 F 

oAO 0 


BUFL3P 

STA 

BUFFER, Q 


P0Q2Q 

00 AD 




0146 

014? 

P0021 

GDFE 



INC 

-1 

P0Q22 

0171 



SQM 

ALLlS-*^-l 

0148 

P0023 

18FB 



JMP^ 

8UFL0P 

0149 






SET JP BJ-FE 

0150 

P0Q24 

C AOl 


ALLIS 

ENA 

1 

0151 

P0 025 

68 74 



S T A’‘ 

BITFLG 

015? 

P00?6 

48 74 



3TQ» 

BUF3NT 


ROGRAM START 

GET OOP-IN-PROGRESS FLAG 

CHRIS ALREADY IN 
YES-RELEASE SECOND ONE 
NO-SET CHRSFG 

TRAP CURRENT CORE LOCATION 
CALCULATE •'HANDLE'* ROUTINE LOCATION 
A3S0LUTIZE0 "MSG" ADDRESS 
GENERATE "SOMMOR" ADDRESS 
CALCULATE "lOERR" LOCATION 

GENERATE PARAMETER BASE LOCATION 

SET-UP STANTARO OUTPUT 
L.U. NO. 

^^^MSOS-^. 

SET UP MASS MEMORY LOGICAL UNIT 
GO TO START UP 
BUFFER WITH ALL ONES 


COUNTERS FOR GEFFLD 


NQ 70 0 114 
N070Qli 5 
N07D0116 


N07 j 0 118 

N0700119 
N07G012Q 
NQTCaiEl 
N0700122 
N073D123 
N37j0124 
N073 0125 
ND73 0126 
N07Q0127 

N07J 0128 
N0700129 

N070013Q 
N07G 0131 

N07 3 0132 
NO 70 0 133 

N073 0134 
N070013 5 
N07QD13 6 
NQ700137 
3^^N07j013B 
N0 7 0 0 139 
N070G140 
N070 0141 

N0700142 

N070Q143 

N07G0144 

N0700145 

NG700146 
N0700147 
N0730148 
NQ700149 
NQ7D 0 150 
N0700151 
N0730152 


c 
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o 

0153 

P0G27 

OAOO 


ENA 

0 

RESET SLASH FLAG 

NQ730153 

' C' 


015W 

P 0 0 2 8 

6877 


STA^ 

SLASHF 


N0700154 


Q 

0 1 5 1? 

P0029 

63 77 


STA^ 

BJFEMT 

ANU BUFFER EMTY FLAG 

N0700155 

o 

O 

015 7 





READ ONE LINE 

FROM INPUT COMMENT DEVICE 

NQ700157 

■ o 


015 8 

P002A 

5 4F4 


RTJ- 

(ANONI) 


N0700158 


O 

0159 

P002B 

09 07 

REAOLN 

ADC 

$9Q0+CHRSLV 


NQ70 0159 

o 

u IS 0 

P002C 

Q 029 


ADC 

FIRSTF-REAOLN 


N070 Q 160 


0161 

P002D 

0 00 0 


NUN 

0 


N0700161 



Dlbii 

P002E 

18F0 


ADC 

COMLU 


N0700152 


O 

0163 

PO D2F 

0 0 28 


ADC 

LBUFF 


N0700163 

o 

016 4 

P0Q30 

Q DA2 


ADC 

BUFFER-READLN 


NQ70016H 


O 

0165 

PQ031 

1 ^•E A 


JMP- 

{ADIS F) 


N0700165 

o 


0167 



•M- 


BRING DVER PROGRAM SUBROUTINE 

ND7Q0167 

^ o 


0168 



V 


THIS ROUTINE 

PUT CORRECT PROGRAM IN AREA 3 

N0700166 


0169 



V- 


ENTER HANDLE 

WITH SUBROUTINE NUMBER IN A AND Q WILL 

N07Q 0169 



oirc 





BE PASSED. RETURN ADDRESS WILL B£ SET IN FIRST WORD 

OF N070C170 



0171 



V- 


SUBROUTINE WITH CONTROL GIVEN TO SECOND WORD. 

N070Q171 

; o 


0172 

P0032 

0161 

GOTO! T 

SQP 

G3T02 


NQ7JD172 


0173 

PGG33 

18 6F 


JMP^ 

lOERR 

»'^HSOS4,0^^N0700 173 



017-r 

PO 034 

C31F 

G0T02 

LDA^ 

PRGTMP 


NO70D174 


o 

0175 

P0G35 

6862 


STA^ 

PR3G1 

SUBROUTINE IN AREA 3 

ND700175 

: O 

017 6 

P0C36 

1806 


JMP^ 

G0T03 


N07Q 0176 


0177 

PO 037 

0 0 0 0 

HANDLE 

NUM 

0 

START OF SUBROUTINE 

N0700177 



017 8 

P0038 

481A 


3TQ^ 

QTEMP 


NO 70 0 178 



0173 

PO 039 

0 822 


TRA 

Q 


N0700179 

• {'“D 


OIBQ 

P003A 

B850 


EOR^ 

PROGl 

CHECK IFF CORRECT PROG IS I N AREA 3 

Na7QQ 180 



0131 

P0038 

0117 


SAN 

NOPRG-^-1 


N0700181 



0182 

P 0 0 3C 

C8FA 

G0T03 

LDA^ 

HAN3LE 


N070Q182 


O 

0133 

P0030 

6800 


STA 

AREA3 


N070G183 

o 


P005E 

02 OB 





NQ700184 


018i* 

P003F 

E8 13 


LOQ*^ 

QTEMP 




013 5 

POuuO 

C8 4F 


LDA^ 

BASE 

GET PARAMETER BUFFER ADD. AND PASS TO 

SUB. N07Q0185 


o 

018 6 

POu 41 

18 0 0 


JMP 

AREA3+1 


N07Q0186 

o 


PQ Ov2 

0 2 08 






i 1 









' 0 


0188 



¥ 


GET PROGRAM INTO AREA 3 

N070Q188 



o o 


o 


o 


r-, 
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519 5 

PC043 

CA 6 B 

NOPR5 

LOA^ 

PROLOG, Q 


N070G190 

0191 

pqol-t 

480F 


3TQ^ 

PRGTMP 

SET FOR NEW SUBROUTINE IN AREA 3 

NQ7Q0191 

0192 

PO 0 45 

5838 


RTJ- 

MMA30R 

CALC. MM ADDRESS 

NQ700192 

0193 

P 0 0 M-D 

48 09 


STQ^ 

MSBSR 


N0700193 

019 A 

Pu047 

68 09 


3TA^ 

LSBSR 


N0700194 

0195 

POO 48 

5 4F4 


RTJ- 

(AMONI) 


N07QQ195 

013b 

P0Uh9 

09 0 7 

GETRD J 

ADC 

$30 0 +CHRSLV-t-$600 

N0700196 

019 7 

P004A 

7FE8 


ADC 

GOTOIT-GETROU 


N07QD197 

0198 

P0048 

00 00 


NUM 

0 


■ NG7Q0198 

0199 

PO 04C 

C8C2 


ADC 

MA5SLU 


N070Q199 

0200 

POOAD 

0120 


ADC 

LAREA3 


N07D 0 20Q 

02 D 1 

POQhE 

0200 


ADC 

AREA3-3ETROU 


N07D 0 201 

02 0 2 

P004F 

0 0 0 0 

MS 8 SR 

0 

0 


N07Q0202 

0 203 

PQ050 

0 0 0 0 

LSBSR 

0 

0 


NOTOfl 203 

020 ^ 

P0051 

14EA 


JMP- 

(ADISP) 


N070D2G4 

023 6 

P0 052 

00 00 

QTEH3 

NUM 

0 


NQ75 0206 

02 0 7 

P0G53 

0 0 0 0 

PRGTMP 

NUH 

0 


N070 u 207 


0209 

POOS- 

5 1 61 

FIRSTF 

SQP 

NOERR-^-1 

0210 

P0055 

13 40 


JMP^ 

lOERR 

0211 

P0056 

C 8 42 

NOERR 

LDA^ 

PR3G2 

0212 

P0U57 

0 124 


SAP 

NOlNYT-^-1 

0 213 

P0Q58 

C837 

GETEAS 

LOA^ 

BASE 

021 - 

PQQ59 
P0 05A 

1300 
0 090 


JMP 

PRDGIN 

0216 

PO 05B 

7FFF 

X AGETRQ 

aoc 

GETREQ 

0218 

P 0 0 5 C 

C 8 FE 

NOI Nf T 

LDA^ 

AGETRQ 

0219 

P0Q5D 

5820 


RTJ» 

MMA90R 

0220 

PC 05E 

48 GB 


STQ» 

MS3PRC 

02^1 

P0 05F 

08 OB 


STA» 

LSBPRC 

0 2 2 2 

P0060 

OAFE 


ENA 

-1 


NO I/O ERROR N07302Q9 

’^^MSOSA. "^N0700 21G 
N0700211 
N070 Q212 

GET PARAHETER LIST LOCATION N07Q0213 

PROGRAM IN CORE ND73Q21A 


RELATIVE ADDRESS TO GET REQUEST PROCESSOR 
CALC. MM ADDRESS 


NO 73 5 216 

N070Q218 
N07CO 219 
N07a0220 
N0700221 
NQ700222 


0 224 





0 P 2 5 

PQ061 

6837 

BRIPRO 

STA^‘ 

0226 

P0 062 

5 4 F 4 

BRIPRl 

RTJ- 

0227 

P0Q63 

0 9 07 

GETPRG 

ADC 

0228 

P0u64 

0 0 09 


AOC 

0229 

P0Q65 

u QQ 0 


NUM 

0230 

P0066 

0 8C2 


ADC 

0231 

PG067 

0154 


ADC 


BRING IN REQUESTED PROGRAM INTO 

PR0G2 

(AMONI) 

$3QO^^GHRSLV+$600 

NOWIM-GETPRG 

0 

MA33LU 

LENGTH 


2 N07Q022A 

N070 0 225 
Na750 226 
N0700227 
NO 75 D 22 8 
NQ7Q0 229 
N0700230 
N0700 231 
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G232 

PO 068 

0 0 92 


ADC 

PRDGIN-GETPRG 

N0700232 

0233 

P0 0 69 

OOOG 

MSBP9C 

0 

0 

N070 0 233 

023t 

P0 06A 

0 0 0 0 

LSBPRC 

0 

0 

N070 0 234 

0 2 3 p 

PQoee 

14EA 


JMP- 

(A3I3P) 

N070 0 235 

u236 

PQ06C 

0171 

NOWIN 

SQM 

lOERRl 

N070 0 235 

023 7 

PO 0 60 

18EA 


JMP» 

GET8AS TO START EXECUTION 

N0700237 

023 8 

P0 06E 

1834 

lOERRl 

JMP-> 

lOERR 

N07Q 0 238 

0240 



>!■ 


ERROR DETECTED IN I/O -RELEASE CORE 

N073 0 240 


0242 


4 - 


TURN OFF REQUEST 

N070 0 242 

02^3 

° 0 06F 

OCOl OFF 

ENQ 

1 

N0700243 

024^ 

P0G70 

0 A 01 

ENA 

1 

' N073 0244 

0245 

P0071 

58C5 

RTJ^ 

HANDLE 

N07Q0245 

0 2 4 6 


0072 P ERROR 

EQU 

ERROR (^) 

NO70 0246 


0248 

PC072 

0 8 44 

CHREXT 

SLR 

A 


N0700248 

0 2 49 

P0073 

6C80 

LCHRSF 

STA^ 

(CHRIS) 

CLEAR CHRSFG 

N0700249 

0250 

P 0 0 7 4 

54F4 

GOWAi' 

RTJ- 

(ANONI) 


• NO 70 0 250 

0251 

POO 75 

1901 


NUM 

$19 01 


N070 Q251 

0252 

P00 7 6 

FF8A 


ADC 

(ODP-^+l ) 

RELEASE CORE 

N0700252 


0254 



V- 


5 CARDS DELETED 

NQ70 0 254 

0 2 5 5 

P0077 

GC89 

SOMM9R LDA^ 

(CHRIS) 

CHECK FLAG 

N070 0 255 

0 2 5 6 

P0G78 

0110 

SAN 

SONE-^-1 


N070 0 256 


0 2 58 




LOG ANY MORE REQ MESSAGE 

N07I 0 258 

0 259 

PGD79 

0C03 

SOME 

ENQ 3 

N07C 0259 

0 2 5 u 

P0G7A 

0 AOl 


ENA 1 

NO 70 0 260 

0251 

P007B 

58BB 


RTJ» HANDLE 

NO 70 0 261 

0252 

P0G7C 

1 8A0 


JMP» LOKMOR 

N370 0 262 

0263 





Na700253 

0 2 5 4 




SUBROUTINE TO CALC. MASS MEMORY ADDRESS OF SR 

N070 0 264 

0 2 5 5 



V- 

FROM MM ADDRESS OF OOP IN SYS. DIRECTORY 

N0700265 

0 2 6 6 



If. 

ENTRY AND ADDRESS OF SR RELATIVE TO OOP 

NG70 0266 

026 7 



-¥■ 

(A-R£G.=RELATIVE ADDRESS OF SUBROUTINE) 

N070 0 267 

0 2 5 8 





N070 0 268 


(’ ' 
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0259 

PU07D 

00 OQ 

MMADDR 

Q 

0 



N073 a 259 





027ci 

P007E 

OCOQ 


ENG 

0 



N070 0 270 





0271 

PG07F 

30 0 0 


OVI 

= N9 5 



N0700271 



Q 



PO 080 

0 0 60 






N07i3 0 27 2 




0272 

P00 81 

680C 


STA-> 

RELMMA 







,027:i 

P0082 

EOFB 


LDQ- 

$EB 

ADDRESS OF SYS. DIR. 


N0700273 




o 

027i* 

P0D63 

F80B 


ADQ^ 

ODPDEN 

PLUS INDEX TO OOP ENTRY 


N07u 0 2/4 



r') 

027^ 

P0 084 

C20o 


LDA- 

6, a 

RELMMA 

LSB OF MM ADDRESS OF “ODP" 


N0790275 





02 7b 

P0 085 

8 8 0 8 


ADD^^ 

ADD RELATIVE ADDRESS OF SR 


NQ7G 0276 





02 7 7 

PQ086 

0005 


INQ 

5 

SET LOCATION TO MSB 


N070 027 7 





0273 

PG087 

4806 


STQ'^ 

RELMMA 



NQ70Q278 





0279 

PO 088 

G C 0 0 


ENQ 

0 



NQ7G0279 





D280 

PC089 

OFEl 


LLS 

1 



NO 70 0 28 0 





0281 

P0G8A 

FC03 


ADQ-^ 

(RELMMA ) 

CALCULATE LSB 


N0700281 





0282 

P0G8B 

CFCF 


ALS 

15 



NQ70Q282 



O 


0283 

PQ08C 

ICFO 

NOO V- 

JMP-^ 

(MMADDR) 

Q=MSB,A=LSB 


NQ7Q 0 283 




02 35 

POQ80 

00 GO 

RELM9A 

0 

0 



N07C 0 285 





0285 

P0 08E 

7FFF X 

ODPDEN 

ADC 

ODEBUG 

DIRECTORY NAME OF THIS PACKAGE 


N070 0286 



Q 


0288 





PARAMETER BUFFER 

(BE FILLED) 

ND700288 



o 


02 39 

P0 08 F 

0 0 0 0 

BASE 

NUM 

0 

A8S0ULTIZEQ PARAMETER BUFFER ADD. 

N070 0289 




029 G 

P0090 

00 31 

ADC 

HANDLE-SELF 

"HANDLE" LOCATION (TO BE FILLED) 

1 

NC7QG290 





029 1 

P0091 

00 75 


ADC 

MSG-HANOLE 

"MSG" LOCATION (TO BE FILLED) 

'Z 

NQ7DQ291 





G?92 

P0092 

7FCA 


ADC 

SOMMOR- MSG 

"SOMMOR" ENTRY 

3 

NQ7Q 0292 



: O 

'■■u 

0?95 

P0093 

00 2B 


ADC 

lOERR-SOMMOR 

"lOERR" ENTRY 

,4 

N070G293 




029-r 

PO C94 

0 0 0 0 

LISTLU 

NUM 

0 

LOG. OF LIST OUTPUT L.U. NO. 

5 

N070G294 





0295 

P0;/95 

0 u C 0 

COHOUJ 

NUM 

0 

LOG. OF COMMENT OUTPUT L.U. NO. 

6 

N0700295 





0296 

P0 096 

0 0 0 0 

NEHMLU 

NUM 

0 

NEW MASS MEMORY LOGICAL UNIT 

7 

NO 70 a 296 



■ 0 

'w' 

0297 

PD097 

00 00 

PROGl 

NUM 

0 

SUBROUTINE IN AREA 3 

8 

N07Q0297 




02 98 

P0098 

0 0 0 0 

PR0G2 

NUM 

0 

PROGRAM IN AREA2 (PROGIN) 

--- 9 

N070 0 298 





0299 

P0G99 

0000 

8ITFLG 

NUM 

0 

BUFFER BIT POSITION NEXT 

ID 

NQ700299 





0300 

P009A 

0 0 00 

BUFC'JT 

NUM 

0 

BUFFER COUNTER 

11 

NQ700300 



: O 


03 3 1 

P009B 

00 00 

FIELD 

NUM 

0 

CONTROL CHAR. 

--- 12 

N07QQ 301 




0302 

09C 

0 00 0 

NUM 

0 

SIGN AND 1ST DEC. DIGIT 

— - 13 

N070 0 302 





C3D3 

PQ09D 

0 Q 0 0 


NUM 

a 

2 MOST SIGNIFCANT HEX CHARACTERS 

14 

NQ700305 





0304 

PO u9E 

00 00 


NUM 

0 

LEAST SIGNIFCANT HEX CHARACTERS 

15 

N073 0304 



; O 


030 5 

P009F 

GOOD 

SLASHF 

0 

0 

SLASH FLAG 

16 

NQ70 0 30 5 




03 06 

POOAO 

OOuO 

8UFEMT 

c 

0 

BUFFER EMTY FLAG 

17 

N070 (j306 




o 

030 7 

POOAl 

G03E 


ADC 

BUFFER- BASE 


18 

N07Q0307 



■ O 

0 3Q 9 






LOG ILLEGAL MESSAGE 


NQ70 0 309 




o 

0310 

P00A2 

5 4 F4 

lOERR 

RTJ- 

( AMONI) 



N0700310 



o 

0311 

P00A3 

0 5 07 


ADC 

$500 + CH RSLV 



N07G0 311 


' 



0312 

PO jA4 

0 0 07 


ADC 

ERCOHP-IOERR- 

1 


NO 70 J 312 





0313 

PQ0A5 

0 0 0 0 


NUM 

0 



NG/’0 0 313 




o 

0314 

PQ0A6 

18FC 


NUM 

$13FD 



N070 0 314 



C'\ 

0315 

P00A7 

0 0 08 


NUM 

8 



N070 0 315 




o 

0 316 

P 0 0 A 8 

OOIQ 


ADC 

ERMESS-IOERR- 

1 


NQ7G0316 



O 

C) 












c 


OOBUGl 


PAGE 


9 


DATE: 01/27/99 


0317 
0 318 

P00A9 
PO OAA 

IAEA 

0163 

ERCGiP 

JMP- 

SQP 

{ADI3 F) 
SOMMRR 


N07Q0317 

N0700318 

0319 

0320 

PGO AB 
POOAC 

18C6 

OAQl 

MSG 

JMP^ 

ENA 

ERROR 

1 

Q SET BY REQUESTOR OF MESSAGE 

N073 0 319 
NQ7D032G 

0321 
0 32 2 

PGOAD 

PGOAE 

5889 

18C3 

SOMMRR 

RTJ- 

JMP^ 

HAN3L E 
SOMMOR 

N07Q0321 
NO 70 0 32 2 


0 32 ^ 


CO AE 

P 


EQU 

PR0L0C{^-1) 

TABLE OF AREA 3 PROGRAMS 

N073 0 32 4 

0326 









N070 0 326 

032 7 




-¥■ V- ■¥• 


AREA 

3 PROGRAM NAMES TABLE 

N0730327 

0328 









NO 70 0 32 8 

03 29 

POO AF 

7FFF 

X 

A3 

ADC 

PRINT 

INDEX NO. 1 

N07D 0329 

0330 

POQBO 

7FFF 

X 


ADC 

GETFLD 


2 

N070 0 33 0 

0331 

POOBl 

7FFF 

X 


ADC 

ASCHEX 


3 

NO 7 0 33 1 

0 33 2 

P00B2 

7FFF 

X 


ADC 

OMPBUF 


4 

NO 70 0 33 2 

0333 

PQOB3 

7FFF 

X 


ADC 

ASCDEC 


5 

N070 0 333 

033^, 

P00B4 

7FFF 

X 


ADC 

HEXA3C 


5 

N07ij0334 

0335 

PQ0B5 

7FFF 

X 


ADC 

OECDMP 


7 

N07 00335 

033 6 

PQ0B6 

7FFF 

X 


ADC 

GETINT 

08. 


NO 73 0 33 5 

0 3 3 7 

P00B7 

7FFF 

X 


ADC 

FETMM 

9. 


NO 73 0 33 7 

0338 

P00B8 

7FFF 

X 


ADC 

PNTMD 

10. 

PRINT MM DATA 

N070 0 338 

0 339 

POO B9 

7FFF 

X 


AOC 

MA30T 

11. 

PRINT MM DATA WITH DIFFERENT FORMATS 

, NO 73 0 339 

03 AO 

POOBA 

7FFF 

X 


ADC 

CO'JFM 

12. 

PRINT DATA AND REQUEST CONFIR?iATION 

N07QQ340 

0341 

P008B 

7FFF 

X 


AOC 

FLCVSG 

13. 

PRINT/CONFIRM SINGLE PRECISION VALUE 

NO 73 0 341 

0342 

PO GBC 

7FFF 

X 


ADC 

FLCVDB 

14. 

PRINT/CONFIRM DOUBLE PRECISION VALUE 

N070Q342 

03 43 

POO BO 

7FFF 

X 


AOC 

N A M E M S 

15. 

"NAMEHS" -- COMMAND MESSAGE 

NG730 343 

0344 

POO BE 

7FFF 

X 


ADC 

ECOMV 

E- 

OR F-FORMAT CONVERSION (SINGLE) 

N070 0 344 

0345 

PGOBF 

7FFF 

X 


AOC 

DCONV 

0“ 

OR F-FORMAT CONVERSION (DOUBLE) 

NO 700345 


034 7 

P 0 Q G u 

DAGO 

ERHE5S NUM 

SAOD 

N073Q347 

0 3 48 

PGQCl 

4 4 42 

ALF 

6,D3 I/O 

ERROR N0700346 


PG0C2 

2049 





P00C3 

2F4F 





P0QC4 

2 0 45 





PD0C5 

5252 





P03C6 

4p 52 



N070Q349 

0349 

P00C7 

OA OO 

NUM 

$A0D 

0351 

P0QC8 

0 0 05 

BZS 

PATCHK 5) 




ODBUGl 


PAGE 10 

DATE: 01/27/99 


0 353 
0 3 5 4 
0355 

OQCO P 

>f 

OOCD P START 

EQU 

EQU 

BUFFER( ^) 
THIS BJFFER 
START (‘>- ) 

MUST MUST REMAIN JUST BEFOR AREA 2 
START — ONE SHOT START-UP 

N073 0 355 
NG700354 
N079 0 355 


o 

o 


'' V 

0 35 7 

0358 

0359 

poacD 

PO OCE 

QC 00 
OAOl 

■¥• 

CHRL3P ENQ 
ENA 

WRITE INTIAL 
0 
1 

MESSAGE 

N07jG357 
N07G 0358 
N073D359 

O 

1 1 

0 35 0 

PQuCF 

58G0 

RTJ 

HANDLE 

PRINT START MESSAGE 

NO 70 0 360 

0 

0351 

POO DO 
PCODl 
PO0D2 

FF66 

1800 

FF4A 

JMP 

LOKMOR 


N0700361 




0 3 6 3 

0 3 69 

EQU 

L CHRIS { BJFFER+LBUFF+LENGTH+LAREA3-ODP ) 


036i. 

00F5 P 

EQU 

PRDGINt 0UFFER + L8UFF) 

r'') 

0 3 5 5 

0 2 49 P 

EQU 

AREA3 (3UFFER+-LBUFF + LENGTH) 

o 

0 






N07003&3 
N07C 0364 
N0730365 


I 1 


u 


I '1 


o 


o 


0366 
03 69 
03^0 


^ * t- ^ ^ V■’^ V- >/• V- V- ^ ^ j^pj^l^ 2 

^ ^ V-^ >!• V-* ^ ^V- >rV- V-if V- V- *9->!- 



03 71 






o 

0372 


0 0 02 

P 

EQU 

SAOK^/96) 

0373 


CQQ3 

P 

EQU 

SPOKSACli-l) 


037^^ 


0120 

P 

EQU 

OBu KS^Gl'^BB) 

o 

0375 
03 76 

PCflD3 

0 0 4D 

V- 

BSS 

(DBOl-^) 

037 7 




END 


o 

P3H = 

0120 

{ 

28S ) 

SOM = 

OQOO ( 0) 


DAT = OOOu ( 


C ) 


N0700368 
N070 0369 
NiJ70 0 370 
N070 0 371 
NU7G 0 37 2 
N0730373 
NQ7G 0 374 
N0 73 Q375 
N07G0376 
N07Q0377 


o 

o 

o 

o 


o 


c 



o 

E Q U I V 

A L E M 

w 

DEF. LINE 

^AME 


0 0 0 0 

I 


0093 

AMONI 

c 

0 0 93 

ADISP 

GC93 

LPHSK 


0 093 

NZERO 


0 093 

ZROBIT 

o 

009u 

FIVE 

0 0 9 4 

SIX 


0094 

ZERO 


0094 

ONEBIT 

o 

0 094 

SIXTEN 

0 09 5 

COMMA 


0 09 5 

SLASH 


0 09 5 

AST RIG 


0 0 9 6 

EIGHT 


0 0 9 6 

NINE 


0 096 

THREE 


0 0 9 6 

ONE 

n 

0 095 

TWO 


0 G 9 7 

TEN 


0 100 

MAXPAG 


a ici 

CHRSLV 


0102 

lBUFF 


010 5 

LENGTH 


0 IG 6 

LAREA3 


0109 

OOMOUT 

O 

0 110 

COMLU 

0111 

HASSLU 


0363 

LCH RIS 

r-) 




C E S 


VALUE .RE-EREN 

uOFF (000255) 

00F4 (00u2-+L) U53, 

uOEA (OeC23^) 0165, 

0002 . (OCQuOZ) 

0012 (OG0018) 

0033 (0 00051) 

Q0L3 C000067) 

0044 ( 000 05 8) 

0022 (QQ0034) 

0023 (000035) 

0027 (000039) 

002C ( 0 0 0 0‘+4) 

002F ( 030 047) 

002A ( 0 00 042) 

0026 (000038) 

0045 (000069) 

C00 4 ( 00-004) 

0003 (000003) 

0024 (000036) 

0046 (000070) 

0010 (000016) 

0007 (000007) 0159, 

0028 (00004G) 3143, 

0154 (00G340) 0231, 

0120 (000288) 3200, 

18FG (0G6395) 

18FD (006397) 0162 

08C2 (002242) 0199, 

0369 (000873) 


EO AT LINE NUMBER 


0195, 0226, 0250, 0310 
0204, 0235, 0317 


0 196, 0227, 0 311 
0163, G363, 03o4, 0365 
0363, 0365 
G363 


Q 23 0 


O 

O 

O 

o 

C) 


o 

o 

o 

o 

o 

o 

o 

o 

Q 

o 

o 

o 

o 

o 



ODBUGl 
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DATE; 

Gi/27/99 




: y M B 0 

L S 









DEF . LINE 

MAME 

ADDRESS 

RE“ EREN 

CEO AT 

LIME NUMBER 





0 0 5 b 

HAN OLE 

0 03 7 

0 0 56 , 

0126, 

0128, 0182, 

02h5, 0261, 

0290 , 

0 291, 

0321 

0 0 5 7 

3RIPR1 

0062 

0 057 







00 58 

ERROR 

0072 

0 058 , 

0 319 






0 059 

lOERR 

0QA2 

0 0 59 , 

0132, 


0210, 0238, 

0293, 

0 312, 

0316 

0060 

30MM0R 

0077 

0 0 60 , 

0 13 0 , 

0132, 0292, 

0293, 0322 




0061 

SOME 

0079 

0 0 61 , 

0256 






0062 

MMADDR 

0 0 7 D 

QC62, 

0 192, 

0219, 0283 





00 63 

MSG 

GOAC 

0 'j 63 , 

0128, 

0130, 3291, 

0292 




3 064 

OFF 

006F 

3 0 64 







0118 

OOP 

0000 

3119, 

0252, 

0 365 





0119 

CHRIS 

0001 

3 122, 

0249, 

0 255 





0 iZ2 

SETFG 

000^ 

0 120 







3 124 

SELF 

00 0 6 

0 123, 

0125, 

0126, 0 290 





0143 

LOKMOR 

OOID 

0 2 62, 

0 361 






0145 

BUFLOP 

OOIF 

0148 







3 150 

ALLIS 

002 4 

3147 







0 159 

READLN 

0 02 B 

3 163 , 

0164 






0172 

GoroiT 

0032 

3197 







0174 

30T02 

0034 

0172 







0182 

30T03 

0Q3C 

0178 







0190 

NOPRG 

0045 

0181 







019 6 

GETROU 

0049 

0197, 

0 201 






0202 

MS3SR 

004F 

0193 







0 20 3 

L5BSR 

0050 

0194 







020 6 

OTEMP 

0052 

0173, 

0184 






0 20 7 

PRGTMP 

0053 

0174, 

0191 






0 2C9 

FIRSTF 

005 4 

0160 







0 211 

NO ERR 

0 0 5 6 

J 209 







3 213 

GFTBAS 

0058 

0 237 







G216 

A GETRQ 

005B 

3218 







3218 

NOINYT 

0 0 5C 

3212 







0225 

3RIPR0 

0061 








0227 

3ETPRG 

0063 

0 2 28 , 

0232 






0 233 

HSBPRC 

0069 

0 220 







0234 

LSBPRC 

006A 

3 221 







0236 

NOWIN 

006C 

0228 







0233 

lOERRl 

006E 

0236 







0 243 

CHR EXT 

0072 








0249 

LCHRSF 

0073 








a 250 

GOWAY 

007 4 

3121 







0283 

NOOVF 

Q08C 



















ODBUGl 
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DATE 

o 

0 285 

RELMMA 

0D8D 

0 2 72, 

0276, 

0278, 0 281 


0286 

DDPDEN 

a08E 

0274 



o 

0 269 

BA SE 

Q08F 

3 127, 

0 129, 

0131, 0133 

0 294 

LISTLU 

0094 

0138 




0295 

30M0LU 

0095 

0 137 




0296 

NEWMLU 

0096 

0140 



o 

0 29 7 

PROGl 

0 097 

3175, 

0 180 


0 298 

PR0G2 

0098 

0211, 

0225 



0299 

BITFLG 

0099 

0 151 



0 300 

BUFCNT 

009A 

0152 



o 

0 30 1 

FIELD 

009B 




0 30 5 

3LASHF 

009F 

0154 




0 3 0 6 

8UFENT 

00 A 0 

0155 




u318 

ERCOMP 

OOAA 

0 312 



o 

D 32 2 

SOMMRR 

00 AE 

3 318 



0324 

PROLOG 

00 AE 

0190 




0329 

A3 

00 AF 




0347 

ERMESS 

OOCD 

3 316 




0 351 

PATCHl 

00C8 





0 353 

BUFFER 

DOCD 

0 145 , 

0164, 

0307, 0363 


0 355 

START 

OOCD 

0 141 



0 358 

GHRLOP 

OOCD 




o 

0364 

PROGIN 

OOF 5 

0214, 

0232 


0 365 

AREAS 

0249 

0133, 

0186, 

0201 


0 372 

SAOl 

00 0 2 

0373 




0373 

SPOl 

0 0 03 

0 374 



o 

0 374 

OBO 1 

0120 

0 375 




C) 

o 

o 


o 

o 

c 


01 / 27/99 


Q 


0134, a 13 5, Ci 85, u 21 3, G 30 7 ^ p 

C 

: O 

■■ ' ' ' ■ ' ' , ■ ■ O 

0 35 -r, 0 365 O' 

I 

■ r*') 

o 

o 

o 

o 

; O 

c 

: o 

o 


OOBUGl 


DATE; 01/27/99 


PAGE 19 


: X T E R 

N A L S 


DE- .LINE 

NAME 

VALUE 

0 0 6 7 

GETREQ 

005 B 

0 069 

PRI NT 

OOAF 

0070 

GETFLD 

OOBD 

OG 71 

ASCHEX 

GOBI 

0 0 72 

3MPBUF 

GQB2 

0 0 73 

ASCOEC 

0083 

0 0 7 4 

HEXASC 

0084 

GG75 

DECDMP 

0085 

G Q76 

GETINT 

O0B6 

0 0 77 

FFTMM 

00B7 

0 078 

ONTMO 

GQB8 

0 079 

MASOT 

00B9 

0 08 0 

CONFM 

OOBA 

3j81 

FLC VSG 

0 OBB 

Q082 

FLCVDB 

ODBC 

0 08 3 

NAMEMS 

OOBD 

0 0 8 5 

ECONV 

OOBE 

C-08 5 

DCONV 

QOBF 

0 0 88 

DOEBUG 

008E 

0 0 89 

CHRSFG 

01301 

0 090 

NUMLU 

7FFF 


RE-EPENGED AT LINE NUMBER 

0 216 
0 329 
0 330 
0 331 
0 332 
03 33 
0 334 
0 335 
0 336 
0 337 
0 338 
0 339 
0340 
0 341 
Q 3 42 
0343 
0394 
0 3 45 
0 2 86 
0118 


OOBUGl 
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DATE! 01/27/99 


o 



A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M 8 

0 L S 



o 

A3 

0 32 9 

ADISP 

0 0 93 

AGETRQ 

0216 

ALLIS 

0150 

A 11 ON I 

0093 


BASE 

C289 

BITFLG 

0 299 

8RIPR1 

0 0 57 

BRIPRO 

0 22 5 

BUFCNT 

030 0 


CH^IS 

0119 

CHRLOP 

3 358 

CHRSFG 

0 0 89 

CHRSLV 

0101 

COMLU 

0110 

o 

DBQl 

0374 

OCONV 

0 086 

OECDMP 

0 0 75 

DMPBUF 

C072 

ECONV 

008 5 

FETMM 

0077 

FIELD 

Q 301 

FIRST- 

0 209 

FIVE 

0094 

FLCVOB 

0082 


GETPRG 

0227 

GETREQ 

0 057 

GETROU 

0195 

G0T02 

0174 

G0T03 

0182 


I 

0 00 0 

lOERR 

0 059 

lOERRl 

0 238 

LAREA3 

0106 

LBUFF 

0102 

o 

L0<M0R 

0143 

LPMSK 

0 093 

LSBPRC 

0 234 

LS8SR 

0203 

MASOT 

0079 

M3BSR 

020 2 

MSG 

0 063 

NAMEM3 

0 083 

NEWMLU 

0296 

NINE 

0096 


N3 W I N 

0236 

NUMLU 

0 090 

NZERO 

0 0 93 

ODEBUG 

0088 

OOP 

0118 


PATCHl 

0351 

PNTMD 

0 078 

PRGTM? 

3 207 

PRINT 

0069 

PROGl 

0297 


READLN 

0159 

RELMMA 

3285 

SAOl 

0 372 

SELF 

0124 

SETFG 

0122 

•w 

SOME 

ZRDBIT 

0 05 1 
0 093 

SOMMOR 

0 060 

SOMMRR 

0322 

SPOl 

0373 

START 

0355 


o 


C) 

( J 

o 

o 

o 

o 


o 


AP^EA3 

0 36 5 

ASCDEC 

00 73 

ASCHEX 

0B71 

ASTRIC 

.0095 


BUFEMT 

0306 

BUFFER 

0353 

BUFLOP 

914 5 

CHREXT 

'0248 


COMMA 

0095 

COMOLU 

0 295 

COMOUT 

010 9 

DONFH 

;OG80 


EIGHT 

0 096 

ERCOMP 

0313 

ERMESS 

0347 

ERROR 

,0058 

, r"\ 

FLCVSG 

0 08 1 

GETBAS 

0213 

GETFLD 

0 070 

,, GETINT 

0 0 76 

V..-- 

GOTOIT 

0172 

GOWAY 

0 25 0 

HANDLE 

0'05 6 

=HEXASC 

0 0 74 


LCHRIS 

0363 

LCHRSF 

0249 

LENGTH 

0105 

IISTLU 

= 0294 


MASSLU 

0111 

MAXPAG 

0100 

MHAODR 

0062 

MSBPRC- 

' 0 233 


NOERR 

0211 

NOINYT 

0218 

NOOVF 

0283 

NOPRG 

0190 


ODPDEN 

0286 

OFF 

0 3 6 4 

ONE 

0096 

ONE8IT 

0094 


PR0G2 

0298 

PROGIN 

036h 

PROLOG 

0324 

DTEMP ' 

' 0206,' , 


SIX 

0094 

SIXTEN 

03 94 

SLASH 

0095 

SLASHF 

0305 

O 

TEN 

0097 

THREE 

0096 

TWO 

0096 

ZERO 

0094 


o 


; O 

o 
' o 
■ o 


o 

o 


o 


T 


GETREa 


°AGE 1 



DATE! 01/27/99 



*. f 

li 0 Q 1 


NAM 

GETREQ 


DECK 

-10 NO 8 MSOS 5 .0 

SUMMARY-iiONOBOOOOl 



0 0 0 2 


MASS 

STORAGE OPERATING 

SYSTEM VEiRSION 5.0 

N083u J02 



00 0 3 


SMALL SYSTEMS DIVISION, 

LA JOLLA, CALIFORNIA 

N 083 0003 

■ O 


0 3 0 - 


COPYRIGHT CONTROL 

DATA 

CORPORATION 1976 

NO 83 0 30 4 



03 0 *3 







‘ N0830005 



0 3 0 6 



THIS PROGRAM 

FINDS 

THE REQUEST AND CALLS IN THE 

REQ. NQ60030& 



i3QD7 



PROG. INTO 

PROGIN 

(AREA 2) . 

N0800007 

■ n 

) 

0 0 0 8 







N0 8Q C uCl 8 



0010 



E M 

T 

R Y 

NAME 

NO 83 001 0 


o 

0011 


ENT 

GETREQ 




N08G 0311 

o 


0013 



E X 

T 

E R N 

A L S 

N083 G Q13 



001^ 


EXT 

LHXREQ 


01. 

LOAD HEXADECIMAL 

NO 83 0 01 4 

o 


0015 


EXT 

DPCREQ 


02. 

DUMP HEXADECIMAL 

NG8Q 0 015 



0016 


EXT 

SCNREQ 


0 0 . 

SEARCH COR 

N060 G 016 



0017 


EXT 

SETREQ 


04. 

SET CORE TO PATTERN 

N083QQ17 



0018 


EXT 

M8CREQ 


05. 

MOVE BLOCK OF CORE 

N3 80 Q018 



0019 


EXT 

SCHREQ 


06. 

SCHEDULE PROGRAM 

NG83fl019 



0020 


EXT 

SPEREQ 


07. 

SEARCH CORE FOR PARITY ERROR 

N08G0G20 



0021 


EXT 

CPRREQ 


08. 

CLEAR PROTECT BITS 

N38D0021 

' 


03 22 


EXT 

SPPREQ 


09. 

SET PROTECT BITS 

NQ83G022 



G323 


EXT 

ADHREQ 


10. 

ADO HEX. NUMBER 

N083QQ23 



002 4 


EXT 

SBHREQ 


11. 

SUBTRACT HEX. NUMBER 

N0B00024 



0025 


EXT 

ALGREQ 


12. 

ALLOCATE CORE 

N0830025 


' ’i 

0 3 2 d 


EXT 

RELREQ 


13. 

RELEASE CORE 

N083 u 025 



D027 


EXT 

OACREQ 


l4. 

LIST ALLOCATABLE CORE HAP 

N08C5Q027 



-0 0 28 


EXT 

PTHREQ 


15. 

PRINT THREAD 

N083Q028 



0 3 29 


EXT 

ADFREQ 


16. 

ADVANCE FILE 

ND830Q29 


{ ’l 

0 3 3 0 


EXT 

BSFREQ 


17. 

BACKSPACE FILE 

Nu8b 0030 

n 


0 3 3 1 


EXT 

AORREQ 


18. 

ADVANCE RECORD 

Nu8u003l 



QD32 


EXT 

3SRREQ 


19. 

BACKSPACE RECORD 

Nu8Q0 032 



0 0 3 3 


EXT 

wefreq 


2 0. 

WRITE END OF FILE 

NQ830033 



0 3 3 4 


EXT 

REWREQ 


21. 

REWIND TAPE 

NO 83 0 03 4 

' 


0 0 3 5 


EXT 

LHCREQ 


22. 

MODIFY CORE IMAGE ASCII 

NU800035 



0 0 3 5 


EXT 

LHOREQ 


23. 

MODIFY ORDINAL HEX 

N083 0 036 



0 3 3 7 


EXT 

LHMREQ 


24. 

MODIFY MASS MEMORY HEX 

N08Q0Q37 



0 3 3 8 



REQJE3T CODE 


25 IS 

SAME AS CODE 2 ''DPC" 

NG8Q 0 033 

» i’ 'i 


003 9 


EXT 

DICREQ 


25. 

DUMP DECIMAL (INTEGER) 

N0 83 0 039 



0 0 4 0 


EXT 

MSDREQ 


26. 

LIST MASS MEMORY 

NO 83 0 0 40 



0 3 41 


EXT 

CLJREQ 


27. 

CHANGE LIST UNIT 

N08QO 041 



0042 


EXT 

LITREQ 


28. 

LOAD DECIMAL (INTEGER) 

N08Q0 042 

n 


0043 


EXT 

LIMREQ 


29. 

MODIFY MASS MEMORY (INTEGER) 

NOBOO 043 



0 3 44 


EXT 

WCOREQ 


30. 

WRITE CORE TO HM 

N083 0 044 



00 v5 


EXT 

RCOREQ 


31. 

READ TO CORE FROM MM 

N08a0U45 



0046 


EXT 

LAS RE Q 


32. 

LOAD ASCII 

N0800046 

= 

O 

GG47 


EXT 

DASREQ 


33. 

DUMP ASCII 

N08Q0047 



00 48 


EXT 

MLJREQ 


34. 

CHANGE MASS MEMORY UNIT 

NQ8Q0048 



0 3 4 9 


EXT 

DPTREQ 


35. 

LIST PARTITION CORE MAP 

N0S0Q349 



0050 


EXT 

LSPREQ 


36. 

LOAD SINGLE PRECISION 

N0800Q50 

■ C) 

O 

005 1 


EXT 

DSPREQ 


37. 

DUMP SINGLE PRECISION 

NQ8QG051 



0 3 52 


EXT 

LD^REQ 


38. 

LOAD DOUBLE PRECISION 

N083U052 



o 


o 


o 


GETREQ. 


3AGE 


DATE: 01/27/99 


0 0 5 3 
0 0 54 
0 0 5 5 
flOpb 
0 3 5 7 
005 8 
0 0 59 
Q05Q 
0 0 51 
0 0 5 2 
0Q53 
0 0 5 4 
0 3 55 
0 3 5 6 
00 5 7 
0058 
0 0 59 
00 7 0 

0071 

0072 
0 0 7 3 
0Q7h 
0 075 
0 0 7 6 
3 0 7 7 
3 3 7 8 
0079 
00 8 0 


EXT DD3REQ 
EXT WO<REQ 
EXT RDKREQ 
EXT SMPREQ 
EXT CCDREQ 
EXT MMMREQ 
EXT DMHREQ 
EXT OMIREQ , 

EXT DMAREQ 
EXT QMSREQ 
EXT UMDREQ 
EXT CWAREQ 
EXT CCIREQ 
EXT CMMREQ 
EXT SHNREQ 
EXT UNLREQ 

REQJE5T CODE 
EXT SL3REQ 
EXT LICREQ 
EXT LACREQ 
EXT LI3REQ 
EXT LAOREQ 
EXT L30REQ 
EXT LDOREQ 
EXT LA9REQ 
EXT LSMREQ 
EXT LDMREQ 
EXT L3TREQ 


39. DUMP DOUBLE PRECISION 

40. WRITE TO DISK FROM CORE 

41. READ FROM MASS MEMORY TO CORE 

42. SET HASS MEMORY TO PATTERN 

43. COMPARE CORE TO CORE 

44. MOVE MASS MEMORY 

45. DUMP MASS MEMORY 

46. DUMP MASS MEMORY DECIMAL 

47. DUMP MASS MEMORY (ASCII) 

48. DUMP MASS MEMORY SINGLE PRECISION 

49. DUMP MASS MEMORT DOUBLE PRECISION 

50. CONVERT WORD ADD. TO SECTOR/WORD ADO. 

51. COMPARE CORE TO MASS MEMORY 

52. COMPARE HASS MEMORY TO MM 

53. SEARCH HM FOR PATTERN 

54. UNLOAD TAPE 

54 IS SAME AS CODE 55 •'UNL' 

55. SELECT DENSITY 

56. MODIFY CORE IMAGE (DECIMAL) 

57. MODIFY CORE IMAGE (ASCII) 

58. MODIFY ORDINAL (DECIMAL) 

59. MODIFY ORDINAL (ASCII) 

60. MODIFY ORDINAL (SINGLE PRECISION) 

61. MODIFY ORDINAL (DOUBLE PRECISION) 

62. MODIFY MM (ASCII) 

63. LOAD MH SINGLE PRECISION (SAME AS 60) 

64. MODIFY MM (DOUBLE PRECISION) 

65. LIST command 


NQ8'00a53 
N080 0 Q5 h 
NQ 80u055 
N083Q056 
N0830057 
NOB j 0058 
NQ8QG059 
N080 0 050 
N0 80 0 051 
N0800052 
N08DG 053 
NO 80 G 06 -+ 
NO 8 j 0 065 
N080 0 066 
N08J0Q57 
NQSaOOoS 
NO80Q 059 
N08Q0070 
NQ80G071 
NO 83 a 07 2 
NQB'u G 073 
N0800 074 
N080 0 075 
N08JQ 076 
N0 83 0 077 
N0800 078 
N080 0 079 
N08Qfl08G 


0 3 82 
00 3 5 
003 4 
0 0 3 5 
0036 


EXT 

HANDLE 

"HANDLE" 

EXT 

BRIPRl 

"BRIPRl" 

EXT 

MM!(DOR 

"HMADDR" 

EXT 

OF- 

"OFF" 

EXT 

MSG 

"MSG" 


NO 83 0 08 2 
N38G0083 
N0830Q84 
N0800Q85 
N0800085 


■ O 

' o 
o 
o 
o 

; O 

■ C) 

; C) 

. ("I 


003 3 
00 89 

D0F4 


E(3U 

'EQU' TABLE 

AMDNI (SF4) ,AOISP (SEA) ,LPMSK(2) ,NZ£RO ($12) 

0 0 90 

0 OEA 
OQ 02 
0012 
Q 0 33 
0 0 43 


EQU 

! 

FIVE($43),SIX ($44) , ZERO ( $2 2 ) » ONEB I T ($23 1 » 

u391 

0 0 44 
0022 
0 0 23 
GQ27 
00 2C 


EQU 

COMMA ($2 0 , SLASH ($2F) ,ASTRIC ($2 A) 

0 0 2F 
00 2A 






N08000S8 


,ZROBIT ($33 ) 

N0600089 

■ o 

SIXTEN ($27) 

N0B0fl090 

• o 


N0 80 0 091 

o 


o 


o 


date: 01/27/99 


GETRCQ 


=>AGE 3 


0092 0026 
0 0 45 
0 0 04 
0 0 03 
0 024 

0093 0046 


EQU EIGHT(B26) »MINE($45) tTHREE(^) ,ONE (3),TWO($2 h) N0800092 

EQU TE^J($45) »^MS0S4. 0'^^N080 0 Q93 


0095 0007 

0096 0008 


EQU MS3?RG(7) 
EQU LSBPRC(8) 


OFF-COUNT FROM "BRIPRl" TO "MSePRC" 
OFF-COUNT FROM "BRIPRl" TO "LSBPRC" 


Nu83 0 095 
N0800096 


0 0 9 8 
0 0 99 
0 10 C 
0101 
G102 
0103 
010 4 
010 5 
0106 
010 7 
010 8 
013 9 
OllQ 
0111 
0112 


V- 


00 G1 
00 02 
GO 03 
0 0 04 
0 0 05 
00 06 
0 0 0 7 
0 0 08 
0 0 09 
00 QA 
QQ OB 
0 0 OC 
0010 
00 11 


EQU BHANDLEd) 
EQU BM3G(2) 

EQU S0MM0R(3) 
EQU I0ERRC4) 
EQU LISTLU(5) 
EQU CDM3LU(6) 
EQU NEWMLU(7) 
EQU PROGK3) 
EQU PR0G2(9> 
EQU BITFLG(IO) 
EQU BUFCNTdl) 
EQU FIELD (12 ) 
EQU SLASHF(16) 
EQU BUFEMT(17) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE' 

•■MSG" ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 

LIST OUTPUT "LISTLU' 

“COMOLU" 

"NEWHLU'* NEW MM LU 

"PROGl" 

"PR0G2" 

"BITFLG" 

"BUFCNT" 

"FIELD" 

"SLASHF" 

"8UFEMT" 


NG83 0098 
N08G0099 
NQ80 010 0 
N08Q0101 
NQ800102 
Nu8Cj 10 3 
NQ8001Q4 
N a 8 j u 1 0 5 
N0800106 
NO 80 0 10 / 
N080 010 8 
N083U109 
N08QD110 
N0800111 
N0800112 


0114 

0115 

0116 


■V- 

V-V-f V ¥■ 
* 


V-ifV-V-V- 


PROGRAM 


START 




N0 83 0 11 4 
N080 0115 
NO 83 u 11 6 


0118 

0119 POOOO 6839 

0120 POOOl 0822 

0121 P00Q2 C821 

0122 P0Q03 981F 

0123 P0004 683A 
012“^ P000 5 C81F 

0125 P0G06 981D 

0126 POOD/ 6836 

0127 P0008 C2Q1 

0128 PQG09 6831 

0129 PQOOA 8834 

0130 POOGB 6833 

0131 POOOC 8831 

0132 POQDD 6830 
0153 PGOOE C202 
013h POOOF 682D 


SET 

GETREQ STA- BASE 
TRA Q 
LDA-*'- 0FT3+1 
SUe^ OFTB 
STA^ EXTBRI 
LDA^ OFT84-2 
SUa^ OFT3+1 
STA- EXTHMA 
LOA- BHANDLEtQ 
STA^ EXTHAN 
ADO^ EXTBRI 
3TA» EXTBRI 
AOD^ EXTMHA 
STA^ EXTMHA 
LDA- BMSG^Q 
STA^ EXTHSG 


JP ADDRESSES 

SAVE PARAMETER BUFFER ADDRESS 
CALCULATE OFF-COUNT FROM "BRIPRl" 


GET "HANDLE" ADDRESS 
SET TO "BRIPRl " LOCATION 
SET TO MMAOCR" ADDRESS 


TO 


N080G113 
N08QG119 
N080 0120 
N083Qi2i 
"HANDLE" Na6a0122 
Na8CQ123 
NQ8D0124 
N0800125 
Nu8Q0126 
N0800 12/ 
NG8C 0 128 
N08; 0 129 
NO 8G 013 0 
NQ800131 
NQ600132 
N0800133 
N08a0134 




GETREQ 
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DATE: Ql/27/99 



013 5 

PQOlO 

C815 

IDA^ 

OFT B+3 

CALCULATE ’•OFF- 

N0800135 


013 6 

POQll 

PBll 

SUB^ 

0FT9 


N080Q136 


0137 

P0012 

S828 

AOO^ 

EXTHAN 


N08Q0137 

o 

G13S 

P0013 

6328 

STA» 

EXrOFF 


N0800138 

0140 


V- 


GO GET FIRST 

FIELD 

NQ800140 


0141 

POGl*. 

0 A02 

ENA 

2 


NOSOQIhI 

^ o 

0142 

PO 015 

0C03 

ENQ 

3 

SET TO GET 3 CHAR. FIELD 

N083 0142 

0143 

P0016 

5C24 

RTJ^ 

(EXTHAN) 


N0800143 

^ C"; 


0145 




V- 


SEE IF VALID 

REQUEST 

N08u0l45 


0146 

pool 7 

C822 



LOA-'^ 

BASE 


N08DG146 


0147 

P0018 

60FF 



STA- 

I 

SET UP PARAMETER BUFFER ADDRESS 

N0800147 


0148 

P0019 

CIOC 



LDA- 

FIELD, I 

IS CONTROL CHARACTER LEGAL 

NO80Q148 


0149 

POOIA 

OlOC 



SAZ 

REQOK-'*‘-l 

SKIP YES (ZERO) 

N083 0149 


015G 

PGOIB 

90 G A 



SUB- 

LPMSK+3 


N0800150 

( * 

0151 

PODIC 

OlOA 



SAZ 

REQOK-^-1 

SKIP YES ($FF) 

N0800151 


0152 

POOID 

80 0 A 



ADD" 

LPNSK+3 


N0830152 


0153 

POOIE 

09D3 



INA 

-COMMA 


NG830153 

•w' 

015 4 

POQIF 

0107 



SAZ 

REQOK---1 

SKIP YES (COMMA) 

N0800154 

015 5 

P0020 

0C04 



ENQ 


FORMAT INCORRECT MSG. 

N0800155 ’ ' 


015 6 

PG021 

ICIB 



JMP=^ 

(EXTMSS ) 

NO COMMA 

N08j 0156 


0 158 

P0022 

7FFF 

X 

0FT8 

ADC 

HANDLE 

G. "HANDLE" 

N0800158 

' O 

0159 

POO 23 

7FFF 

X 


ADC 

BRIPRl 

1. "BRIPRl" 

N08'j0159 


0150 

9002“+ 

7FFF 

X 


ADC 

MMADOR 

2. "MMADDR" 

NQ6jQ 150 


0151 

P0025 

7FFF 

X 


ADC 

OFF 

3. "OFF" 

NQ8Q 0151 

' O 

0152 

P0026 

7FFF 

X 


ADC 

MSG 

4. "MSG" 

N080G 152 

015 4 

P0U27 

EO 00 


REG10< 

LOQ 

=XLGNU-1 

SCAN GNUTAB 

NQ8Q0154 



P0 023 

00 83 







■ o 

0155 

PQ029 

ClOF 


REQLOP 

LDA- 

FIELD+3,1 


N080G1&5 

0166 

P002A 

BA20 



EOR» 

GNJTAB.Q 


N08Q0166 


0157 

P002B 

ODFE 



INQ 

-1 


NQ800157 


0168 

P002C 
PQ u 20 

0114 



SAN 

TRYOTH-^-1 


■ N06G0158 

i'~\ 

j 1 5 9 

ClOE 



LOA- 

FIELD + 2, I 


NG80 0169 

u 

D17C 

P002E 

BA 1C 



EOR^ 

6NJTAB, Q 


Na6Q017C 


0171 

P002F 

A0C9 



AND- 

LPMSK+7 


N0800171 


0172 

P0030 

0105 



SAZ 

FOJND-’^-l 

FOUND VALID FIELD 

, N08G0172 

o 

0173 

P0031 

ODFE 


TRYOTH 

INQ 

-1 


N08Q0173 

0174 

P0 032 

01 71 



SQM 

LOGILL-^-1 


N0800174 


017 5 

PD033 

18F5 



JMP^ 

REQLOP 


N0800175 


0176 

P0U34 

0C05 


LOGILL 

ENQ 

5 

ILLEGAL REQUEST 

NG 80 Q 17b 

o 

0177 

PQQ35 

1CG7 



JMP> 

(EXTMSS ) 

N0800177 


o 


o 


o 



GETREa 


PAGE 


5 


DATES 01/27/99 


0179 


V- 

VALID REQUEST 

FOUND 

N0&00179 

0181 

P003& GF21 

FOUND QRS 

1 

2 WORD PER MNUNONIC 

N080Q181 

0132 

^0&o7 0157 

SQN 

BRING-->-l 

GET CORRECT REQUEST 

N0800 182 


0134 

P0038 

1003 

GETOJT 

UMF*-- 

(EXTOF-) TURN OFF PACKAGE 

N0800184 

013 b 

PO 039 

0 0 0 0 

BASE 

NUM 

0 

NO 83 0186 

0187 

PO 03A 

GO 00 

EXTHAN 

NUM 

0 

NG80Q187 

0188 

PQ03B 

0 0 0 0 

EXTO- F 

NUH 

0 

N0800188 

0189 

P0 03C 

0 0 0 0 

EXTMSG 

NUM 

0 

N08G 0 189 

0190 

PG03O 

0 0 00 

EXTHIA 

NUM 

0 

N083 0 190 

0191 

P003E 

00 00 

EXTBRI 

NUM 

0 

NJ800191 


0193 

PO 03F 

CAOO 

BRINS LDA 

REQTABt Q 



N0 83 0 193 


? 0 0 4u 

0 0 80 






0194 

POOhI 

410 9 

STQ- 

PR0G2, I 



N08] 0194 

0195 

000 42 

5CFA 

RTJ^ 

(EXTMMA ) 



N0800195 

019o 

PCO-^3 

68F5 

STA"^ 

BASE 

SAVE 

DATA TEMPORARY 

N0 60 0 19 6 

0197 

P 0 0 *+ It 

C8F9 

LOA^ 

EXTBRI 

GET 

■•BRIPRl" LOCATION 

N083 0197 

0198 

P0045 

50FF 

STA- 

I 



N0800198 

0199 

P 0 0 ‘t b 

h107 

5TQ- 

MSBPRC,! 



NQ800199 

02 0 0 

POO 47 

C8F1 

LOA^ 

BASE 

RECALL DATA 

NQ8u 0 20 0 

0 2 0 1 

P0048 

6108 

STA- 

LS8PRC, I 

SAVE 

LS8 

N08Q0201 

020 2 

Pu0--t9 

1522 

JMP- 

(ZERO) , I 

GO PUT REQ. PROGRAM IN THIS AREA 

NQ8QQ202 

0 2 0>, 




MNEMONIC 

TABLE OF 

REQUESTS 

N0 80 0 20 h 


02 0 b 

PCD4A 
PO 04B 

2 0hF 
4D46 

GNUTAB ALF 

2, 

OFF 

0 

N0800206 

020 7 

P0C4C 
P00 4D 

2 0 4C 
4858 

ALF 


LHX 

01. LOAD HEXADECIMAL 

NQ80 020 7 

02 08 

P0 04E 
P004F 

2 0 44 
50 43 

ALF 

2, 

DPC 

02. DUMP HEXADECIMAL 

Na800208 

0239 

PG05Q 

P0051 

2 0 53 
434E 

ALF 

2, 

SCN 

03. SEARCH COR 

NQ8j 0209 

021G 

POOS 2 
P0053 

2 0 53 
4554 

ALF 

2, 

SET 

04. SET CORE TO PATTERN 

N0800210 

0211 

P0 054 
PO [i 5 5 

2 0 4D 
4243 

ALF 

2, 

M8C 

05. MOVE BLOCK OF CORE 

NQ60 0 211 



GETRta 


PftGE 


DATE! 01/27/99 


0212 

P0 056 
POOS / 

2 0 55 
4348 

ALF 

2, 

SCH 

06. SCHEDULE PROGRAM 


N0800212 

0213 

PO 056 
PQQ59 

2 0 S3 
so 45 

ALF 

2, 

SPE 

07. SEARCH CORE FOR PARITY ERROR 

Nue0 0 215 

021 if 

P0 05A 
P005B 

20 43 

so so 

ALF 

2, 

CPP 

08. clear PROTECT BITS 


NQ800214 

G215 

Pfi Q5C 
P005D 

20 53 

so so 

ALF 

2, 

SPP 

09. SET PROTECT BITS 


NOSj 0215 

0216 

PGD5E 

P005F 

20 41 
‘t 4 48 

ALF 

2, 

ADH 

ID. ADD HEX. NUMBER 


N06CG 216 

0217 

P0060 
P 0 0 o 1 

20 53 
4248 

ALF 

2, 

SBH 

11. SUBTRACT HEX. NUMBER 


N'j60Q217 

0218 

PO 062 
P0063 

2 0 41 
4C43 

ALF 

2, 

ALC 

12. ALLOCATE CORE 


Nj8Q 0 218 

0219 

P 0 0 64 
PO 0 6 5 

2052 

m-ShC 

ALF 

2, 

REL 

13. RELEASE CORE 


NO 80 0 21 9 

0 2 2 0 

POO 66 
P0067 

20 44 
41 43 

ALF 

2» 

DAC 

14. LIST ALLOCATABLE CORE 

MAP 

N0800220 

G221 

P0063 

PQ069 

2050 

5443 

ALF 

2, 

PTH 

15. PRINT THREAD 


N080 0221 

0222 

PG06A 

P006B 

20 41 
4446 

ALF 

2, 

AOF 

16. ADVANCE FILE 


N08Q 0222 

0223 

P006C 

POObD 

2042 
53 46 

ALF 

2, 

BSF 

17. BACKSPACE FILE 


N0800223 

Q224 

P006E 

PQOcF 

20 41 
4452 

ALF 

2, 

ADR 

18. ADVANCE RECORD 


N0830 224 

D226 

POO 7'. 
P0071 

20 *^2 
5352 

ALF 

2, 

BSR 

19. BACKSPACE RECORD 


N0800225 

02 2 6 

P0Q72 
PQD7 3 

20 57 
4 5 46 

ALF 

2, 

WEF 

20. WRITE END OF FILE 


N0830226 

02 2 7 

P007‘t 
P007 5 

2052 

4557 

ALF 

2, 

REW 

21. REWIND TAPE 


N080Q227 

0 228 

PQ07o 

P0077 

204C 

4843 

ALF 

2» 

LHC 

22. MODIFY CORE IMAGE 

ASCII 

N080 0 22 8 

0229 

P0 078 
P0079 

20 4C 
*+84F 

ALF 

2, 

LHO 

23. MODIFY ORDINAL HEX 


N083 0 229 

02 3 0 

PO 07A 
P007B 

2 0 4C 
4840 

ALF 

2, 

LHM 

2y.. MODIFY MASS MEMORY 

HEX 

N080 023C 

0 2 3 1 

P0Q7C 

P0Q7D 

2 0 4-4 
4943 

ALF 

2, 

Die 

25, DUMP DECIMAL (INTEGER) 


N0800 231 

0232 

p 0 0 7 E 
P0D7F 

2 0 4D 
53 44 

ALF 

2, 

MSD 

26. LIST MASS MEMORY 


NGSO 0 232 

0 2 3 3 

P0Q80 

pooai 

2 0 43 
4C55 

ALF 

2, 

CLU 

27. CHANGE LIST UNIT 


N0800233 

023 A 

PO 082 
P0 0 83 

2 0 4C 
4954 

ALF 

2, 

LIT 

28. LOAD DECIMAL (INTEGER) 


N08Q0234 

02 3 5 

P0G8h 

P0063 

2 0 4C 
494D 

ALF 

2, 

LIM 

29. MODIFY MASS MEMORY (INTEGER) 

N0800235 

023 6 

P0086 

P0Q87 

20 57 
4344 

ALF 

2, 

MCO 

30. WRITE CORE TO MM 


N38J0236 

0 23 7 

P0 088 
P0089 

20 52 
4:+43 

ALF 

2, 

RDC 

31. READ MM TO CORE 


N080 0 23 7 

0238 

P008A 

Pooae 

2 0 4C 
41 53 

ALF 

2, 

LAS 

32. LOAD ASCII 


N0800238 


c 

c 

o 

c 

L.' 

o 


o 

o 


o 

c 

o 

o 


o 




GETREQ 



PAGE 
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DATE! 01/27/99 


02 39 

P 0 u 8 G 
PQ08D 

2 0 44 

4153 

ALF 

2, 

DAS 


33. DUMP ASCII 

NQ830239 

0240 

PO 08E 
P003F 

2 0 4D 
4C 55 

ALF 

2, 

MLU 


34. CHANGE MASS MEMORY UNIT 

N080 0 240 

0241 

P009G 

P0091 

2044 
50 54 

ALF 

2, 

DPT 


35. LIST PARTITION CORE MAP 

N08Q0 241 

0242 

P0092 

P0Q93 

20 4C 
5 3 5 0 

ALF 

2, 

L3 P 


36. LOAD SINGLE PRECISION 

NG80 0 242 

0243 

P0Q9^ 

P0095 

2 0 4 4 
5350 

ALF 

2, 

DSP 


37. DUMP SINGLE PRECISION 

N08Q 0 243 

0 2 44 

P0096 

P0Q97 

20 4C 
4 4 b 0 

ALF 

2, 

LD P 


38. LOAD DOUBLE PRECISION 

NO 80 Q 244 

0245 

P0098 

P0099 

P009A 

P0Q9B 

20 44 
4450 
2057 

4 4 4 B 

ALF 

2, 

OOP 


39. DUMP DOUBLE PRECISION 

NQ8 00245 

0 246 

ALF 

2, 

WOK 


40. WRITE TO DISK FROM CORE 

N08j 0246 

0247 

P009C 

P009D 

2 0 52 
4448 

ALF 

2, 

ROK 


41. READ FROM MASS MEMORY TO CORE 

N080 0 247 

0 2 4B 

P0G9E 

P009F 

2053 

4D50 

ALF 

2, 

3HP 


42. SET MASS MEMORY TO PATTERN 

NQ80Q248 

0249 

POuAO 

POQAl 

20 43 
4343 

ALF 

2, 

CCC 


43. COMPARE CORE TO CORE 

N0800249 

0250 

P00A2 

P00A3 

20 4D 
4D4D 

ALF 

2, 

MMM 


44. MOVE MASS MEMORY 

NO 80 0 25 Q 

0251 

P 0 0 A ** 
POO A 5 

20 44 
AQ48 

ALF 

2, 

DMH 


45. DUMP MASS MEMORY 

N0800251 

0252 

POGAo 

PG0A7 

2044 

4D49 

ALF 

2 , 

DMI 


46. DUMP HASS MEMORY DECIMAL 

N03QQ252 

0253 

P00A8 

P00A9 

2044 

4041 

ALF 

2f 

DMA 


47. DUMP HASS MEMORY (ASCII) 

NQ8GQ253 

0254 

POO AA 
PGDAB 

2 0 44 

40 53 

ALF 

2, 

DHS 


48. DUMP HASS MEMORY SINGLE PRECISION 

NO 80 0 254 

02 53 

PuOAC 

POOAQ 

2044 

4 044 

ALF 

2, 

DMD 


49. DUMP MASS MEMORY DOUBLE PRECISION 

N08QQ255 

0 2 5b 

POOAE 
POO AF 
POOBo 
POOBl 

20 43 
5741 
2043 
4340 

ALF 

2, 

CWA 


50. CONVERT WORD ADO. TO SECTOR/WORD ADD. 

NQ80 0256 

025 7 

ALF 

2, 

GCM 


51. COMPARE CORE TO MASS MEMORY 

■ NQ8Q0257 

0 2 5 8 

P00B2 

P00B3 

20 43 
4D4D 

ALF 

2, 

CMM 


52. COMPARE MASS MEMORY TO MM 

N0800258 

0259 

POOB^ 

P00B5 

20 53 
4D4E 

ALF 

2, 

SMN 


53. SEARCH MM FOR PATTERN 

N08Q0259 

0 25 0 

P00B6 

P00B7 

20 55 
4E4C 

ALF 

2, 

ONL 


54. UNLOAD TAPE 

NQ80Q260 

0251 

POOB8 

PQ0B9 

2 0 53 
4C44 

ALF 

2, 

SLD 


55. SELECT DENSITY 

NQ8j0261 

0 2 5 2 

POOBA 
POO B3 

2 0 4C 
4 943 

ALF 

2, 

Lie 


5b. MODIFY CORE IMAGE (DECIMAL) 

N08J0262 

0253 

POGBC 

POOBD 

2 0 40 
4143 

ALF 

2, 

LAC 


57. MODIFY CORE IMAGE (ASCII) 

NQ80G263 

0 25*4 

POOBE 

POOBF 

2 0 4C 
494F 

ALF 

2, 

LIO 


58. MODIFY ORDINAL (DECIMAL) 

N0 80 0 264 

0265 

Pu OCu 
POOCl 

20 4C 
41 4F 

ALF 

2 f 

LAO 


59. MODIFY ORDINAL (ASCII) 

N0800265 




GFTRFa 



PAGE 

3 

DATE: 01/27/99 


0 2 6 6 

PQ0C2 

20 4C 

ALF 

2. 

LSO 

60. 

MODIFY 

ORDINAL (SINGLE 

PRECISION) 

0 2 6 7 

P0QC3 

P00C4 

p a 0 c 5 

534F 
2 0 4C 
444F 

ALF 

2, 

LOO 

61 . 

MODIFY 

MODIFY 

ORDINAL (DOUBLE 
MM (ASCII) 

PRECISION) 

026 8 

P00C6 

204C 

ALF 

2, 

LAM 

62. 


0269 

P00C7 

P0QC8 

•+14D 
20 4C 

ALF 

2, 

LSM 

63. 

MODIFY 

MM (SINGLE PRECISION) 

027 0 

P00G9 

PODCA 

534D 
20 4C 

ALF 

2, 

LDM 

64. 

MODIFY 

MM (DOUBLE PRECISION) 

POOCB 

444D 




65. 




0 2 7 1 

P 0 0 CC 

2 0 4C 

ALF 

2, 

LST 

LIST COMMAND 


POOCD 

5 3 54 








0273 


0 0 84 

EQU 

LG 

MU 

GNJTAB ) 

LENGTH OF TABLE 



02T 5 


027 7 


OOGO 

P 

EQU 

0279 

PGOCE 

7FFF 

X 

ADC 

0230 

POOCF 

7FFF 

X 

ADC 

023 1 

POOOO 

7FFF 

X 

ADC 

02 82 

POODl 

7FFF 

X 

ADC 

023 3 

PQ0D2 

7FFF 

X 

ADC 

0284 

PD0D3 

7FFF 

X 

ADC 

0 2 3 5 

=>0004 

7FFF 

X 

ADC 

0 2 3 6 

P0QD5 

7FFF 

X 

ADC 

0 23 7 

PQ0D6 

7FFF 

X 

ADC 

0288 

P00D7 

7FFF 

X 

ADC 

0 2 3 9 

POODB 

7FFF 

X 

ADC 

0290 

PQ0D9 

7FFF 

X 

ADC 

029 1 

POODA 

7FFF 

X 

ADC 

0292 

POODB 

7FFF 

X 

ADC 

0 29 3 

PQODC 

7FFF 

X 

ADC 

0 2 94 

POOOO 

7FFF 

X 

ADC 

0295 

POODE 

7FFF 

X 

ADC 

0296 

POODF 

7FFF 

X 

ADC 

02 97 

POOEO 

7FFF 

X 

ADC 

0298 

POOEl 

7FFF 

X 

ADC 

0299 

P00E2 

7FFF 

X 

ADC 

03 0 0 

P00E3 

7FFF 

X 

ADC 

03Di 

P00E4 

7FFF 

X 

ADC 

030 2 

POOE5 

7FFF 

X 

ADC 

03D 3 

P 0 OE6 

7FFF 

X 

ADC 

0 3 0 4 

P00E7 

7FFF 

X 

ADC 


PROGRAM TABLE - LOCATION ON M.M. 

REQTAB(^--l) PROGRAM LOCATIONS ON MASS MEMORY 


LHXREO 

DPCREQ 

3CMREQ 

SETREQ 

MBOREQ 

SCHREQ 

SPEREQ 

CPPREQ 

SPPREQ 

AOHREO 

S8HREQ 

ALCREQ 

RELREQ 

DACREU 

PTHREQ 

AOFREQ 

BSFREQ 

ADRREQ 

8SRREQ 

HEFREQ 

REWREQ 

LHCREQ 

LH3REQ 

LHMREQ 

DICREQ 

HSOREQ 


01. LOAD HEXADECIMAL 

02. DUMP HEXADECIMAL 

03. SEARCH COR 

04. SET GORE TO PATTERN 

05. MOVE BLOCK OF CORE 

06. SCHEDULE PROGRAM 

07. SEARCH CORE FOR PARITY ERROR 

08. CLEAR PROTECT BITS 

09. SET PROTECT BITS 

10. ADD HEX. NUMBER 

11. SUBTRACT HEX. NUMBER 

12. ALLOCATE CORE 

13. RELEASE CORE 

14. LIST ALLOCATABLE CORE HAP 

15. PRINT THREAD 

16. ADVANCE FILE 

17. BACKSPACE FILE 

18. ADVANCE RECORD 

19. BACKSPACE RECORD 

20. WRITE END OF FILE 

21. REWIND TAPE 

22. MODIFY CORE IMAGE ASCII 

23. MODIFY ORDINAL HEX 

24. MODIFY MASS MEMORY HEX 

25. DUMP DECIMAL (INTEGER) 

26. LIST MASS MEMORY 


N08J0256 
N08Q0267 
N08002&8 
N080 0269 
N080 0 270 
N0800271 


N08j0273 


N083 0275 


NQ800277 


N03D0279 
NiSjOBBO 
Ny8Q0 281 
N08j 0282 
N030 0283 
N080 0 284 
N080 0 285 
NQ830286 
N080 0267 
NOS 3 0 288 
N083 0 289 
N0 80 0 29 0 
NQ800291 
N083G292 
N0800293 
N0800294 
NQ800295 
NO 8 J 0 296 
N0 80 0 297 
NQ83 0298 
Nu8QQ299 
N080030Q 
NQ80Q 301 
N060 0 302 
N08003G3 
Nu80 0 30 4 


GETREQ 


PAGE 


DATE! Gl/27/99 


0 3 0 5 

P00E8 

7FFF 

X 

ADC 

CLUREQ 

27. 

0 30 6 

PQ0E9 

7FFF 

X 

ADC 

LITREQ 

28. 

0 3 0 7 

POGEA 

7FFF 

X 

ADC 

LIMREQ 

29. 

030 8 

POOEB 

7FFF 

X 

ADC 

WCDREQ 

30. 

0 3 0 9 

POOEC 

7FFF 

X 

ADC 

RCDREQ 

31 . 

0 310 

POOED 

7FFF 

X 

ADC 

LA3REQ 

32. 

0311 

POGEE 

7FFF 

X 

ADC 

DA3REQ 

33. 

0312 

PODEF 

7FFF 

X 

ADC 

MLUREQ 

34. 

0313 

^^OGFO 

7FFF 

X 

ADC 

OPTREQ 

35. 

0 31 H 

POOFl 

7FFF 

X 

ADC 

L3PREQ 

36. 

0 315 

PQ0F2 

7FFF 

X 

ADC 

DSPREQ 

3 7. 

031b 

P 0 0 F o 

7FFF 

X 

ADC 

LDPREQ 

38. 

0317 

PO0F4 

7FFF 

X 

ADC 

□OPREQ 

39 . 

0318 

POOF5 

7FFF 

X 

ADC 

WDKREQ 

4C . 

0313 

P 0 Q F 6 

7FFF 

X 

ADC 

RDKREQ 

41. 

0 3 2 0 

P00F7 

7FFF 

X 

ADC 

S M^REQ 

42. 

0 321 

P0OF8 

7FFF 

X 

ADC 

CCCREQ 

43. 

3322 

PO0F9 

7FFF 

X 

ADC 

MMMREQ 

4 4. 

0 3 2 3 

PGOFA 

7FFF 

X 

ADC 

DMHREQ 

45 . 

032-t 

POOFB 

7FFF 

X 

ADC 

DHIREQ 

46. 

0325 

PCOFC 

7FFF 

X 

ADC 

DMA RED 

47. 

032 6 

DQOFD 

7FFF 

X 

ADC 

DM3REQ 

48. 

0 3 2 7 

PGOFE 

7FFF 

X 

ADC 

DMDREQ 

49 . 

0328 

POOFF 

7FFF 

X 

ADC 

CWAREQ 

50. 

03 29 

POluO 

7FFF 

X 

ADC 

CCMREQ 

51. 

033 C 

POIDI 

7FFF 

X 

ADC 

CMMREQ 

52. 

Q J31 

P0102 

7FFF 

X 

ADC 

SMNREQ 

53. 

0332 

P0103 

7FFF 

X 

ADC 

UNLREQ 

ip • 

033 3 

PG10-+ 

7FFF 

X 

ADC 

SLORED 

55 . 

0334 

PG105 

7FFF 

X 

ADC 

LICRED 

56. 

033 5 

PQ106 

7FFF 

X 

ADC 

LAGREQ 

57. 

0 3 3 6 

P0107 

7FFF 

X 

ADC 

LIOREQ 

58. 

03 3 7 

P0108 

7FFF 

X 

ADC 

LAOREQ 

59. 

0338 

P01Q9 

7FFF 

X 

ADC 

LSOREQ 

60 . 

03 3 9 

POlOA 

7FFF 

X 

ADC 

LDOREQ 

61. 

u 3 4 0 

POlOB 

7FFF 

X 

ADC 

LAMREQ 

62. 

0 3 41 

POIGC 

7FFF 

X 

ADC 

LSMREQ 

6 3, 

0 3 42 

POIOD 

7FFF 

X 

ADC 

L9MREQ 

64. 

0 3 4 3 

POlOE 

7FFF 

X 

ADC 

L3TREQ 

65 . 

0 3 4-+ 

^GIGF 

0 0 05 


BZS 

PATCH2(5) 

V^if ifif if if- 


CHANGE LIST UNIT 
LOAD DECIMAL (INTEGER) 

MODIFY HASS MEMORY (INTEGER) 

WRITE CORE TO MM 
READ TO CORE FROM MM 
LOAD ASCII 
DUMP ASCII 

CHANGE MASS MEMORY UNIT 
LIST PARTITION CORE MAP 
LOAD SINGLE PRECISION 
DUMP SINGLE PRECISION 
LOAD DOUBLE PRECISION 
DUMP DOUBLE PRECISION 
WRITE TO DISK FROM CORE 
READ FROM MASS MEMORY TO CORE 
SET MASS MEMORY TO PATTERN 
COMPARE CORE TO CORE 
MOVE HASS MEMORY 
DUMP MASS MEMORY 

DUMP MASS MEMORY DECIMAL 

DUMP MASS MEMORY (ASCII) 

DUMP HASS MEMORY SINGLE PRECISION 

DUMP MASS MEMORY DOUBLE PRECISION 

CONVERT WORD ADO. TO SECTOR/WORO ADD. 
COMPARE CORE TO MASS MEMORY 
COMPARE MASS MEMORY TO MM 
SEARCH MM FOR PATTERN 
UNLOAD TAPE 
SELECT DENSITY 
MODIFY CORE IMAGE (DECIMAL) 

MODIFY CORE IMAGE (ASCII) 

MODIFY ORDINAL (DECIMAL) 

MODIFY ORDINAL (ASCII) 

MODIFY ORDINAL (SINGLE PRECISION) 

MODIFY ORDINAL (DOUBLE PRECISION) 

MODIFY MM (ASCII) 

LOAD MM SINGLE PRECISION (SAME AS 60) 
MODIFY MM (DOUBLE PRECISION) 

LIST COMMAND 

» ¥■ if Jf- if ^ ^ifififVi:5f^J(1.5f-!fif!f 


03 A6 
0347 
0 3 48 


0 0 02 P 
00 03 P 


ECU SA02(*/96) 
EQU SPD2(SA02+1) 


NO 8 3 0 30 5 
N080G306 
N08Q 0 307 
N080030S 
NG83 0 309 
N083 0310 
N080 u 311 
N08J0312 
N08G0313 
N08uu314 
N0800315 
N0800316 
NO 83 0 317 
N080031B 
NQ83 0 31 9 
N08G032G 
NQ8G0321 
N080Q322 
N0800323 
N08G0324 
N080 0325 
NG83 0326 
N0800327 
N08Q0328 
N083 0 329 
N08GD330 
N08UG331 
N08Q 0 332 
N0800333 
N080 0334 
N0800335 
N080 0 336 
N08 j 0 337 
NQ80 0 33 8 
N080 0339 
N08QG340 
N0800 341 
NQ8 3 0 342 
NO 83 0 3h3 
*-^N0830344 


Ni38u 0 346 
N080 0 347 
N08Q 0348 


GETREa 
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OATES Gl/27/99 


G349 

0350 

0351 


PGH = 


0120 P EQU DBQ2{SP02^96) 

P0114 OOOC BSS (OB02-») 

END 


0120 ( 283) :OM = 0000 I 0) OAT = 0000 ( 


0 ) 


N080 0349 
NQ800350 
N08Q 0 351 


GETRE3 


DATE! 01/27/99 


( 


C- 


o 


PA5E 11 


O 


o 

E 9 u I V 

A L E N 

C E S 





o 

DEF . LINE 

NAME 

VALUE 


REFEREN 

CED AT 

LINE number 


DDuG 

I 

GOFF 

(00 0255) 

3147, 

0198 



G 0 89 

AMONI 

OOFL 

(000244) 




0 

0089 

ADISP 

GOEA 

(000234) 




0 0 89 

LPMSK 

000 2 

(00 0002) 

9150 , 

0152, 

0171 


0 0 89 

MZERO 

0012 

(000018) 





0 089 

ZROBIT 

0 033 

(0 00351) 




C' 

0 0 90 

FIVE 

0043 

(Q30Q67) 




0 090 

SIX 

00 4 4 

(000068) 





0 090 

ZERO 

0022 

( 0 00 034) 

0202 




0 G9G 

ON EBIT 

0023 

(0 00035) 




o 

0090 

SIXTEN 

0027 

(0CG039) 




9 0 91 

COMMA 

002C 

(003044) 

0153 




0 091 

SLASH 

002F 

{ 0Q0047) 





0091 

ASTRIC 

Q02A 

(003042) 




i ') 

0 0 92 

EIGHT 

0026 

(000038) 





0 0 92 

NINE 

00^5 

( GC3Q69) 





0 092 

THREE 

0 0 0 4 

( 3 3090 4) 





0 0 92 

ONE 

000 3 

(0 00003) 




o 

0092 

TWO 

0024 

(000036) 




0 0 93 

TEN 

00 46 

(000070) 





0 095 

M5BPRC 

uu07 

(000007) 

0199 




0 096 

LS8PRC 

0008 

(003008) 

0 201 



o 

0 099 

3HANDL 

u 00 1 

( 00 0 90 1) 

0127 



9 iu 0 

BMSG 

000 2 

(000002) 

0133 




0101 

3OMM0R 

0 0 0 3 

( 0GQQ03) 





0102 

lOERR 

OCO 4 

(0 00004) 




o 

j 1C3 

LISTLU 

0 0 0 5 

{ 0 0 3 0 0 5) 




0 10 A 

COMOLU 

00 0 6 

(000006) 





0 1G5 

MEWMLU 

00 0 7 

(000007) 





01G6 

PROGl 

00 08 

(ODQ008) 





3 10 7 

PROG2 

00 0 9 

(0G0009) 

0194 




3 108 

BITFLG 

00 0 A 

( OOOOiO) 





0109 

BUFCNT 

u 0 G 8 

( uooaii) 





0 110 

FIELD 

uOOC 

(0G0Q12) 

3 148, 

3 165, 

0169 

C; 

0111 

3LASHF 

OGIO 

( 000 016) 




3112 

3UFEMT 

0011 

( 000017) 





0 273 

LGNU 

008 4 

( QQ0132) 

0164 




n 




G 


O 


o 

o 

Q 

o 

o 

o 

o 

o 


o 


o 


o 


u 





date: 01/27/99 


o 


GETRED 
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SYMBOLS ■ O 


DEE. LINE 

MAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

o 

Gull 

GETREQ 

UGOO 

DO 11 


0124, 0125, 0135, 0136 


0 158 

3FTB 

0022 

0121, 

0122, 

o 

0164 

REQOK 

0027 

0149, 

0151, 

0154 

0165 

REQLOP 

0029 

0175 



3173 

TRYOTH 

Ou 31 

0158 




0176 

LOG ILL 

003 4 

3 174 



o 

0181 

FOUND 

0036 

0172 



0184 

GETOUT 

0038 



0196, 0 200 

0 186 

BASE 

0 039 

0119, 

0146, 


0 18 7 

EXTHAN 

0Q3A 

0128, 

0137, 

0143 


0188 

EXTOFF 

U03B 

0138, 

0184 

0177 

c 

0189 

EXTHSG 

G03C 

0 134, 

015 6, 

0 190 

eXTMMA 

003D 

3 125 , 

0131 , 

0132, 0195 


Q191 

EXTBRI 

003E 

0123, 

0 129, 

0130, 0197 


0193 

3RI NG 

003F 

0182 




0 206 

GNUTAB 

004A 

0 166, 

0 17 0, 

0273 

0 27 7 

REQTA8 

OOCD 

3193 




j 3 ^ 4 

PATCH2 

OIQF 





0 347 

3A02 

0002 

0 348 



; O 

3 348 

SPO 2 

00 0 3 

0 349 



0349 

0BC2 

0 120 

0 3 50 





O 


GETREQ 


=AGE 13 


DATE: 31/27/99 


C) 


o 

E X T E R 

N A L S 


u 

DEF.LINE 

NAME 

VALUE 


0014 

LHXRED 

uOCE 


0G15 

OPGREQ 

OOCF 

o 

3 0 16 

3CN REQ 

0 0 D 0 

0 017 

SETREQ 

OOOi 


0 018 

MBCRED 

0002 


0 019 

SCHRED 

00D3 

u 

0020 

3PEREQ 

0004 

0 021 

CPPREQ 

Q0D5 


0 0 22 

3PPREQ 

0 QD 6 


0 0 23 

AOHREQ 

00D7 

C) 

Qi]2h 

5BHREQ 

Q0D8 

0 3 2 5 

ALCREQ 

0009 


0 0 2 6 

RELREQ 

GODA 


9 0 2 7 

3ACREQ 

0 u DB 


3 0 28 

PTHREQ 

OuDC 


0Q29 

AOFREQ 

GOOD 


0030 

BSFREQ 

OODE 


0 0 31 

ADRREQ 

QODF 

o 

0 0 32 

0SRREQ 

OLEG 

0 033 

NEFREQ 

OQEl 


0 03 4 

REWREQ 

fl0E2 


0 0 35 

LHCREQ 

0QE3 


0 0 5 6 

LHOREQ 

0QE4 


0 937 

LHHREQ 

00E5 


0 0 39 

DICREQ 

00E6 


9 040 

MSDRED 

00E7 

o 

0 0 41 

CLUREQ 

00E8 

0042 

LITREQ 

Q0E9 


0045 

LIMREQ 

OOEA 


0 0 4 + 

WCDREQ 

OOEB 


3 045 

RCOREQ 

QOEC 


0 0 4 6 

LAS REQ 

OOED 


0 P 47 

DASREQ 

OQEE 


0 0 48 

MLUREQ 

uQEF 

o 

0 0 49 

DPTREQ 

DOFO 

0 0 5 0 

LSPREQ 

OOFl 


0 0 51 

DSPREQ 

U0F2 


3 0 5 2 

LOPREQ 

0 0F3 

o 

0 0 53 

DDPREQ 

00F4 

0 0 5 4 

WDKREQ 

00F5 


3C55 

RDKREQ 

00F6 


o 


o 


REFERENCED AT LINE NUMBER 

0279 
3280 
3 281 
9282 
0283 
9 2 8't 
0 285 
0286 
0 2 87 
0 2 88 
0 289 
3 290 
0291 
3 292 

0293 

0294 
0 295 
0 296 
0 297 
0298 
0 299 
3 3 00 
9 301 
0302 
0 303 
0 304 
■3 3 05 
0 3 06 
0 307 
0 308 
0 309 
0 310 
0 311 
3 312 
9 313 
0 314 
0 315 
3 316 
3 317 
3318 
3 319 


I 


L..: 

o 

o 

o 

o 

c 

C- 

C't 

o 

o 

o 


o 




GETRFQ 

PAGE 14 

c 

0 i3 5 D 

SMPREQ 

00F7 

3 320 


00 57 

CCCREQ 

OOFS 

3 321 

o 

0058 

MMMREd 

00F9 

0 322 

0 059 

DMHREQ 

30FA 

3 323 


0 06G 

OMIREQ 

DOFB 

0 324 


0 0 61 

OHAREQ 

OOFC 

0 325 

o 

0 062 

3HSREQ 

OOFD 

0 326 

0 0 63 

3MDRED 

OQFE 

0327 


0 0 6 4 

CWAREQ 

OQFF 

0 3 28 


0 0 b 5 

DCMREQ 

0100 

0329 


0 0 6 6 

DMMREa 

0101 

0 330 

■w'' 

0 0 6 7 

SMNREQ 

0102 

3 331 


jQ68 

UNLREQ 

0103 

0 332 


0 0 70 

3LDREQ 

0104 

0 333 


0 0 71 

LICREQ 

010 5 

0 334 


0 072 

lACREQ 

0106 

0 335 


0 Q 7 3 

LIORED 

0107 

0 336 


0 0 7 4 

LAOREQ 

0108 

0337 

0 

0 0 75 

LSOREQ 

0109 

0 338 

0076 

LDOREQ 

aioA 

0 339 


0 077 

LAM RE Q 

UlO B 

3 340 


0078 

LSMREQ 

GIOC 

0 3 41 

o 

0 079 

LDMREQ 

OlOD 

0 3 42 

0 080 

LSTRED 

OlOE 

0 3 43 


0 0 82 

HANDLE 

0 022 

0158 


3 0 83 

0RIPR1 

0023 

0159 

c 

0 C 8 H 

MM AO DR 

0024 

0160 

0 08 5 

OFF 

0025 

0161 


0 C 8 6 

MSG 

0026 

0162 


o 


o 

o 

o 

o 

o 

o 


date: 01/27/99 


C.:- 

C.’ 

o 

o 

o 

C-' 



o 

C' 

o 

o 


o 


GETREQ 


PAGE 15 


DATE: 01/27/99 



o 



A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

3 Y M B 

0 L S 

If.!}. If. 


o 

AO- REQ 

0 029 

ADHREQ 

D 023 

ADISP 

0C89 

ADRREQ 

0031 

ALCREQ 

0025 


BITFLO 

C1Q8 

6MSG 

0100 

BRING 

3193 

BRIPRl 

0183 

BSFREQ 

00 3 0 


COMPEQ 

0 0 5 5 

CLUREQ 

QQ41 

CMMREQ 

0 0 65 

COMMA 

0091 

COMOLU 

0104 

o 

D30 2 

03^9 

ODPREQ 

0 053 

DIG REQ 

0 039 

DMAREQ 

0061 

D HD REQ 

0 063 

D^T REQ 
Fl\IE 

0049 

DSPREQ 

0 051 

EIGHT 

0 0 92 

EXTBRI 

0191 

EX THA N 

018 7 


0 0 9 0 

FOUND 

0181 

GETQUT 

0184 

GETREQ 

Dull 

GNUTAB 

020 6 


L A i RE Q 

0 077 

LAOREQ 

3 07 4 

LASREQ 

0 0 46 

LDMREQ 

0 0 79 

LDOREQ 

0 0 76 

o 

L-iORE Q 

0 03 6 

LHXREQ 

0 014 

LICREQ 

0 071 

LIHREQ 

0 0 43 

LIOREQ 

0 0 7 3 

L3BPRC 

0 096 

LSHREQ 

0 078 

L SO REQ 

0 0 75 

LSPREQ 

005 0 

LSTREQ 

0 G 8 0 


M3BPRC 

0095 

MSDREQ 

0 040 

HSG 

0 0 86 

NEWMLU 

010 5 

NINE 

0 092 


ONEBir 

0 0 9 0 

PATDH2 

D3-+4 

PROGl 

3 106 

PROG2 

010 7 

PTHREQ 

G028 


REQOK 

0164 

REQTAB 

0 277 

RE W REQ 

0 0 34 

3 A02 

034 7 

SBHREQ 

0 02 4 

O 

SIXTEM 

0 ‘J 9 0 

SLASH 

3 091 

SLA3HF 

3111 

SLDREQ 

ut3 7C 

SMNRnQ 

0 0 67 


3=>PREQ 

ZERO 

D Q? 2 
0090 

TEN 

ZROBIT 

0 093 
0 089 

THREE 

0 092 

TRYOTH 

017 3 

TVJO 

0 09 2 


o 


o 

o 

o 

o 

'0 

o 


o 

o 

o 


o 


AMONI 

0 089 

ASTRIC 

G391 

BASE 

,0 186 

BHANDL 

0099 

o 

BSRREQ 

00 32 

BUFCNT 

0109 

BUFEHT 

0112 

CCCREQ 

0 057 


CPPREQ 

0 02 1 

CWAREQ 

03 5h 

DACREQ 

0027 

OASREQ 

0 0 47 


OMHREQ 

0 059 

DM I REQ 

0 0 6 0 

DMSREQ 

0 06 2 

DPCREQ 

0015 

■ 1 ; 

EXTHMA 

0 19 0 

EXTMSG 

0139 

EXTOFF 

0188 

F I ELD 

0 110 


HANDLE 

0082 

I 

COO 0 

lOERR 

01G2 

LACREQ 

C 072 


LOFREQ 

0052 

LGNU 

0 273 

LHCREO 

0 035 

LHMREQ 

0 037 


LISTLU 

0103 

LITREQ 

00^2 

LOGILL 

C176 

LPMSK 

0G89 

o 

M8CREQ 

0016 

MLUREQ 

03 43 

MMAOOR 

0 08 4 

HMMREQ 

0C58 


NZERO 

0 089 

OFF 

00 3 5 

OFTB 

0158 

ONE 

0092 


RCDREQ 

0045 

RDKREQ 

0 0 5 5 

RELREQ 

0026 

REQLOP 

0165 


SCHREQ 

0019 

SCNREQ 

0 016 

SETREQ 

0017 

SIX 

0090 

C) 

SMPREQ 

0056 

SOMMOR 

313 1 

SP02 

0348 

3PEREQ 

0020 


U ML REQ 

0068 

WCDREQ 

0 0-^4 

WOKREQ 

0C54 

WEFREQ 

0 033 



o 


o 

o 

o 

o 

o 

o 

o 


0 0 0 1 
00 0 2 
0 0 0 3 
0 j 0 H 

00 0 5 
0 3 0 6 
0 3 0 7 
0 3 0 8 
00 0 9 
0010 

00 li 
0012 
0013 

001 - 
03 15 


00 17 
0018 


00 2 0 
0 0 2 1 


00 22 


0 0 23 


00 2-*- 


0 0 2 5 
0 3 2 b 


00 28 
0029 
00 3 0 
0u31 
0C32 
00 33 


LHXREQ 


PAGE 


date: 01/27/99 


* 

V- 

Af- 


NAM LHXREQ DECK-ID M09 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION^ LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR LOADS WORDS FROM THE 
INPUT COMMENT MEDIUM TO CORE. 


REQUEST HAS FOLLOWING FORMAT. 

LHXtCORE LOC. , BASE/OATA,OP CODE^ADDRESS ( CR) 
ALL FIELDS PRECEDING SLASH ARE ADDED TO 
OBTAIN STARTING CORE LOCATION. 

AN OP. CODE OF ZERO CAUSES 16 BIT RELATIVE 
ADDRESS TO BE STORED. 


summary- 11 ONG900001 
N 0 9 3 0 u 0 2 
NQ90C003 
N090 000^ 
NU900005 
N09000Q6 
N0930007 
NQ90fl008 
NOgOODOO 
NagooGiG 
N0900011 
N090 3 012 
Nu9C'O0l3 
N09 j3Q1^ 
N0900015 


* 


ENTRY 

ENT LHXREQ 


NAME 


N090 0 017 
N09D0 013 


Q0F4 
0 3 EA 
0 0 02 
0012 
0033 
0 0 43 
0 0 44 
0 0 22 
0 0 23 
0 027 
G02C 
0 0 2F 
G0 2A 
0 0 26 
C Q 45 
0 0 0 4 
0 0 0 3 
0 0 24 
0 0 46 
00 DC 


0 0 01 
0 0 02 
0 0 03 
0 0 0 4 
0 0 05 


'EQU' TABLE 

EQU AMDnII (SF4) , ADISP($EA) ,LPMSK(2) ,NZERO{$12) ,ZROBIT($33) 


EQU FIVE(S43),SIX<$44), ZERO ( $2 2 ) , ON EBI T ($ 23 ) , SI XTEN ($27) 


EQU 

COMMA (520 

,3LASH($2F) ,ASTRIC ($2 A) 

EQU 

EIGHT ( B25» 

, NINE ($45 ) ,THREE (4J , 0 NE ( 3 ) , TWO ( $2 4 ) 

EQU 

TEN ($46) 


EQU 

CONFM (12 ) 

"CONFM" ENTRY 


PARAMETER LOCATION (OFFSET FROM BASE) 

EQU 

HANDLE( 1) 

"HANDLE" 

EQU 

MSG (2) 

"MSG" ENTRY 

EQU 

SO.MMOR (3 ) 

"SOMMOR" ENTRY 

EQU 

IOERR(4 ) 

"lOERR." ENTRY 

EQU 

LI3TLU ( 5 ) 

LIST OUTPUT "LISTLU" 


N09DOfl20 

N0930021 


N09u 0 022 


N09Q0023 
N093 0 02 4 


MO 93 0 02 5 
N 3 9 3 0 0 2 5 


N09i 0028 
N093 u 029 
M j 9 3 Q 0 3 0 
N0900031 
N093U032 
N09G 0 033 




o 

o 

o 

c 

o 

o 

o 

u 

o 


o 


o 

o 

o 

o 





lhxred 


='AGE 2 


DATEJ 01/27/99 



0 j 3 4 
0Q35 
0 0 3 5 
00 3 7 
0 0 3 8 
0 3 3 9 
GO 4C 
0 0 41 
Oj 42 
0 0 43 

00 4i^ 

0 0 0 6 
GO 07 
0 0 03 
0 0 09 
00 QA 
GOOB 
00 flC 
00 10 
UQ 11 
0012 

EQU 

EQU 

EDU 

EQU 

ECOU 

E(JU 

EQU 

EQU 

EQU 

EQU 

C0H3LU( 6 ) 
NEWMLU(7) 
PROGl (3 ) 
PR0G2 (3 ) 
BITFLG(IO) 
BUFCNT(ll) 
FIELD (12 ) 
SLASHF( 16) 
BUFEMT (17) 
8UFFER( 18) 

"COHOLU" 

••NEWMLU** - 

••PROGl" 

"PR0G2" 

•■BITFLG" 

•■BUFCNT" 

••FIELD" 

"SLASHF" 

"BUFEMT" 

-BUFFER*’ 

-- NEW MM 

LU 


N090 0 034 
N090 0 035 
N090 0 03 6 
NO 90 0 03 7 
N 0 9 0 0 0 3 8 
N09j u 039 
N090 0 04C 
00900041 
N090QQ42 
NQ90 0 043 
NQ9 00044 

00 4o 
0 0 4 7 
00 48 



V- ‘I- V- 

P R 0 G R A 

M ST 

ART 


N09 00046 
NG90 0 047 
N090 0 048 


QO 5 Q 
00 5 1 
0 0 52 
00 53 
035-* 
0 0 5 5 
0 0 5 6 
00 5 7 

0 u " 8 

0 0 5 9 
0 3 5 0 
00 5 1 
0 0 5 2 
0 0 53 

0 j b 

0 3 6 5 
0066 
QG57 
0 J 5 6 
00 59 
00 7 3 
GD 71 
Q j 72 
0 0 7 3 
Gu7-+ 
0 0 7 5 
0 3 7 6 
u377 
037B 
0l79 
00 8 0 
OuSl 
0U32 
0083 
0^8-- 


POOOO 6824 LHXREQ 

POOOl 60FF 

PC002 8112 

PQG03 6825 

POOGp ClOl 

PQ005 6820 

PQCC6 C102 

PQ0Q7 681F 

POOea Q8-t9 

P00D9 686B 

POOOA 686B 

PQOOB 6868 

POOOO 586B 

POGuO 681A 

POOOE 3004 LHXOOI 

POOOF CA02 

POOlG 5C15 

POOH 0A03 

P0012 5C13 

P0013 000 Q LHXVAL 

PDul4 CIOC 

P0J15 0900 

P0Q16 0111 

P0017 183B 

P0Q16 C9G5 LHXGC2 

P0019 OllF 

POOiA C85A 

PDQIB 0111 

POOIC 183A 

PGDID 0804 LHX02A 

PQGIE 6857 

PQOIF C8F3 

paOZO QFC8 

PQG21 AQIA 

P0022 6855 


STA^ BASE 
STA- I 

ADD- BUFFER,! 

STA^ BUFADO 
LDA- HANDLE, I 
STA^ EXTHAN 
LDA- HS5,I 
STA’- EXTM3G 

! P A 

STA’ LHXSLH 
STA’ LHXRLV 
STA’ CORNDX 
STA’ OPCODE 
STA’ COUNT 
ENQ 4 
ENA 2 

RTJ’ (EXTHAN) 

ENA 3 

RTJ’ (EXTHAN) 

0 0 

LDA- FIELD,! 

!NA -SLASH 

SAN LHX002-’-l 

JMP’ LHX009 

INA -ASTRIS+SLASH 

SAN LHX003-’-l 

LDA’ LHXSLH 

SAN LHXQ2A-’-l 

JMP’ LHXG9A 

SET A 

STA’ LHXRLV 

LDA’ LHXVAL 

ALS a 

AND- NZERD+3 
STA’ OPCODE 


SAVE PARAMETER BUFFER ADDRESS 
CALCULATE '•BUFFER** ADDRESS 
GET **HANDLE** ROUTINE ADDRESS 
FETCH *‘MSG'* ADDRESS 


RESET SLASH FLAG AND 
RELATIVE FLAG 
SFT CORE INDEX AND UPCODE 
TO ZERO 

SET TO GET 4 CHAR. FIELD 
GET NEXT FIELD 

CONVERT TO HEX 


CONTROL CHAR.=SLASH 

SKIP NO 
YES 

CONTROL CHAR.=ASTERISK 
SKIP NO 

IS LHX SLASH FLAG SET 
SKIP YES 
ILLEGAL 

yes, SET RELATIVE FLAG 
SAVE VALUE AS OP CODE 


NQ900G50 

NQ9Q 0Q51 

N090 0 052 

N09Q 0 05 3 

N093 0 Q5-, 

NQ900G55 

N09j0056 

NGg00057 

N09G0058 

N09G 0059 

N0900060 

N090U061 

N0900062 

NQ900 053 

NG900054 

N09Du0&5 

N09Q0065 

NG9aQ057 

NO 9 3 0 0 5 8 

N090 0 059 

N090 0 07 0 

N09j 0 071 

N0900072 

NQ900073 

NQ90 0 074 

N090G075 

NQ90007D 

NQ9a0077 

N090Q07B 

N0900379 

N090Q 08G 

NOgOuGSi 

N0900082 

NQ900a83 

N09j0034 


LHXREQ 


PAGE 


DATE; 01/27/99 


0 j 3 t> 

P0023 

18EA 


JMP- 

LHXGOl 

G087 






0 ] 38 

P0 0 2 4 

00 0 0 

BASE 

NUM 

0 

0 0 3 9 

P 0 0 2 5 

0 0 0 0 

EXTHAN 

NUM 

0 

00 90 

P 0 0 2 6 

0 0 0 0 

EXTM3 G 

NUH 

0 

0 0 91 

PI3C27 

OOuO 

COUNT 

NUM 

0 

0 3 92 

= 0 G 2 8 

COGC 

BUFAJD 

NUM 

0 

00 9 - 

PO 029 

G9FD 

LHX03 3 

INA 

-COMMAf aSTRIC 

03 95 

PO 02A 

0119 


SAN 

LHXGQ 6- ^-1 

0 3 9 6 

PO 02B 

C849 


LDA^ 

LHXSLH 

0 3 9 7 

P0 02C 

0115 


SAN 

LHX004-^-l 

0 13 9 b 

P002D 

C8 49 
88E4 

LHXulO 

LDA^^ 

CORNOX 

0099 

PO 02E 


ADD'-‘ 

LHXVAL 

013 0 

P0G2F 

68^7 


STA^ 

CORNOX 

0101 

P0U30 

6849 


STA^ 

ORGADD 

0102 

P0031 

1802 


JMP^ 

LHXU05 

0103 

P0032 

5329 

LHX00 4. 

RTJ» 

LHXPRO 

OIJ - 

PG033 

18DA 

LHX0 3 5 

JMP'- 

LHXOOl 

0105 




CONTROL CHARACTER 

0106 

PQ034 

C8 40 

LHX006 

LDA4^ 

LHXSLH 

010 7 
0108 

PQ035 

0111 


SAN 

LHXQ6A 

0109 

P130 35 

1820 


JMR4^ 

LHXD9A 

0110 

P 0 0 3 7 

68 24 

LHXOd A 

RTJ^- 

LHXPRO 

0112 






0113 





TO RE 

0114 





0115 

0116 

P0038 

C8EF 


LDA^ 

bufaod 

Oil 7 

P0Q39 

6Q FF 


5TA- 

I 

0118 

P003A 

uCCO 


ENQ 

0 

0119 

P0C3B 

GE3E 

MOVOLD 

LDA=’‘ 

(ORGAOO ) ,Q 

0120 

P0G3C 

6722 


STA- 

(ZERO) ,B 

0121 

P003D 

u DOl 


INQ 

1 

0122 

PQ03E 

0814 


TRQ 

A 

8123 

P005F 

96E7 


SUB^ 

COUNT 

012i* 

PO 0 4 0 

0101 


SAZ 

endold 

012 5 

PC041 

18F9 


JMP»^ 

iMOVDLD 

0126 

PG042 

OAOC 

ENDOL.D 

ENA 

CONFM 

0127 

P0043 

5CE1 


RTJ^ 

(EXTHAN ) 

0128 

P0 044 

G 0 36 


ADC 

NEWDAT-^^ 

0129 

PGu46 

CCE2 


LDA'^ 

(BUFAOD ) 

013u 

PGfl4b 

0118 


SAN 

LHX008 

0131 

P0 047 

OCOG 

SAVEO 

ENQ 

0 

0132 

PQQ-,8 

CA32 

SAVEl 

LOA^ 

NEWOAT, Q 

0133 

P0049 

6E30 


STA^ 

(ORGAOO ) ,Q 

0134 

P004A 

GDOl 


INQ 

1 

0135 

Pu 04B 

0 814 


TRQ 

A 


RETURN FOR NEXT FIELD 


CONTROL CHAR.=CUMMA 
SKIP NO 

LHX SLASH FLAG SET 
SKIP YES 

ADD VALUE TO CORE INDEX 


SAVE ORDINAL ADD. FOR PRINT 4- 

GO PROCESS VALUE 
RETURN TO GET NEXT FIELD 
MUST BE EOT 

IF END OF DUFFER CHECK IF 
SLASH HAS BEEN READ 
OK, STORE VALUE IN CORE 

ILLEGAL - FORMAT INCORRECT 
GO PROCESS VALUE 


TO REGUEST CONFIRMATION 


TO MOVE OLD DATA TO BUFFER TO CONFIRMATION 


CHECK IF DONE MOVING 
TO REPEAT 

TO PRINT DATA AND REQUEST CONFIRMATION 


CHECK IF APPROVED 
NO, SKIP 

SET UP INDEX TO MOVE DATA TO CORE 


Nj9 0 0 085 


NG9: u 087 
NQ9[j 0 088 
N09j 0 089 
N090 0 09 0 
N09J 0 091 
Nu9G : 092 

N09G 0 094 
N09Q 0 09 5 
NOg: D Q9& 
NQ9u 0 097 
N0900098 
N09j 0 099 
N090 0 ID 0 

SAVE DATA N090Q1Q1 

^^MSOS4.G^^N09G0102 
N09001Q3 
N0900104 
NQ93Q1Q5 
^398 NG90G10O 

^398 N09j0107 

^398 N09G01Q3 

^398 N09DQ1G9 

NG900110 


N0900112 
N0900113 
N0900114 
NOgOOil 5 
N3900 11 6 
N09:aii7 
NQ900118 
N0900 119 
N09uul2u 
N0900121 
N090 0122 
N3900123 
NQ9j0i24 
NQ930125 
N090012O 
N0900127 
N093Q128 
N0900129 
N09G013G 
N0930131 
N090S132 
N0900133 
NO 90 0 13 H 
Nu93 u 15 5 


V.-- 


LHXREQ, 


0 1 3 o 

P0G4C 

980A 


SUB^ 

COUNT 

013 7 

P 0040 

0 101 


SAZ 

LHXOO 8 

0138 

P00 4E 

18F9 


J 

3AVE1 

0139 

POO 4 F 

E3D4 

LHXOO 8 

LDQ- 

BASE 

0140 

P0d50 

E2 03 


LOQ- 

SOMMOR, Q 

C141 

PG051 

1622 


JMP- 

(ZERO) , Q 

0142 



4 

HERE 

IF CONTROL 

014 3 

PQ pp 2 

0 8 44 

LHXD09 

CLR 

A 

0 1 4 

P 0 0 5 3 

6110 


STA- 

slashf, I 

014 5 

P U G p 4 

C820 


LDA^ 

LHXSLH 

014o 

P 0 05 5 

L 1 0 2 


SAZ 

LHX11G---1 

014 7 

•^0 0 56 

L' C U 4 

LHXC9 A 

ENQ 

•4 

0148 

P0 0 5 7 

ICCE 


J UP- 

(lXI MSS ) 

0149 

Pd058 

0 8 d 4 

LHXll G 

SET 

A 

C 1 5 0 

°00 59 

681B 


5TA- 

LhKSLH 

0151 

P 00 5A 

1802 


JMP^^ 

LHXdlO 

0152 






G 1 5 3 



¥• 

SUBROUTINE TO S 

U 1 P T 

P 0 0 5 D 

0 0 0 0 

LHXPRO 

0 

0 

G 1 p 5 

P 0 0 5C 

E819 


LDCM^ 

LHXRLV 

J 1 P c 

P0Q5D 

C8 B5 


LDA^ 

lhxval 

015 7 

P 0 0 5 E 

0151 


SQN 

1 

015 8 

PQG5F 

180E 


JMP^ 

LHXIQO 

0 1 5 9 

P Q 0 6 0 

0 137 


SAM 

LHXPR2 

d 16 0 

P 0 d 0 1 

C 8 1 5 


LOA- 

CORNDX 

0161 

PC 0 b 2 

0124 


S AF 

LHX PR 3 

015 2 

food 3 

C8 AF 


LDA^ 

LHXVAL 

0163 

(•’ d d u -t 

0 6 6-t 


TCA 

A 

Ij i 6 T 

POu 65 

8811 


ADD^ 

CORNDX 

0 i 5 p 

P p 0 b b 

1803 


JMP^ 

LHXPRl 

blob 

F 0 0 6 7 

L8AB 

LHXPR 3 

LDA^ 

LHXVAL 

016 7 

P0068 

98 CE 

LHXPR2 

SUB'^ 

CORNDX 

016 8 

P d J 69 

E8 CE 

LHXPRl 

LDQ- 

OPCODE 

0169 

POflbA 

C 1 42 


3QZ 

LHXIO G- ''-I 

017 C 

P00 6R 

A 0 OA 


AND" 

LPM3K + 3 

0171 

P 0 0 D c 

Q8 7u 


EAQ 

A 

0172 






d 1 7 3 

P 0 u 6 0 

F8 B9 

LHXl 3 0 

LDQ-- 

COUNT 

dl7 4 

PQG6E 

6A GC 


STA^ 

NEWDAT, Q 

0175 

P 0 C 0 F 

08 07 


RAO^ 

CORNDX 

u 1 7 o 

P0Q70 

D 8 Bo 


RAO^^ 

COUNT 

0177 

P0 0 7 1 

0 8 -^4 


CLR 

A 

017 8 

P 0 0 7 2 

6 8 0 3 


STA^ 

LHXRLV 

0179 

P00 7 3 

1CE7 


JMP- 

(LHXPRO ) 

0180 




CONSTANTS AND 5 

0131 

P0 07- 

ooco 

LHXSLH 

0 

0 

G182 

P 0 0 7 5 

G 0 0 C 

LHXRLV 

G 

0 

u 18si 

P 0 3 7 Q 

0 0 u 0 

CORNDX 

0 

0 

018- 

PC 0 77 

d 0 0 c 

OPC03 E 

G 

d 

U 1 5 L> 

4 G d 7 ri 

2 0 2 0 

LHXbLK 

ALF 

1 , 

d 1 8 6 

POO 7 9 

u 0 0 0 

ORGADD 

HUM 

J 

013 7 

PO G7A 

C 0 2 6 

NEWOA T 

EZS 

NEWDAT ( 40 ) 


=AGE H DATE; 01/27/99 


CHECK IF DONE MOVING 
YES, SKIP 
TO REPEAT 

EXIT TO "SOHHOR" 

CHAR.=SLASH 

RESET SYSTEM SLASH FLAG 
(NOTE,ScE GET FIlLD SUD.) 
LHX SLASH FLAG SET 
SKIP NO 

OUTPUT FORMAT TNSOERECT 
MSG. 

SET LHX SLASH FLAG 


STORE VALUE INTO CORE 

RELATIVE '^LAG SET 
(LOAD VALUE TO A) 


OKAY IF THIS IS NEG ALL CASES 

OKAY f30TH POSITIVE. 

NOT OKAY CASE VAL + , NDX - 
USE 0PP03IT TO GET 
PROPER REL VALUE 


CALC REL ADDRESS 

OR IN OPCODE I^ NOT ZERO 


-’M'!SOSw.,j 
^^HSOS4. 
^'^HSDS^^..: 
^^HSOS‘-r. u 

-- MS OS - . : 
^f^MSOS-.. 
^^t-iSOSv. 3 
^'^HSOSu . . 

MS0S4. G 
^^^MSOS^. J 
^^MSOS^. 0 


SAVE NEW INPUT DATA TO TEMPORARY BUFFER 

BUMo CORE ADDRESS BY 1 
UPDATE INDEX BY 1 
RFScT RELATIVE FLAG 

RETURN TO CALLER 
\GF 

LHX SLASH FLAG 
KELATIVc ADDRESS FLAG 
CORE INDEX 
OP CODE 

ASCII Blank cooes 

OPGINAL A'lDRt-SS 


N093 0 13 b 
N093Q137 
N 090 0 13 8 
N09G0139 
NO 900140 
N090 0 141 
Nu9 0 G 1^2 
N090 0 143 
Nu90Gl44 
N j 9 0 G 1 - 5 
N u 9 0 C 1 
N U 9 0 u i “f ( 
N'jy. Gi-rd 
N 0 9 0 0 1 4 9 
N090ul5G 
N09u 0151 
N09G G152 
N39G 0153 

N0900154 

N0930i55 
N u 9 G 0 1 p b 
*'"^Nu9QG15 7 
^--N0 90 0 15 6 
09^0159 
^^NJ90G15u 
NGDOOlbl 
^-NG9uGlo2 
’^'^■‘NOgjCloo 

^^NO 90 LI 16 4 

^ N 0 9 0 0 1 5 5 
’-^N09u016o 
--N09J0167 
»^N09J0168 
N09Q0169 
N090017C 
NO 90 0 171 
Nj90C 172 
N09G0 173 
N090017 A 
N09j 0175 
N090G17b 
N0900177 
N09Q0178 
N09j;i79 
N 0 9 3 0 1 8 0 
N09Q 0 181 
NO 90 0 18 2 
N090u 183 
N 0 9 j L 1 8 *- 
NG9i. u IS 5 
N091 0 13L 
Nj 90 0137 


O 

O 

O 

O 

ri 


ri 

V,.* 


O 




o 

TT 

o 

o 

o 

o 


o 


o 


LHXRFQ 


PAGE 


GATE 


Gl/ 37/99 


) 

j i 8 9 


u 0 u 1 

P 

EQU 


019 G 


C 0 C2 

P 

EQU 


0191 


0 0 no 

P 

EQU 

:3 

ul92 

PG 0A2 

CCIE 


3SS 

019 3 




END 

■'T . 

P3M = 

GGC'. 

( 

192 ) 

SOM = 


O 


' \ 


o 


o 

o 

o 


SAGK ^/95) 

SPG 1 { SA j i + 1) 
OBJ 1 (S^O l'^96) 
(OBGl-^ ) 


GOC < 0) DAT = GGGO ( C) 


O 


N 0 9 G 0 1 8 9 
NG9J u 19C 
NQ900191 
NG9G G 192 
NQ900193 


O 

o 

o 

o 


o 

o 

o 

o 

o 

o 


o 


DATE; 01/27/99 



LHXREQ 


PAGE 


EQUIVALENCES 


o 


C*) 

j i. ■ • LINE 

N A I’1 E 

value 


RE-ERENCED AT LINE NUMBER 

: O 


Q ; G 0 

r 

.uFF 

( GO 3255) 

0u51> 0117 



G j21 

ANONI 

w DF4 

( O'j 0244) 




G u 2 1 

AOISP 

G u E A 

(000234) 


• O 


a u 2 i 

LPMSK 

0002 

(000002) 

0 17C 


0 u<il 

NZERO 

0012 

( 0 0 0 G 1 5 ) 

0 a 83 



Q 0 2 1 

ZROBIT 

0 033 

{ 0 u ■] G 5 1 ) 


O 

.-*s 

0G22 

- IVE 

0 0 4 3 

(000067) 



D 022 

SIX 

0 0 4 4 

( 0 0Q058) 



0 G22 

ZERO 

GC 22 

( 0 0 0 0 3 4 ) 

012U, 0141 



u 0 2 2 

DNEBIT 

0 3 2 3 

(000035) 




0 3 22 

3IXTEN 

G 027 

(000039) 


o 


C C23 

G UMMA 

Q C 2 C 

( Q 0 G 04 4 ) 

0 0 94 



j ^ ci 3 

SLASH 

uC 2F 

( 0 0 0 C “t- 7 ) 

0 u 7 1 , 0 0 7-^ 



0 0 2 3 

ASTRIC 

002 A 

( GC Gl42) 

0 0 7 1 5 0 G 9 4 


\ 

c ;■ 2 - 

EIGHT 

0 t 2 6 

(000038) 


o 

1 

0 j ? 

NINE 

C 0 T 5 

( 000059) 



L* J 2 ^ 

Three 

■^ 0 J - 

(Oja^j-r) 




u ^ 2 ^■ 

ONE 

GOO 3 

( G G J 0 J 3 ) 


: O 

o 

o ■; 2 - 

TWO 

o02- 

( 0OjO36) 


0 0 2!? 

TEN 

0 G -i- D 

( 0 C '3 0 7 0 ) 



j 3 2 E 

GOMFM 

0 u u G 

( 0 : 3 u 1 2 ) 

0 12d 



0 0 29 

HANDLE 

G 0 C= 1 

( 0 •:< J 0 u 1 ) 

0 C 5 4 


o 

G . 3 0 

H3G 

GG u2 

(000002) 

0 0 55 

' o 

C u 9 1 

SnMHOR 

u 0 0 3 

( Q u J 0 u 3 ) 

0 140 



0 3 3 2 

TO ERR 

C-G L w 

( 0 C 0 0 J 4 ) 




0 0 3 3 

LISTLU 

0 U 0 E 

( DDG 0 0 5) 


• o 

'' 

u o 9- 

COMOLU 

0 0 0 6 

(000006) 



C 3 5 

newhlu 

0 0 0 7 

(000007) 



0 C 0 c 

P R 0 G 1 

u 00 8 

( OCuQOS) 




0 0 3 7 

PRQG2 

j 0 0 9 

(003009) 



o 

0 0 38 

BITFLG 

0 0 0 A 

(000010) 


c 

P ' 3? 

3UFCNT 

OGOB 

( G uGOii) 




Li ? ^ 0 

FIELD 

uuGC 

( cO 0 012 ) 

G u 70 



0 li 9. 1 

SLASHF 

0 G 1 u 

( OOOOib) 

0 14U 

; O 

o 

C 0 -2 

3UFEMT 

.Llll 

( u Lj 0 0 1 7 ) 


G - 43 

BUFFER 

0012 

{ C J 0 J 1 8 ) 

0 C 52 


o O 


L HXREQ 


PAGE 


7 


DATE: 


Gl/27/99 


o 

S Y H b 0 


OuF . LINE 
0 G18 


0 0 64 

o 

0 0 69 

0074 
0 X 7 9 

D C 8b 

N 

G ' 8 9 


u u 9 u 
J L 9 1 


J L: 9 2 


0 0 9 4 


D u98 
J i L 3 
G 1 0 H- 

''*^1 

GIG (■’ 


c lie 
X 1 19 

0 12 6 

0 

G 1 3 1 

0 13 2 
Q 1 39 
0 1^-3 

.o 

G 1 4 7 

01t9 


3154 


0 166 

.r\ 

G i 6 (' 


0168 
0 173 
G 161 

O 

G 1 a 2 

G 1 0 5 
0 1 «« 


G 1 6 5 


G 10 6 


u i 8 7 
0 189 
0 19 u 

0 

C 191 


O 

O 

r'\ 


L S 


nahe 

addr: 

LHXREQ 

0 U 0 0 

LHXOGl 

CODE 

LHXVAL 

00 13 

LHX002 

C015 

LHXG12A 

OOID 

BASE 

u G 2 H 

EXTHAN 

0 0 2 6 

EXTMSG 

j Q 2 6 

SOUMT 

G 0 2 7 

BUFADO 

GG28 

LMXO 0 3 

U029 

LHXblO 

0G2D 

LHXGu -r 

0 0 32 

LHXu 1 j5 

Li Li 3 L) 

LHXG06 

U 0 3 “T 

LHXxSA 

0 0 3 7 

MO VOID 

u 0 3 8 

ENDOLD 

u li ^ 2 

3 A '/ E 0 

X 0 ■+ 7 

3AVE1 

0048 

L H X u c a 

0 04F 

L H X 0 0 9 

0 0 5 2 

LHXC9A 

0 0 5 o 

LHXllO 

0 0 5 8 

LHXPRO 

0 0 5 B 

L HXPR3 

0 0 67 

LHXPR2 

J 0 6 8 

LHXPRl 

0 0 69 

LHXIG 0 

J 0 60 

L 4 X SL H 

0 0 74 

LHXRLV 

G 0 7 r» 

corndx 

G‘ G 7 6 

OPCODE 

u G7 7 

LHXniK 

0 0 76 

ORGADD 

0 0 79 

NEWDA T 

0D7A 

5 A 0 1 

0001 

SPG 1 

u 0 G 2 

3FQ 1 

UOCG 


REFERENCtO AT LINE NUHBcR 


0018 



0 0 85 » 

G 10 4 


0 J81, 
0 0 72 
0 0 77 

0 099 , 

0156, 

0 X 0 » 

C13 9 


0 0 5 » 

0 C 6 6 , 

0 J o 6 , 

0 0 5 7 t 

014 8 


0 X 63 , 

012 3, 

0 13o, 

q .53, 

0 0 7 5 
u 151 
GO 97 
3 102 
G 0 9-5 
J 108 
0 126 
012-. 

0 138 

0116, 

0129 

0 130, 
0 0 73 

0137 


0 0 73 , 
0 146 

0109 


3 103, 
3 161 
0 15? 
316:; 

0 110, 

0179 

0 15 8, 

0169 


G 0 !1’‘9 f 

Q ■: 7 ( , 

u X 9 'i! , 

G 0 6 -J , 

u G 8 C , 

0 1 5 ■? , 

0 G 6 1 , 

X L 9 8 , 

u 10 0, 

G xi 6 2 , 

0 0 8 , 

0166 

0 1 fl 1 , 

0119, 

0133 

0128 , 
019C 

0191 

0192 

013 2 , 

017 4 


J162? 0166 
0127 

G173, 0176 


j 1 j o j u 1 j 0 1 6 Li 

'j 1 " 8 

J 1 C « J *J X C - » 0 1 G ( » 



LHXRE3 


= AGE 8 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

Aorsp 

u C21 

A MO MI 

. u2i 

ASTRIO 

Gu23 

C 3 •) :•] A 

L 025 

COMOLU 

J J w ^ 

CONFN 

0 0 2 5 

EXTi'lSG 

L39C 

FIELD 

13 G PC 

FIVE 

0 0 22 

LHXGC- 

c la 3 

LHXO u 5 

3 lli 4 

LHX G a 5 

0 1 G o 

L H X 1 G 0 

ui7 3 

LHXllO 

0 1h9 

LHXBLK 

0 185 

LHXSLH 

0131 

LHXVAL 

li C 6 9 

LIST- J 

0 0 3 5 

MZERO 

0u21 

ONE 

a G 2P 

0NE8IT 

0 022 

3 A i/ tl 

G13 2 

SIX 

0 C22 

SIXTEM 

j ; 22 

TW3 

u 0 2 

ZERO 

C Q22 

ZROBIT 

a 0 21 


OATF: Gl/27/99 
S Y H B 0 L S 


BASE 

0083 

BITFLG 

0 0 3 8 

a UFA DO 

0 092 

COPNDX 

0183 

COUNT 

u u 9 i 

DBDl 

0191 

HANDLE 

0 0 29 

I 

0 0 0 c 

I OERR 

0 G3 2 

LHXGG8 

0139 

LHXO u 9 

G1h3 

LHXOlu 

Q096 

LHXPRl 

G 1 c 3 

LHXPR2 

016 7 

LHXPR5 

01d6 

LFHSK 

0021 

HO VOL J 

3119 

MSG 

0 03 0 

0 PCODE 

013 ^ 

URGAUD 

018 6 

PROGi 

0 0 3 6 

SLASH 

0 0 2 3 

SLASHF 

J-l-rl 

SUhiHOR 

u u 3 1 


BUFCNT 

0G39 

BUFEMT 

G 042 

BUF FFR 

G u -t3 

EIGHT 

C J Z 

ENUOLU 

0 12 6 

EXTHmN 

u 089 

LHXOul 

G 0 D 4 

LHX0Q2 

0 07 4 

LHX003 

GO 9-. 

LHXt 2 A 

0 0 79 

LHXOoA 

0 110 

LHXC9A 

0 1 7 

LHXPRO 

015t 

LHXREQ 

0 118 

LHXRLV 

0182 

MEWDA T 

C 1 8 7 

N EWHLU 

0 03 r 

NINE 

0 0 2- 

PROG? 

0 0 3 7 

SAG 1 

0189 

SAVED 

0131 

SPul 

G19 . 

T ^N 

0 02-^ 

THREE 

0 0 2- 


DPGRF3 


date: 01/ 2 7/99 


NAM DP3REQ DECK-ID Nlu HSOS s.l 

MASS ST32AGE OPERATING SYSTEM VERSION o . 0 
SMALL SYSTEMS DIVISION, LA JOlLA, CALIrOHMIA 
COPYRIGHT CONTROL DATA CORPORATION 1975 
THIS PROSESSOR DUMPS CORE CELLS UN THE 
OUTPUT COMMENT MEDIUM. THE REQUEST HAS THc: 
FOLLOWING -ORMAT. 

DPC, START CORE, END CO RE , B A S E ( CR ) 


ENT DPCREQ 
ENT DICREQ 


ENTRY 


N AMES 


S U M i '1 A ! •• Y - 1 1 2 ^ ^ - 

N1G3 OuG? 
MiLiJOaL '3 
NIGOGOC- 
N 1 G J 0 J 3 5 
NiC'j O'jGo 
N 1 U j u 0 u 7 
N1C3 0 0 0 8 
NIQO 0 0 0 9 
NlGOOulG 

NiOO 0Q12 
NIO: 0013 
NIOO 0014 


EXT COMPy. 


X T E R N A L 


N 1 L 0 Q 3 1 n 
N 1 : C 0 0 1 7 


0 GF- 
0 0 EA 
L u G 2 
j012 
'j 0 3 3 

i, U ^3 

3 0 -.4 
L C 22 
0 0 23 
J 027 
; 02C 
u Q2F 
■J C 2 A 
G 0 26 

■_j 0 

G u u "t 
u u 0 3 

0 0 24 
- u 46 


' E n U ' T A B L L . , 

EQU A 1 MDNKSF 4 ) ,ADISP(SEA) ,LPHSK(2) ,NZER0(?12) ,ZROjIT (333) 


EQU FIVE >, SIX {$-'+) , ZERO ( $ 22 J , UN cb I T { $ 23 ) , SI X T LN ( $2 7 ) 


EQU COMMA 13 20 , SLASH (S2F) , AST RIC ($2 A) 

EQU EIGHT { 5 25) , Nl ME t $45 ) . THREEE ( , OMF ( 3 ) , TWO ( $2 4 ) 


N 1 0 0 0 u 1 9 
N 1 c 3 U :j G 


NICOGjZI 


NiCG u 322 


N 1 0 Li G u 2 3 


EQU TEN($4o) 


^-MSOS-.;O^NiCQ 0 024 


uOGl 
0 0 G 2 
L u C3 

DGC4 

C G 0 5 
n Gb 
J 3 C7 


PARAtMFTEP LOCATION (OFFSET FROM BASE) 
EQU HANOLE(i) "HANDLE" 

EQU MSG (2) "MSG" ENTRY 

EQU 30MMOR(3) "SOHHOR" ENTRY 

EQU I0ERR(4) "IOERR" ENTRY 

EQU LI3TLU(5) LIST OUTPUT — - "LIGTLU" 

EQU C0H0LU(5) "COHOLU" 

EQU NEWMLU(7) "MEWHLU" HEW HM LU 


NiOG 0 026 
NltiO u 027 
N 10 j 0 0 28 
N 10 3 J 0 2 9 
NiOG 0 030 
N 100 0 j31 
N1Q3 0 332 
N1CC0G3O 


o 



o 


N 1 V- ^ u 0 0 

Niuj u 03a 
NiGO u u36 
N i 0 0 u 0 3 7 
N i C J 0 'J 3 8 
NiO Ou 039 
NICj OG-tC 
MIOOUjhI 


N 1 :] G 0 0 4 3 

4 ^ N 1 G 0 0 0 “ 4 

N 1 0 ] 0 0 -f a 


1 u V J G 4 7 
NIC j j J-8 
NLOu u 0 -r9 
N i u u J J 5 u 
M 1 u 0 0 0 5 1 
NiOu 0 05 2 
NIOOO 053 

NIC 0 0 05 5 
N 10 J 0 J 5 6 
NIGj G Oa7 
MIO 3 0 05 8 
N 100 0 059 
-'‘^MSOS-.O^-^lluL'OQfaO 
^‘»MSOS-,-. «^^NiOOQubl 
N 1 0 0 0 0 b 2 
N1GOG063 
NIG 00064 
N 1 0 0 4 0 b ‘a 
NIQ J 0 Qbo 
NiOOQ 0b7 
NICj Q Go 8 
N10GuOb9 
N 1 G 'J li J 7 u 
N iOO 0 0 7 1 
N 1 0 0 G G 7 2 
NIGJGG/3 
N 1G: G u7» 
N1000075 
N 1 C 2 C u D 
NIOG u 077 
NICG 0 07c; 
N1CG0U79 

N 1 0 D 0 ij 8 o 

NIG J 0 08 1 
NiOO 0 03 2 
Ni 0 0 4 08 3 
N1G0QO84 


o 

o 

n 

O 

o 


o 

o 

c 

o 

o 

o 





D PC RFC 


PAGE 3 


0-35 

Pj02 A 

883F 


ADO^ 

OPCBSE 


0 3 8 6 

P 0 0 2 3 

68 3B 


STA^^ 

DPCSTR 


0.3? 

P 0 0 2 6 

6336 


STA^' 

DD35TR 

u 

0 u 8 u 

PU 027 

C83D 

OPCwG 7 

LDA^ 

DPCFIN 


0 . a 9 

P b b 2 3 

0 10 3 


SA7 

OPCOO H-^-1 


U 0 9 0 

PG02P 

883A 


ADO^ 

OPCBSE 


G u 9 1 

P0U2A 

1803 


JHP- 

OPCbO 5 

i ) 

0.92 

P 0 0 2 B 

18 EE 

OPCGC9 

JHP^ 

opcaoa 


U J 9o 

P 0 u c C 

C 8 3 4 

upco ;• A 

L DA 

DPCSTR 


U 3 9 '* 

P 0 0 2 0 

6837 

flPCOO 5 

STA^ 

DPCFIN 


L J 9 " 

PG C2E 

G836 

UPCbOo 

LDA- 

DPC- IN 

‘-vj 

^ .i 3 ^ 

P 0 0 2F 

E8 31 


LOQ- 

DPCSTR 


0 0 9 7 

P 0 G 3 .. 

^aCu X 


RTJ 

CQMPV-- 



PDu31 

7FFF X 





Q t 3 8 

P C b 3 2 

0 121 


SAT 

POSLEN 


0.99 

P 0 C 4 3 

182 0 


JMP- 

OPCCON 


tie: 

P u C 3 - 

c C C 1 

POSLEN 

ENG 

1 


0 13 1 

POO 4 5 

b 1 b A 


SAZ 

D PC L S T 


QIC 2 

P 0 C 3 6 

09DG 


INA 

0 


OILS 

3 C C 3 7 

G 1 G 8 


SAZ 

0 FC LS T 


0 1 G -r 

P . b 4 8 

0 8 4 6 


A AO 

A , 0 


u ly J 

P 0 b 3 9 

09F7 


INA 

- 8 


u 1 u 6 

P 0 b 4 A 

0135 


SAM 

DFCLST 


Die 7 

P Li 0 4 B 

G 1 C 4 


S Az 

D PCLST 


u 1 J 8 

PC u 3 C 

1817 


JMP- 

DPCCON 


u 1 1 J 






■J 

bill 

PG03D 

0 Q C 0 

BASE 

NUM 

0 


0112 

P 0 0 3£ 

py CO 

EXTHAM 

NUM 

G 


u 1 1 3 

PQ03F 

u 0 0 0 

EXTMSG 

NUM 

0 

o 

0114 







0116 

POOaO 

C820 

OPCLST 

lda^ 

DPCSTR 


0117 

POQhI 

58 OE 


STA^ 

OPC3T2 


0118 

PQC42 

68 09 


sta^ 

00C3T2 

1 ) 

a 1 1 9 

POO a3 

'3 3 23 


LOA-'^ 

DOC-LG 


012 0 

POQ^-t 

Q122 


SAP 

OLGl 


0121 

PQ 0-^5 

0 A G 4 


ENA 

■4 


u 124 

PGOao 

180 8 


JMP^ 

DPCblO 


012 3 

P 0 0 4? 

A8 2b 

ULOl 

STQ^ 

03CQTP 


ul 2w 

PQ 0a3 

QCFF 


FNQ 

-1 


012-5 

PG 0 49 

C AG4 


ENA 

•t 

'^‘'1 

0 1^6 

P 0 0 L A 

5CF3 


RT J- 

(EXTHAM ) 

o 

G 1 2 7 

PG 0 aR 

0 G D 0 

OUCST2 

NUM 

0 


u i 2 8 

p 0 0 '»r 

PA IB 


LDO-^ 

DOGQTP 


C 1 29 

P Q 0 

j A C7 


LNA 

1 

O 

ij 1 3 . 

P 0 G 4 C 

5C EF 

OPCb 1 0 

RT 

(EXTHAM } 

0131 

PG 0>-F 

0 0 0 0 

DPCSr 2 

u 

0 


ni3 ? 

P 0 u ‘3 u 

E8FC 


LDO- 

BASE 


0133 

Pu05i 

E2 03 


Lon- 

SOMMOR, U 


G 1 3 L 

P 0 0 5 2 

1622 


JHP- 

( ZERO ) , G 

o 

0133 

PG 053 

0C08 

DPCGDM 

ENQ 

8 


0 1 3 o 

PCG 5a 

C812 


LDA^ 

ODCFLG 


o 

o 


date; 01/27/99 


STORE AS START 

LAST=Q 
SKIP IF 0 
ADD LAST AND BASE 


STORE LAST 
SET UP FOP AO ORE 
START TO 0 
COMPARE UM 


N10u0G36 
^‘^HSOSu.O<^^NlQGOQe7 
NIOO 0 038 
NiCi‘0089 
NlOO 0 0 9 0 
N1 uujj91 


.omparf 


MIOG 
NiuG 
NlQu 
NiOO 
NiCG 
N i 0 j 


0 092 
0 0 9 3 
ij 0 9 u 
D u9E 
G j 9 D 
G j 9 ? 


DTFFERtHC- LESS THAN 32 K, SKIP ioE- 

GO TO PRINT 8 WOR[)S FOR MORE THAN 32K 132- 
ASSUMF LAST TIME, SET 1 WORD 132^ 

first = LAST, i WORD DUMP 
TEST FOR -u 

FIRST GREATER THAN LAST/ 1 
TOTAL WORDS TO PRINT TO Q 
nFCREMEMT FOP 5 WORDS TEST 
LESS THaN 8 WORDS, LAST LIME 
8 WORDS LAST TIME ^ 

MORE THAN 8 WORiTS, DO 8 WORDS, CONTIMU 


WORD WRITE 


NiG.uG99 
NluublGu 
NIGGOIQI 
NiuGuUZ 
MIOQ GIQ 3 
MlOO G10-. 
M 1 G j u 1 0 b> 
MiUG G 10 6 


LAST TIME, NO. TO Q, , HOVE START 
TO THIS CALL) 

OUTPUT IN HEXADECIMAL FORMAT 
OUTPUT AOORfcSS TAG 

OUTPUT IN OECI'iAL FQfPMAT 
OUTPUT UME LINt OR LESS 

exit TO “SOMMOR" 

NOT LAST line 


NIC 3 DIG 8 
N 103 0 10 9 
NiOuO 110 
NlUOQill 
NIG JU 112 

ADDRESS NlOQGliP 

NiO j 0 11 5 
^->HSOS4. G^^NIOO 0 lie 
-- MS OSa . -J N1 G 0 0 1 1 7 
N1G3 J ilB 
^^MSOSa . j ’^^NIG 3 G 119 
^^MSOSa. j^^NiGQG12G 
NlOuGlZl 
^^^HSOS^.C’^^NIGOGIZE 
^’^•MSOSa. 0»-N10Q3 123 
NiCG 012 4 
--MSOS-T. G^-'^Nijj 0125 
H SO SL . 0 - - N 10 0 0 i 2 6 
^-HSOS-.u’f^Nl&GuiE / 
NiOO 0128 
NlC: 0129 
NlOOuiSO 
NIG 3 0131 
NICG 0 132 
N100G133 
^^s^MSOSA.G^^NIuGOISa 


C''. 

o 

o 


o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 



o 


i 


N IG Q 0 1 3 5 
»^HSOS-. j ^‘'■NIOO 0 13b 
--MSOS--. J G137 

"^--HSOSh.G ^-Ni00 013B 
--“KSOSu. j ^^NlCGGiby 
-^HSOSw. j^^Nlu0gi4G 
N 1 U U b 1^1 
”■ M S 0 S “ . u N 1 G 0 G 1 -t 2 

1 1 S 0 S - • N 1 G 0 C 1 T si 

NlGs. Litb 
N 1 L‘ J d 1 - t 
NlujGi-/ 

M 1. jj j ij 1 ^ H 

N 10 j G 1^9 
NIC b G 13 C 
NluGCiSl 
N 10 G G 13 2 
-‘‘^HSOSv.G’f^fNlOOulbo 
D^_-N10G0154 


NluJUlSb 
N100Q157 
N 1 u j G 1 5 8 
NlDj 0 159 
NIOO 0 l&O 
NlOGGiol 


O 

C 

o 

Q 

o 

C) 

o 


o 



r"": 



D PC RE 3 


= ftGE 


DATE! 01/27/99 


E3UI\/ULENCES 


o 

DEE .LINE 

MAKE 

VALUE 


RE-ERENCED AT LINE NUMBER 


3 C 0 G 

I 

OuFF 

( 0C3255) 

0 0 49 


0 0 2C 

A H 0 N I 

0uF4 

(0 3G244) 


/'•'l 

- - 2- 

ADISP 

u u t A 

( t -J 0 2 3 ^- ) 


'-.—J 

■j u 2 0 

LFMSK 

r: ■ o 

L> Lr U 

( u . J 3 G 2 ) 

0067, 0C69 


L u 2C 

NZEPvO 

J 0 12 

{ QQ J jid) 



3 u ? 0 

ZKO BIT 

3 0 33 

(0 GuaPl) 



0.21 

FIVE 

\j U “f 0 

{U3GGB7) 



0.21 

SIX 

U iJ 

( 0 G 3 G b B ) 



0.21 

ZERO 

Gu22 

< G J 3 G 3 ) 

0 134 


G.21 

ONEBIT 

0 0 23 

{ 0 u G 0 3 5 ) 


( \ 

j j 2 1 

SIXTEN 

uG27 

( G. JG39) 


V,.-' 

0-22 

COMMA 

3 020 

(QQQC-*^) 

0 3 7 0 


0 0 22 

SLASH 

uu2F 

( 0 GG C47) 



3 0 2 2 

ASTRIC 

u u 2 A 

( 0 OJG-42) 



0 0 2 3 

EIGHT 

0 0 2 6 

( 00 0038) 



G G23 

NINE 

J G b 

{030069) 



G C 2 3 

THREE 

U U C "T 

( G J . G 0 4) 



0 0 2 3 

3NE 

0 0 0 5 

( 0 3 C 0 0 3 ) 



3 j 23 

Tl'IO 

G j2 - 

(00.036) 



D 0 2 

TEN 

0 0 4 o 

( 0 0 J 0 7 G ) 



0 0 2 7 

HANDLE 

u 3 u 1 

{ u jG uGl) 

u c 5 C 


3 0 2 R 

MSG 

GG02 

{003002) 

0 0 52 


u. 2 9 

SOMHDR 

•J u 0 3 

( 0 Q 0 J J 3 ) 

3 13 3 


3 G 3 0 

10 ERR 

U L J n 

{ fl u U Q G 4 ) 



U u 31 

LISTLU 

J ^ G 5 

(GOGGjtj) 



3 0 32 

COHOLU 

OQGb 

( 3 OG-Oo) 



u J 3 3 

NEWMLU 

ij 0 0 / 

{ 0 G 0 G >3 7 ) 



3 0 3 

PROGl 

u . 0 c 

( U O.wLjd) 



0.35 

PROG2 

OG 39 

{ Ou 3 j39) 

C G59 


j 0 5 f> 

BITFLG 

u Q 0 A 

( -J 0 G u 1 0 ) 


/' 

0 3 3/' 

3UFCNT 

u u G B 

{ QGGGll) 


J 

3 C38 

FIELD 

GGOG 

( G L G 0 1 2 ) 

0 Q b 5 


0 0 39 

3LASHF 

u 0 1 ^ 

( G u 0 Gib) 



0tii*G 

BUFEMT 

Dull 

(0 0G017) 


C) 

3 u41 

BUFFER 

0ul2 

(000018) 



O 

o 

o 

o 


L.' 

o 

o 

c 

L.' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


nPCREQ 


PAGE 


o 


DATE: 01/27/99 



0147 


c: 

o 

■ o 
o 

■ o 

o 
o 
o 
: O 
^ O 

o 

: O 
O 

o 

n 

s ■ 


OPCRt^ 


?aGE 


7 


DATE: Di/27/99 


o 



o 

EX T E R t'4 A L S 



DEF.LINE NAME 

VALUE 


0G17 30MPV4 

0031 


Q 

o 

o 


re-erenced at line number 

aC97 


o 

o 

'0 

O 

o 

o 

o 


o 



V. 


o 


o 

o 

o 


ODD! 
00 0 2 
DQ 0 3 
00 0 4 
00 0 5 
00 0 6 
0 0 0 7 
00 0 8 
00 09 
OQIO 
OOli 

0013 

0014 


SCNREQ 


PAGE 


date: 01/27/99 


V- 

V- 

>/■ 

«■ 

¥ 

* 


NAM SCNREQ DECK-ID Nil MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR SEARCHES CORE FOR THE (PARTIAL) 

FIELD AS SPECIFIED IN THE REQUEST. 

THE REQUEST HAS FOLLOWING FORMAT. 

SCN, START CORE, END CORE, NUMBER, MASK , INCREMENT ( CR) 


SUMMARY-ilfc^’^->^-»’f^ 
N1100U02 
NllG 0 00 3 
Nllu 0 0 0 4 
NllOG GO 5 
NilO 0 0 0 6 
N11Q0007 
N1100Q08 
N1100009 
NliO 0 010 
NllO 0011 




ENTRY NAME 

ENT SCNREQ 


Nllii C 013 
NllO 0014 


0016 

0017 

0018 
0019 


EXT CHRSFG 
EXT OFF 
EXT HANDLE 


NllO 0016 
NllQ 0017 
NilO 0018 
NllO 0 019 


O 

O 

o 

o 

C) 

o 


o 

o 

o 

o 


0021 
00 2 2 


00 2 3 

0024 

0025 


00 2 6 


* 


0 0F4 
GOEA 
0 0 02 
00 12 
0 0 33 
0 0 43 
0 0 44 
0 0 22 
0023 
0 0 27 
00 2C 
0 02F 
0 0 2A 
0 0 26 
GO 45 
0 0 04 
00 03 
0 0 24 
0 0 46 


*EQU' TABLE N1100j21 

EQU AMONI ($F4) , A D ISP ( $E A ) , LPMS K ( 2 ) ,NZER0t$12) ,ZROBIT ($33) NllO 0 022 

EQU FIVE ($43 ) ,SIX ($44) , ZERO ($22) , ON EBIT ($23 ) ,SIXTEN ($27 ) NllQ 0 023 


EQU C0MMA($2C),SLASH($2F),ASTRIC($2A) N1100Q24 

EQU EIGHT ($ 26) ,NINE ($45 ) , THREE { 4) ,ONE ( 3 ) , TWO ( $24) Nilj0025 


EQU TEN($46) 


NllO 0 02 6 


O 

o 

o 

o 

o 


o 

o 


0028 
0029 
00 3 0 

0031 

0032 
0 0 3 3 
003 4 


0 0 01 
0 0 02 
0 0 03 
00 04 
0 0 05 
0 0 06 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


BHAN (1) 
MSG (2) 
S0MM0R(31 
I0ERR(4) 
LISTLU( 5) 
COMOLU (6 ) 


PARAMETER LOCATION (OFFSET FROM BASE) 


"HANDLE* 

"MSG" ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 
LIST OUTPUT — ■ 
■•COMOLU" 


'LISTLU' 


NllO 0 028 
Nli00029 
NilO 0 030 
NllO 0 031 
NllO 0032 
NilQ0033 
NllO 0 0 3 4 


o 

o 


o 


o 




SCNREQ 


PAGE 2 

date: 01/27/99 


003 5 


0 0 0 7 


EQU 

NEWMLU( 7} 

"NEWHLU" NEW MM LU 

NllDC 035 

0036 


0 0 08 


EQU 

PROGl (8 ) 

•■PROGl" 

NllOQ 03b 

0037 


0 0 09 


EQU 

PR0G2 (9 ) 

"PR0G2** 

N 110 0 03 7 

0038 


00 OA 


EQU 

BITFLGf 10) 

"OITFLG" 

N110Q038 

0039 


00 OB 


EQU 

8UFCNT (11) 

"BUFCNT" 

N lie 0 039 

00!+0 


0 OQC 


EQU 

FIELD (12) 

"FIELD" 

NliO 0 040 

0041 


0010 


EQU 

SLA3HF ( 16) 

"SLASHF" 

N1100041 

0D42 


00 11 


EQU 

BUFENTC 17) 

"BUFENT" 

NllD 0 042 

0043 


0 0 12 


EQU 

BUFFER (18) 

"BUFFER" 

NllGO 043 

0045 





VARIABLE EQUS 

N1100u45 

00 46 


00 07 


EQU 

CHRSLV( 7) 

LEVEL OF THIS PROGRAM 


0043 



V- 


EQUS 

FOR LOGICAL UNITS 

N1100043 

00 49 


08FC 


EQU 

C0M0UT($8FC) 

TYPE OUTPUT LOGICAL UNIT 

N 110 0 0 49 

0050 


08FD 


EQU 

CONLU (S8FD ) 

INPUT COMMENT LOGICAL UNIT 

NilDOQSG 

0051 


D8C2 


EQU 

MASSLU( S8C2) 

HASS MEMORY LOGICAL UNIT 

N1100Q51 

0052 


1000 


EQU 

ASMOD ($100 0 ) 

ASCII MODE OUTPUT 

NllO 0052 

0054 







N113 0 05 4 

0055 





!(■ 'f- tt- ^ 

PROGRAM START 

N110a055 

0056 







NllO 0 0 p6 

0058 

POOOO 

685B 

SCNREa 

STA» 

BASE 

SAVE parameter BUFFER ADDRESS 

N11D0058 

0059 

POOOl 

60FF 


STA- 

I 


Nile 0 0 59 

006 0 

PQ002 

Cl 01 


LDA- 

8HAN,I 

GET "HANDLE" ADDRESS 

NllO 0060 

0061 

POOC3 

6859 


STA* 

EXTRA N 


NllG 0 061 

0062 

PG004 

C102 


LDA- 

MSG, I 

FETCH "MSG" ADDRESS 

NllQ 0 062 

0063 

P00 05 

6858 


STA^ 

EXTMSG 


N lib 0 0 63 

0064 

P00Q6 

C105 


LOA- 

LISTLU,! 

GET LIST LOGICAL UNIT 

NllQa064 

0065 

P000 7 

80 43 


ADD» 

MODE 

+ MODE (ASCII) CODE 

N1100065 

0066 

P00 08 

683E 


STA^ 

OTLU 


NllO 0 066 

0067 

P0009 

0A05 


ENA 

5 

SET INDEX TO GET 5 FIELDS 

N11Q0067 

0068 

POOOA 

6854 


STA» 

SCNFLD 


N11Q 0 068 

0069 

POOOR 

0 8 44 


CLR 

A 

^ RESET HEADING FLAG 

Nllj 0 069 

007 0 

POOGC 

68 53 


STA^ 

SCNHDG 


NllO 0 07Q 

0071 

POOOO 

0004 

SCNOQl 

ENQ 

4 

SET TO GET 4 CHAR. FIELD 

N1100071 

0072 

PQOOE 

OA 02 


ENA 

2 


NllQ 0072 

007 3 

POOOF 

5C4D 


RTJ» 

(EXTHAN ) 

GET FIELD 

NllO 0 07 3 

00 7 4 

PflClD 

CIOC 


LDA- 

FIELD, I 

IS CONTROL CHAR.= COMMA, 

N1100074 

007 5 

PGOll 

0 107 


SAZ 

SCNQQ2-^-l 

$FF CR NONE 

N1100075 

0076 

P0D12 

90 OA 


SUB- 

LPMSK + 8 


N1100076 

0077 

P0013 

0105 


SAZ 

SCN002-^-l 

SKIP YES 

NllO 0077 

0078 

P0014 

80 OA 


ADO- 

LPMSK+8 


NllQ 0 078 

0079 

P 0 C 1 5 

0903 


INA 

-COMMA 


NliaCQ79 

0080 

P0016 

0102 


SAZ 

SCND02-+-1 

SKIP YES 

NllOO 080 

003 1 

P0017 

0CG4 

SCNG12 

ENQ 

4 

OUTPUT FORMAT INCORRECT MSG. 

NllGOOBl 

QQ82 

P0018 

1C45 


JMP^ 

(EXTMSG) 

AND EXIT PROCESSOR 

N11QG082 

00 33 

P0019 

0AC3 

SCN002 

ENA 

3 

CONVERT TO HEX 

- + MSOS4.Q'^+N110 0 08 3 


SCNREQ 


PAGE 


3 


date: 01/27/99 


o 

o 

o 

o 



o 



o 

o 

o 


0084 POQIA 5C42 

0085 PflOlB 0000 

0086 POOIC C8FE 

0087 POOID E841 

0088 POOIE 6A4B 

0089 POOIF ODFE 

0090 P002Q 483E 

0091 P0021 Cl 41 

0092 P0022 18EA 

0093 P0023 C847 

0094 P002<+ 0112 

0095 PQ025 OAGl 
0095 P0026 6844 

0097 P0027 C8h4 

0098 P0028 0112 

0099 P0Q29 0804 

0100 P002A 6841 
QiCl P002B CC43 

0102 P002C B840 

0103 P0Q2D A83E 

0104 P002E 0111 

0105 P002F 180F 
OID 6 P0030 C83E 

0107 P0031 8839 

0108 P0032 583C 

0109 

0110 PC033 C83A 

0111 P0034 0123 

0112 P0035 C839 

0113 P0Q36 0131 

0114 

0115 P0037 18F3 

0116 P0038 C835 

0117 P0039 9335 

0118 P003A 0131 

0119 P0Q3B 18EF 

0120 P003C DC07 

0121 P003D 1C20 

0122 P0Q3E C821 

0123 P003F 0118 

0124 P0040 OAOl 

0125 P0041 681E 

0126 PQQ42 54F4 

0127 P0043 0507 

0128 P0Q44 0008 

0129 P0O45 0000 

0130 P0046 GOOD 

0131 P0047 OOOA 

0132 PC048 COID 

0133 P0049 14EA 

0134 P0G4A 1000 

0135 P004B C823 

0136 P004C 6804 


RTJ^ (EXTHAN) 
SCNVAL 0 0 

LDA^ SCNVAL 
LDQ» SCNFLO 

SCN0Q4 STA-^ 5CNINC-l,a 
INQ -1 
STQ^ SCNFLD 
SQZ SCNQ05-'«‘-l 
JMP^ SCNOOl 
SCN005 LDA* SCNINC 
SAN 2 
ENA 1 
STA^ SCNINC 
LOA^ SCNHSK 
SAN SCNOll 
SET A 
STA^ SCNHSK 
SCNOll LDA* (SCNSTR) • 

EOR^ SCNNUM 
ANO^ SCNHSK 
SAN SCN006 
JHP*^ SCN008 
SCN0G6 LDA^ SCNSTR 
ADD^^ SCNINC 
STA^ SCNSTR 

LOA"^ SCNENO 
SAP SCNQ99 
LDA^ SCNSTR 
SAM SCN099 

JMP» SCNOll 
SCN099 LDA* SCNEND 
SUB» SCNSTR 
SAM SCN007-^-l 
JMP^ SCNOll 
SCN007 ENQ 7 

JMP» (EXTHSG) 
SCNG08 LDA^ SCNHOG 

SAN SCN0Q9-^-l 
ENA 1 

STA^ SCNHDG 
RTJ- (AMONI) 

SCNMSP ADC $500+CHRSLV 

ADC SCN009-SCMHSP 

NUM 0 

OTLU NUM 0 

NUM $A 

ADC SCNMSG- SCNMSP 

JHP- (AOISP) 

MODE ADC ASHOD 

SCN0G9 LDA+ SCNSTR 

STA"^ SCNlll 


STORE FIELD 


DECREMENT FIELD INDEX 
SKIP IF INDEX =0 (NO MORE FIELDS) 


MINIMUM INCREMENT IS ONE 


NO MASK GIVEN MEANS MASK OF SFFFF 

GET WORD FROM CORE 

COMPARE WITH DESIRED NUMBER 

AND MASK RESULT 

SKIP NOT FOUND 

FOUND 

INCREMENT CORE STORAGE 


1 CARD DELETED 
END ADDR IN H B 

IS BEG ADOR IN H. B. TOO 
YES BOTH IN H B OK 
3 CARDS DELETED 
NOT FINISHED 
IS SEARCH FINISHED 

SKIP YES 

GO CHECK NEXT WORD 
OUTPUT SEARCH FINISHED 
MESSAGE AND EXIT PROCESSOR 
IS HEADING FLAG SET 
SKIP YES 

OTHERWISE, SET HEADING FLAG 
AND OUTPUT HEADING TO LISTLU 


LOGICAL UNIT (TO BO FILLED) 


OUTPUT ONE LINE CONTAINING 
LOCATION AND CONTENTS OF 



O 


N110U084 
N1100085 
NllOu 086 
N1100u87 
Nil 0 0 06 8 
N1100089 
N113009C 
NllDQ 091 
NllOO 092 
->^MS0S4. 0*^^N1100 095 
^^MS0S4. 0^»N1100094 
^^MSOS4.Q^’"N1100 095 
'‘^MSOS4.0'f^‘NllG 0 096 
»^MSOS4.0»^NllG0G97 
«^^MSOS4.0^-N1100 098 
^^MSOSA.O^'^NllOO 099 
»^MSOS4.0’?^N110Q100 
NllOOlOl 
N1100102 
N11D0103 
»^MSOS4.Q^’^N1100104 
»^MSOS4.0'^^N1100105 
NllO 0106 
NllJ 0107 
N1100108 
N110Q109 

^^msos4.g’^^-niioo lie 

NllGOlll 
»^^MSOS4.0^^Nil00112 
’^«^HSOS4.G'^^N1100113 
Nllj0114 
»^MSOS4,0^*N110Q11 5 
^^MSOS4.0^^N1100116 
^»MSOS4.0’^'^N1100117 
N1100118 
N110Q119 
N11CU12C 


69^1567 

69^1567 

69^1567 

69^1567 

69^1567 

69^1567 

69-1567 

69^1567 


N1100121 
N1130122 
N110Q123 
NllO 0124 
N1100125 
N11Q0126 
Nile 0127 
N11C0123 
NllJ 0129 
NllO 013G 
N110G131 
N11G0132 
N11G0133 


NllOO 134 
NllO 013 5 


NllQ 0136 


o 

o 

o 

■w* 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

r-. 


SCNRFQ 


PAGE 


4 


date: Ql/27/99 



Niiaoi:i7 
N11D0138 
Nilj 0139 
NllO 0140 
N110 0141 

NllD 0142 
N1100143 
N110014H 
Nlia 0145 
NllO 0146 
N1100147 
Nli00148 
N11Q0149 
N11G015G 

N11Q0152 
N113G153 
NllO 0154 
N1100155 
NllO 015 6 
N1100157 
N110Q158 
69^1567 ■ N1100159 
69^156? N113O160 


69^1567 N1100151 

NllQQ 162 
NllOO 163 
Nil j OlbH 
NllO 0 165 
NllG 0166 
N1100167 
N1100168 
NllJ 0169 
NllQO 170 


N1100172 
N1100173 
N1100174 
N110017 5 
N1130176 
N110Q177 


O 

O 

O 

o 

o 

o 

o 

n 

O 

o 

o 

o 

o 


o 


0 


SCNREQ 


3AGE 5 date; 01/27/99 

o 

o 

E a u I V 

A L E M C 

E S 



o 

DEF, LINE 

NAME 

VALUE 


referenced at LINE NUMBER 

1 

V.- 


00 0 0 

I 

DOFF 

(000255) 

0 0 59 



0 022 

AMONI 

00F4 

(0 DQ244) 

0126 

■ o 

o 

0 022 

ADISP 

OOEA 

(000234) 

0 133 

C022 

LPHSK 

000 2 

(0 Q0Q02) 

0G76» 0078 



0 0 22 

NZERO 

0012 

( 000018) 




0 Q 22 

ZROBIT 

00 33 

( 0 00G51) 


. r-~ 

r'\ 

0 023 

FIVE 

0 0 43 

( 000067) 



•w 

0 0 23 

SIX 

0044 

(000068) 

0150 



0 0 23 

ZERO 

0022 

(000034) 



0 023 

ONEBIT 

0023 

(000035) 


r"'' 


00 23 

SIXTEN 

0 027 

(000039) 

0 0 79 



0 0 24 

COMMA 

002C 

(Q00D44) 



0 0 2 4 

SLASH 

002F 

( 0Q0Qt7) 




0 024 

ASTRIC 

0Q2A 

1000042) 


o 


0 0 2 5 

EIGHT 

0026 

(000038) 


■u 

0 02 5 

NINE 

0045 

( 000 069) 




0 02 5 

THREE 

00 0 4 

( 000004) 




0025 

ONE 

0003 

ID 00003) 



Q 

0li25 

TWO 

0024 

(00G036) 



0 026 

TEN 

0046 

( 000070) 

0060, 0148 



0 029 

BHAN 

0 001 

( ODOOOl) 



0 030 

HS6 

00 0 2 

(000002) 

0 0 62 



0 0 31 

SCMMOR 

00 0 3 

(000003) 




00 32 

10 ERR 

00 0 4 

(GOO 00 4) 

0 0 64 



0 033 

LISTLU 

00 0 5 

(000005) 



0 034 

COMOLU 

000 6 

( Q0Q006) 




0 0 3 5 

NEWMLU 

00 07 

(000007) 




0 0 36 

PROGl 

00 08 

(000Q08) 




0057 

PR0G2 

0009 

(000009) 




0 0 38 

3ITFLG 

000 A 

(000010) 


• o 


0 0 39 

BUFCNT 

00 0 8 

(000011) 

0 074 


0 040 

FIELD 

OOOC 

(000012) 



0 041 

SLASHF 

0010 

( 0Q0016) 




OGi-2 

BUFEMT 

0011 

(000017) 


o 


0043 

BUFFER 

0012 

( 000018) 

0127 

i. J 

0 046 

CHRSLV 

000 7 

(Q000Q7) 



0 0 49 

COMOUT 

08FC 

(002300) 




0 05 0 

COHLU 

08FD 

(002301) 


' o 


(■~'l 


( 'I 

o 


o 


o 


SCNREQ 


PAGE 


6 


date: 01/27/99 


0051 MASSLU 08C2 (OD2242) 

0 052 ASMOO 10 00 ( 004096’) 


0134 


SCNREQ 


PAGE 


7 


DATE; 01/27/99 


S y H B 0 L S 


OEF.LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

: O 

0014 

SCNREQ 

000 0 

0014 



0071 

SCNOOl 

0000 

0 0 92 




0 0 81 

SCN012 

0017 




V.- 

00 83 

SCN0Q2 

0019 

0 075 , 

0 077, 

0080 

0 0 85 

SGNVAL 

OOIB 

0 0 86 




0088 

SCN0Q4 

OOIE 





0093 

SCN005 

0023 

0 091 



'■ c 

0101 

SCNOll 

002B 

0093, 

0 115, 

0119 

0106 

SCNG06 

0030 

0104, 

0143 



0116 

scNogg 

0038 

0111, 

0113 



0 120 

SCNCO 7 

0 0 3C 

0118 




0122 

SCN008 

003E 

0105 




0127 

SCNMSP 

0043 

0128, 

0132 



0 13 0 

OTLU 

0046 

0 066 




0134 

MODE 

0 0 4A 

0 0 65 




0135 

SCM009 

004B 

0123, 

0128 



0 140 

SCNlll 

0050 

0136 




0146 

TOOFF 

Q055 

0142 




0153 

BASE 

0 05B 

0 0 58 , 

014 5 


o 

0154 

EXTHAN 

005C 

0 061 , 

0 073, 

0084, 0139 

015 5 

EXT MSG 

0050 

0 063 , 

0 082 , 

0121 


0157 

SCNFLD 

005E 

0 063, 

0087, 

0090 


0158 

SCNHOG 

Q05F 

0 0 70 , 

0122, 

0125 


0159 

SCNMSG 

0060 

0132 



v,-' 

0163 

SCNINC 

006A 

0 0 88 , 

0093, 

0096, 0107 


0164 

SCNMSK 

0068 

0 097 , 

0 100 , 

0103 


0165 

SCNNUM 

006C 

0 102 



: O 

0166 

SCNEND 

006D 

0 110 , 

0116 


0167 

SCNSTR 

006E 

0101, 

010 6, 

0108, 0112, 0117, 0135 


0168 

SCNCEL 

006F 





0169 

OOT 

0070 

3146, 

0 147 


O 

0 173 

3 A 0 3 

00 01 

0 174 



0174 

SP03 

0002 

0175 




0175 

DBG 3 

COCO 

0176 





o 


o 

c 


o 


SCNREQ 


PAGE 


S 


date; 01/27/99 


V..-' 

O 


o 

E X T E R 

N A L S 


u 

DEF. LINE 

NAME 

VALUE 


0017 

CHRSFG 

0052 


0 018 

OFF 

0071 

o 

0019 

HANDLE 

0 070 

o 









REFERENCED AT LINE NUMBER 

0141 

0170 

0169 


! 1 



o 


^ t 

w 
■ — ' 
O 
CJ) 


o 

o 

o 

o 

o 

Q 

o 

C) 

o 

T'; 

o 

o 

o 

o’ 

o 


C- 


SCNREQ 


PAGE 


9 


date: 01/27/99 



A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



o 

AOISP 

0 022 

AHONI 

0 022 

ASMOD 

0 052 

ASTRIC 

002 4 

BASE 

0153 


BUFFER 

0D43 

CHRSFG 

0017 

CHRSLV 

0 0 46 

CCMLU 

005 0 

COMMA 

QQ2i* 


EXTHAN 

0154 

EXTMSG 

0155 

FIELD 

00 40 

FIVE 

0023 

HANDLE 

0019 

o 

MASSLU 

0 051 

HODE 

0134 

MSG 

0 0 30 

NEWMLU 

0035 

NINE 

002 5 


DOT 

0159 

OTLU 

0 130 

PROGl 

0 0 36 

PR0G2 

0 03 7 

SAD3 

0173 


SCND06 

0106 

SCN007 

0 120 

SCN008 

0122 

SCN009 

0135 

SGNOll 

010 1 


S3 N END 

0166 

SCNFLD 

0157 

SCNHDG 

0158 

SCNINC 

0163 

SCNMSG 

0159 


SCNSTR 

0167 

SCNVAL 

0085 

SIX 

0 0 23 

SIXTEN 

0023 

SLASH 

002 4 


THREE 

0025 

TOOFF 

0145 

TWO 

0 0 25 

ZERO 

0023 

ZROBIT 

0022 


o 


o 

o 

o 

o 

o 

Q 

o 

o 

o 


o 


BHAN 

0029 

BITFLG 

0038 

BUFCNT 

G039 

BUFEMT 

0 0 42 

o 

COMOLU 

0 03 4 

COMOUT 

0049 

DBO 3 

0175 

EIGHT 

0 025 


I 

0000 

lOERR 

0032 

LISTLU 

0Q3 3 

LPMSK 

0022 


NZERO 

0022 

OFF 

0018 

ONE 

0 025 

ONEBIT 

0023 


SCNO 01 

0071 

SCN002 

00 83 

SCN004 

0 088 

SCN005 

G093 


SCNO 12 

0081 

SCN099 

0116 

SCNlll 

0140 

SCNCEL 

0168 


SCNMSK 

0164 

SCNMSP 

0127 

SCNNUM 

016 5 

SCNREQ 

0014 


SLASHF 

0041 

SOHMOR 

00 3 1 

SPO 3 

0174 

TEN 

G 026 



o 

r> 

o 

o 

o 

o 

o 

o 

o 

o 

o 


date: 01/27/99 


000 1 
00 0 2 
0003 
000 4 
00 0 5 
00 0 5 
00 07 
0008 

0009 

0010 
0011 
0012 


0014 

0015 


SETREQ 


PAGE 1 


* 

* 

¥ 

» 

* 


NAM SETREQ DECK-ID Nl2 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR FILLS THE SPECIFIED CORE WITH 
THE SPECIFIED VALUE. 

THE REQUEST HAS THE FOLLOWING FORMAT. 

SET, START CORE, END CORE, PATTERN (CR ) 


♦ 


ENTRY NAME 

ENT SETREQ 


SUMHARY-110N12G0 JOl 
N120 0 0 0 2 
N120 0 00 3 
N120 u OOh 
N 12Q00Q5 
N12GGu06 
N12Q QOQ 7 
N 120 0 008 
N12 0 0 00 9 
N1230010 
N120Gjll 
N12ii 0Q12 

N123G914 

N12Q0G15 


0017 

0018 


0019 


0020 

0021 


0022 


0 0F4 
Q 0 EA 
00 02 
0012 
0033 
0 0 43 
0 0 44 
0 0 22 
0 023 
0 0 27 
00 2C 
0 0 2F 
0 0 2A 
0 026 
0 0 45 
OU 04 
0 0 03 
0024 
0 0 46 


'EQU' TABLE N1200ul7 

EQU AMONI ($F4) ,ADISP ($ E A) , LPMSK I 2 ) , NZ ERO ( $1 2 ) ,ZR08IT{$33) N1200018 

EQU FIVE ($43), SIX ($44), ZERO ($2 2 ) , ON EBIT { $ 23 ) ,SIXTEN($27) N12CQQ19 

EQU COMMA ($20 ,SLASH(S2F) ,ASTRIC ($2A) N12DG02G 

EQU EIGHT($26) ,NINEC$45),THREE(4) ,0NE(3) ,TW0($24) Nl2D0321 

EQU TEN($46) ^^MS0S4.Q *=»-Ni2C 0 022 


0024 

0025 

0026 
0027 
00 2 8 
00 2 9 
003 0 

0031 

0032 
0 0 3 3 
0 0 3 4 


0 0 01 
0 0 02 
00 03 
0 0 04 
0 0 05 
0 0 06 
00 07 
00 08 
0 0 09 
00 OA 


EQU HANOLE(l) 
EQU MSG (2) 

EQU S0MM0R(3) 
EQU I DERR (4) 
EQU LISTLU(51 
EQU COMOLUto) 
EQU NEWMLU(7) 
EQU PROGK3) 
EQU PROG2(9> 
EQU BITFLGCIO) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE' 

"MSG" ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 

LIST OUTPUT • 

"COMOLU" 

“NEWMLU" NEW 

"PROGl" 

"PR0G2" 

"BITFLG" 


LISTLU' 
MM LU 


N12GQ 024 
N12CQ 025 
N1Z00026 
N123Q 027 
N1200Q28 
N1200029 
N12u 0 030 
N120Q031 
N12G G 332 
N1200 033 
N120G034 


01/27/99 


SETREQ. PAGE 2 


003 5 

0 OOB 


EQU 

BUFCNTtll) 

0 0 3 6 

OGOC 


EQU 

FIELD (12) 

0037 

0010 


EQU 

SLASHF (16) 

003 8 

0011 


EQU 

BUFEMT (17) 

0039 

0012 


EQU 

BUFFER (18) 

0041 





0 042 




if. 

0043 






date: 


"BUFCNT" 

••FIELD" 

••SLASHF^^ 

••BUFEMT" 

••BUFFER*^ 


PROGRAM START 


N12D0035 
N123 0 03o 
N123Q 037 
N1200038 
N1230039 


N1200041 

Ni2QGQH2 

N1200043 


00 45 

POOOG 

682E 

SETREQ 

STA^ 

BASE 

0046 

POOOl 

60FF 


STA- 

I 

0047 

P0002 

ClOl 


LOA- 

HANDLE, I 

0048 

P0 003 

682C 


STA'^ 

EXTHAN 

0 049 

POOO 4 

C102 


LDA- 

MSG, I 

00 50 

P00 05 

682B 


STA^ 

EXTMSG 

005 1 

PO 006 

OA03 


ENA 

3 

005 2 

P0007 

632A 


STA» 

SETFLD 

0053 

P0 0 08 

0004 

SETOOl 

ENQ 

4 

0054 

P0D09 

OA 02 


ENA 

2 

0055 

POOuA 

5C25 


RT 

(EXTHAN) 

00 56 

POOOB 

CIOC 


LDA- 

FIELD, I 

005 7 

POODC 

0107 


SAZ 

SET002-^-l 

0058 

PQGOO 

9G0A 


SUB- 

LPMSK+8 

0059 

POQOE 

01 05 


SAZ 

SETOO 2-^-1 

0050 

POO OF 

8 0GA 


ADD- 

LP.MSK+8 

0061 

POOIQ 

0903 


INA 

-COMMA 

0062 

POOH 

0102 


SAZ 

SETOO 2-^-1 

0063 

P0C12 

DC04 

SETOIA 

ENQ 

4 

0064 

P0013 

ICID 


JMP^ 

(EXTMSG) 

00 65 

P0Q14 

0 A03 

SET002 

ENA 

3 

0066 

P0Q15 

5C1A 


RTJ» 

(EXTHAN ) 

0067 

PC016 

0 0 00 

SETVAL 

0 

0 

00 5 8 

P0017 

C8FE 


LDA-^ 

SETVAL 

0069 

P0D18 

E8 19 


LOQ^ 

SETFLD 

0070 

P0019 

6A18 


STA» 

SETPAT-1,Q 

0071 

POOIA 

ODFE 


INQ 

-1 

0072 

poaiB 

4816 


STQ^ 

SETFLD 

00 73 

POOIC 

01 41 


SQZ 

SET 003-^-! 

007 4 

POOID 

18EA 


JHP’^ 

SETOOl 

0075 

POQIE 

C816 

SET003 

LDA^ 

SETSTR 

0076 

POOIF 

E813 

SETQ3B 

LOQ^ 

SETPAT 

0077 

P0020 

4C14 

SETQO 4 

STQ^ 

(SETSTR ) 

0078 

P0021 

D813 


RAO^ 

SETSTR 

0079 
00 8 0 

P0022 

C811 

¥ 

LDA^ 

SETENO 

008 1 
0082 

P0023 

0123 

¥ 

SAP 

SETQ99 

008 3 

P0024 

C810 


LOA^ 

SETSTR 

00 8 4 

P0025 

0131 


SAM 

SET099 

00 85 

P0026 

18F9 


JMP» 

SET004 


SAVE PARAMETER BUFFER ADDRESS 
GET "HANDLE" ROUTINE ADDRESS 
FETCH "HSG^^ ADDRESS 
INITIALIZE TO GET 3 FIELDS 
SET TO GET 4 CHAR FIELD 
GET FIELD 

IS CONTROL CHAR.= COMMA, 

$FF OR NONE 

SKIP YES 

SKIP YES 
PRINT FORMAT 

INCORRECT MESSAGE AND, EXIT PROCES 
CONVERT TO HEX 

SAVE FIELD 

decrement FIELD NO. 

SKIP IF ALL FIELDS OBTAINED 

CHECK FOR LEGAL ADD. 

STORE PATTERN INTO CORE 

1 CARD DELETED 
1 CARD DELETED 


N1200045 
N120 0 04b 
N1200047 
N12G 0 048 
N12U0049 
N1200050 
N1200051 
N1200052 
Ni20G 053 
N12Q 0 054 
N120 0055 
N1200056 
N120G057 
N1280058 
N1200059 
N12DG 050 
N1200061 
N1200062 
N120 0 063 
OR N1200054 

N12u 0 06 5 
N12Q0 Q6d 
N1200067 
N12D0068 
N120 0069 
N12Q 0 070 
N120QJ71 
NI200072 
N120QC73 
N1200074 
N12Q0075 
N1200076 
N12QCQ77 
N1200076 
N12 J u 079 
^^■^MS0S4. 0^»N12GG080 
N129 0 081 
»^MSOS4.0*’^N12C0Q82 
N120 0 083 
N12G 0064 
^^HSOS4.Q^»N120Q 08 5 


00 8 6 

008 7 
003 8 
0089 
00 9 0 

009 1 
0092 

009 4 
0095 

009 6 
00 97 

0098 

0099 

010 0 
0101 
0102 
0103 
010 4 


0106 
0107 
010 8 

0109 

0110 
0111 


PGH = 


SETREQ 


PAGE 


date: 01/27/99 


PQ027 

C80C 

SET 099 

LDA^ 

SETEMO 

P0 028 

98 OC 


SUB^ 

SETSTR 

P0 029 

0131 


SAM 

SETDO 5-^-1 

P002A 

18F5 


JMP^ 

SET004 

P0 02B 

E3 03 

SFTOO 5 

LDQ^ 

BASE 

POO 2C 

E203 


LOQ- 

SOMMOR, a 

P002D 

1622 


JMP- 

(ZERO) ,Q 

P002E 

00 00 

V- 

BASE 

NUM 

0 

P0Q2F 

0 0 00 

EXTHAN 

NUM 

0 

P0030 

00 00 

EXT MSG 

V- 

■¥■ 

Jf. 

NUM 0 
STORAGE 

P0Q31 

0 00 0 

SETFLD 

0 

0 

P0032 

0 0 00 

SET PAT 

0 

0 

P0033 

0000 

SETEND 

0 

0 

P0034 

0000 

SETSTR 

0 

0 


SKIP IF DONE 

EXIT (TO "SOMMOR") 
EXIT TO "SOHMOR" 


NO. OF REMAINING FIELD TO GET 
PATTERN USED TO FILL CORE 
LAST CORE LOCATION TO RE FILLED 
FIRST CORE LOCATION TO BE FILLED 


»^MS0S4. 0^^N12Q0086 
N1200 087 
N12u 0 088 
N123 0 089 
N1200090 
N1200091 
N1200092 

N120 0 094 
N123 0 095 
N120 0 096 
N1200097 
N1200 098 
N12G 0099 
N120 0 10 0 
N120 0101 
N1200102 
N12001Q3 
NICOGIO*. 



OQOa 

P 

EQU 


0 0 01 

P 

EQU 


0 0 60 

P 

EQU 

PQ 035 

0 0 28 


ess 

END 

0060 

( 

96) 

COM = 


SAQ4(^/96) 
SP04( SA04+1) 
DBQ4(SP04’^96) 
(DB04-=^ ) 


0 ) 


DAT = 0000 ( 


0 ) 


N 12 00 10 6 
N1200107 
N120 0 108 
N120 0109 
N12Q 0 110 
N120G111 


DATE5 01/27/99 


o 


c... 

SETREQ PAGE 4 

o 


c 

E Q U I V 

A L £ N 

C E S 



O 

o 

DEE. LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 

O 


0 000 

I 

OOFF 

{ 000255) 

0 046 



0013 

AHONI 

00F4 

(000244) 




0018 

ADISP 

OOEA 

(Q00234) 



0 018 

LPMSK 

DGQ2 

(000002) 

0058, 0060 



0018 

NZEPO 

0012 

(000018) 




0018 

ZPOBIT 

00 33 

(000051) 




0 019 

FIVE 

0043 

(000067) 



•w' 

0019 

SIX 

0 0 4 4 

(Q00068) 




0019 

ZERO 

0022 

(000034) 

0 092 



0019 

0NE8IT 

0023 

(000035) 


D 


0019 

SIXTEN 

0027 

(000039) 


'w 

0020 

COMMA 

002C 

(000044) 

0 061 



00 20 

SLASH 

002F 

(000047) 




0 0 20 

ASTRIC 

002 A 

(000042) 




0021 

EIGHT 

0026 

( 000038) 


n 


0021 

NINE 

0045 

{ G0Q069) 




0 021 

THREE 

00 0 4 

(0 00004) 




0 021 

ONE 

000 3 

(000003) 



o 

0 021 

TWO 

00 2 4 

( Q00036) 


)■ 

0022 

TEN 

0046 

(900070) 

0 0 47 



0 02 5 

handle 

0 001 

(000001) 



0 02 6 

MSG 

00 02 

(000002) 

0 0 49 



0 027 

SOHHOR 

09 0 3 

(000003) 

0 091 


0 028 

10 ERR 

00 04 

( 000004) 


, 


0 0 29 

LISTLU 

000 5 

(000005) 




0Q3G 

COMOLU 

0 00 6 

(000006) 



o 

0 031 

NEWMLU 

00 0 7 

( 0D0Q07) 


' Q 

0032 

PROGl 

900 8 

(000008) 




0 033 

PROG2 

00 09 

(000009) 




0 034 

RITFLG 

000 A 

(000010) 



u 

003 5 

8UFCNT 

OQOB 

(000011) 


0 036 

FIELD 

GOOD 

(000012) 

0 056 



0 037 

SLASHF 

0010 

(000016) 




0 038 

8UFEMT 

0011 

( 00 0 01 7) 



C) 

0 039 

BUFFER 

0012 

( QG0018) 


■ O 


O o 


SFTREQ 


PAGE 


date: 


SYMBOLS 


DEF.LINE 

NAME 

ADDRESS 

0015 

SETREQ 

QGOO 

0053 

SETGOl 

000 8 

0 063 

SETOIA 

Q012 

00 65 

SET002 

0014 

0 06 7 

SETVAL 

0016 

0 07 5 

SET003 

oaiE 

00 76 

SET030 

00 IF 

0 0 77 

SET004 

0020 

0 0 8 6 

SET 099 

0027 

0 090 

SET 005 

002B 

0 0 9 5 

BASE 

002E 

0096 

EXTHAN 

G02F 

0 097 

EXTMSG 

0030 

ClCl 

3ETFLD 

0031 

0102 

SETPAT 

0032 

0103 

SETEND 

0033 

0104 

SETSTR 

0034 

0107 

SAG4 

0000 

0 108 

SP04 

000 1 

0109 

D804 

0060 


REFERENCED AT LINE NUMBER 

0 015 
0 074 

0057, 0059, 0062 
0 068 
0 073 

0085, 0089 
0082, 008A 
00 88 

0045, 0090 
0048, 0055, 0066 
0050, 0064 
0052, 0069, 0072 
0070, 0076 
0080, 0086 

0075, 0077, 0078, 0083, 
0108 
0 109 
0110 


01/27/99 


0 087 


SETREQ 


PAGE 


6 


DATE: 01/27/99 



SORT 

0 F 

S Y M 8 

0 L S 



ASTRIC 

0 0 20 

BASE 

0095 

BITFLG 

003 4 

EIGHT 

00 21 

EXTHAN 

0096 

EXTMSG 

0097 

LPMSK 

0013 

MSG 

0026 

NEWMLU 

0031 

SA04 

0107 

SET 001 

0 053 

SET002 

0 06 5 

SETENO 

0 103 

SETFLO 

Old 

SETPA T 

0102 

SLASHF 

0 037 

SOMMOR 

0u27 

SPG4 

010 8 


U 

O 

O 

O 

o 

o 


BUFCNT ^ 

0035 

SUFEMT 

0 03 8 

FIELD 

0036 

FIVE 

0019 

NINE 

0021 

NZERO 

0018 

SET003 

007 5 

SETOOh 

0077 

SETREQ 

0015 

. SETSTR 

010-f 

TEN 

0022 

THREE 

002 1 


BUFFER 

QG39 

COMMA 

0 0 2 u 

HANDLE 

0 025 

I 

OQGQ 

ONE 

0021 

ONEBIT 

0019 

SETGG5 

0 09 0 

SETOIA 

0 063 

SETVAL 

0067 

SIX 

0019 

TWO 

0021 

ZERO 

0 019 


o 

o 

o 

o 

r> 

o 

o 

o 

o 
o 
o 
o 
o 
( ) 


00 0 1 

MBCREQ 

PAGE 1 DATE: 01/27/99 

NAH MBCREQ DECK-ID N13 MSOS 5.0 

SUHMARY-110N130Q001 

0002 


MASS STORAGE OPERATING SYSTEM VERSION 5.0 

N13DG 002 

0003 


SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

N 13 0 0 0 0 3 

00 0 4 


COPYRIGHT CONTROL DATA CORPORATION 1976 

N13QUQ04 

00 0 5 



N1330005 

000 6 



N130 0 006 

00 0 7 


THIS PROCESSOR MOVES A BLOCK OF CORE TO 

N1 30 0 0 0 7 

000 8 


ANOTHER LOCATION IN CORE. 

N130 0 00 8 

00 0 9 


THE REQUEST HAS THE FOLLOWING FORMAT 

N130 0 0 09 

aolo 

V 

MBC , START CORE, END CORE, NEW LOCATION(CR) 

N130Q010 

0011 

jf. 


N13Q 0011 

0012 

V- 


N130 0 012 

0014 

if. 

ENTRY NAME 

N130 0 014 

0015 


ENT MBCREQ 

N130 0 015 


0017 

0018 

00F4 


EQU 

'EQU' TABLE 

AMONI($F4) ,ADISP{$EA) ,LPMSK(2) ,NZERO ( $12 ) , ZRO El T { $3 3 > 

N1300D17 

N13Q0018 

0019 

0 9 EA 
0 0 02 
0012 
0 0 33 
0 0 43 


EQU 

FIVE($4 3>,SIX ($44) , ZERO ( $22 ) , ON EBIT ($ 23 ) , SIXTEN ($27) 

N130 0019 


0 0 44 
0 0 22 
0 0 23 


0020 

0 0 27 
0 0 2C 
0Q2F 
0 0 2A 


EQU 

COMMA ($20 

fSLASH ($2F) , AS TRIG ($2 A) 

N1390020 

0021 

0 026 
0 0 45 
0 0 04 
0 0 03 
0 0 24 


EQU 

EIGHT($26) 

,NINE ($45), THREE (4) , ONE ( 3 ) , T WO ( $2 4 ) 

N13Q 0 021 


0022 

0 0 46 


EQU 

TEN ($46) 


^^'MSOS4.0»^N1300 022 

0024 




PARAMETER LOCATION (OFFSET FROM BASE) 

N130Q 024 

00 25 

0 0 01 


EQU 

HANDLE! 1) 

"HANDLE" 

N130 0 025 

0026 

0 0 02 


EQU 

MSG (2) 

“MSG" ENTRY 

N1300026 

0027 

CO 03 


EQU 

S0HM0R(3) 

"SOMMOR" ENTRY 

N130 0 027 

0028 

0 0 04 


EQU 

I0ERR(4 ) 

"lOERR" ENTRY 

N130C028 

0029 

00 05 


EQU 

LISTLU (5) 

LIST OUTPUT "LISTLU" 

N13DQQ29 

0030 

0 0 06 


EQU 

COMOLU(6) 

"COMOLU" 

N13G 0 030 

0031 

00 07 


EQU 

NEWMLU (7) 

"NEWMLU" NEW MM LU 

N1330031 

0032 

QO 08 


EQU 

PROGK8 ) 

"PROGl" 

N1300032 

0033 

0 0 09 


EQU 

PR0G2 (9) 

"PR0G2" 

N130a033 

003^ 

DO OA 


EQU 

BITFLG( 10) 

"BITFLG" 

N130 0 034 





MBCRFQ 


page 2 

DATE; 01727/99 




003 5 


00 OB 


EQU 

BUFCNT (11) 

"BUFCNT" 


N13J 0 035 


0036 


00 OC 


EQU 

FIELD (12) 

"FIELD" 


N1300036 

o 

0037 


0010 


EQU 

SLASHFC 16) 

"SLASHF" 


N130U037 

0033 


00 11 


EQU 

BUFEMT (17) 

"BUFEMT" 


Ni3Q 0 038 


0039 


0012 


EQU 

BUFFER{ 18) 

"BUFFER" 


N13a0039 

o 

0040 


OQOC 


EQU 

CONFH U2) 

"CONFH"--PRINT NEW + OLD DATA 

FOR CONFIRM 

N13QOQ40 

0042 








N1300042 


0043 






P'ROGRAM START 


N130 0 G43 

o. 

0044 








N13000+4 


QQ46 

POOOQ 

686E 

M8CREQ 

STA^ 

BASE 

SAVE PARAMETER BUFFER ADDRESS 


N1330046 

o 

0047 

POOCl 

eOFF 


STA- 

I 



■ N13QQ047 

0043 

PC002 

8112 


ADD- 

BUFFER, I 

CALCULATE "BUFFER" ADD. 


Ni30fl048 


0049 

P0 003 

6810 


STA^ 

BUFADO 



N1330049 


0050 

POOC 4 

ClOl 


LDA- 

HANDLE, I 

GET "HANDLE" ROUTINE ADDRESS 


N1300Q50 


0051 

P00 05 

636A 


STA^- 

EXTHAN 



N13u0351 

C052 

P00 06 

C102 


LDA- 

HSG,I 

FETCH "MSG" ADDRESS 


N1300052 


0G53 

PD007 

6869 


STA^ 

EXTMSG 



N1300053 


0055 

POD08 

0 A03 


ENA 

3 

INITIALIZE TO GET 3 FIELDS 


M13u 0 055 


0056 

pooog 

6868 


STA^ 

MBCFLD 



N1300a56 


0057 

PGOGA 

OC 04 

MBCOOl 

ENQ 

4 

SET TO GET 4 CHAR. FIELD 


N13G0057 


0058 

POOOB 

0AQ2 


ENA 

2 



N130 0 058 

o 

0059 

POOOG 

5C63 


RTJ» 

(EXTHAN ) 

GET FIELD 


N13D0059 

006 0 

PflOOO 

CIOC 


LDA- 

FIELD, I 

IS CONTROL CHAR.= COMMA, 


N130006Q 


0061 

P 0 0 0 E 

0107 


SA2 

MBCOO 2-^-1 

$FF OR NONE 


N130a 061 


0062 

POOOF 

900A 


SU8- 

LPMSK+8 . 



N1300062 

o 

0 3 6 3 

POOlO 

0105 


SAZ 

MBCQ02-^-l 

SKIP YES 


N130 0 063 

006 4 

POOll 

80 GA 


ADD- 

LPMSK+8 



N130 0 06H 


0Q65 

P0012 

0903 


INA 

-COMMA 



N1300 065 


00 6 6 

P0013 

0102 


SAZ 

MBCOQ 2- »-l 

SKIP YES 


N130Q065 

o 

00 6 7 

PGQ14 

uG04 

MBCOl A 

ENQ 

4 

PRINT FORMAT 


N133 0 067 

0068 

P0015 

1C5B 


JMP^ 

(EXIMSG ) 

INCORRECT MSG. AND EXIT PROCESSOR 

N13D0068 


0059 

P0016 

0A03 

MBCGO 2 

ENA 

3 

CONVERT TO HEX 


Ni33 0 069 


0070 

P0017 

5C58 


RTJ» 

(EXTHAN ) 



N13a QQ70 


- 0071 

P0Q18 

00 00 

MBCVAL 

0 

0 



N1300 071 


0072 

P0019 

C8FE 


LDA^ 

MBCVAL 



N1300072 


0073 

PODIA 

E857 


LOQ^ 

M8CFL0 



N 150 0 0 7 3 


0074 

POOIB 

6A56 


STA* 

M8CNEW-1 ,Q 



N13G0074 

o 

0075 

POOIC 

DOPE 


INQ 

-1 

DECREMENT FIELD NO. 


N 130 0 G 75 

0076 

POOlO 

4854 


STQ^ 

MBCFLD 



N1300076 


0077 

PGOIE 

01 42 


SQZ 

M8C003-+-1 

SKIP IF ALL FIELDS OBTAINED 


N130QQ77 


0078 

PDOIF 

18EA 


JMP’^ 

MBCOOl 



N13QQQ78 

o 

00 79 

P0020 

0 0 00 

BUFAOD 

NUM 

0 



N130 Q 079 

008D 

P0021 

CC53 

MBC003 

LOA^- 

(MBCSTR) 

MOVE OLD DATA (FIRST WORD) AND 

NEW DATA, 

N130a080 


0081 

P0022 

6836 


STA^ 

INPDAT 

REQUEST CONFIRM 


N133 0081 


0082 

P0Q23 

CC4F 


LOA'^ 

(M8CNEW) 



N1300Q82 

o 

0083 

P002 4 

6CFB 


STA^ 

(BUFADD) 



N130Q083 

008 h 

P0025 

OAOC 


ENA 

CONFM 



N1330084 


0085 

P0026 

OCOl 


ENQ 

1 

SET FOR ASCII DATA AND 1 WORD 


N130 u 08 5 


o 

o 

o 

c 

C' 

C) 

c 

o 

o 

o 

c 

o 


o 


o 
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0086 

P0027 

5C48 


RTJ- 

(EXTHAN ) 


N13aOQ8& 

0087 

P0028 

0 0 30 


ADC 

INPDAT-^ 


N13Q 0 087 

00 88 

P0029 

CCF6 


LDA^'^ 

IBUFADD) 

CHECK IF APPROVED 

N13DQ088 

0089 

P002A 

0101 


SAZ 

MBCXX3 

YES 

N1300089 

0090 

P002E 

18 2A 


JHP + 

MBC005 

NO, EXIT TO "SOMHOR" 

NiSQoago 

0091 

P002C 

C848 

M8CXX3 

LDA^ 

MBCSTR 

DETERMINE IF BACKWARD MOVE 

REQUIRED N1300Q91 

0092 

P0 02D 

0123 


SAP 

M8C03B 


*’^HSOS4.C^^N13QQ092 

0093 

PG 02E 

C844 


LDA* 

HBCMEW 


♦♦MSOS4. O^^NISOO 093 

00 94 

P002F 

0133 


SAM 

MBC03A 


♦^MSOS4,0»’fN13C0 094 

0095 

P003Q 

1818 


JMP» 

MBC004 

SIR NEW PLUS 

♦»MSOS4.0^»N1300G95 

0096 

PDQ31 

C841 

MBC03B 

LOA^ 

HBCMEW 


*^HS0S4. 0^^N1300 096 

0097 

P0032 

0134 


SAM 

MBG03C 

STR + NEW - 

*^HSOS4.G’^^N13G 0 097 

0098 

P0Q33 

C841 

MBCQ3A 

LDA^ 

MBCSTR 


’^^MSOS4.0**N1300 098 

0099 

P0034 

983E 


SUB» 

HBCMEW 


»»MSOS4.0»-*N130Q099 

QIQO 

P0Q35 

0131 


SAM 

MBC03C 


’^*MSOS4.0*»N1300100 

OlDl 

P0036 

1812 


JHP» 

MBC004 


^«^MSOS4.Q»^Ni300101 

0102 

PQ057 

C83B 

MBC03C 

LDA^ 

HBCMEW 


^^MS0S4. 0»^N1300i02 

Q1D3 

P0038 

D122 


SAP 

MBG03D 


^^MSOS4.Q^^N130Q103 

0104 

P0039 

C83A 


LDA^ 

MBC END 


^^MSOS4.0’^»N130ul04 

0105 

P0 03A 

0133 


SAM 

MBC03E 


^^MSOS4.0^^N13D0105 

0106 

P0Q3B 

C838 

MBC03O 

LDA^ 

M3CEND 


^’^HSOS4. O’f ^N13Q QlCb 

0107 

PO Q3C 

0121 


SAP 

MBC03E 


♦“»^MSOS4.Q»-N130 0 107 

0108 

P0030 

181C 


JMP» 

M BC D 0 6 


^^MSOS4,0^^Ni30G108 

0109 

P0Q3E 

C834 

MBC03E 

LDA» 

HBCMEW 


-»-^MS0S4. 0»-^N130 010 9 

0110 

P003F 

9834 


SUB^ 

HBCEND 


^»MSOS4,0’^^N130 0 11 G 

Dili 

P0 040 

0127 


SAP 

MBCOQ 4 


^^MSOS4.0^^N13QQlli 

0112 

P0041 

1318 


JMP^ 

HBC906 


*^HS0S4. G^^NISOO 112 

0113 

P0042 

9 8 30 


SUB"^ 

HBCMEW 


N130 Q 113 

0114 

P0043 

0124 


SAP 

MBCOQ 4--'^-l 

SKIP IF NO 

N13QG114 

0115 

P0044 

C82E 


LDA^ 

HBCMEW 


N 139 Q 11 5 

Q116 

P 0 0 45 

982E 


SU8» 

HBCEND ■■ 


N 150 0 11 6 

0117 

PQ046 

0121 


SAP 

MBC00 4“^-i 

SKIP IF NO 

N130 0 11 7 

0118 

P004? 

1812 


JMP^ 

H8C005 

GO TO BACKWARD MOVE 

N1330118 

0119 

P0043 

CG2C 

MBCQ04 

LDA^ 

(MBCSTR) 

MOVE THE BLOCK 

N13Q 0119 

0120 

P0049 

6C29 


STA^ 

(HBCMEW ) 


N133012Q 

0121 

P004A 

C829 


LDA» 

HBCEND 


^♦MSOS4.0^^-Ni30D121 

0122 

P0043 

0122 


SAP 

MBC04A 

END POS 

»^MSOS4. 0»^N1300 122 

0123 

P0Q4C 

C328 


LDA^ 

MBCSTR 

END NEG 

^^MSOS4.0^-^N13D0123 

0124 

PG040 

0124 


SAP 

HBC04B 

STR PCS 

^^MS OS4.0*^N13G0124 

0125 

P004E 

C825 

MBC04 A 

LDA» 

HBCEND 


^^MSOS4,0^^N13Q0125 

0126 

PCQ4F 

9825 


SUB» 

MBCSTR 


^♦MSOS4.0^’N13G0126 

0127 

P0D50 

0104 


SAZ 

MBC!}05-^-l 


»^^HSOS4.0*^N130Q127 

0128 

PD051 

0133 


SAM 

MBC0 0 5-=^--l 


^»MSOS4.G«^^N13Q0128 

0129 

P0052 

D822 

M8C 04B 

RAO^ 

MBCSTR 


»’^MSOS4.0»^N13QQ129 

013 0 

P00 53 

D81F 


RAQv 

HBCMEW 


♦^MSOS4.0’f^N1300130 

0131 

P0054 

18F3 


JMP» 

MBCOQ 4 


N1300131 

0132 

P0D55 

E319 

HBCQO 5 

LOQ^ 

BASE 

EXIT (TO "SOMMOR") 

N13G0132 

0133 

P0056 

E2 03 


LDQ- 

SOMHOR, Q 


N1300133 

0134 

P0057 

1622 


JMP- 

(ZERO) , Q 


N1300i34 

0135 

P0 053 

QOOO 

INPDAT 

NUM 

0 


N130 0 13 5 

0136 




BACKWARDS MOVE 


N1300136 

0137 

P0059 

C81A 

MBC 00 6 

LDA^ 

HBCEND 

CALC. END OF NEW BLOCK 

N13Q0137 

0138 

P005A 

981A 


SU8^ 

MBCSTR 


N13Q 0138 


^J,.. ; /'i ir*'' ‘ I y p'{;) s v/" ' ■' '{,■ 
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P0Q5B 
PC05C 
P005D 
P0 05E 
P005F 
P0 060 
P0061 
P0062 
P0 0 63 
P 0 0 6 4 
PD065 
P0066 
P0 067 
PQ068 
P0069 
POO 6A 
PO 066 
PQ06C 
POQdD 


3617 

6816 

CC16 

6C14 

C313 

09FE 

6811 

cell 

09FE 
68 0F 
0123 
C30E 
0131 
18F4 
C8QA 
980A 
0131 
18F0 
18E7 


PD06E OOflO 
P006F 0000 
P0070 GOGQ 


PQ071 0000 
P0072 0000 
P0073 QQOQ 
P0074 0000 


ADD^ 
STA^ 
HBC 00 8 LDA^ 
STA» 
LDA» 
INA 
STA^ 
LDA^^ 
INA 
STA^ 
SAP 
LDA^ 
SAM 
JMP^ 
MBC08A LDA^ 
SUB^- 
SAM 
JMP» 
MBC 00 7 JMP^^ 


MBCNEW 
MBCNEW 
(MBCEND ) 
(MBCNEW) 
MBCNEW 
-1 

MBCNEW 

MBCEND 

-1 

MBCEND 

M8C08A 

HBCSTR 

MBCQ8 A 

M8C008 

MBCEND 

MBCSTR 

MBC0Q7- 

MBCGO 8 

MBC005 


MOVE THE BLOCK 


BASE NUM 0 
EXTHAN NUM 0 
EXTMSG NUM 0 

STORAGE 

MBCFLO 0 0 
MBCNEW 0 0 
MBCEND 0 0 
MBCSTR 0 Q 


END ADDR POS 
NO BEG 

END NEG , BEG POS 


SKIP IF DONE 
EXIT PROCESSOR 


NO, OF REMAINING FIELD TO GET 
NEW LOCATION OF BLOCK 
END OF PRESENT LOCATION 
START OF PRESENT LOCATION 


N1300139 
N130D140 
N130G 141 
N13DC142 
N1300143 
N130Q144 
N1300145 
N1300146 
N1300147 
N1300148 
■»^MS0S4. Ov»N1300 i49 
^^HSOS4.0^'^N1300 150 
^^MSOSh. 0»^N1300 151 
^^MSOSh.0’-^N130 0152 
^»MS0S4. Q^^N1300153 
M13QQ154 
N1300155 
N130fll5o 
N1300157 

N1300159 
N130G16C 
N1300161 
N13Q0162 
N13Q 0163 
N1300164 
N130 0 16 5 
N1300166 
N13Q0167 
N130 0168 
N13Q 0 169 


0177 


Q 001 

P 

EQU 

SA05(^/96) 

QO 02 

P 

EQU 

SPQ5(SA05+1) 

OOCO 

P 

EQU 

OB05 (SPQ5^96) 

PG075 C04B 


BSS 

END 

(DB05-^ ) 


N13Q0171 
N1300171 
N 13 0 0 17 2 
N1300173 
N130 0174 
N130Q175 
N1300176 


PGM= OOCO ( 192) 


COM = 0000 < 


o 


MBCREQ 


PAGE 
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o 

E Q U I V 

A L E N 

C E S 

{^) 

DEE. LINE 

NAME 

VALUE 


0 0 0 0 

I 

OOFF 


0018 

AMONI 

Q0F4 


0018 

ADISP 

OOEA 

o 

0018 

LPMSK 

0002 


0018 

NZERO 

0012 


0018 

ZROBIT 

0033 


0 019 

FIVE 

0043 


0019 

SIX 

0044 


0019 

ZERO 

00 22 


0019 

ONEBIT 

0023 


0019 

SIXTEN 

0027 


0 020 

COMMA 

0020 


0 020 

SLASH 

002F 


0020 

ASTRIC 

002A 

C' 

0 021 

EIGHT 

002 6 

0 021 

NINE 

0045 


0G21 

THREE 

00 0 4 


0021 

ONE 

000 3 


0 021 

TWO 

0024 


0 0 22 

TEN 

0046 


0025 

HANDLE 

0 00 1 


002 6 

MSG 

00 02 


0027 

SOMMOR 

00 0 3 

O 

0028 

10 ERR 

000 4 


0 029 

LISTLU 

00 0 5 


0030 

COMOLU 

0006 


0 0 31 

newmlu 

00 0 7 


0032 

PROGl 

000 8 


0 0 33 

PR0G2 

000 9 


0 0 34 

bitflg 

000 A 


0 0 3 5 

BUFCNT 

OOOB 


0 036 

FIELD 

OOOC 


0037 

SLASHF 

0010 


00 38 

BUFEMT 

0011 


0039 

BUFFER 

G012 

LJ 

0040 

CONFM 

OOOC 


REFERENCED AT LINE NUMBER 

(G0Q255) 

<000244) 

(Q3Q234) 

( 000002 ) 

(000018) 

(000051) 

(000067) 

( 0 00068) 

( Q0Q034) 

(000035) 

(000039) 

(000044) 

(000047) 

(000042) 

(000038) 

(0 00069) 

(000004) 

(000003) 

(000036) 

{ 0 00070) 

( 000001 ) 

( 000002 ) 

( 0Q00Q3) 

( 000004) 

(000005) 

( 000006) 

(000007) 

(000008) 

(000009) 

(OOQQIO) 

( 000011 ) 

( 000012 ) 

(000016) 

( 000017) 

(000018) 

( 000012 ) 


0 0 47 

0062, 0064 

0 134 
0 065 

0 0 50 
0 052 
0133 

0060 

0 0 48 
0 0 84 


o 


Q 

o 


o 


o 

C) 

o 

o 

o 

o 

o 

o 

G 

o 

o 

o 


o 


{ 
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SYMBOLS 


n 

DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 




0 015 

MBCREQ 

000 0 

0015 







005 7 

MBCOOl 

OOOA 

0 0 78 







0 067 

MBCOIA 

0014 








0 069 

MBC002 

0016 

00 61, 

0063, 

0 066 





0 071 

MBCVAL 

0018 

0 072 







0079 

BUFADQ 

0020 

0049 , 

0 08 3, 

0 088 




o 

0080 

MBG0Q3 

0021 

0 077 






0 091 

MBCXX3 

002C 

0 089 







009 6 

MBC 03 3 

0031 

0 0 92 







0 098 

MBC03A 

0033 

0094 







0102 

MBCQ3C 

0037 

G 0 97 , 

0100 






010 6 

HBC03D 

003B 

0103 







0109 

M8C03E 

003E 

0105 , 

0107 






0119 

MBG004 

0048 

0 095 , 

0101 , 

0111, 

0114, 

0117, 

0131 

Cj' 

0125 

MBC 04A 

004E 

0122 






0129 

MBC04B 

0052 

0124 







0 132 

MBCOO 5 

00 55 

0 0 90 , 

0127, 

0128, 

0157 




0135 

IN'PDAT 

0 C 8 

0 0 81 , 

0 087 





o 

0137 

MBC006 

0059 

0108 , 

0112, 

a 118 




0141 

MBC 00 8 

005D 

0152, 

0156 






0153 

MBC03A 

0069 

0149, 

0151 






015 7 

MBC007 

006D 

0155 







0 16G 

BASE 

006E 

0046, 

0132 





. / 

0161 

EXTHAN 

006F 

0 051, 

0059, 

0 0 70 , 

0086 




0162 

EXTMSG 

0070 

0 0 53 , 

0068 






0166 

MBCFLD 

0071 

0 056, 

0073, 

0 0 76 





0167 

MBCNEW 

0072 

0 074, 

0082, 

0093, 

0096, 

0 0 9 9, 

D102 


0168 

MBCEND 

00 73 

0104, 

010 6, 

0110, 

0 11 6, 

0121, 

0 125 


0169 

MBCSTR 

007 4 

0 0 80 , 

0091 , 

0098, 

0119, 

012 3, 

0 126 


0173 

SA05 

0001 

0174 







0174 

SP05 

00 02 

0175 







3 17 5 

DB0 5 

flOCO 

0176 







o 

o 

o 


■ C' 

^ 0 
; Q 

c, 

'■ ('3) 
O 
: O 
: C.) 

D1Q9, 0113, 0115, 0120, G 13 u , 0139, OlAQ, 0142, G 1 43 , 0145 O 

0137, 0141, 0146, 0148, 0153 . 

0129, 0138, 0150, 0154 

; O 

: O 

; O 

■ O 
O 

■ O 


c 
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A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



ADISP 

0018 

AMONI 

0 018 

ASTRIC 

0 020 

BASE 

016 0 

BITFLG 

0 03 4 

COMMA 

0020 

COMOLU 

0 0 30 

CONFM 

0 040 

DB05 

017 5 

EIGHT 

002 1 

HANDLE 

0025 

I 

0 0 0 0 

INPDAT 

0 135 

lOERR 

0 0 28 

LISTLU 

0029 

MBCO 04 

0119 

MBCO 05 

0 132 

MEC006 

0 137 

MBC007 

0157 

MBC008 

0141 

MBC03D 

010 6 

MBC03E 

0 109 

MBC04A 

0125 

MBC048 

0129 

M8CQ8A 

0153 

MBCSTR 

0169 

MBCVAL 

0 071 

MBCXX5 

0091 

MSG 

00 26 

NEWMLU 

0031 

PROGl 

0032 

PROG 2 

0 0 33 

SA05 

Q 173 

SIX 

■0019 

SIXTEN 

0019 

TEN 

0022 

THREE 

0 021 

TWO 

0 0 21 

ZERO 

0019 

ZROBIT 

0018 


f’“'\ 

o 

o 

o 

o 

o 

o 

o 

o 

p 

o 



BUFAOD 0Q79 
EXTHAN 0161 
LPMSK 0Q18 
MBCOIA 0067 
MBCEND 0168 
NINE 0021 
SLASH 0020 


BUFCNT 0035 
EXTMSG 0152 
MBCOOl 0057 
MBC03A 0098 
MBCFLD C166 
NZERO 0018 
SLASHF 0037 



BUFEMT 0038 BUFFER 0039 
FIELD 0036 FIVE 0019 
MBC002 0069 M8C003 QG80 

HBC03B 0096 HBG03C 0102 
MBCNEW 016 7 MBCREQ 0 015 
ONE 0021 0NE8IT 0Q19 

SOMMOR 0027 SP05 0174 


O 


O 


O 


o 


o 


o 




c 

o 

o 

o 


OQOi 
0Q02 
00 0 3 
OOOh 
00 0 5 
00 0 6 
0007 
QQQ8 
00 0 9 
0010 
OQii 
0012 

0014 

0015 


SCHREQ 


PAGE 


DATE? 01/27/99 


V- 

¥ 

Jf- 


NAM SCHREQ DECK-ID N14 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR CREATES A SCHEDULER RtQUEST . 

THE FORMAT OF THE REQUEST FOLLOWS. ^ ^ 

SCH,CORE LOCATION, Q-REG. , CO MPLETION PRIORITY LEVEL, 
PART 1 REQUEST INDI CATOR (CR) 


SUMMARY-11 

N1400QG2 
N14Q 0 0 03 
N140 0 004 
N140 0 0 0 5 
N14Q 0 0 06 
N14Q0307 
N 140 0 00 8 
N140 0 009 
N1400010 
N1400011 
N1400012 


* 


ENTRY NAME 

ENT SCHREQ 


N1400014 

N140Q015 


0017 

0018 


0019 


0020 

0021 


0022 

0023 

002 5 
00 26 
0027 


0 0F4 
00 EA 
0 0 02 
:Q012 
0 0 33 
0 0 43 
0 0 44 
0 0 22 
0 023 
0 0 27 
002C 
0 0 2F 
QQ2A 
0 0 26 
0 0 45 
00 04 
00 03 
0 024 
0 0 46 
18FD 


00 07 
1000 


,EQU' TABLE Ni4Juul7 

EQU AMONI (SF4) , A D ISP ($ E A) , LPHS K ( 2 ) ,NZERO($12) ,ZR08IT ($33) Nli-C0018 

EQU FIVE ( $43) , SIX ($44) , ZERO ($22 ) , ONEQI T ($23 ) ,SIXT£N ($27 ) N140 0 019 

EQU COMMA ($20 ,SLASH($2F),ASTRIC($2A) N140B020 

EQU EIGHT ($26) ,NINE($45 ) .THREE (4) ,ONE (3) , TWO($24) Ni400a21 


EQU 

EQU 


EQU 

EQU 


TEN ($46) 
COMLU ($18FO) 

SYS 
CHRSLV(7) 
ASMOO ($1000) 


INPUT COMMENT MEDIUM 

T E M “EQU" 

LEVEL OF THIS PROGRAM 


N1400Q22 

N140QG23 

N14QG025 

N 140 0 02 7 


0 029 
003 0 

0031 

0032 

0033 

0034 


0 0 01 
80 02 
0 0 03 
0004 
00 05 


EQU 

EQU 

EQU 

EQU 

EQU 


PARAMETER LOCATION (OFFSET FROM BASE) 


HAN3LE( 1) 
MSG (2) 
SOMMOR (3) 
I0ERR(4) 
LISTLU (5) 


"HANDLE" 

"MSG" ENTRY 

"SOMMOR" ENTRY 

"lOERR" ENTRY 

LIST OUTPUT "LISTLU" 


N140 0 029 
N14CC03G 
N14Q0031 
N140QQ32 
N 1 4 0 0 0 3 5 
N14Q0034 


003 5 
0036 
003 7 

0038 

0039 

0040 

0041 

0042 

0043 

0044 


0046 

0047 

0048 


0050 

0051 

0052 
0 0 53 
0054 
0 0 5 5 
0056 
005 7 
005 5 

0050 

0051 

0052 
0063 
00 64 

0065 

0066 
00 57 
0068 
0059 
007 0 
007 1 
00 72 

0073 

0074 

007 5 
0076 
00 77 
0Q78 

0079 

0080 
0081 
0082 
003 3 

008 4 
003 5 


SCHREO 


PAGE 2 
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0 0 06 
00 07 
0 0 08 
0 0 09 
Qfl OA 
00 OB 
QOOC 
0 0 10 
00 11 
0012 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

COMOLU (6) 
NEWMLU(7) 
PROGl (8 ) 
PR0G2 (9 ) 
8ITFLG (10) 
0UFCNT( 11) 
FIELD (12 ) 
SLASHF( 16) 
BUFEMT (17) 
8UFFER(18) 

"COMOLU" 

"NEWMLU" - 

"PROGl" 

“PR0G2" 

"BITFLG" 

"BUFCNT" 

"FIELD" 

"SLASHF" 

"BUFEMT" 

"BUFFER" 

• — new mm LU 


N140 0 03 5 
N14QQ036 
Nl4u 0 037 
N14G0038 
N140 0 039 
N140 0 U40 
N1400041 
N1430 042 
NlcGO 043 
N140 0 044 




P R 0 G R A 

M start 


N14C 0 046 
N140 0 0 4 7 
N14G 0048 




POOOO 68 5C 
POODl 6 OFF 
P00C2 GlOl 
P0Q03 68 5A 
P0004 C102 
P00G5 6859 
PQ006 C106 
P00Q7 8829 
P0009 6820 

P00G9 QA04 
POOOA 6857 
POOOO 0C04 
POOOC 0A02 
POOOD 5C50 
POOOE CIOC 
PQOOF 0107 
PD01& 90QA 
POOll 0105 
P0012 800A 
P0013 09D3 
PD014 0102 
P0015 0C04 
P0016 1C48 
P0017 GA03 
P0018 5C45 
P0019 0000 
POOIA C8FE 
POOIB E846 
POOIC 6A45 
POQID ODFE 
PQOIE 4843 
PQOIF 0141 
P0023 18EA 

PQ021 C844 


SCHREQ 


STA^ 

STA- 

LOA- 

STA^ 

LOA- 

STA^ 

LDA- 

ADD^ 

STA» 


BASE 

I 

HANDLE^ 

EXT HAN 

MSG, I 

EXTMSG 

COMOLU, 

MODE 

OTLU 


SAVE PARAMETER BUFFER ADDRESS 
GET "HANDLE" ROUTINE ADDRESS 
FETCH "MSG" ADDRESS 


ENA 

ST 

SCHOOl ENQ 
ENA 
RTJ- 
LDA- 
SAZ 
SUB- 
SAZ 
ADO- 
INA 
SAZ 
ENQ 
JMP^ 

SGHQ02 ENA 
RTJ^ 

SCHVAL 0 

LDA^ 

L9Q» 

STA^ 

INQ 

STQ* 

SQZ 

JMP^ 

SCH003 LDA^ 


INITIALIZE TO GET 4 FIELDS 
SET TO GET 4 CHAR. FIELD 


SCHFLO 
4 
9 

■(EXTHAN ) 

FIELD, I 
SCHQ02-^-l 
LPMSK+8 
SCH002--^-l 
LPMSK+8 
-COMMA 
SCH002-^-l 

Textmsg ) 

3 

t EX THAN ) 

0 

SCHVAL 
SCHFLO 
SCHFLO, Q 
-1 

SCHFLD 
SCH0Q3-^-l 

REQUEST CONFIRMATION 
SCHCOM INSERT LOG. 


GET FIELD 

IS CONTROL CHAR.= COMMA, 
$FF OR NONE 

SKIP YES 


ILlSaL^CHAR. PRINT FORMAT INCORRECT 
MESSAGE AND EXIT PROCESSOR 
CONVERT TO HEX 


SAVE VALUE 

DECREMENT FIELD NO. 

SKIP IF ALL FIELDS DETAINED 


N140 0 050 
N14Q 0 05 1 
N1400052 
N140 u 053 
N140 0 054 
N14Q0055 
N140 0 05 6 
N14G0057 
N1400058 


N14C 0060 
N14CG061 
N1400062 
N140 u 06 3 
N1400064 
N1 40 0 0 65 
N 140 0 056 
N14QQ067 
N14Q 0068 
N140 0069 
N14Q 0 070 
N140 0 071 
N14Q 0 072 
N1400 073 
N140Q074 
N1 43 0 0 75 
N140007& 
N1400 077 
N1400078 
Nl40 0 079 
N1400G80 
N1400081 
Nlh-O 0 08 2 


N14G0083 
N14Q 0 08 4 
N140Q085 


, 1 



SCHREQ 



PAGE 3 


00 8 6 

P0022 

5864 


RTJ'‘ 

ASMASC 


0087 

P0023 

0 0 40 


ADC 

MESl--» 


0088 






( \ 

00 89 

POO 24 

54F4 

OUT 

RTJ- 

(AMONI) 


0090 

P0025 

0 507 

WRTCD 

ADC 

$50Q+CHRSLV 


0091 

P0026 

0 0 07 

WRTEX 

ADC 

WRTRN-WRTCD 


009 2 

PO 027 

0 0 0 0 


NUM 

0 

{ ) 

00 9 3 

PO 028 

0 0 00 

OTLU 

NUM 

Q 


0 094 

PO 029 

0017 

WRTSZ 

ADC 

LHESO 


0095 

P002A 

0 0 41 

WRTBF 

ADC 

ME3 0-WRTCO 


0096 

P002B 

14EA 


JMP- 

(ADISP) 

■ J 

0097 







0098 

P002C 

0164 

WRTRN 

SQP 

WRTOK 


0099 

P0G2D 

E82F 

ERIO 

LOQ» 

BASE 


0100 

P002E 

E2 04 


LOQ- 

lOERRiQ 

u 

0101 

P002F 

1622 


JHP- 

(ZERO) ,Q 


0102 

P0030 

10 00 

MODE 

ADC 

ASMOD 


0103 



♦ 




010 4 

F0031 

5 4 F4 

NRTOK 

RTJ- 

(AMONI) 

'■U 

010 5 

PQ032 

0 907 

REDCD 

ADC 

390Q + CHRSLV 


010 6 

P0033 

00 OA 


ADC 

GETRT-REDDO 


0107 

P0034 

0000 


NUM 

0 

r"\ 

010 8 

P0G35 

18FD 


ADC 

COMLU 


0109 

P0036 

00 01 


NUM 

1 


QUO 

P0037 

0 0 09 


ADC 

OKWD-REDCD 


0111 

P0038 

14EA 


JMP- 

(ADISP) 


0112 

P0039 

0 0 58 

EXME 

AOC 

MESX-WRTCD 

U 

0113 

P003A 

0 0 34 


ADC 

GONE- WRTCD 


0114 

P0 03B 

0 0 0 0 

OKWD 

NUM 

0 


0115 







0116 

P0Q3C 

0 161 

GETRT 

SQP 

REDOK 

o 

0117 

P0Q3D 

18FF 


JMP» 

ERIO 


0118 

P003E 

C8FC 

REOO< 

LDA^ 

OKWD 


0119 

P0 03F 

9 000 


SUB 

= AOK 



P0040 

4F4B 




■■J 

0120 

P0041 

0107 


SAZ 

SGHXX3 


0121 

P0042 

OA 09 


EN A 

LME3 X 


0122 

P0043 

68E5 


STA^ 

WRTSZ 


0123 

P0044 

C8F4 


LDA» 

EXME 

U 

0124 

P0045 

68E4 


STA* 

W RT BE 


0125 

P0046 

C8F3 


LDA^ 

EXME-H 


0126 

Pfl047 

68DE 


STA^ 

WRTEX 

r\ 

0127 

P0048 

180B 


JHP» 

OUT 

\ I 

0128 







0129 

P0049 

C81A 

SCHXX3 

LDA'^ 

SCHOPL 


013 0 

PQQ4A 

A006 


ANO- 

LPMSK+4 


0131 

P004B 

6818 


STA^ 

SCHCPL 

u 

0132 

P004C 

G814 


LDA» 

SCHPRl 


0133 

P004D 

E8 15 


LDQ* 

SCHPRT 


0134 

P004E 

0151 


SQN 

SCHXX4 


0135 

P004F 

C81Q 


LDA^ 

SCHPRO 

u 

0136 

P0Q5 0 

A016 

SCHXX4 

AND- 

NZERO+4 


0137 

P0051 

8812 


AOD^ 

SCHCPL 


o 




date: 01/27/99 


WRITE CODE 
RETURN 
THREAD 
LU. 

SIZE 

BUFFER add. 


I/O ERROR 


READ IN CONFIRMATION 

F-READ 

RETURN 


iWORD 


0. BUFFER ADD. 

1. EXIT ADD. 


CHECK IF CONFIRM 'OK" 


Y S KT P 

SET-UP WRITE DATA TO PRINT ABORT MESSAGE AND 
EXIT 


SET-UP COMPLETION 
PRIORITY LEVEL 

GET PART D OR PART 1 SCHEDULER REQUEST 


c 


N14G0086 


N140QQ87 


N14D0038 

o 

N1400089 

N1400G90 


N1400091 


Nl4a0Q92 

c 

N140Q093 

N1400094 


N1400 095 


N1430 096 

o 

N14G 0 09 7 

N1400098 


N140 0099 


N14001QQ 

; O 

N1400101 


N1400102 


N14QQ103 


N140 0 1Q 4 

o 

N140Q105 


N140 0105 


N140G107 


N140U108 

^ o 

N140 0109 

N 14 0 0110 


N14aQlll 

’ 

N14Q0 112 

o 

N14QQ 113 


Nl«^00114 


N140Q115 


N1400116 

: o 

N1430117 

N1400118 


N143Q119 


N1400120 

„ o 

N1400 121 


N1430122 


N1400123 

o 

Nl4aD124 


N14DQ125 


N140 0126 


N14Q0127 

: O 

N14Q0128 

N143 0129 


N14Qal30 


N140013i 

o 

N140 0132 


N140Q133 


N14D 0134 


N140013 5 

: O 

N14Q0136 

N1400137 



o 


o 


SCHRFQ 


PAGE 


4 


date: Oi/27/99 


o. 

o 

o 

o 

o 


Q138 P0052 6805 
0139 P0053 C612 
014Q P0Q54 6804 

0141 P0055 E80F 

0142 P0056 54F4 

0143 P0057 1200 

0144 P0058 OGOO 

0145 P0059 E803 

0146 P005A £2 03 

0147 PG05B 1622 

0149 

015C P005C 0000 

0151 P005D 0000 

0152 P0 05E 00 00 

0153 PQ05F 1200 

0154 P0060 5200 

0155 

0156 

0157 

0158 P0Q61 0000 

0159 P0062 0000 

0160 PQ063 OOQO 

0161 P0064 0000 
016? P0065 0000 


STA^ SCHPAR 
LDA^ SCHCOM 
STA^ SCHPAR+i 
LDQ» SCHaRG 
RTJ- (AHONI) 
SCHPAR NUM $1200 
0 0 


GONE 


LOQ^ BASE 
LDQ- SOMMOR, Q 


JMP- {ZERO),Q 


BASE NUM 
EXTHAN NUM 
EXTHSG NUM 
SCHPRO NUM 
SCHPRl HUM 


0 


0 

0 

$120 0 
$520 0 


^ . STORAGE 


SCHFLO 0 0 
SCHPRT 0 0 
SCHCPL 0 0 
SCHQRG 0 0 
SCHCOM 0 0 


SET-UP COMPLETION LOCATION 

PASS DESIRED CONTENTS OF Q 
SCHEDULER REQUEST 

EXIT (TO -SOHMOR”) 


PART 0 SCHEDULER REQUEST 
PART 1 SCHEDULER REQUEST 


NO. OF REMAINING FIELDS TO GET 
PART 1 REQUEST INDICATOR 
COMPLETION PRIORITY LEVEL 
CONTENTS OF Q-REG. 

COMPLETION LOCATION 


o 


o 

o 

o 

o 


0164 

0165 

016 6 

0167 P0066 QAOD 

0168 P0067 2046 
P0068 4952 
P0069 5354 
P006A 2057 
P0068 4F52 
P006C 4420 
P006D 4441 
P0Q6E 5441 

0169 P006F OAOD 

0170 P007Q 2020 
P0G71 2920 

0171 P0072 2020 
P0073 2028 

0172 P0074 2020 
P0075 2020 

G173 P0G76 2920 

0174 P0077 OAOO 

0175 PQQ78 20 43 
PQ079 4F4E 
P007A 4649 
P007B 5240 
P007C 2020 




>!■ 

MESO 


MESSAGE 

NUM $A0D , . 

ALF 8, FIRST WORD DATA 



NUM 

$A0D 

MESl 

ALF 

2, 


ALF 

2, ( 

MES2 

ALF 

2, 


ALF 

1 » ) 


NUM 

$A0D 


ALF 

5, CONFIRM 


o 


o 


Nlnooisa 
N140 0 139 
Nl4G 0 140 
N140 0141 
N14GG142 
N1400143 
N14QD144 
N140 0145 
N14G 0146 
N1400147 

N14001h 9 
N14D0150 
N14D0151 
N14C0 152 
N 14 0 0 15 3 
N14QG 154 
N140015 5 
N140 0 l2 6 
N1400157 
N140G158 
N140G159 
N140Q160 
N1400161 
N14G0162 


N1400164 
N1400165 
N143 0 15 6 
N14G0167 
N1400168 


L/ 

O 

O 

o 

o 

o 

o 

o 

o 


o 


N14Q0169 
N140 0 170 

: O 

N14Gdl7i 

O 

N14Q0172 


Ni400173 

N14Q0174 

N140ai75 

C 


O 



SCHREQ 
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date: 01/27/99 


0176 


0017 


EQU 

LME50 (*-MESD) 


0177 

P00 7D 

Q AOO 

MESX 

NUM 

$A0D 


0178 

FG Q7E 

4442 


ALF 

8,03 REQUEST 

ABORT 


P007F 

2052 




P008Q 

45 51 






P0061 

5545 






P0082 

5354 






P0083 

20 41 






PD084 

424F 






P0085 

5254 





0179 


0 0 09 


EDU 

LMESX (*-MESX) 


0181 







0182 





ASSEMBLE LOCATION ANO CONTENT INTO ASCII 

0183 







0184 

PO 086 

OBOO 

ASMASC 

NOP 

0 

ENTRY 

0185 

PGD87 

68 OC 


STA» 

AO 

SAVE LOCATION 

013 6 

POO 88 

ECFD 


LOQ» 

(ASMASC ) 


0187 

P0089 

F8FG 


ADO’- 

ASMASC 


0188 

P00 8A 

48 OA 


STQ^ 

A1 

SAVE DATA CONTENT ADD. 

0189 

PC08B 

58 0A 


RTJ^ 

TW 

ASSEMBLE INTO ASCII 

0190 

P008C 

C808 


LDA» 

A1 

0191 

PO 080 

0904 


INA 

4 


0192 

P0 08E 

68 06 


STA^ 

A1 


0193 

P0 08F 

CC04 


LDA» 

(AO) 

GET CONTENT 

0194 

P009Q 

5805 


RTJ*^ 

TW 

ASSEMBLE INTO ASCII 

0195 

P0Q91 

D8F4 


RAO* 

ASMASC 

SET EXIT 

0196 

P0092 

1CF3 


JMP* 

(ASMASC ) 

EXIT 

0198 



¥ 




0199 

PQ093 

00 00 

AO 

NUM 

0 


020 0 

P0Q94 

00 00 

A1 

NUM 

0 


0202 



* 




0 20 3 

P0095 

OBOO 

TW 

NOP 

0 

ENTRY 

0204 

PG096 

GCQO 


ENQ 

0 


0205 

P0 097 

4811 


STQ* 

TWl 

4 

ZERO COUNT 

020 6 

P0Q98 

0FE4 

TWO 

LLS 

EXTRACT 4-BIT BYTE 

0 20 7 

PD099 

6810 


STA* 

TW2 


3208 

P009A 

0DF5 


INQ 

-10 

ASSEMBLE INTO ASCII ACCORDING TO NO 

0209 

P009B 

0171 


SQM 

TWX 


0210 

P009C 

OD07 


INQ 

7 


0211 

P0090 

0O3A 

TWX 

INQ 

$3A 


0212 

PG09E 

OFFO 


LLS 

16 

TO A-REG. 

0213 

P009F 

E8 09 


LDQ* 

TWl 


0214 

PQQ AO 

6A0A 


STA* 

TW3,Q 

SAVE ACCORDINGLY 

0215 

POOAl 

0001 


INQ. 

1 


0216 

P00A2 

4806 


STQ* 

TWl 


0217 

PQ0A3 

ODFB 


INQ 

-4 


0218 

PQ0A4 

0149 


SQZ 

TWAS 

DONE, ALL 4 BYTE BEEN PROCESSED 

0219 

POO A5 

C804 


LDA* 

TW2 


N140 0176 
N141] 0177 
M1400178 


N1400179 

N1400181 
Ni4Q0182 
N14C 0183 
N14G0134 
N1400185 
Ni40 0 18 b 
N140 0187 
N14Q0188 
N140Q189 
N1400 190 
N14Q0191 
N1400192 
N14D0193 
N14D0194 
N14QD199 
N14GQ196 


M14QG198 
N1400199 
N140 0 20 0 


N1490202 
N140 0 203 
N14D02Q4 
N140 0 20 5 
N140 0 20 5 
N1400207 
N14Q02Q3 
N 1400 20 9 
N140Q 210 
N1400211 
N1400212 
N1400 213 
N14Q 0214 
N1400215 
N14C0 216 
N1400 217 
N140 0 218 
N1400219 


SCHREa 
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DATE: 01/27/99 



Cj 

o 

o 

o 

o 

o 


0220 POOA6 OCOO 

0221 P00A7 18F0 

0222 

0223 P00A8 0000 

0224 P00A9 OOGO 

0225 POOAA 0004 

0226 POOAE E8E5 

0227 POOAF C8FA 

0228 POOBO 0FC8 

0229 POOBl 88F9 

0230 P00B2 6622 

0231 P00B3 C8F8 

0232 POOB4 0FC8 

0233 P00B5 88F7 

0234 P00B6 QDOl 

0235 P00B7 6622 

0236 P00B8 ICDC 


TWl 

rW2 

TW3 

TWAS 


ENQ 0 

TWO 

NUM 0 
NUH 0 
BZS TW3(4) 
LOQ-'^ A1 
LDA^ TW3 
ALS 8 
ADO^ TW3+1 
STA- (ZERO),Q 
LDA^ TW3+2 
ALS 8 
ADD^ TW3+3 
INQ 1 

STA- (ZERO),Q 
J H P» ( TW ) 


ASSEMBLE INTO 2-WORD AND SAVE 


RETURN 


0238 


0239 

0 0 01 

P 

EQU 

SAG5 (^/96) 

0240 

0 0 02 

P 

EQU 

SP05(SAG6+1) 

0241 

OOCO 

P 

EQU 

DB06 JSP06^96) 

0242 

P00B9 0007 


BSS 

CDB06-^ ) 

0243 



END 



PGM= OOCO { 192) COM = 0000 I 0) DAT = 0000 ( 0) 


o 

o 

C) 

o 

o 


N140G22G 
N1400221 
N14GC222 
N1400223 
N 140 0 22 <4 
N140 0225 
N140 0226 
N14GQ227 
N140Q228 
N1400229 
N14C 0 230 
N140Q231 
N1400232 
N1400233 
N14Q 0 234 
N140 0235 
N14Q0236 


N140 0238 
N143 0239 
N140 0 240 
N140 0 241 
N14G0242 
N14Q 0243 


o 
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DATE! 01/27/99 

/’ 

o 








o 

o 

E Q U I V 

A L E N 

C E S 





o 

o 

DEF, LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

■ o 


0000 

I 

QDFF 

(0G0255) 

0 0 51 





0018 

AMONI 

0OF4 

( 0002441 

0 089 I 

0104, 

0142 



0018 

ADISP 

OQEA 

(000234) 

0 096 , 

0111 


o 


0013 

LPMSK 

00 0 2 

(000002) 

0067 , 

0069, 

0130 

s»«* 


0018 

NZERO 

GQ12 

(000018) 

0136 





0018 

ZROBIT 

0033 

(000051) 





r') 

0019 

FIVE 

0043 

(000067) 




■ C) 

■-J 

0 019 

SIX 

0044 

(000068) 



0238, 0235 


0019 

ZERO 

0022 

( QQ0034) 

0101, 

014 7, 



0019 

0NE8IT 

0023 

( 0Q0O35) 






0019 

SIXTEN 

0027 

1000039) 




' o 


0 020 

COMMA 

0 02C 

1000044) 

0 070 





00 20 

SLASH 

0G2F 

(000047) 






0 020 

ASTRIC 

Q02A 

(000042) 






0 021 

EIGHT 

00 26 

(000038) 




o 


0 0 21 

NINE 

0045 

(000069) 





0021 

THREE 

00 0 4 

(000004) 






0 021 

ONE 

000 3 

(000003) 






0 0 21 

TWO 

002 4 

(000036) 




■ o 

'■'w^ 

0 022 

TEN 

0046 

(000070) 




•w 


0023 

COMLU 

18F0 

(006397) 

0108 





0 02 6 

CHRSLV 

000 7 

(000007) 

0 090 , 

010 5 



O 

0 0 2 7 

ASMOD 

lOOC 

(004096) 

0102 



: 0 

0030 

HANDLE 

0001 

(OQQOOl) 

0 052 




0031 

MSG 

0002 

(000002) 

0 054 





0032 

SOMMOR 

0003 

( 0 08003) 

0145 




Q 

00 33 

10 ERR 

00 0 4 

( 000 004) 

0100 



■ n 

003 L 

LISTLU 

00 0 5 

(OOOG05) 






0035 

COMOLU 

00 06 

(0 00006) 

0056 





003 6 

NEWMLU 

OOG 7 

(QG0007) 





o 

0 0 37 

PROGl 

00 0 8 

(000008) 




: O 

0 038 

PROG2 

0009 

(000009) 





0039 

BITFLG 

OOOA 

( QOOQIO) 






0040 

8UFCNT 

OQQB 

(OQQQll) 





o 

00 41 

FIELD 

OOQC 

(000012) 

0 065 



, O 

0042 

SLASHF 

0010 

(0 GO 01 6) 





0043 

BUFEMT 

0011 

(000017) 





o 

0 044 

BUFFER 

0012 

(0GQ018) 




O 









O 

o 








: O 









O 
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date: 01/27/99 


0176 

0179 


LMESO 0017 (0000233 

LMESX 0009 (0Q0009) 


0 0 94 
0 121 


SCHREQ 


PAGE 


9 


DATE 


01/27/99 









c 

o 

S Y H B 0 

L S 





o 

O 

DEE. LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

o 

0 015 

SCH PEQ 

0 00 0 

0015 





00 62 

SCHOOl 

00 0 B 

0 083 




o 

0 0 74 

SCH002 

0017 

0 0 66 , 

0068, 

0071 

. o 

0076 

SCHVAL 

0019 

0 077 




0 0 6 5 

SCH0G3 

0021 

0 0 82 





0 0 89 

OUT 

0 024 

0127 




o 

0090 

WRTCD 

002 5 

0 0 91 f 

0 095, 

0112, 0113 

r'l 

0 091 

WRTEX 

0026 

0126 





0 093 

OTLU 

00 28 

0 0 58 





00 94 

WRTSZ 

0029 

0122 




o 

0 095 

WRTBF 

002A 

0124 



- 

0 098 

WRTRN 

002C 

0091 





0 099 

ERIO 

0020 

0 117 





0 102 

MODE 

0030 

0 057 




o 

0104 

WRTOK 

0031 

0 0 98 



o 

0105 

REDCD 

0032 

0106, 

0 110 



0112 

EXHE 

0 039 

0123, 

0125 




0114 

OKWD 

003B 

0110 , 

0118 



o 

0116 

GETRT 

003C 

0106 



o 

0118 

REDOK 

003E 

0116 





0129 

SCHXX3 

0049 

0120 





013 6 

SCHXX4 

0050 

0134 




o 

0143 

SCHPAR 

0057 

0 138 , 

0 140 


• O 

0145 

GONE 

0059 

0113 




0 150 

BASE 

00 5C 

0 0 50 , 

0099, 

0145 



0151 

EXTHAN 

0050 

0053, 

0 0 6 4, 

0 075 


0 

0152 

EXT MSG 

005E 

0 0 55, 

0 073 


: O 

0153 

SCHPRO 

Q05F 

0135 




0154 

SCHPRl 

0060 

0132 





0158 

SCHFLD 

0061 

0 0 61 , 

0 078, 

0079, 0081 


o 

0159 

SCHPRT 

00 62 

0133 



; O 

0 160 

SCHCPL 

0063 

0129, 

0131, 

013 7 


0161 

SCHQRG 

0 0 6 4 

a 141 





0162 

SCH COM 

00 65 

0 0 85 , 

013 9 



o 

0167 

MES 0 

006 6 

0 095 , 

0176 


O 

0 170 

MESl 

0070 

0 0 87 




0172 

HES2 

0074 






0177 

MES X 

0070 

0112, 

0179 

0187, 0195, 0196 



018i- 

ASMASC 

0086 

0 086 , 

0186, 

; O 

o 

0199 

AO 

0093 

0185, 

0193 



0 200 

A1 

0094 

0188 , 

0 190, 

0192, 0226 


o 







O 

o 







: O 

o 







r^, 



SCHREQ 


PAGE 10 


DATE? 01/27/99 


0 203 

TW 

009 5 

0189, 

0194, 

0236 

02G6 

TWO 

0098 

0221 



0 211 

TWX 

0090 

0 209 



0 223 

TWl 

G0A8 

0 205, 

0213, 

0 216 

0 224 

TW2 

00 A9 

0 2 07, 

0219 


0 225 

TW3 

OOAA 

0214, 

0227, 

0229, 0231, 0233 

0226 

TWAS 

QOAE 

0 218 



0 239 

SAD 6 

0001 

Q 240 



0 240 

SPQ6 

0002 

0 2 41 



0 241 

DR06 

ooco 

0 2 42 




o 



SCHREQ 
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date: 01/27/99 

1 _ 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M 0 

0 L S 



o 

AO 

0199 

A1 

0 200 

ADISP 

0018 

AMONI 

0018 

asmasc 

0184 


BUF CMT 

0040 

BUFEMT 

0 043 

BUFFER 

0 044 

CHRSLV 

0026 

COMLU 

0023 


ERI 0 

0099 

EXME 

0112 

EXTHAN 

0151 

EXTMSG 

0152 

FIELD 

0041 


X 

000 0 

10 ERR 

0 033 

LISTLU 

0034 

LMESO 

0176 

lmesx 

0179 


HE3 X 

017 7 

MODE 

0102 

MSG 

00 31 

NEWMLU 

0 0 36 

NINE 

C02i 


OTLU 

0 093 

OUT 

0 0 89 

PROGl 

0 037 

PROG2 

0 038 

REDCD 

0105 


SCH003 

0085 

SCHGOM 

0162 

SCHCPL 

0160 

SCHFLO 

0158 

SCHPAR 

0143 

O ; 

SCH REQ 

0015 

SCHVAL 

0 0 76 

SCHXX3 

0129 

SCHXX4 

0136 

SIX 

0019 

SP06 

0 240 

TEN 

0 0 22 

THREE 

0 0 21 

TW 

0 20 3 

TWO 

020 6 


TWO 

ZROBIT 

0021 

0G18 

TWX 

0211 

WRTBF 

0 0 95 

WRTCD 

0090 

WRTEX 

0091 


u 


O 

Q 


o 

o 

o 

o 

Q 

o 

o 

o 


o 


asmod 

0027 

.ASTRIC 

00 2 0 

BASE 

comma 

0020 

...comolu 

0035 

DB0 6 

FIVE 

0019: 

;;getrt 

Clio 

GONE 

lpmsk 

0018 

: .'MESO 

0167 

MESl 

NZERO 

; 0 018 

OKWD 

OllH 

ONE 

REDOK 

0118 

SAOd 

0239 

SCHOOl 

SCHPRO 

0153 

SCHPRl 

0154 

SCHPRT 

SIXTEN 

0019 

SLASH 

00 2 0 

SLASHF 

TWl 

0223 

TW2 

0224 

TH3 

WRTOK 

0104 

WRTRN 

0098 

WRTSZ 


G 15 0 

BITFLG 

0039 

O 

0 241 

EIGHT 

0021 


014 5 

HANDLE 

0Q3O 


Q17G 

MES2 

0172 

■ O 

0021 

ONEBIT 

0G19 

0062 

SCH002 

0074 


0159 

SCHDRG 

0161 


0042 

SOHHOR 

0032 


0225 

TWAS 

0226 

1 ) 

0094 

ZERO 

0019 



o 

(O 


u 

o 

■ o 

; O 

■ C) 
; O 
; O 

: o 

o 

o 


o 

C' 

o 

o 

n 


SPFRFQ 


PAGE 


DATE: 01/27/99 


0001 
00 0 2 
00 03 
00 0 4 
00 0 5 
000 6 
00 0 7 
00 08 
00 09 
0010 
0011 

0013 

0014 


♦ 

* 

V- 

* 

if- 

if 

if 

if 

if 


NAM SPEREQ DECK-ID N15 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR SEARCHS CORE FOR PARITY. 
THE REQUEST HAS THE FOLLOWING FORMAT. 
SPE.LAST LOCATION IN CORE(CR) 


ENT SPEREQ 


ENTRY 


NAME 


SUMMARY-113»»-^^-’f ^ 
N150QQ02 
N1500003 
N1500Q04 
N1500 J05 
N15Q 0Q06 
N1500007 
N15G 0 0 0 8 
N1500G09 
N15Q 0010 
N1500U11 

N15G0013 
N150 0 014 


U 

o 

o 

o 

o 

C- 

o 

o 

o 


0016 




* E 

Q U ' TABLE 

0017 

0 0F4 
0 0 EA 
0 0 02 
0012 
0 0 33 


EQU 

AMONI (SF4) 

,ADISP($EA) ,LPMSK(2) ,NZERO( $12) ,ZR0BIT($33) 

0018 

0 0 43 
0 0 44 
0 0 22 
0 0 23 
0 027 


EQU 

FIVE{$43) , 

SIX ($ff4) , ZERO ($22) ,0NE8IT($23 ) tSIXTEN ($27) 

0019 

0 02C 
0 0 2F 
GQ2A 


EQU 

COMMA ($20 

,SLASH($2F) ,ASTRIC ($2A) 

0020 

0 0 26 
0 0 45 
0 0 04 
0 003 
0 024 


EQU 

EIGHT ($26) 

,NINE($45),THREE(4) ,ONE ( 3), TWO ($24) 

0021 

0 0 46 


EQU 

TEN ($46) 

*-*MS0S4 

0023 




PARAMETER LOCATION (OFFSET FROM BASE) 

0024 

0 0 01 


EQU 

HANDLE( 1) 

"HANDLE" 

002 5 

00 02 


EQU 

MSG (2) 

"MSG" ENTRY 

0026 

0 0 03 


EQU 

SOMMORC 3) 

"SOMMOR" ENTRY 

0027 

0 0 04 


EQU 

lOERR (4 ) 

“10 ERR" ENTR'Y 

0028 

00 05 


EQU 

LISTLU(5) 

LIST OUTPUT "LISTLU" 

0029 

0 0 06 


EQU 

C0M0LU(6) 

"COMOLU" 

0030 

00 07 


EQU 

NEWMLU( 7) 

"NEHMLU" NEW MM LU 

0031 

0 0 08 


EQU 

PROGl C8) 

"PROGl" 

0032 

0 0 09 


EQU 

PR0G2 (3 ) 

"PR0G2" 

0033 

00 OA 


EQU 

BITFLG( 103 

"BITFLG" 

003 4 

00 08 


EQU 

BUFCNT( 11) 

“BUFCNT" 


N150 0016 
N150 0 017 


N150Q018 

N1500019 

N1500020 


N150 0 023 
N15J 0 024 
N150 0025 
N 15 0 0 0 2 5 
N15Q0027 
N150 0 028 
N150 0029 
N15D0030 
N1500031 
N150 0032 
N1500033 
N150 0034 


O 

O 

O 

O 


o 

o 

(0 

O 

O 

o 

o 

^***\ 

v.--' 


o 


SPEREQ 


PAGE 


2 


DATE 


01/ 27/9 9 


003 5 


00 oc 


EQU 

FIELD (12) 

"FIELD” 

N1500Q35 

0 0 3 6 


00 10 


EQU 

SLASHF(16) 

"SLASHF" 

N153 0 036 

0 0 3 7 


00 11 


EQU 

BUFEMT(17) 

"BUFEMT" 

N150 0 03 7 

00 3 3 


0012 


EQU 

BUFFER (18) 

"BUFFER" 

N15Q0038 

0040 







N15D 0 U4G 

0041 






PROGRAM START 

N1500041 

00 42 







N150 0042 

0044 

POOOO 

683E 

SPEREQ 

STA^ 

BASE 

SAVE PARAMETER BUFFER ADDRESS 

N1530Q44 

0 0 4 5 

POOOl 

50FF 


STA- 

I 


N150 0 045 

0 0 4 6 

P0Q02 

ClOl 


LD A- 

HANDLE, I 

GET "HANDLE" ROUTINE ADDRESS 

N150 0046 

0047 

P0 0 03 

683C 


STA^ 

EXTHAN 


N15Q 0 047 

0048 

P0 0 0 4 

C102 


LDA- 

MSG, I 

FETCH "MSG" ADDRESS 

N150 0 048 

00 49 

PDQ05 

633B 


STA^ 

EXT MSG 


N1500Q49 

0G51 

P0006 

0CO4 


ENQ 

4 

SET TO GET 4 CHAR. FIELD 

N150 0 051 

0052 

P0 0 0 7 

0 ADZ 


ENA 

2 


N150 0 052 

0053 

P0 0 0 8 

5C37 


RTJ- 

(EXTHAN 3 

GET FIELD 

N150 0 053 

00 54 

P0 0 09 

Cl OC 


LDA- 

FIELD, I 

IS CONTROL CHAR.= COMMA, 

N 15 G 0 05 4 

0 0 5 5 

PuOOA 

0107 


SAZ 

SPEOO l-^^-l 

$FF OR NONE 

N150 0 055 

0 0 5 6 

P 0 0 0 8 

9 0 0A 


sua- 

LPMSK+8 


Ni50Q056 

00 57 

POOOC 

0105 


3AZ 

SPEOOl-^-1 

SKIP YES 

N15G 0 057 

0058 

POOOD 

8 OOA 


ADD- 

LPMSK + 8 


N 150 0 05 8 

0059 

P 0 C 0 E 

G9D3 


INA 

-COMMA 


N150 0 059 

0060 

POOOF 

0 102 


SAZ 

SPEQOl-^-1 

SKIP YES 

N15u 0060 

0 0 61 

PGDIC 

0C04 

SPEGO 0 

ENQ 

4 

ILLEGAL CONTROL CHAR. OUTPUT FORMAT 

N150 0 051 

0062 

POOH 

1C2F 

SOOl 

JMP-^ 

(EXTMSG) 

INCORRECT MSG. AND EXIT PROCESSOR 

N15QD062 

0063 

PG012 

GC02 

SPECOl 

ENQ 

2 

IS FIELD BLANK 

N1500 053 

0 0 6 4 

POO 13 

C3 0D 


LDA- 

FIELD + 1 ,B 


N150 0 064 

00 65 

P0Q14 

P.O 0 0 


EOR 

=N$2020 


N1500065 


P0015 

20 20 






0066 

PQ016 

0113 


SAN 

SPE01A-->-l 

SKIP NO 

N150 0 065 

0067 

P0017 

ODFE 


INQ 

-1 


N1500067 

00 58 

P0018 

0175 


SQM 

SPE00 2-+-1 

SKIP YES 

N1500 068 

0 0 69 

P0019 

13 F9 


JMP» 

SPEOQl+1 


N15Q 0 069 

007 0 

POOIA 

OA 03 

SPEOIA 

ENA 

3 

NO, CONVERT TO HEX 

N150 0 07 0 

0071 

PO QIB 

5C24 



(EXTHAN) 


N150 0 071 

0072 

POOIG 

0 0 00 

SPEVAL 

0 

0 


N150 0 0 72 

0073 

POQID 

1803 


JMP^ 

SPE008 


N150 0 07 3 

0074 

PQOIE 

coil 

SPE002 

LDA- 

LPMSK+15 


N150 0 074 

007 5 

POOIF 

68FC 


STA» 

SPEVAL 


N150 0 075 

00 7 6 

P0020 

0 3 44 

SPEQ08 

CLR 

A 

INITIALIZE CORE READ INDEX »»MS0S4. 

0*-^N150 0 Q76 

0077 

P0021 

6820 


STA» 

SPELOC 


N150 0 077 

0078 

PO 022 

0 50 0 

SPE003 

IIN 

0 

INHIBIT INTERRUPTS DURING CHECK 

N15D 0 078 

0079 

P0023 

CCIE 


LDA^ 

(SPELOC) 

READ FROM CORE 

N15Q0079 

00 80 

P0 024 

Q IDl 


SNP 

SPE007 


N15D0080 

0081 

P0Q25 

1311 


JMP» 

SPE005 

PARITY ERROR 

N1500081 

008 2 

P0G26 

0400 

SPE007 

EIN 

0 

ENABLE INTERRUPTS 

N15Q0 082 

008 3 

P0027 

C81B 


LDA^ 

FAFFFF 

CHECK IF THIS WAS $FFFF ADDRESS 

N1500D83 

008 4 

P0028 

013B 


SAM 

SPE004 

SKIP TO END IF =$FFFF 

N15G 0 G84 


SPEREQ 


PAGE 


date: 01/27/99 



0085 

P0029 

C8F2 


LDA^ 

SPEVAL 


0086 

P002A 

9817 


SUB^- 

SPELOC 


00 8 7 

P0 02B 

0108 


SAZ 

SPE004-^ 

u 

0088 

P002C 

C815 


LDA^ 

SPELOC 


0 089 

PQQ2D 

B033 


EOR- 

ZROBIT 


0090 

P002E 

0113 


SAN 

8MPI0X 


00 91 

P0Q2F 

03 04 


SET 

A 

u 

0092 

PO 030 

6812 


STA^ 

FAFFFF 


009 3 

PD031 

6810 


STA» 

SPELOC 


0094 

P0032 

D80F 

BMPID X 

RAO^ 

SPELOC 


0095 

PC033 

18EE 


JMP» 

SPE003 

u 

0096 

P0G34 

GC07 

SPEOQ 4 

ENQ 

7 


0097 

PQ035 

18DB 


JMP» 

SQOl 


0098 

P0D36 

0 400 

SPEOO 5 

EIN 

0 


0099 

P0037 

C80A 


LOA^ 

SPELOC 


010 0 

P00 38 

6804 


STA^ 

SPEQ06 


0101 

PO 039 

OCFE 


ENQ 

-1 


0102 

P0 03A 

0A04 


ENA 

4 


0103 

PQQ3B 

5C04 


RTJ» 

(EXTHAN ) 

U 

0104 

PO 03C 

0 0 00 

SPEOQ 6 

0 

0 


010 5 

PQ03D 

1 8E8 


JMP^ 

SPE007 


010 7 






W 

0108 

P003E 

0 0 00 

BASE 

NUH 

0 


0109 

P003F 

0 0 0 0 

EXTHAN 

HUM 

0 


0110 

PQ040 

0 0 0 0 

EXTMSG 

NUM 

0 


0111 

PQQ41 

OQQQ 

SPELOC 

0 

0 

o 

0112 

P0042 

0000 

FAFFFF 

NUH 

0 


CHECK FINISHED 

c ^ T p Y 

CHECK IF, NOW $FFFF 
<^KTTP TF NOT "SFFFE 


SET SFFFF (RAO TO $FFFE=+0, NOT -0) 
BUMP INDEX 
DO NEXT CHECK 
OUTPUT SEARCH FINISHED 
HSG AND EXIT PROCESSOR 

OUTPUT LOCATION OF PARITY 

(NFG. INDICATES ADDRESS ONLY) 


COTINUE SEARCH 


LOC. OF PRESENT CELL BEING CHECKED 
LAST PASS FLAG 


N15QQ 085 
N1500086 
N150 0 G87 
N150 0 088 
N150 0 089 
N15G009G 
N1500 G9i 
N1500092 
N15Q0Q93 

N153Q096 
N150Q097 
Ni500Q98 
N153 0 099 
N 150 010 0 
N15001D1 
N150 0102 
N1500 103 
N1500104 
N150 0 10 5 

N1500107 
N150 010 8 
N1500109 
N150Q 110 
N150G111 
N15Q0 112 


G 


O 


O 

o 

o 

o 

o 


o 


O 

0114 

0115 

0 0 00 

P 

EQU 

SA07( ^/96) 

0116 

0 0 01 

P 

EQU 

SP07(SAC7+1) 


0117 

00 60 

P 

EQU 

OB07 (SP07»96 ) 

O 

0118 

0119 

P0043 DOID 


BSS 

END 

(DB07-’^) 


PGM= 0060 ( 96) COM = 0000 ( 0) 

O 


N 15 0 0 1 1 4 
N150U115 
N150Q 11 6 
N1500117 
N 1500 118 
N1500119 


DAT = 0000 ( 0) 


O 

O 

O 

o 


o 


o 


o 


o 

r'";. 


o 

o 

o 




(" ■ ; 











SPEREQ 

PAGE 4 


date; 01/27/99 

o 

o 









E Q U I V 

A L E N 

C E S 





o 

c> 

DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE 

NUMBER 

; 

0 000 

I 

OOFF 

(000255) 

0 0 45 





0017 

AMONI 

00F4 

(000244) 






0017 

AOISP 

OOEA 

(000234) 

0056, 0053, 

Q074 


C.) 


0017 

LPMSK 

000 2 

(000002) 



0 017 

NZERO 

0012 

(000018) 

0 0 89 





0017 

ZROBIT 

0033 

(000051) 



o 


0018 

FIVE 

0043 

(000067) 




'W' 

0 018 

SIX 

0044 

(QQ0063) 





0018 

ZERO 

0022 

(000034) 






0 018 

ONEBIT 

0023 

(000035) 




o 


0018 

SIXTEN 

0Q27 

(000039) 

0 059 



's.y 

0019 

COMMA 

002C 

(000044) 




0019 

SLASH 

Q02F 

(000047) 






0019 

ASTRIC 

002A 

(0 00042) 





o 

0 0 20 

EIGHT 

0026 

(000038) 




■ ( 

0 0 20 

NINE 

0045 

(000069) 






0020 

THREE 

0004 

( 00 0 004) 






0 020 

ONE 

0003 

(0 00003) 





o 

0 0 20 

TWO 

0024 

(000036) 




{ 

0 021 

TEN 

0046 

(G0007Q) 

0 0 46 





0 024 

HANDLE 

00 0 1 

( COOQfll) 





0 0 25 

MSG 

0002 

(0 00002) 

0 0 48 




o 

0 0 2 6 

SOMMOR 

00 0 3 

(000003) 




■ u 

002 7 

lOERR 

0 00 4 

( 0000 0 4) 






0 0 28 

LISTLU 

000 5 

( 0 0000 5) 






0 C29 

COMOLU 

00 0 6 

(000006) 





o 

0 0 30 

NEWMLU 

000 7 

(000007) 




o 

0 031 

PROGl 

000 8 

(000008) 






0 032 

PR0G2 

0009 

( Q00009) 






0 0 33 

BITFLG 

OflO A 

(OOOQIO) 




' o 

o 

00 3 4 

BUFCNT 

0 OOB 

(000011) 

0054, 0064 



0 0 3 5 

FIELD 

OOOC 

(000012) 





0 03 6 

SLASHF 

0010 

(000016) 






0 037 

BUFEMT 

0011 

(000017) 




: O 

o 

0038 

BUFFER 

0012 

(000018) 




■ C 

o 








o 








o 

p) 

'»w* 

o 









o 


SPEREQ 


PAGE 5 


DATE: 01/27/99 


o 


S Y M B 0 L S 


DEF.LINE 

NAME 

ADDRESS 

0014 

SPEREQ 

00 0 0 

0061 

SPED 0 0 

0010 

0 0 62 

SOOl 

0011 

0053 

SPEOOl 

G012 

0Q70 

SPEOIA 

OOIA 

0 072 

SPEVAL 

OOlC 

0 07 4 

SPE0G2 

OOIE 

0 076 

SPEOO 8 

0 0 20 

0078 

SPE003 

0022 

0062 

SPE007 

0026 

0 094 

BMPIDX 

0032 

0 0 96 

SPE0C4 

0034 

0 098 

SPE005 

0036 

0104 

SPEG06 

e03C 

0108 

BASE 

0G3E 

0109 

EXTHAN 

003F 

0 110 

EXTMSG 

0040 

0111 

SPELOC 

0041 

Q 112 

FAFFFF 

0042 

0115 

SA07 

00 00 

0116 

SPO 7 

0 0 01 

0117 

DB07 

0060 


REPEPENCED AT LINE NUMBER 


0014 




0 097 
00 55 , 
0 066 

0 057 , 

0 060, 

0069 

0 0 75 , 
0 0 68 
0 073 
0095 

0 08 5 



0 0 80 , 
G 090 

0105 



0 0 84, 
0 0 81 

0 087 



0100 
0 0 44 
0047, 

0 053, 

0071, 

Q103 

0 0 49 , 

G 062 



0077, 

0079, 

0086, 

0088 

0 0 83 , 
0116 

0092 



0117 
3 118 





0093 , 


0094, 0099 


’ o 

o 

; O 

r-\ 

: O ! 

O ! 

I 

I 

C/ i 



SPEREQ 


PAGE 

6 


date: 01/ 

27/99 









A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 











ADISP 

COMMA 

HAMDLE 

ONE 

SLASHF 
SPEO Q ft 

0017 

0019 
0024 

0020 
0036 
0104 

AMONI 

COMOLU 

I 

ONEBIT 
SOHMOR 
SPEO 07 

0 017 
0 0 29 
0 0 00 
0 018 
0 0 26 
0 082 

ASTRIC 

0007 

lOERR 

PROGl 

SP07 

SPE0Q8 

D 019 
0 117 
0 0 27 
0 0 31 
0 116 
0 0 76 

BASF 

EIGHT 

LISTLU 

PR0G2 

SPEOOQ 

SPEOIA 

0108 

0020 

0028 

0032 

0061 

0070 

BITFLG 

EXTHAN 

LPMSK 

SOOl 

SPEOOl 

SPELOC 

0033 
010 9 
001 7 
0062 
0063 
0111 

8MPI0X 

EXTMSG 

MSG 

SAG7 

SPE002 

SPEREQ 

0 094 
0 110 
’002 5 
0115 
007a 
OO lA 

BUFCMT 

FAFFFF 

NEWMLU 

SIX 

SPEG03 

SPEVAL 

00 3 4 
0112 
0030 
0013 
0078 
0D7 2 

BUFEMT 
FIELD 
NINE 
SIX TEN 
SPE 004 
TEN 

0 037 
0 03 5 
0 020 
0018 
0 09 6 
0 021 

BUFFER 

FIVE 

NZERO 

SLASH 

SPE6D5 

THREE 

• 

0038 
0018 
0 017 
0G19 
0098 
0G20 

TWO 

0020 

ZERO 

0018 

ZPOBIT 

0 017 














date: 01/27/99 


000 1 
00D2 
00 0 3 
00 0 4 
00 0 5 
00 0 6 
00 07 
00 0 8 
00 09 
0010 
0011 
0012 


CQ14 

0015 


CPPREQ 


PAGE 1 


NAM CPPREQ DECK-ID Nl6 MSOS 5.0 

^ MASS STORAGE OPERATING SYSTEM VERSION 5.0 

SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
^ COPYRIGHT CONTROL DATA CORPORATION 1976 

* THIS PROCESSOR CLEARS THE PROGRAM PROTECT BIT 

^ FOR THE CELLS SPECIFIED. 

^ THE FORMAT FOR THE REQUEST IS AS FOLLOWS. 

» GPP, START CORE, END CORE(CRJ 

♦ 

♦ ENTRY NAME 

ENT CPPREQ 


SUMHARY-llONieOOuOl 
N1600002 
N16D0003 
N16Q 0 004 
N16QQQ05 
N160 0 0 06 
N160 0 jO 7 
N1600008 
N160 0 009 
N16a 0010 
N1600011 
N1600012 

N160 0014 
N16Q0Q15 


0017 

0018 

0019 

0020 
0021 

0022 


0 0 F4 
GOEA 
0 0 02 
0012 
0 0 33 
0 0 43 
0 0 -+4 
0 0 22 
0 023 
0 0 27 
0 02C 
0Q2F 
0 02A 
0 0 26 
0 0 45 
0 0 04 
0 0 03 
0 024 
0 0 46 


'EQU' TABLE 

EQU AMD MI t$F4) ,A'DISP($EA) ,LPMSK(2) ,NZER0($12) ,ZR08IT ($3 3) 


N16Q 0017 
N16Q0 018 


EQU FIVE ($43 ), SIX ($44) , ZERO ( $2 2 ) , ONEB I T ($23 ) , SI XTEN ( $27 ) 


N1600019 


EQU COMMA ($20 , SLASH t$2F) ,ASTRIC($2A) 

EQU EIGHT($26) ,NINE($45) , THREE (4) , ONE ( 3 ) , TWO ( $2 4 ) 


N16u0320 

N1500021 


EQU TEN($45) 


^^MS0S4. 0»^N1600 022 


0Q24 

0025 

0 0 01 

002 6 

00 02 

002 7 

00 03 

0028 

0 0 04 

0029 

0 0 05 

003 0 

00 06 

0031 

0 0 07 

0032 

0 0 08 

0033 

0 0 09 

00 3 4 

OOOA 


EQU HANDLE(l) 
EQU MSG (2) 

EQU SOHMOR(3l 
EQU I0ERR(4) 
EQU LISTLU(5) 
EQU C0M0LU(6) 
EQU NEWMLU(7) 
EQU PR0GK8) 
EQU PR0G2(9) 
EQU BITFLGdO) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE' 

"MSG" ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 

LIST OUTPUT "LISTLU' 

"CQMOLU" 

"NEWMLU" NEW HM LU 

"PROGl" 

"PR0G2" 

"BITFLG" 


N1600024 
N1&G0Q25 
N16G0Q26 
N16Q0 027 
N16D 0 028 
N1600Q29 
N16C0Q3G 
N16G0031 
N1600Q32 
N16G0033 
N16;0034 


CPPREQ 


PAGE 


2 


date: Ql/27/99 


QOOB 

DQOC 

GQIO 

0011 

0012 


EQU BUFCNTdl) "BUFCNT* 

EQU FIELD(12) "FIELD" 

EQU SLA3HF(16) "SLASHF* 

EQU BUFEMT(17) "BUFEHT' 

EQU BUFFER(ia) "BUFFER* 




PROGRAM 


START 


POOOO 
POOOl 
P0 002 
P00 03 
P0G04 
P0Q05 

P0 006 
P0 007 
P0 008 
P00C9 
POCOA 
POOOB 
POOOC 
POOOD 
PQ OGE 
PQOOF 
POOlO 
POOH 
P0012 
P0013 
PG014 
P0015 
P0016 
P0017 
P0018 
POOIQ 
POOIA 
POOIB 
PO OIC 
POOID 
PQGIE 
POOIF 
P0020 
P0021 
P0022 
P0023 
P0024 
P0025 
P0026 
P0G27 


682C 

60FF 

GlOl 

682A 

C102 

6829 

-3 A 02 
6828 
0C04 
GA02 
5C23 
CIOC 
0107 
90 OA 
0105 
80 0A 
09D3 
G102 
0C04 
ICIB 

0 AQ3 
5C18 
0 0 00 
C8FE 
E8 17 
6A16 
ODFE 
48 14 

01 41 
18EA 
E813 
0 700 
0811 
G80F 
0122 
C80E 
0123 
C80B 
980B 
0 131 


CPPREQ 


CPPCOl 


GPPOIA 
CPPCO 2 
CPPVAL 


CPP003 


GPP 03 A 


STA^ 

STA- 

LDA- 

STA^ 

LDA- 

STA* 

ENA 

STA^ 

ENQ 

ENA 

RTJ^ 

LDA- 

SAZ 

SUB- 

SAZ 

ADO- 

INA 

SAZ 

ENQ 

JMP» 

ENA 

RTJ^ 

0 

LDA-> 

LDQ’^ 

STA^ 

INQ 

STQ^ 

SQZ 

JMP* 

LDQ^ 

CPB 

RAO^ 

LDA^ 

SAP 

LOA* 

SAP 

LOA^ 

SUB^ 

SAM 


BASE 

1 

HANDLE, I 
EXTHAN 
MSG, I 
EXT MSG 

2 

CPPFLD 


(EXTHAN) 

FIELD , I 

CPPG02-»-l 

LPMSK+8 

CPP0Q2-^-l 

LPMSK+8 

-COMMA 

CPPu02-^-l 

(EXTMSG ) 

3 

(EXTHAN ) 

0 

CPPVAL 
CPPFL D 
CPPEND- 1,Q 

-1 

CPPFLD 

CPP003-+-1 

CPPOOl 

GPPSTR 

0 

GPPSTR 
CPPEND 
CPP03A 
GPPSTR 
CPP03B 
CPPEND 
GPPSTR 
CPPOO 4- + -1 


SAVE PARAMETER BUFFER ADDRESS 
GET "HANDLE" ROUTINE ADDRESS 
FETCH "MSG" ADDRESS 


INITIALIZE TO GET 2 FIELDS 
SET TO GET 4 CHAR. FIELDS 
GET FIELD 

IS CONTROL CHAR.= COMMA, 
$FF OR NONE 

SKIP YES 


SKIP YES 

OUTPUT FORMAT INCORRECT 
MESSAGE AND EXIT PROCESSOR. 
CONVERT FIELD TO HEX 


SAVE FIELD 


DECREMENT FIELD NO. 

SKIP IF ALL FIELD OBTAINED 

CLEAR PROTECT BIT FROM 
START TO LAST 


SKIP IF DONE 


N16Q 0 035 
N16'3 0 036 
N1600037 
N16u u 038 
N1600039 


N1600041 

N16DQQ42 

N1600Q43 


N1600045 
N1600046 
N160 0 047 
N160 0 048 
N160 u 049 
N160Q05D 

N1600G52 
N16G0053 
N160 0054 
N16G0055 
N16GQG56 
N160 0 05 7 
N160QQ58 
N16G 0 059 
N160 0060 
NibOQOol 
N160 0 062 
N16Q0053 
N16 Q 0 0 64 
N160Q065 
N160Q056 
N16C 0 067 
N15D005S 
N160Q069 
N160 0 Q70 
N16UG071 
N1600072 
N1600 073 
N1600 07 4 
N 160 0 07 5 
^^MSOS4.0’^ + N1600 Q76 
N160G077 
N16Q0078 
N1600079 
♦^MSOS4.G'^*^N160G080 
+-HSOS<^. O^^NIBOO 081 
+ + MSOS4.ii^*N16QOQ82 
^ + MSOS4.0*^-N1600 083 
N16Q 0 08 4 
N16a0085 


O 

C> 

o 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


o 



CPPf?EQ 


Pi\GE 


3 


date: 01/27/99 


0066 PD028 18F5 

0087 P0029 E8Q3 

0088 P002A E203 

0089 PQQ2B 1622 

0091 

0092 P002C OOGO 

0093 P0G2D OOGO 

0094 P0 02E 00 00 

0095 

0096 P0D2F 0000 

0097 PQ030 0000 
0093 PQ031 QOOO 


CPP03B JMP’^ CPPG03 
CPP004 LDQ» BASE 

LOn- SOMMOR,Q 
JMP- (ZERO)»Q 


BASE NUM 0 
EXTHAN NUM 0 
EXTMSG NUM 0 
* STORAGE 

CPPFLO 0 0 

CPPEND 0 0 

CPPSTR 0 0 


EXIT (TO "SOMMOR") 


NO. OF REMAINING FIELDS 
LAST CELL TO BE CLEARED 
FIRST CELL TO BE CLEARED 


010 0 
0101 
OID 2 
0103 
QIQ 4 
0105 


0000 P 
0 0 01 p 
0 0 60 P 
PQ032 Q02E 


EQU SA08(^/96) 

EQU SP08(SA08-H) 
EQU DBO 8(SP08^96) 
BSS (DB08-») 


PGM= OObO 


OM = 0000 ( 


0000 ( 


o 

n 


■■■D 

O 

O 

O 

O 


O 


C 


^s^MSOSA. 0 »--»^N16a0 085 
Ni6Q 0 037 
N16QG 088 
N160 0 089 

N16Q0J91 
N16Q0Q92 
N1600 093 
N16Q 0 094 
N1600095 
N16ii 0 096 
Nl&OO 097 
N1600 098 



O 

N 160 010 0 

^ n 

N16GQ101 


N160G1Q2 


N1600103 


N160 01Q4 

o 

N16GQ105 



c 


o 

c 

o 

o 

•s— ^ 


o 

o 

o 


CPPREO, 


PAGE 


DATE*. 01/27/99 


4 


EQUIVALENCES 


DEF.LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 

0 000 

I 

QOFF 

(000255) 

0 0 46 

0018 

AMONI 

00F4 

(000244) 


0018 

ADISP 

OOEA 

(000234) 


0018 

LPMSK 

COO 2 

(000002) 

0059, 0061 

0 013 

NZERO 

0012 

(000018) 


0018 

ZROBIT 

0 03 3 

(000051) 


0019 

FIVE 

0 u 43 

(000067) 


0019 

SIX 

0044 

(000068) 


0019 

ZERO 

0022 

( 000034) 

0 089 

0019 

ONEBIT 

0023 

(000035) 


0 019 

SIXTEN 

0027 

(000039) 


0 0 20 

COMMA 

0G2C 

(000044) 

0 0 62 

0 Q2Q 

SLASH ■ 

0Q2F 

(000047) 


0 020 

ASTRIC 

002A 

(000042) 


0 021 

EIGHT 

00 2 6 

(000038) 


0021 

NINE 

0045 

(000069) 


0 021 

THREE 

0 00 4 

( 0QQ004) 


■ 0 0 21 

ONE 

0003 

( 0Q0GQ3) 


0 0 21 

TWO 

0024 

(000036) 


0 0 22 

TEN 

0046 

(000070) 


0 02 5 

HANDLE 

0 00 1 

( QOOCOl) 

0 0 47 

0 026 

MSG 

0 002 

( 0 00002) 

0 049 

0 027 

SOMMOR 

00 0 3 

(000003) 

0 0 88 

0 G 28 

lOERR 

000 4 

(000004) 


0029 

LISTLU 

00 0 5 

(0000Q5) 


0030 

COMOLU 

0 006 

(000006) 


0 031 

NEWMLU 

00 07 

( 0 00Q07) 


00 32 

PROGl 

000 8 

(000008) 


0033 

PP0G2 

0009 

(000009) 


0034 

BITFLG 

OOQA 

(oooaio) 


0 035 

BUFCNT 

GOOB 

(OOOOli) 


003 6 

FIELD 

oooc 

(000012) 

0057 

0037 

SLASHF 

0010 

(0 00 016) 


0 038 

BUFEMT 

0011 

(000017) 


0 039 

BUFFER 

0012 

(0 00018) 



CPPREQ 


PAGE 


5 


OATES 01/27/99 



Q SYMBOLS 


o 

DEE . LINE 

NAME 

ADDRESS 


0015 

CPPf?ED 

000 0 


005 4 

CPPOOi 

00 0 8 

o 

00 64 

CPPOIA 

0012 

0066 

CPPO 02 

0014 


0068 

CPPyAL 

0016 


007 6 

CPP0G3 

OOIE 


0 083 

CPPG3A 

002 5 

U 

00 86 

CPP03B 

0028 


0087 

CPPOO 4 

0029 


0092 

BASE 

D02C 


0093 

EXTHAN 

002D 


0 094 

EXTMSG 

002E 


0 09 6 

CPPFLD 

002F 


0097 

CPPEND 

0030 


0 Q 98 

CPPSTR 

0031 


0101 

SA0 8 

00 0 0 


0 102 

SPQ8 

OGOl 


0103 

OBO 8 

0060 


o 


o 

o 

o 


o 


REFERENCED AT LINE NUMBER 


0015 
0 075 



0 0 58 , 

0060 , 

0063 

0 069 
0 0 74, 
0 080 
0082 
0 0 85 

0 086 


0 045, 

0 087 


0 0 48 , 

0 05 6, 

0067 

0 050 , 

0 06 5 


0 0 53 , 

0 070 , 

0 073 

0 0 71, 

0079, 

0083 

0 0 76, 
0102 
0103 

0 078, 

QC81 

0 104 




0084 


O 


o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


CPPREQ PAGE 6 DATE: 01/27/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 











ADISP 

0 01 a 

AM ONI 

0018 

ASTRIC 

0 0 20 

BASE 

0092 

BITFLG 

0034 

BUFCNT 

0 035 

BUFEMT 

0033 

BUFFER 

0039 

COMMA 

'0020 

COMOLU 

0 03 0 

CPPGOl 

Q054 

CPP0Q2 

0 0 66 

CPP003 

0076 

CPPOO 4 

0 087 

CPPOIA 

0064 

CPP03A 

0 3 83 

CPPG38 

0086 

CPPEND 

0 097 

CPPFLD 

0096 

CPPREQ 

0015 

CPPSTR 

0 098 

CPPVAL 

0068 

DB03 

0103 

EIGHT 

0021 

EXTHAN 

0 0 93 

EXTHSG 

0 09 4 

FIELD 

0G36 

FIVE 

0019 

HANDLE 

0 025 

I 

GOOQ . 

ICERR 

0028 

LISTLU 

0029 

LPMSK 

0018 

MSG 

002 6 

NEWMLU 

0 031 

NINE 

0 0 21 

NZERO 

0018 

ONE 

0 0 21 

ONEBIT 

0019 

PROGl 

0032 

PR0G2 

003 3 

SA08 

0101 

SIX 

QG19 

SIXTEN 

0019 

SLASH 

0020 

SLASHF 

0037 

SOMHOR 

0 027 

SP08 

Q 102 

TEN 

0022 

THREE 

0021 

TWO 

0 021 

ZERO 

0019 

ZROBIT 

0018 





PAGE 1 


date: 01/27/99 


ODOl^’^^^NN QOOC 
0002 0010 
0007 0011 
0004 0012 


EQU FIELOdE) "FIELD 

EQU SLASHF(16) 

EQU 8UFEMT(17) gUFEMT 

EQU BUFFER(18) "BUFFER 


000 5 
00 0 7 
00 0 8 




program 


START 


0010 POQOO 682C CPPREQ 
00 11^ POO 01^60 FF^^^ 

QG12 P0002 ClOO 
0013 P0003 682A 

=!-V- 

OGl-f P0G04 ClOO 
0015 P00C5 6829 

00 17 PO 00 6 0 A02 
0013 POOC 7 6 828 

0019 P00C8 QCD4 CPPOOl 

0020 P0009 0AQ2 

0021 POQuA 5C23 

0022 PQOGBCIOC 

0023 PODOC 0107 

0024 POOGD 9000 

0025 POQOE 0105 

it- V- ^ * >f- r ^ 

0026 POOOF R'300 

» y g J_,l ^ -ili # ¥ 

0027 POOlO 0900 

0028 POGil 0102 « 

0029 PD012 0CG4 CPPOIA 

0030 P0013 ICIB 

0031 P0014 0A03 CPP002 

0032 P0015 5C18 

0033 P0016 0000 CPPVAL 

0034 P0017 C8FE 

0035 POOIB E817 

0036 P0Q19 6A16 

0037 POOIA ODFE 

0038 POOIB 4814 

G039 POOIC 0141 

0040 POOiD 18EA 

0041 PCOIE E813 CPPG03 

DD42 POQIF 0700 

0043 P0Q2C 0811 

0044 PD021 C80F 

0045 PGQ22 0122 

0046 P0023 C80E 


CPPREQ STA* BASE 
STA- I 


LDA- HAMDLE»I 
STA^ EXTHAN 

LOA- MSG, I 
STA^ EXTMSG 

ENA 2 
STA- CPPFLD 
ENQ 4 

ENA 2 „ ^ 

RTJ^ (EXTHAN) 
LOA- FIELD,! 

SAZ CPP002-^-l 

SUB- LPMSK+8 
SAZ CPP002-’^-l 

ADD- LPMSK+8 


IN A -COMMA 
SAZ CPP0O2-+--1 
ENQ 4 

JHP“- (EXTMSG) 
ENA 3 

RTJ’f (EXTHAN) 

0 0 
LDA^ CPPVAL 
LOQ^ CPPFLD 
STA^ CPPEND-1,Q 
INQ -1 
STQ» CPPFLD 
SQZ CPPGQ3-^-l 
JMP+ CPPOOl 
LOQ+ CPPSTR 
CPB 0 
PAO"*^ CPPSTR 
LDA^ CPPENO 
SAP CPP03A 
LDA^ CPPSTR 


SAVE PARAMETER BUFFER ADDRESS 
GFT "HANDLE" ROUTINE ADDRESS 
FETCH "MSG" ADDRESS 


INITIALIZE TO GET 2 FIELDS 
SET TO GET 4 CHAR. FIELDS 
GET FIELD 

IS CONTROL CHAR.= COMMA, 
SFF OR NONE 

SKIP yes 


SKIP Y ES 

OUTPUT FORMAT INCORRECT 
MESSAGE AND EXIT PROCESSOR 
CON\/ERT FIELD TO HEX 


SAVE FIELD 

decrement FIELD NO. 

SKIP IF ALL FIELD OBTAINED 

CLEAR PROTECT BIT FROM 
START TO LAST 


o 


N1 63 0 0 3 b 
N1600037 
N16Q L 038 
N160 0 039 


N160G 041 
N 16 0 0 0 42 
N 16 0 0 0‘+3 


o 


N160Q 0h5 
N 160 0 0 


N 1600 047 
N16C00h8 


N 160 G 0^9 
N160 0 05 0 

NloOQQ52 
NlbOO 053 
N160 0 054 
N 16 0 0 0 5 5 
N16D u 05 6 
NlbOO 057 
NlbOO 058 

Ni6QQ059 

NieaOubQ 

N1600Q61 


C 

O 

o 

o 


N160 0 0b2 
N160 0 063 
NlbO 0 064 
N16Q 0 06? 
N 160 0 066 
N16Q 0 067 
N160 0 068 
N160QU69 
N160Q070 
N ibO 0 071 
NlbO 0072 
NlbOO 073 
N16Q0Q74 
NlbO 0 075 
’^^MSOS4.Q^^N160 0 07 6 
N 160 0 0 7 7 
N160C 078 
N 160 0 07 9 
^^MSOS4.0»-^N160D08G 
»»MSOS4.0’*"-N160 0 0 81 


Q 

o 

o 

o 


o 




o 

o 


^'^HSOS4.0^»Nl600a82 
»^MSOS4.0^‘^N1600 083 

N 160 0 06 ‘t 

N16Q0 085 
^-MSOSi+.O’^-NlbOOOBe 
NlbOO 087 

N160 0 088 

N1600a89 

N160C091 
N16Q0 092 
N1600 093 
N16Q 0 09i- 
N16aQ095 
N1600096 
N160 0 097 
N 160 0 09 8 


N160 0 IQ 0 
N160 01G 1 
N1600102 
N1600103 
N 16G 0 1 0 4 
N1600105 


c 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 



PAGE 3 


DATES 01/27/99 


u 


c 

E Q U I V 

A L E N 

C E S 


DEF.LINE 

NAME 

VALUE 


0 DOQ 

I 

OOFF 


0 0 0 1 

FIELD 

OOOC 


0 0 0 2 

SLASHF 

0010 


0 0 03 

bufemt 

0011 


0 0 0 4 

BUFFER 

0012 


o 

Q 

c 

o 

o 

(D 

o 

o 


REFERENCED AT LINE NUMBER 

(00U255) 0011 

1000012) 0022 
I 000016) 

(000017) 

(000018) 


O 


o 

O 

o 

o 

o 

o 

o 

o 

C) 

o 

o 

Q 

o 

c 

o 

o 

o 


PAGE 4 


date: 01/27/99 


SYMBOLS 


DEF. LINE 

NAME 

ADDRESS 

REFEPENCED AT 

LINE NUMBER 

0 OIC 

CPPREQ 

OCQO 




D019 

CPPOOl 

00 0 8 

0040 



0 0 29 

CPPOIA 

0012 




G 0 31 

CPP002 

0014 

0023, 

0 02 5, 

0 028 

0 0 33 

CPPVAL 

0016 

0 034 



0041 

CPP003 

QOIE 

00 39, 

0051 


0 048 

GPP03A 

0 0 2 5 

0 0 45 



0 0 51 

CPPO30 

0 0 2 8 

0 0 47 



0 0 52 

CPPG04 

00 2 9 

0 0 50 



00 57 

BASE 

C02C 

0010, 

0 052 


0 058 

EXTHAN 

0 0 2D 

0 013, 

0021 , 

0 032 

0 0 59 

EXT MSG 

Q02E 

0015, 

0 030 


0 061 

CPPFLD 

D02F 

0018, 

0Q3 5, 

0038 

0 062 

CPPFND 

0030 

0 0 36 , 

0 0 4 4, 

0048 

0 0 63 

CPPSTR 

0 0 31 

0 0 41 , 

0 043, 

0046, 00h9 

0 0 66 

SAO 8 

0000 

0 0 67 



0 067 

SPO 8 

00 0 1 

0 068 



0068 

DBG 8 

0060 

0 0 69 




PAGE 


date: Gl/27/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M 8 

0 L S 

■V V "V 


BASE 
CPP 03B 
FIELD 

0057 
0 051 
QOOl 

eUFEHT 

CPPEND 

I 

0 003 
0 062 
0 000 

BUFFER 

CPPFLD 

SA03 

0 0 0 4 
u 0 61 
0 066 

CPPOQl 

CPPREQ 

SLASHF 

0019 

OOIG 

0002 

CPPG02 

CPPSTR 

SP08 

0 031 
0063 
0067 


0007 ERRORS 


o 


o 


o 

o 

o 

o 

o 

Q 

o 

o 


o 


CPP003 0041 
CPPVAL 0033 


CPP004 uCE2 
DB08 0060 


CPPCIA 0029 
EXTHAN 0058 


CPP03A GG48 
EXTHSG GC59 


o 

o 

/ 

c 

o 

n- 

o 

o 

o 

o 

o 

o 


o 





o 

o' 

o 

o 


000 1 
000 ? 
00 0 3 
00 0 4 
00 0 5 
00 0 6 
000 7 
000 8 

0009 

0010 
0011 
G012 


SPPREQ, 


page 1 date: 01/27/99 


* 

* 

¥ 

>1- 

V- 

•y 

V- 


HAM SPPREQ DECK-ID N17 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
S.MALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR SETS THE PROGRAM PROTECT BIT 
FOR THE CELLS SPECIFIED. 

THE REQUEST HAS THE FOLLOWING FORMAT. 

SPP, START CORE, END CORE(GR) 


SUMMARY- 110N1700001 
N1700 J02 
N 170 0003 
N17300a4 
N170Q 005 
N1700006 
N17a0Q07 
N17ua008 
N170 0009 
N17a001Q 
N1700 Oil 
N170G012 




001 4 
0015 


* 

ENT 


ENTRY 

SPPREQ 


NAME 


N170 0 014 
N17G Q DIB 


C) 

G 

C 

O 


O 





0017 

0018 

Q 0F4 



OOEA 



0 0 02 

o 

0019 

0012 
0 0 33 
0 0 43 


0 0 44 

Q 


C 022 
0 0 23 
0 0 27 

0020 

0Q2C 

o 

0021 

G 0 2F 
0 0 2A 
0 026 


G 0 45 

o 


00 04 
0 0 03 
0 024 

0Q2 2 

0 0 46 


'EQU' TABLE N17Q0Q17 

EQU AMONI ($F4) , ADIS P (SEA) ,LPMSK(2) ,NZEP0($12) ,ZR0BIT($33) N 1700018 

EQU FIVE ( $43 ), SIX ($44) , ZERO ($22) ,ON EBIT ($ 23 ) , SIXTEN ($27 ) N170 0 019 


EQU COMMA ($20 ,SLASH($2F) ,ASTRIC ($2A) N1700 020 

EQU EIGHT ($26) , MINE ($45 ), THREE (4) , ONE (3) , TWO ( $24) N1700021 


EQU TEN{$46) 


«^’^MSOS4.0^^-N170 0 022 


o 




o 


u 


002 4 


¥ 


PARAMETER LOCATION (OFFSET 

FROM BASE) 

00 2 5 

0 0 01 


EQU 

HANDLE(l) 

••HANDLE" 


002 6 

0 0 02 


EQU 

MSG(2) 

"MSG" ENTRY 


0027 

0 0 03 


EQU 

S0MM0R(3 ) 

"SOHMOR" ENTRY 


0 02 8 

0 0 04 


EQU 

lOERR (4 ) 

"lOERR" ENTRY 


0029 

0 0 05 


EQU 

LISTLU (5) 

LIST OUTPUT "LISTLU” 

003 0 

0 0 06 


EQU 

C0M0LU(6) 

"COMOLU" 


0031 

0 0 07 


EQU 

NEWMLU (7) 

"NEWMLU" NEW MM 

LU 

003 2 

0 0 08 


EQU 

PROGl (8 ) 

"PROGl" 


0033 

0 0 09 


EQU 

PR0G2 (9 ) 

"PR0G2" 


00 3 4 

OOOA 


EQU 

BITFLG(IO) 

"BITFLG" 



o 


N17D0 024 
N17QGQ25 
N170 0 026 
N1700 027 
N170 0 02 8 
N1700 029 
N 17u 0 03 0 
N17G0Q31 
N 17 0 0 03 2 
N170a033 
N170003H 


O 

o 

O 

O 


O 


o 





003 5 

0036 

0037 
00 38 
0039 


SPPRFQ 


PAGE 2 

DATEJ 01/27/99 

0 0 OB 

EQU 

BUFCNT(ll) 

"BUFCNT" 

00 OC 

EQU 

FIELD (12) 

"FIELD" 

OQIO 

EQU 

SLASHF (16) 

"SLASHF" 

0011 

EQU 

BUFEMT (17) 

"BUFEMT" 

DC12 

EQU 

BUFFERC 18) 

"BUFFER" 


N17Q 0035 
N170Q 036 
N170Q037 
N 1700 038 
Ni7QQQ39 






0041 

0042 

0043 


o 


0045 

POOOQ 


0046 

POQQl 

o 

00 47 

PO 002 

0048 

P0Q03 


0049 

P0Q04 


0 0 5 0 

P0005 

o 

00 5 2 

PQQO 6 


0053 

P0 00 7 


005 4 

P 0 0 0 8 


00 5 5 

P0 0 09 

\ J 

00 56 

POOD A 


005 7 

P 0 0 0 9 


0058 

POOOC 

o 

0059 

POOOD 

00 60 

PGOOE 


DDol 

POOQF 


0062 

POOlO 

' "*"'1 

0063 

POOH 


0064 

P0012 


006 5 

P0013 


0066 

P0014 

o 

0057 

P0015 

0068 

POfllB 


0069 

P0017 


007Q 

PQG18 

o 

0071 

P0Q19 

0072 

POOIA 


0073 

P0018 


0 0 7 4 

FGGIC 

o 

0 0 7 5 

POOID 

0076 

POOIE 


0077 

POQIF 


0078 

PD020 

o 

0079 

P0Q21 

00 80 

P0022 


0081 

PD023 


0082 

PCG24 

o 

0083 

P0 0 25 

008 H 

P0026 


0085 

P0 027 




682C 
6 OFF 
ClOl 
682A 
C102 
6829 

0 A02 
6828 

SPPREQ 

0CQ4 
CA02 
5C23 
CiOG 
0107 
90 OA 
01 05 
8 0 0 A 
0 9D3 
0102 

SPPOO 1 

GC04 

ICIB 

SPPOl A 

0A03 

5C18 

SPP002 

0 0 00 
C8FE 
E817 
6A16 
OOFF 
4814 
01 41 
18EA 

SPPVAL 

E813 
0 6 0 0 
D811 
C8 OF 
£>122 
C80E 
0123 

SPPOO 3 

C8GB 

9803 

0131 

SPPQ5 A 


STA^ 

BASE 

STA- 

I 

LDA- 

HANDLE, I 

STA^ 

EXTHAN 

LDA- 

MSG, I 

STA^ 

EXTMSG 

ENA 

2 

STA^ 

SPPFLQ 

ENQ 

4 

ENA 

2 

RTJ-'^ 

(EXTHAN ) 

LOA- 

FIELD , I 

SAZ 

SPPQQ2-^-l 

SUB- 

LPMSK + 8 

SAZ 

SPPG02-^-l 

ADD- 

LPMSK+8 

INA 

-COMMA 

SAZ 

SPP002-^-l 

ENQ 

4 

JMP^ 

(EXTMSG ) 

ENA 

3 

RTJ» 

(EXTHAN) 

0 

0 

LDA^ 

SPPVAL 

LDQ^ 

SPPFLD 

STA^ 

SPPEND-1,Q 

INQ 

-1 

STQ^ 

SPPFLD 

SQZ 

SPP003-^-l 

JMP- 

SPPOOl 

LDQ» 

SPPSTR. 

SPB 

0 

RAO^ 

SPPSTR 

LOA-^ 

SPPEND 

SAP 

SPP03A 

LOA^*^ 

SPPSTR 

SAP 

SPP03B 

LDA^ 

SPPEND 

SUB^ 

SPPSTR 

SAM 

SPPOO 4- =i'--l 


PROGRAM START NlTOflOAZ 

N17QQQ43 

SAVE PARAMETER BUFFER ADDRESS NITOOQhS 

N 170 0 O'^D 

GET "HANDLE" ROUTINE ADDRESS N1700Q47 

FETCH "MSG" ADDRESS N1700049 

N170afl5Q 


INITIALIZE TO GET 2 FIELDS 
SET TO GET 4 CHAR. 

GET FIELD 

IS CONTROL CHAR.= COMMA, 
$FF OR NONE 

SKIP YES 


SKIP YES 
OUTPUT FORMAT 

INCORRECT HSG. AND EXIT PROCESSOR 
CONVERT FIELD TO HEX 


SAVE FIELD 


DECREMENT FIELD NO, 

SKIP IF ALL FIELDS OBTAINED 

SET PROTECT BIT FROM 
START TO END 


SKIP IF DONE 


Ni7Qa052 
N 17 00 05 3 
N17a 0 05 h 
N17QQQ55 
N1700056 
N1700057 
N17GQ058 
N17Q 0 059 
N17G0060 
N17000&1 
N17G0062 
N17C0053 
N1700 064 
N 1700 065 
N 17Q 0 065 
N1700067 
N170 0 068 
N1700 069 
N 170 0070 
N17Q 0 071 
N1700Q72 
N170 0 07 3 
N170Q 07h 
N 1700 075 
^^MSOS‘+.Q«‘^N170 0 076 
N170fl077 
Ni70 0 07 8 
- - N170Q079 

^-MSOS4.0»^N17CO 080 
^^HSOS‘t.0^-»-N1700 081 
■»’fMSOS4.tl^^N17QOQ82 
’^^MSOS%.0»-«^N170Q083 
N170 Q 084 
N17G 0 085 


o 

C) 


I ' 


C) 

o 


o 


o 


o 

o 


u 


o 


SPPREQ 


PAGE 


3 


date: Ql/27/99 


003 6 

P0028 

18F? 

SPP03B 

JMP’^ 

SPPG03 



’^^MSOS4.0^^N170 0 086 

008 7 

P0D29 

E8 03 

SPPOO 4 

LDQ’^ 

BASE 

EXIT (TO "SOHMOR" 

) 

Ni70Q087 

0088 

PD02A 

E203 


LOQ- 

SOMMOR, Q 



N17Q 0 088 

00 89 

P0Q2B 

1622 


JMP- 

(ZERO),Q 



N170Q089 

0091 



* 





N17G0Q91 

0092 

P0G2C 

00 00 

BASE 

NUM 

0 



N17u0 092 

00 93 

PQ Q2D 

Q QOO 

EXTHAN 

NUM 

0 



N170Q 093 

0D9A 

P002F 

DO 00 

EXTM3G 

NUM 

0 



N17 0 0 09 4 

0099 



* 

STORAGE 



N 170 0 095 

0096 

PO Q2F 

0 0 00 

SPPFLD 

0 

0 

NO. OF REMAINING 

FIELDS TO GET 

N170UQ96 

0097 

P G Q 3 a 

00 CO 

SPPEND 

0 

0 

LAST CORE LOG. TO 

PROTECT 

N17Q0Q97 

00 98 

P0G31 

0 0 0 0 

SPPSTR 

0 

0 

FIRST CORE LOG. TO PROTECT 

N170 0 098 


010 0 






N170 0 10 0 

0101 


0 0 GO 

P 

EQU 

SA09(^/96) 

N170G101 

0102 


0 0 01 

P 

EQU 

SP09(SAD9+i) 

N170 0102 

010 3 


0 0 60 

P 

EQU 

OB09(SP09^96) 

N170 0 10 3 

0104 

PG 032 

0 0 2E 


BSS 

toBog-*^ ) 

N170 0 10 4 

010 5 




END 


N17Q0105 

PGM = 

00 6 0 

{ 

96) 

COM = 

0030 ( 0) DAT = 0000 ( 0) 



's>. > 








SPPREQ 

PAGE 4 DATEi 01/27/99 

o 





o 

o 

E 0 U I V 

A L E N 

C E S 


; O 






o 

DEF.LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 


0 0 C 0 

I 

OuFF 

(000255) 

0 0 46 


0018 

AHOMI 

QGF4 

(000244) 


r) 

0018 

ADISP 

OQEA 

(000234) 



Q018 

Li»MSK 

000 2 

(000002) 

0059, 0061 U 


0 018 

NZERO 

0012 

(000018) 



0018 

ZROBIT 

00 33 

(GOO 0 51) 


o 

0 019 

FIVE 

0043 

(000067) 

O 

0019 

SIX 

00 44 

( 000068) 


0 019 

ZERO 

0022 

(000034) 

0 089 


0 019 

ONERIT 

0023 

(000035) 



0019 

3IXTEN 

0027 

(000039) 

0 0 62 O 

'■J 

0 020 

COMMA 

002C 

(000044) 


0020 

SLASH 

002F 

(Q00Q47) 



0 020 

ASTRIC 

002A 

(000042) 



0021 

EIGHT 

0026 

( Q0QQ33 ) 



0 021 

NINE 

0045 

( 000069) 

u 


0021 

THREE 

GOO 4 

t OQOQQ h) 



0021 

ONE 

00 0 3 

(000003) 


o 

0021 

TWO 

00 2 4 

(000036) 


0022 

TEN 

004 6 

(000070) 

{ ’l 


0 025 

HANDLE 

0 001 

( OOQOOl) 

0 047 


QQ26 

MSG 

000 2 

(000002) 

0 0 49 

o 

0 027 

S OMMOR 

00 0 3 

(000003) 

0 0 88 

0028 

lOERR 

00 0 4 

(000004) 

O 


0 029 

LISTLU 

0Q05 

(000005) 



0 0 30 

COMOLU 

00 0 6 

(QOflOOo) 


n 

•>»' 

0 031 

N E W ML U 

0 0 07 

I 0 C 0 0 0 7 ) 


0 0 32 

PROGl 

00 0 8 

( 000QQ8) 



0033 

PROG2 

0 00 9 

(000009) 



0 034 

BITFLG 

000 A 

looaolo) 


O 

0 03 5 

BUFCNT 

00 OB 

(ooaoii) 


0036 

FIELD 

00 OC 

(G00012) 

0 0 57 'v_- 


0037 

SLASHF 

0010 

(000016) 



oe 38 

8UFEHT 

0011 

(000017) 


o 

0 039 

BUFFER 

0012 

(Q0Q018) 

: O 

o 





; G 

o 





: G 

o 





O 

(' ') 





C) 


SPPREQ 


PAGE 


date: 01/27/99 




S Y M B 0 L S 


DEF. LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

0 015 

SPPREQ 

00 0 0 

0015 



QQ5 A 

SPPQOl 

00 08 

0 0 75 



0 0 6 A 

SPPOIA 

0012 




00 6 6 

5PP002 

0014 

0 058, 

0 0 6 0 , 

0063 

0 068 

SPPVAL 

0016 

0 069 



QQ76 

SPP003 

OOIE 

0C74, 

0 08 6 


0 083 

SPP03A 

0025 

0080 



OU 8 6 

SPP038 

002 8 

0 0 8? 



008 7 

SPPOO 4 

0029 

0 085 



i092 

BASE 

GQ2C 

0045, 

008? 


0 0 93 

EXTHAN 

0020 

0 0 48 , 

0 0 5 6, 

0 067 

009 A 

EXTMSG 

00 2 E 

0 0 50 , 

0 065 


009 6 

SPPFLD 

002F 

0 0 53, 

0070 , 

0073 

0097 

SPPENO 

0030 

0071, 

0079, 

0 0 83 

0 098 

SPPSTR 

0031 

0 076 , 

0078 , 

0081, 0 08*+ 

0101 

SA09 

0000 

0102 



0102 

SP09 

0 00 1 

0103 



0103 

DQ09 

ao&o 

0104 




date: 01/27/99 


S Y M B 0 L S 


BASE 0092 BITFLG 0034 
EXTHAN 0093 EXTMSG 0094 
MSG 0026 NEWMLU 0031 

SIX 0019 SIXTEN 0319 

SPPOO^t 0087 SPPOIA 0064 
TEN 0022 THREE 0021 


o 


r\ 

‘s— '' 


U 




SPPREQ PAGE 6 


A L 

P H A 

B £ T I 

CAL 

SORT 

0 F 

ADISP 

0018 

AMONI 

0 018 

ASTRIC 

0020 

COMOLU 

0030 

D0Q9 

0103 

EIGHT 

0 021 

lOERR 

0028 

LISTLU 

0 029 

LPMSK 

0018 

PROGl 

0 032 

PROG2 

0 033 

SA09 

0 101 

SPPOCl 

0054 

SPP002 

0066 

SPP003 

0076 

SPPREQ 

0015 

SPPSTR 

0 098 

SPPVAL 

0Q68 




o 

o 

o 

o 

o 

o 

o 


o 


BUFCNT 

0 03 5 

BUFEMT 

0 038 

BUFFER 

0 039 

COMMA 

0020 

FIELD 

0036 

FIVE 

0019 

HANDLE 

0 025 

I 

0 00 0 

NINE 

0021 

NZERO 

0018 

ONE 

0021 

ONEBIT 

0019 

SLASH 

0020 

SLASHF 

0 03 7 

SOMHOR 

0027 

SP09 

0102 

SPPG3A 

0 083 

SPP03E 

0086 

SPPENO 

0 097 

SPPFLD 

0096 

TWO 

0021 

ZERO 

0019 

ZROBIT 

0018 




o 

o 

Q 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

r\ 


DATE; Oi/27/99 


OQOl 
OOQ2 
00 03 
000 4 
00 0 5 
000 6 
000 7 
000 8 
00 0 9 
0010 
0011 
0012 

0014 

0015 


ADHIREQ 


PAGE 1 


■> 

•V 


NAM ADHREQ DECK-ID N18 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR ADOS A MAXIMUM OF 8 
HEXADECIMAL NUMBERS. 

THE REQUEST HAS THE FOLLOWING FORMAT. 
AQH, NUMBER 1, NUMBER 2, ...NUMBER 8(CR) 


SUMMARY- 11 QN180 QOCl 
N 18 0 0 0 C 2 
N18Q00G3 
N1800004 
N18G 0 00 5 
N18Q0306 
N 180 000 7 
NlSOGuOa 
N 18 0 0 0 0 9 
N180QQ10 
N18U0Q11 
N180Q012 


* 


ENTRY 

ENT ADHREQ 


NAME 


N18Q 0 014 
N1800015 


0017 

0018 

0019 

0020 
0021 

0022 


0 0 Fu 
G QEA 
0 0 02 
0012 
0 0 33 
0 0 43 
0 0 44 
0 0 22 
0 0 23 
0 0 27 
0 0 2C 
0 02F 
0 0 2A 
0 026 
0 0 45 
0 0 0 4 
0 0 03 
0 0 24 
0 0 46 


'EQU' TABLE 

EQU AMONI (SF4) ,AOISP(SEA) ,LPMSK(2) ,NZER0($12) ,ZROBIT ($33) 


N180 0 017 
NISGO 018 


EQU FIVE($43),SIX($44), ZERO ( $ 22) , ONEBI T ($ 23 ) , SIXTEN ($ 27 ) 


N 180 0 019 


EQU COMMA ($20 ,SLASH ($2F) ,ASTRIC ($2A) 

EQU EIGHT ($26), NINE ($45), THREE (h) ,ONE (3) , TWO ($24 ) 


N1800Q20 

N18Q0Q21 


EQU TEN($46) 


*«^MSOS4.0»^N1800 022 


0024 
a02 5 
0026 
0027 
0 02 8 
0029 
003 0 

0031 

0032 

0033 
003 4 


0 0 01 
0 DO? 
0 0 03 
00 Oh 
0 0 05 
00 06 
0 0 07 
0 0 08 
00 09 
0 OOA 


EQU HANDLE( 1) 
EQU MSG (2) 

EQU S0MM0R(3) 
EQU I0ERR(4) 
EQU LISTLU(5) 
EQU C0M0LU(6) 
EQU NEWHLU(7) 
EQU PROGK8) 
EQU PROG2(9) 
EQU BITFLGdOJ 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE 
•■MSG" ENTRY 
"SOHMOR” ENTRY 
"lOERR" ENTRY 

LIST OUTPUT 

"COHOLU" 
’■NEWHLU" 

••PROGl** 

••PR0G2'* 

"BITELG" 


•LISTLU’ 


-- NEW HM LU 


N180QQ24 
N180G025 
N180 0 026 
N180u 027 
N18GG02fi 
N18G0 029 
N1800u3Q 
N16U0Q31 
N1800032 
N1800033 
N1800034 


ADHRFQ PAGE 2 DATE.: 01/27/99 

(0 



0035 


0 0 08 


EQU 

3UFCNT( 11) 

"BUFCNT" 

N1800u35 


0036 


OOOC 


EQU 

FIELD (12) 

"FIELD" 

N18QQ 036 


003 7 


0010 


EQU 

SLASHF( 16) 

"SLASHF" 

N180 0 03 7 


0 038 


00 11 


EQU 

BUFEMT (17) 

"BUFEMT" 

N1800u38 


0039 


0012 


EQU 

BUFFERdS) 

"BUFFER" 

N18G 0 039 

o 

0041 



Af- 




NISOOOhI 


0042 



» ¥ 



PROGRAM START 

N180C 042 

o 

0043 



* 




N1800 043 

00 4 5 

P0 0 0 3 

6828 

AOHREQ 

STA^ 

BASE 

SAVE PARAMETER BUFFER ADDRESS 

N1800045 


0046 

POOOl 

60FF 


ST A- 

I 


N18Q Q 046 


00 4 7 

P0 002 

ClGl 


LOA- 

HANDLE, I 

GET "HANDLE" ROUTINE ADDRESS 

N180 0 04 7 


0048 

P0 0 03 

6826 


STA’^ 

EXTHAN 


N18D 0 048 


0049 

P00G4 

C102 


LDA- 

MSG, I 

FETCH "MSG" ADDRESS 

N180 0 049 

O 

005 0 

P00G5 

6825 


STA^ 

EXTMSG 


N1800050 

00 52 

P0 00 6 

0 AQO 


ENA 

0 

INITIALIZE ACCUMULATION 

N180 Q 052 


00 53 

P0 0 07 

6810 


STA- 

ADHNUH 


N 180 0 05 3 


005 4 

PG0G8 

0AQ8 


ENA 

8 

INITIALIZE TO GET 8 FIELDS 

N 180 a 05 4 


0055 

PQ0O9 

6822 


STA^ 

AOHFLD 


N180 0 05 5 


0056 

PO OOA 

0C04 

ADHOOl 

ENQ 

4 

SET TO GET 4 CHAR. FIELD 

N180Q05D 


00 5 7 

PO 008 

OA 02 


ENA 

2 


Nieao 057 


005 8 

POOOC 

5 CIO 


RTJ^ 

(EXTHAN ) 

GET FIELD 

N180 0 a5& 

o 

0059 

POOOD 

CIOC 


LDA- 

FIELD, I 

IS CONTROL CHAR.= COMMA, 

N180 0 059 

00 60 

POOGE 

01 07 


SAZ 

AOHOQ 2-^-1 

$FF OR NONE 

N18Q0060 


006 1 

POOOF 

9 0 0A 


sun- 

LPMSK+8 


N180U061 


00 6 2 

PDOlO 

0105 


SAZ 

A0HGQ2-^-l 

SKIP YES 

N160 Q 062 

r“'i 

00 63 

POOll 

80QA 


AOO- 

LPMSK+8 


N180Q 063 

■U 

0064 

PG012 

Q9D3 


INA 

-COMMA 


N180 0 06- 


0065 

P 0 0 1 3 

0102 


SAZ 

AOH002-^-l 

SKIP YES 

N160 0 065 


006 5 

PGQ14 

0C04 


EMQ 


NO, PRINT FORMAT INCORRECT 

N180 0 056 

0 

0067 

P0015 

1C15 


JMP^ 

CEXTMSG) 

MESSAGE AND EXIT PROCESSOR. 

N180 0 06? 

00 68 

P0Q15 

OA C3 

AOHOQ 2 

ENA 

3 

CONVERT FIELD TO HEX 

N18QG 068 


005 9 

P0017 

5C12 



(EXTHAN ) 


N18liOG69 


007 0 

P0Q18 

0 0 0 0 

ADHVAL 

0 

n 


N180 G 070 

U 

007 1 

P0019 

C8 OB 


LDA* 

AOHNUM 


N180G 071 

00 7 2 

PQQIA 

88FD 


ADO^ 

ADHVAL 


N1800 072 


0Q73 

POOIB 

6809 


STA^ 

ADHNUH 


N180G 073 


007 4 

POOIC 

E8 DP 


LDQ’f 

ADHFLD 


N180 0 07 4 

0 

00 7 5 

PG OIQ 

OOFE 


INQ 

-1 

, DECREMENT FIELD NO. 

N 18 0 0 0 7 5 

007 6 

PO OlE 

48 OD 


STQ^ 

ADHFLD 


N18DGQ76 


0077 

POOIF 

01 41 


SQZ 

ADHuQ3-^--l 

SKIP IF ALL FIELDS OBTAINED 

N160GG77 


0078 

P002Q 

18E9 


JMP*^ 

ADHQOl 


N18G0078 


0079 

PO 021 

OCFE 

AOHOO 3 

ENQ 

-1 

PRINT THE RESULT 

N180 0 079 


00 80 

PO 022 

0AD4 


ENA 

4 

(NEG. Q = PRINT ONE HEX. NO.) 

N1800030 


008 1 

PQ023 

5C0 6 


RTJ» 

(EXTHAN ) 


N18ui]G81 


0082 

PQ024 

QOQQ 

ADHNUH 

0 

0 


N180 Q 082 

n 

0083 

P0025 

E8 03 


LOQ-> 

BASE 

EXIT (TO "SOMMOR") 

N18QG 083 


00 8 4 

P00 26 

F2 03 


LDQ- 

SOMMOR, Q 


N180008H 


0085 

PQ027 

1622 


JMP- 

(ZERO) , Q 


N180 0 065 


o 


C) 

c 


o 

o 

o 

o 


o 


o 


0 


o 

o 


o 


o 


o 


o 


o 



AOHREQ 


PAGE 


3 


DATE! 01/27/99 


o 


o 

o 

o 


0087 

0088 PQQ28 OGQO 

0089 POO 29 0000 

0090 P002A 0000 

0091 

0092 P002E 0000 


BASE NUM 0 
EXTHAN NUM 0 
EXTMSG NUM 0 
^ STORAGE 

ADHFLD 0 0 


NO. OF REMAINING FIELD TO GET 


o 

009 4 



0095 

0 0 00 

P 

EQU 

SAIOC ’V96) 


009 6 

0 0 01 

P 

EQU 

SPiO (SAlO+1) 


0097 

0 060 

P 

EQU 

QBIO ( SPlO-96) 


0096 

P002C 0034 


BSS 

(DBIO-^ ) 


0099 



END 



PGM= 0060 t 96) COM = 0000 ( 0) DAT = 0000 ( 0) 


O 

o 

C) 

o 

o 

o 

o 

o 

o 


; 


o 

N180 0 087 

N1800Q88 C) 

Ni800 Q89 , 

N18ii 0090 
N180u09i 
N18 0 0 G92 


O 

N180 0 094 
N1800 095 

N1800Q95 O 

N1800097 ^ 

N1800 098 
N18DQ099 

o 


o 


o 


o 


0 


o 


o 


o 


o 


r-i 

V / 


o 


ADHRFQ 

PAGE 4 date: 01/27/99 

o 

o 

o 

E Q U I V 

A L E N 

C E S 



o 

DEF. LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 

o 


0 DOO 

I 

OOFF 

(D00255) 

0 G 46 



f3 Q16 

AMONI 

00F4 

(000244) 



o 

0 018 

AOISP 

OOEA 

( 000254) 


o 

0 018 

LPMSK 

00 02 

(000002) 

0061» 0063 


0018 

NZERO 

0012 

( 000018) 




0018 

ZPOBIT 

0033 

(0 Q0Q51) 



o 

0019 

FIVE 

0043 

(000067) 


o 

0 019 

SIX 

0044 

(000068) 



0 019 

ZERO 

0022 

(000034) 

0 085 



0019 

ONE BIT 

00 23 

( 0 00035) 




0 019 

SIX TEN 

0 027 

(000039) 


o 


0 020 

COMMA 

002C 

( 0 Q 0 0 4- 4 ) 

0 0 64 


0 020 

SLASH 

002F 

( 0 00 0-+7) 




0 0 20 

ASTRIG 

002A 

(000042) 



n 

0 0 21 

EIGHT 

0026 

(000038) 


n 

0 021 

NINE 

0045 

( G00069) 




0 0 21 

THREE 

0 0 0 4 

(000004) 




0 021 

ONE 

00 03 

(QOOOQ3) 



r') 

0021 

TWO 

0024 

(000036) 


: O 


0 0 22 

TEN 

0046 

(300070) 



0 02 5 

HANDLE 

00 01 

(000001) 

0047 



0 026 

MSG 

00 02 

( 0 0D002) 

0 0 49 


O 

0 0 2 7 

SOMMOR 

000 3 

(000003) 

0 0 84 

' O 

0 028 

lOEPR 

00 0 4 

(000004) 



0029 

LISTLU 

00 05 

(000005) 




0 030 

COMOLU 

0006 

(OQQ006) 




0 0 31 

NEWMLU 

000 7 

COOOOQ7) 


' O 


0 032 

PROGl 

0008 

(000008) 



0 033 

PROG2 

0 0 0 9 

( 000009) 




0 034 

BITFLG 

000 A 

(000010) 



o 

0 0 3 5 

QUFCNT 

0 OOB 

(000011) 


c 

0 036 

FIELD 

QOOC 

(000012) 

0 059 


0037 

SLASHF 

0010 

(000016) 




0 038 

BUFEMT 

0011 

(000017) 



o 

0039 

BUFFER 

0012 

(000018) 


O 

o 






■ o 

o 






o 


o 


o 



ADHREQ 


PAGE 5 


DATE; 01/27/99 


SYMBOLS 


DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

0 015 

ADHREQ 

00 0 0 

0015 



0056 

AOHGfll 

OOQA 

0 078 



0 0 6 8 

AOHOQ2 

0016 

00 60 , 

0062, 

0 065 

0 070 

ADH ';AL 

0018 

0 072 



0 079 

ADH003 

0021 

0 0 77 



0 082 

ADHNUH 

002 A 

0053, 

0 071, 

0 073 

0 0 88 

BASE 

00 28 

0 0 45 , 

0 08 3 


0 0 89 

EXTHAN 

0029 

0 048, 

0 058, 

0069, 0031 

0 090 

EXTMSG 

002A 

0 0 50 , 

0 067 


0 092 

ADHFLD 

Q02B 

0 0 55 , 

0 07 4, 

0076 

0 09 5 

SAiO 

0 0 0 0 

0 096 



0 096 

SPIO 

0001 

0 097 



0 097 

DBIO 

0060 

0 0 98 




AOHREQ 


PAGE 6 


DATE! 01/27/99 


*** A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

AOH 001 

0056 

ADH002 

0 068 

ADH003 

0 0 79 

ASTRIC 

0020 

BASE 

0 088 

8ITFLG 

0 0 34 

EIGHT 

0021 

EXTHAN 

0 089 

EXTNSG 

00 90 

LPMSK 

0018 

MSG 

0 026 

NEWMLU 

0031 

SAIO 

0095 

S IX 

0019 

SIXTEN 

0019 

TWO 

0021 

ZERO 

0019 

ZROBIT 

0013 


S Y H B 

0 L S 

it- 




ADHFLD 

0092 

ADHNUM 

0082 

AOHREQ 

0015 

BUFCNT 

0035 

BUFEMT 

0 03 8 

BUFFER 

0039 

FIELD 

0036 

FIVE 

0019 

HANDLE 

0025 

NINE 

0021 

NZERO 

0018 

ONE 

0021 

SLASH 

00 20 

SLA3HF 

0 03 7 

SOMMOR 

0 027 


ADHVAL 

0070 

ADISP 

0018 

AMONI 

0018 

COMMA 

0020 

COMOLU 

0033 

OBIC 

0097 

I 

00 0 0 

lOERR 

0 028 

LISTLU 

0029 

ONE BIT 

0019 

PROGl 

0 03 2 

PR0G2 

0033 

SPIO 

0 0 9 6 

TEN 

0022 

THREE 

0021 


date; 01/27/99 


000 1 
00 0 2 
00 0 3 
000 
00 0 5 
00 0 6 
00 0 7 
00 0 8 
00 0 9 

oaio 

0011 

0013 

0014 


SPHRFQ 


PAGE 


=f- 

* 

Af. 

-¥• 

AT- 

AA 

Af 


NAM SBHREQ DECK-ID N19 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR SUBTRACTS TWO HEXADECIMAL NUMBERS. 
THE REQUEST HAS THE FOLLOWING FORMAT. 

S8H, NUMBER 1, NUMBER 2 (CR) 


ENTRY NAME 

ENT SBHREQ 


SUMMARY- 110N190 000 1 
N 19 0 0 0 0 2 
N19QQ003 
N19C 0 0 0 ^ 
N 19 0 0 0 0 5 
N1900006 
N19Q 0 0 0 7 
N19Q OuOa 
N19G 0 009 
N1900 01U 
N1900U11 

N1900013 
N19G OGIh 


0016 




^ E 

0 U ' TABLE 

N19 3-] 016 

0017 

Q0F4 
0 Q EA 
00 02 
0 012 
0 0 33 


EQU 

AMONI ($F4) 

, AO ISP (SEA) ,LPMSK(2) ,MZER0($12) ,ZR0BIT($33) 
SIX ($44) , ZERO ($22) , ON EBIT ($23 ), SIX TEN ($27) 

N1900017 

0G18 

0 0 43 
C 0 4m- 
0 0 22 
0 0 23 
0 0 27 


EQU 

FIVE t $43) , 

N19000ie 



0019 

0 0 2C 
G02F 
G G 2A 


EQU 

COMMA ($20 

,SLASH ($2F) ,ASTRIC ($2A) 

Nigooaig 

0020 

0 0 26 
0 0 i^5 


EQU 

EIGHT ($26) 

.NINE ($45) ,THREE(4),0NE(3) , TWO ($2 4) 

N19Q0Q2G 


0 0 04 
0 0 03 
0 0 24 


0021 

0 0 46 


EQU 

TEN ($46 ) 



-^MSOS4.G'^^N1900 021 

0023 




PARAMETER LOCATION (OFFSET 

FROM BASE) 

Ni9D0Q23 

002 4 

0 0 01 


EQU 

HANDLE( 1) 

"HANDLE” 


N19G0024 

0025 

0 002 


EQU 

MSG(2) 

"MSG" ENTRY 


N19G 0 02 5 

0026 

0 0 03 


EQU 

S0MM0R(3 ) 

"SOMMOR" ENTRY 


N19Q0u26 

0027 

0 0 04 


EQU 

lOERR (4 ) 

"lOERR" ENTRY 


N190002Z 

0023 

0 0 05 


EQU 

LISTLU(5) 

LIST OUTPUT "LISTLU" 

N1900 028 

0029 

0 0 06 


EQU 

C0M0LU(6) 

"COMOLU" 


N19Q0Q2 9 

003 0 

0 0 07 


EQU 

NEWMLU (7) 

"NEWMLU" NEW MM 

LU 

N190003G 

0031 

0 0 03 


EQU 

PROGl (8 ) 

"PROGl" 


N1900U31 

0032 

0 0 09 


EQU 

PR0G2(9) 

"PROG2" 


N 19 0 0 0 3 2 

0033 

0 0 OA 


EQU 

BITFLG(IO) 

"BITFLG" 


N1900033 

003 4 

0 D OB 


EQU 

BUFCMT( 11) 

" BUFCNT" 


N 190 0 03^ 


O 

C 

o 

o 

O 

O 

o 


o 

C) 

o 


o 

o 

o 

o 


SRHREQ PAGE 2 


0 03 5 

00 OC 

EQU 

FIELD (12) 

"FIELD" 

0 0 3 6 

0010 

EQU 

SLASHF (16) 

"SLASHF" 

00 37 

00 11 

EQU 

BUFEMT (17) 

"BUFEMT" 

0038 

0012 

EQU 

BUFFERdS) 

"BUFFER" 


DATE! 01/27/99 


N 190 0 035 
N1900 036 
N19G 0 037 
N1900Q38 


0040 






0041 






0042 



H- 



0044 

POOOO 

6828 

SBHREQ 

STA^ 

BASE 

0045 

POOOl 

60FF 


STA- 

I 

004 6 

P0CO2 

ClOl 


LOA- 

HANDLE, I 

0Q4 7 

P00Q3 

6826 


STA^f 

EXTHAN 

004 8 

P00 04 

C102 


LDA- 

MSG, I 

0049 

P0GO5 

6825 


STA^ 

EXTMSG 

0051 

PQOOo 

D A02 


ENA 

2 

005 2 

PQ007 

6824 


STA-'- 

SBHFLD 

0053 

P0008 

GC04 

SBHOOl 

ENQ 

4 

00 5 4 

P0009 

OA 02 


ENA 

2 

0055 

PQOGA 

5C1F 


RTJ'^ 

(EXTHAN ) 

00 56 

POOGD 

GIQC 


LOA- 

FIELD ,I 

0 05 7 

PO OOC 

0107 


SAZ 

SBHOD 2-^‘-l 

00 5 8 

POOuO 

9 0 0 A 


SUB- 

LPMSK+8 

00 59 

PO OOE 

01 05 


SAZ 

SBHOO 2-^-1 

0060 

PQOOF 

8 0 OA 


ADD- 

LPMSK+8 

0061 

PQOIQ 

09D3 


INA 

-COMMA 

GG62 

POGli 

Cl 102 


SAZ 

SBHOO 2-^-1 

00 6 3 

P0012 

0 G04 


ENQ 

4 

0064 

PD013 

1C17 


JMP^ 

(EXTMSG ) 

0 0 6 5 

P0Q14 

0A03 

SBH002 

ENA 

3 

0 0 5 6 

PQ015 

5C14 


RTJ^ 

(EXTHAN ) 

005 7 

P0016 

0 0 00 

SBHVAL 

C 

0 

0068 

P0017 

C8FE 


LOA^ 

SBHVAL 

0069 

P0018 

E813 


LDQ^ 

SBHFLD 

007 0 

P0019 

6A 12 


STA» 

SBHNUM-1 ,Q 

00 71 

POOIA 

DOFF 


INQ 

-1 

0072 

POOIB 

4810 


STQ^ 

SBHFLD 

00 73 

POOIC 

01 41 


SQZ 

S8HGQ3-^-l 

0074 

POGID 

18EA 


JMP» 

SBHOOl 

00 7 5 

POOIE 

C8 OF 

SBHOD 3 

LOA» 

SBHNUM+1 

0076 

POOIF 

9 8QD 


SUB^ 

SBHNUM 

0077 

P0020 

68 04 


SIA- 

SBHGQ4 

0078 

P0G21 

OCFE 


ENQ, 

-1 

0079 

PO 022 

0 AD4 


ENA 

4 

0080 

P0Q23 

5C06 


RTJ^ 

(EXTHAN ) 

0081 

PO 024 

0 0 00 

S8H004 

0 

0 

008 2 

P0025 

E8 03 


LDQ’^ 

BASE 

00 83 

P0026 

E2 03 


LOQ- 

SOMMOR, Q 

0084 

P0 027 

1622 


JMP- 

(ZERO) , Q 


PROGRAM 


START 




SAVE PARAMETER BUFFER ADDRESS 
GET "HANDLE" ROUTINE ADDRESS 
FETCH "MSG" ADDRESS 


INITIALIZE TO GET 2 FIELDS 
SET TO GET L CHAR. FIELD 
GET FIELD 

IS CONTROL GHAR.= COMMA, 
SFF OR NONE 

SKIP YES 


SKIP YES 

ILLEGAL CHAR. PRINT FORMAT INCORRECT 
MESSAGE AND EXIT PROCESSOR 
CONVERT TO HEX 


SAVE FIELD 


DECREMENT FIELD NO. 

SKIP IF ALL FIELDS ODTAINEO 

SUBTRACT FIELDS AND SAVE 
FOR TYPE-OUT 


TYPE VALUE 

EXIT (TO "SOMMOR") 


N190 0 Oi.0 
N1900041 
N 190 00 42 


N19DG 
N19G00A5 
N190 0 046 
N190 0 047 
N190Q 046 
N190 0 049 

N190 0051 
N1900052 
N190 0053 
N19G D054 
N190 0 05 5 
N19D 0 D56 
N190 0 057 
N190fl058 
N19D0 059 
N 190 0 06 0 
N1900 051 
N190 0 062 
N1900063 
N1900364 
N1900 065 
N190 0 056 
N19D 0 067 
N1900 058 
N190 0 069 
N19G 0 070 
N1900071 
N1900Q72 
N19 0 0 07 3 
N1900Q7h 
M1900 075 
N1900076 
N190 0077 
N199U07 8 
N190 0079 
N19OOO0G 
N19Q0081 
N1900082 
N190Q 083 
N1900084 




SBHREQ 


PAGE 3 

date: 01/27/99 

0086 
00 87 
0088 
DQ59 
009 0 
0091 

P0028 
P0 029 
P002A 
P0D2R 
P002C 

0 0 00 
0 0 0 0 
0 0 00 
GOOD 
0 0 02 

BASE 

EXTHAN 

EXTM3G 

SBHFLD 

S8HNUM 

NUM 

NUM 

NUH 

0 

BZS 

0 

0 

0 

0 

SBHNUMf 2) 

NO. OF REMAINING FIELDS TO GET 
STORAGE FOR THE TWO FIELDS 


N19G J086 
N19QQ 087 
N19C0088 
N19&0D89 
N 190 0 09 Li 
N1900 u91 


0093 



V- 



0094 


0 0 00 

P 

EQU 

SAIK ->/96) 

0095 


00 01 

P 

EQIJ 

SPlKSAll + 1) 

0096 


QQ 60 

P 

EQU 

0B11{SP11^96) 

0097 

PQ02E 

0 0 32 


8SS 

(OBll-^^ ) 

0098 




END 


PGM= 

0060 

( 

96) 

COM = 

0000 { 0) 


N19Q0093 
N190 0 09i- 
Nl9QuQ95 
Nl^O 0 096 
N19Q 0 097 
N19G 0098 


0000 { 0 ) 









u 



SOHREQ 

PA 

GE 4 DATE: 01/27/99 


o 






o 

o 

E Q U I V 

A L E N 

C E S 



■ o 






o 

DEF . LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 



0 QOO 

I 

OOFF 

( 0Q0255) 

0 0 45 

L.' 


0017 

AMOMI 

0DF4 

1000244) 



o 

0 017 

ADISP 

QOEA 

(000234) 



0017 

LPMSK 

00 0 2 

(000002) 

0058, 0060 

■ C) 


0017 

N ZERO 

0012 

(000018) 



0017 

ZROBIT 

0033 

(000051) 



o 

0 018 

FIVE 

0043 

(000067) 


o 

0 018 

SIX 

0044 

(000058) 



0018 

ZERO 

0022 

(000034) 

0 084 


0018 

ONERIT 

00 23 

(000035) 



o 

0018 

SIXTEN 

3027 

( 000039) 



0019 

COMMA 

002C 

( 0000^4) 

0 0 61 

o 


0019 

SLASH 

002F 

(000047) 



0 019 

ASTRIC 

00 2A 

(000042) 



/ ') 

0020 

EIGHT 

0026 

(000038) 




0 0 20 

NINE 

0045 

(000069) 




0 020 

THREE 

00 0 4 

{ 0 C0004) 




00 20 

ONE 

000 3 

(000003) 




0 0 20 

TWO 

002 4 

(000036) 




Q 0 21 

TEN 

0 046 

(000070) 


C- 


0 0 2 4 

HANDLE 

0 001 

(000001) 

0 046 


002 5 

MSG 

0002 

(000002) 

0 0 48 


o 

0 0 2 6 

SOMMOR 

0003 

( 0000Q3) 

0 0 83 


0 027 

lOERR 

0004 

( 000004) 

L) 


0 028 

LISTLU 

GOQ 5 

(0C0005) 




0 029 

COMOLU 

0006 

(000006) 



0 

0 030 

NEWMLU 

00 07 

(000007) 


■ , ’ , f") 

0031 

PROGl 

000 8 

( C000Q8) 



0032 

PR0G2 

0009 

(000009) 




0 033 

BITFLG 

OOQ A 

(000010) 



0 

0 034 

aUFCNT 

ODOB 

(000011) 



0035 

FIELD 

OGOC 

(Q00Q12) 

0 056 

■ ( ') 


0036 

SLASHF 

0010 

(QQ0016) 




00 37 

8UFEMT 

0011 

(QQ0Q17) 



0 

o 

0 038 

BUFFER 

0012 

(000018) 


o o 

o 






o 

o 






: O 

(-■■) 















SBHRtQ 
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date: Oi/27/99 


o 


o 

S Y M B 0 

L S 



DEE . LINE 

NAME 

ADDRESS 


0 014 

S8HREQ 

00 00 


0053 

SBHOOl 

0GQ8 

o 

0 0 6 5 

S0H 002 

0014 

00 67 

SBHVAL 

0016 


0 0 75 

SBH003 

OOIE 


GOBI 

SBHG04 

0 024 

o 

0 0 87 

BASE 

0028 

0 088 

EXTHAN 

0 029 


0089 

EXTMSG 

002A 


DC90 

SBHFLO 

0Q2B 


0 0 91 

SBHNUM 

Q02C 

/ 

0094 

SAll 

GOOD 


0 095 

SPll 

0 001 


0 096 

DBll 

0060 


o 


C) 

o 

o 

o 

o 

o 

o 

o 


REFERENCED AT LINE NUMBER 


0014 
0 074 

0057, 0059, 
0 068 
0 0 73 
0 0 77 

0044, 0082 
0047 , 0 05 5, 
0 0 49, 006 A 
0052, 0069, 
0 0 70 , 0 07 5, 
0 095 
0 0 96 
0097 


0 062 

0 066, 

0 0 72 
0 076 


0 030 


O 


o 

Ci' 

O 

o 

o 

C'} 

Q] 

1^ j 

f 

o 

c 

r-i 

V.- 

O 

o 



o 

o 

o 

o 

o 

o 

o 


BUFCNT 

0 03L 

8UFEHT 

0037 

BUFFER 

0 03 8 

COMMA 

0 019 

FIELD 

G035 

FIl/E 

0013 

HANDLE 

Q 02 4 

I 

QGOD 

NINE 

0 02 0 

NZERO 

0017 

ONE 

0020 

ONEBIT 

0018 

S BHQ 0 3 

0075 

S8H00 <4 

C081 

S3HFLO 

0090 

5BH NUM 

C091 

SLASHF 

0 03 6 

SOHMOR 

0 02 6 

SPll 

0 09 5 

TEN 

G 021 


o 

o 

r-', 

o 

o 

■w* 

o 

C) 

o 

o 

o 

o 



ALCREQ 

PAGE 1 

date: 01/27/99 


0 0 0 1 


NAM ALCREQ 

DECK-ID N2Q MSOS 5.0 

SUMMARY-1 

000 2 


MASS STORAGE OPERATING SYSTEM VERSION 5.Q 

N2e000Q2 

00 0 3 
00 0 4 


SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

N20 0 0 00 3 


COPYRIGHT CONTROL 

DATA CORPORATION 1976 

N200G J04 

00 0 5 

jf. 



N20G0a05 

00 0 6 


THIS PROCESSOR ALLOCATES SCRATCH AREA IN 

N2000006 

0 0 0 7 

-> 

ALLOCATABLE CORE. 

THE REQUEST PRIORITY HAS THE 

N200 0 00 7 

00 0 8 


FOLLOWING FORMAT. 


N200a0Q8 

00 09 



ALC, LENGTH, REQUEST PRIORITY(CRJ 

N20000C9 

0010 




N2000010 

GOll 




NZflQOOll 

0013 


ENT 

R Y NAME 

N2000013 

0014 


ENT ALCREQ 


N2G0a0l4 


0016 




"EQU' TABLE 

N2000016 

0017 

Q 0F4 


EQU 

AM0NI($F4),A0ISF($EA),LPMSK{2),NZER0{$12),ZR0BIT($33) N 20 00017 


0 OEA 
0 0 02 
0012 
0 0 33 





0018 

0 0 43 


EQU 

FIVE{S43) ,SIX ($44) , ZERO ( $ 22 ) , ON E8I T ($ 23 ) , SI X T EN ($ 27 ) N200Q018 


3 0 44 
0 0 22 






0 0 23 
0 0 27 





0019 

u 0 2C 
Q02F 
0 0 2A 


EQU 

COMMA ($20 ,SLASH($2F) , A ST RIG ($2 A) 

N200 0 319 

0D2Q 

0 0 26 
0 0 ^5 
GO 04 
C 0 03 
0 024 


EQU 

EIGHT ($26) , NINE ($45) , THREE (4) , ONE ( 3 ) , TWO ( $2 4 } 

N20aGQ20 




0021 

0 0 46 


EQU 

TEN ($46 ) 

»^MSOS4.0^^^N20u 0 3 21 

0023 




PARAMETER LOCATION (OFFSET FROM BASE) 

N20GQQ23 

002 4 

0 0 01 


EQU 

HANDLE(l) "HANDLE" 

N200 Q 024 

0D25 

G002 


EQU 

HSG(2) "MSG" ENTRY 

N200Q025 

0026 

0 0 03 


EQU 

SOMMOR(3) "SOMMOR" ENTRY 

N2QQ0Q26 

0027 

0 0 04 


EQU 

I0ERR(4) "lOERR" ENTRY 

N2QG0 027 

0023 

0 0 05 


EQU 

LI3TLU(5) LIST OUTPUT "LISTLU" 

N20G0028 

0029 

0 0 06 


EQU 

C0M0LU(6) "COMOLU" 

N2000029 

0030 

0 0 07 


EQU 

NEWMLU(7) "NEWMLU" NEW MM LU 

N20DOQ30 

0031 

0 0 08 


EQU 

PR0G1(3> "PROGl" 

N2Q00U31 

0032 

0 0 09 


EQU 

PR0G2(9) "PR0G2" 

N20DQ 032 

0033 

0 G 0 A 


EQU 

BITFLG(IO) "BITFLG" 

N20Q0Q33 

003 4 

OOOB 


EQU 

BUFCNTCll) "BUFCNT" 

N2QQQQ34 


ALCREQ 


PAGE 


2 


date: Gl/27/99 


003 5 
003 5 
0 0 3 7 
003 8 


00 QC 
0010 
0011 
0 012 


EQU FIELD(12) "FIELD" 

EQU SLASHFU6) "SLASHF" 

EQU BUFEMTtl7) "BUFEHT" 

EQU BUFFERS 18) "SUFFER" 


0040 

0041 0007 


VARIABLE EQUS 

EQU CHRSLVC7} LEVEL OF THIS PROGRAM 


o 

o 


0043 

0044 

0045 

0046 

0047 


0 8FC 

EQU 

EQUS 

COMOUTi $8FC) 

08FO 

EQU 

COMLU(S 8F0 ) 

B8C2 

EQU 

HASSLU (S8C2) 

10 00 

EQU 

ASMOD ($1 00 0 ) 


FOR LOGICAL UNITS 
TYPE OUTPUT LOGICAL UNIT 
INPUT COMMENT LOGICAL UNIT 
MASS MEMORY LOGICAL UNIT 
ASCII MODE OUTPUT 



0049 
005 0 
0051 


V- 

V- 


PROGRAM 



o 

C) 

o 

o 

o 

o 

o 

o 


0053 POOOQ 684F 

0054 POOOl 60FF 

0055 PD0Q2 ClOl 

0056 PQ003 6840 

0057 P0004 C1D2 

0058 P0005 6840 

0059 P0006 C105 

0060 P0007 8844 

0061 P0008 683F 

0063 P0Q09 0AQ2 

0064 POflOA 6848 

0065 PCOOB 0CD4 

0066 PGOQC 0A02 

0067 POODD 5C43 

0068 POOOE Cl DC 

0069 POOOF 0107 

0070 PQOlO 9GCA 

0071 POOH 0105 

0072 P0012 8Q0A 

0073 PQG13 0903 

0074 PC014 0102 

0075 P0015 0C04 

0076 P0016 1C38 

0077 P0017 QA03 

0078 PQ0i8 5C38 
00 79 P0019 000 0 

0080 POOIA C8FE 

0081 POOIB E837 

0082 POOIC 6A36 

0083 POOID ODFE 


ALCREQ STA^ BASE 
ST A- I 

LDA- HANDLE, I 
STA» EXTHAN 
LDA- MSG, I 
STA» EXTMSG 
LDA- LISTLU,! 
ADD^ MODE 
STA*^ OTLU 

ENA 2 
STA» GENFLO 
ENO 4 
GENOOi ENA 2 

RTJ^ (EXTHAN) 
LDA- FIELD, I 
SAZ GEN00 2--'^-l 
SUB- LPMSKH-8 
SAZ GENGQ2-^-l 
ADD- LPH3K+8 
IN A -COMMA 
SAZ GENu02-^-l 
GENG04 ENQ 4 
GENXO 4 JMP^ lEXTMSG ) 
GEN0D2 ENA 3 

RTJ^ (EXTHAN) 
GENVAL 0 0 

LDA^^ GENVAL 
LDQ^ GENFLO 
STA- GENRPL-1,Q 
INQ -1 


SAVE PARAMETER BUFFER ADDRESS 

GET "HANDLE" ROUTINE ADDRESS 

FETCH "MSG" ADDRESS 

GET LIST LOGICAL UNIT 
+ MODE (ASCII) CODE 


SET TO GET 4 CHAR. FIELD 
GET FIELD 

IS CONTROL CHAR.= COMMA, 
$FF OR NONE 

SKIP YES 


SKIP Y ^ S 

OUTPUT FORMAT INCORRECT MSG. 

AND EXIT PROCESSOR 
CONVERT TO HEX 


STORE FIELD 


O 




N2C00035 

N20Q0036 

N200Q037 

N2000038 


N2fl00040 


o 


N200QQ43 
N200 0044 
N2000045 
N200004b 
N2000Q47 


N20Q u 049 
N20QQu50 
N200G 051 


N2G00 053 
N200 0 Q54 
N2Q00055 
N20Qfl056 
N2000 057 
N200QQ58 
N2GGQ059 
N200QQ6G 
NZOOOObl 

N2000Q63 
N2Q0 a 064 
N200 3065 
N200 0 066 
N20Q 0 0 67 
NZaOQQca 
N2000069 
N20G 0 070 
N2Q00Q71 
NZDOa 072 
N20GQ 073 
N2000074 
N200 Q 075 
N2Q0307fa 
N20uQQ77 
N2000078 
N2000 079 
N2000 080 
N2000081 
N2000082 
N20D0033 


o 

V 

o 

o 

v..-' 

o 

o 

o 

o 

o 

o 


ALCREQ 


PAGE 


OAT£{ 01/27/qq 


3 


008 A 

PO OlE 

4334 


STQ^ 

GENFLD 


N200 Cl 084 

0085 

POOIF 

0142 


SQZ 

GEN003-»-l 


N200 0 085 

008 6 

PQ020 

OCOl 


ENQ 

1 

SET TO GET 1 CHAR. FIELD 

N200 0 186 

0087 

P0021 

18EA 


JMP» 

GENOO 1 


N2u0 0 087 

0088 

P0022 

C831 

GENOO 3 

LDA^ 

GENRPL 

IS REQUEST PL GREATER THAN 

N20G G 088 

0089 

PG023 

90 04 


SUB- 

THREE 

TWO (TO AVOID ANY DIFFICULTIES) 

N20G 0 089 

009 0 

PO 024 

0121 


SAP 

GENC05-^-l 

SKIP YES 

N200 0 090 

0091 

P0025 

18EF 


JHP^ 

GENG04 

GO TO OUTPUT MSG. 

N2QOO 091 

0092 

P0026 

C80A 

GENOO 5 

LDA^ 

GENPAR 

PUT REQUEST PRIORITY 

N20G 0 092 

0093 

P0Q27 

AQGO 


AND 

=NSFFQF 

INTO CALL 

N2000 093 


PQ028 

FFOF 






0094 

PO 029 

OFCC 


ALS 

12 


N20D 0 094 

009 5 

P002A 

8829 


FOR^ 

GENRPL 


N200 0 095 

0 0 9 6 

P0Q2B 

0FC4 


ALS 

4 


N200 0 096 

00 9 7 

P0Q2C 

6804 


STA^ 

GENPAR 


N2QQ 0 Q97 

0098 

P0Q2D 

C8 27 


LDA^ 

GENLTH 

PUT LENGTH INTO CALL 

N2000 098 

0099 

PO G2E 

68 06 


STA^ 

GENPAR+ 4 


M2C0 Q 099 

0100 

P002F 

54F4 


RTJ- 

(AHONI) 

ALLOCATE CORE 

N200 0 10 0 

0101 

P0Q30 

1507 

GENPAR 

ADC 

S150 0 + CHRSLV 


N20001D1 

0102 

P0031 

0 0 06 


ADC 

GEN 0 0 6- GEN PAR 


N200fllQ2 

0103 

P0032 

0000 


0 

0 


N2QIJ 0 103 

0104 

P0 033 

00 00 


0 

Q 


N2Q0 0 10 4 

0105 

PG034 

0 00 0 


Q 

0 


N2000105 

010 6 

P0035 

14EA 


JMP- 

(ADISP) 


N200 0106 

010 7 

P0036 

0162 

GEN GO 6 

SQP 

6EN 00 7-^-l 

SKIP IF ALLOCATION MADE 

N200D107 

0108 

P0037 

0CQ8 


ENQ 

8 

OUTPUT NO CORE AVAILABLE 

N20QillQ8 

010 9 

P0 038 

18DD 


JMP» 

G EN X 0 4 


N20C 0109 

0110 

P0039 

481B 

GENOO 7 

STQ^ 

GENLTH 

SAVE STARTING LOCATION 

NZuOOllO 

0111 

Pfl03A 

F3F9 


ADQ^ 

GENPARi-4 


N2Q00111 

0112 

PO 03B 

OOFE 


INQ 

-1 

DECREASE BY 1 FOR CORRECT ADDRESS 

PSR 107iN200Q112 

0113 

PC03C 

G A06 


ENA 

6 

CONVERT LAST LOCATION 

N20Q0 113 

0114 

PC03D 

5C13 


RT 

{ EXTHAN ) 

TO ASCII 

N200ull4 

0115 

PO 03E 

GO 28 


ADC 

GENLST-^ 


N2QG G 11 5 

0116 

P003F 

E8 15 


LDQ^ 

GENLTH 


N20Q0116 

0117 

PQ040 

0 A06 


ENA 

6 

CONVERT STARTING LOCATION 

N 200 0117 

0116 

P0Q41 

50 OF 


RTJ^ 

<EXTHAN ) 

TO ASS 

N2C0 0 118 

0119 

PO 042 

0020 


ADC 

GENSTR- 


N200 0 119 

0120 

PQ043 

54F4 


RTJ- 

(ANONI) 

OUTPUT MSG. 

N20Qfll2D 

0121 

P0 044 

0507 

GENPRl 

ADC 

$50 0 + CH RSLV 


N2000121 

0122 

P0045 

00 08 


ADC 

GEN008-GENPR1 


N 200 0 122 

0123 

P0Q46 

00 0 0 


0 

0 


N20G0123 

0124 

P0047 

0 0 00 

OTLU 

NUH 

0 

LOGICAL UNIT (TO 80 FILLED) 

N20QQ124 

0125 

P0 048 

0012 


ADC 

GENMLG 


N200012 5 

0126 

P0049 

0013 


ADC 

GENMSG-GENPRl 


N20C0126 

0127 

P004A 

14EA 


JMP- 

lADISP) 


N200 0 127 

0128 

PQ 04B 

1000 

MODE ’ 

AOC 

ASMOO 


N2000128 

0129 

P004C 

E8 03 

GEN 008 

LOQ^ 

BASE 

EXIT (TO "SCMMOR") 

N20Q 0 129 

013 0 

P 0 0 40 

E2 03 


LDQ- 

SOHHOR, Q 


N20 0 G 13 0 

0131 

P0Q4E 

1622 


JHP- 

(ZERO ) , Q 


N2G00131 

0133 



V- 




N2Q0 0 133 

0134 

P004F 

9 000 

BASE 

NUM 

0 


N20D 0 13 - 

0135 

P005 0 

00 0 0 

EXTHAN 

NUM 

0 


N2000135 



o 


N20Q0 136 
N200 Q157 
N2D0013d 
N2000139 
N200G140 
N20QOi41 
N20QQ142 
N200 01‘+3 
N200Q14H 
N2C0Q145 


N2000146 
N2000147 
N2GQ 0143 

N2000149 

N2Q00150 

N200Q151 

N2C00152 


N2000154 
N 200 015 5 
N20G 015 6 
N2000157 
N2000153 
N200 0 159 


O 

O 

O 

O 

O 

C' 

o 

o 

o 

o 

o 

c 

C) 

o 

o 

C) 


ALCREQ 


PAGE 


5 


DATE! Gl/27/99 


EQUIVALENCES 


OEF.LINE 

NAME 

VALUE 


REEERENCED AT LINE NUMBER 

OGDD 

I 

QOFF 

(000255) 

0 0 54 


0 017 

AMONI 

00F4 

( 0902i.4) 

0 100, 

0 12 0 

0 017 

ADISP 

OOEA 

(000234) 

0 106, 

0127 

0 017 

LPMSK 

0002 

(000002) 

0 0 7 0 , 

0 072 

0 017 

N7ER0 

0012 

(000018) 



0017 

ZROEIT 

0033 

(000051) 



0018 

FIVE 

0 0 4 3 

(000067) 



0018 

SIX 

0044 

(000068) 



0 018 

ZERO 

0022 

COOQG34) 

0 131 


0018 

ONEBIT 

0023 

1000035) 



0 0 18 

SIXTEN 

00 27 

(0 00 039) 



0 019 

COMMA 

QG2C 

( 00 3044) 

0 0 73 


0019 

SLASH 

002F 

(000047) 



0 019 

ASTRIC 

002A 

(0 00042) 



0 Q20 

EIGHT 

0026 

( 00 00 38) 



0 020 

NINE 

0045 

(000069) 



0 0 20 

THREE 

000 iA 

(000004) 

0 089 


0 0 20 

ONE 

00 0 3 

(000003) 



0 020 

TWO 

002 4 

(000036) 



0 021 

TEN 

0046 

(000070) 



0 0 2 4 

HANDLE 

00 01 

(000001) 

0 055 


0 02 5 

MSG 

00 02 

( 0 0000 2) 

0 0 57 


002 6 

SOMMOR 

0 0 0 3 

(OOQQ03) 

0130 


0 027 

10 ERR 

000 4 

{ 00000 4) 



0 0 28 

LISTLU 

00 05 

( 000C05) 

0 059 


0029 

COMOLU 

00 06 

(000006) 



0 0 30 

NEWMLU 

0 0 0 7 

(000007) 



0 031 

PROGl 

0 0 0 8 

(000008) 



Q032 

PR0G2 

0009 

1000009) 



0 033 

8ITFLG 

900 A 

(ODQOlO) 



0 03 4 

9UECNT 

000 B 

(000011) 



003 5 

EIELD 

OOOC 

(000012) 

0 068 


0 0 36 

SLASHF 

0010 

( 000016) 



003 7 

BUFEMT 

0011 

(0 00017) 



0038 

8UFEER 

0012 

( 0 0 0018) 



0041 

CHRSLV 

0007 

( OOG007) 

0 101, 

.0121 

0 044 

COMOUT 

08FC 

(002300) 



0 045 

COMLU 

08FO 

( OQ2301) 




ALCRFQ 


PAGE 


6 


OATEt 01/27/99 



00A6 

MASSLU 

08C? 

1002242) 


O 


Q 0A7 

ASHOD 

1000 

(004096) 

0128 


o 

0152 

G E N ML G 

0012 

(000018) 

0125 

: O 

o 













V.--' 

o 






, o 

o 






o 

0 






o 


n 


O 

o 

{ I 

•'W-' 

o 

o 

o 

o 


c> 

C) 

o 

c 

o 

o 

o 


o 


ALCREQ 


PAGE 
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DATE: 01/27/99 


SYMBOLS 


DEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 

0 OlA 

ALCREQ 

0000 

0014 




0 0 66 

GEN 001 

GOQC 

0 0 87 




G 075 

GENCG^ 

GENX04 

0015 

0 091 




G 076 

0016 

0109 




GG77 

GEN 002 

0017 

0 0 69 » 

0 071 , 

0 074 


0 0 79 

GFNVAL 

0019 

0080 




0 088 

G E N 0 0 3 

0022 

GO 85 




0 092 

GEN 005 

0026 

0 090 




0101 

GENPAR 

0 030 

0 0 92 , 

0 097, 

0099, 

010 2, 

0 107 

GEN0Q5 

00 3 6 

Q102 




0 110 

GEN007 

0039 

0107 




0121 

GENPRl 

004 4 

0122, 

0126 



0124 

OTLU 

0047 

0061 




0 128 

MODE 

004B 

0Q60 




0129 

GEN 00 3 

004C 

0122 




0134 

BASE 

004F 

0053 , 

0129 



0135 

EXTHAN 

0050 

0 0 56 , 

0 067, 

0078 , 

0114, 

013 6 

EXTMSG 

0051 

QG58 , 

0 076 



0138 

GENFLD 

G052 

0064 , 

0 081, 

0 084 


0139 

GENRPL 

0053 

G 082 , 

0088, 

0 095 


0 luc 

GENLTH 

0 0 5 4 

0 0 98 , 

0 110 , 

0116 


0141 

GENRP2 

00 5 5 





0144 

GEN MSG 

00 5 7 

0126 , 

0152 



0 146 

GENSTR 

0062 

3 119 




0149 

GENLST 

0066 

0115 




0155 

SA12 

0 0 01 

0156 




0156 

SP12 

00 02 

0157 




0157 

DB12 

OOCO 

0158 





0111 


0118 


ALCREQ 


PAGE 


8 


date: 01/?7/99 



C) 

i'''} 

O 

O 


A L 

P H A 

B E T I 

CAL 

SORT 

adisp 

0017 

ALCREQ 

0 014 

AMONI 

BUFFER 

003 8 

CHPSLy 

0041 

COMLU 

EXTMSG 

0136 

FIELD 

0035 

FIVE 

GEN007 

0110 

GEN008 

0129 

GENFLO 

GENRP2 

0141 

GENRPL 

0139 

GENSTR 

LPM SK 

0017 

MASSLU 

0046 

MODE 

OTLU 

0124 

PROGl 

0031 

PR0G2 

SP12 

0156 

TEN 

0 021 

THREE 


0 F 

S Y H B 

0 L S 

if. 


0 017 

ASMOD 

0047 

ASTRIC 

0019 

0 0 45 

COMMA 

0019 

COMOLU 

0029 

0018 

GENOOl 

0066 

GEN002 

0077 

0138 

GENLST 

0149 

GENLTH 

014 0 

0 146 

GENVAL 

0079 

GENX04 

0076 

0 128 

MSG 

0025 

NEWMLU 

003 0 

0032 

SA12 

0155 

SIX 

0018 

0 Q2D 

TWO 

0020 

ZERO 

0018 


O 


O 

o 

o 

o 

o 

o 

o 


o 


BASE 

0134 

BITFLG 

0033 

BUFCNT 

003 4 

BUFEMT 

0037 


COMOUT 

0044 

DB12 

0157 

EIGHT 

0020 

EXTHAN 

013 5 


GEN003 

0088 

GENOO 4 

0075 

GEN 005 

0092 

GEND06 

C1Q7 


GEMMLG 

0152 

GENMSG 

01'+'+ 

GENPAR 

QlGl 

GENPRl 

0121 


HANDLE 

0024 

I 

000 0 

lOERR 

0027 

LISTLU 

0 026 


NINE 

0020 

NZERO 

0017 

ONE 

0020 

ONEBIT 

0018 


SIXTEN 

ZROBIT 

0018 

0017 

SLASH 

0C19 

slashf 

0 03 6 

SOMMOR 

0 026 

V ' 


o 

r\ 

o 

o 

o 

Q 

o 

o 

o 

o 


date: 01/27/99 


RELREQ 


PAGE 1 


000 1 
00 0 2 
00 0 3 
0 0 0 4 
00 0 5 
00 0 6 
00 0 7 
0008 
00 0 9 
0010 
0011 
0012 


* 

¥ 

•*r 

■r* 


NAM RELREQ DECK-ID N21 MSOS 5.0 

HASS STORAGE OPERATING SYSTEM VERSION 5,0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS PROCESSOR RELEASES CORE STARTING AT THE 
LOCATION SPECIFIED. THE REQUEST HAS THE 
FOLLOWING FORMAT. 

REL, START OF CORE TO BE RELEASED 




SUMHARY-li0N21Qu 03 1 
N210e(J02 
N 210 0 003 
N210 0 0GL 
N21QO0a5 
N21U 0 00 6 
N21G 0 0 0 7 
N21G0008 
N213GQG9 
N21Q0 010 
N210 U Oil 
N2100Q12 


0014 

0015 


ENTRY NAME 

ENT RELREQ 


NElOOfll^ 
N 210 0 .315 


0017 

0018 


0019 


0029 

0021 


0022 


0024 

0025 

0026 

0027 

0028 
0029 
003 0 

0031 

0032 

0033 
003 4 


Q 0F4 
OOEA 
0 0 02 
0 012 
0 0 33 
u 0 43 
0 0 ^*4 
0 0 22 
0 0 23 
0 0 27 
0 02C 
0 02F 
0 02A 
0 0 26 
0 0 45 
0 0 04 
0 0 03 
0 0 24 


'EQU' TABLE 

EQU AMONI ($F4) ,ADTSP{SEA> ,LPMSK(2) , NZ ERO ( $12 ) , ZR08I T { $3 3 ) 


EQU FIVE(?43) ,SIX ($44) , ZERO ( $ 2 2 ) , ON E B I T { $ 23 ) , SI XT EN ($ 27 ) 

EQU COMMA ($20 , SL ASH ( $2F ) , AS TR IC C $2 A ) 

EQU EIGHT ($26) , NINE ($45 ) , THRE E ( 4 ) , ONE ( 3 ) , TWO ( $2 4) 


Q 0 46 


EQU 

TEN ($46i 





PARAMETER LOCATION (OFFSET FROM 

0 0 01 


EQU 

HANDLE ( 1) 

"HANDLE" 

0 9 0? 


EQU 

MSG (2) 

"MSG" ENTRY 

00 03 


EQU 

SOMMOR(3J 

"SOHMOR" ENTRY 

Q 0 04 


EQU 

lOERR (4 ) 

"lOERR" ENTRY 

0 0 05 


EQU 

LISTLU (51 

LIST OUTPUT "LISTLU" 

0 9 06 


EQU 

COMOLU(60 

"COMOLU” 

0 0 07 


EQU 

NEWMLU (7) 

"NEWMLU" NEW HM LU 

0 0 0 8 


EQU 

PROGl (8 ) 

"PROGl" 

0 0 09 


EQU 

PROG2 (9 ) 

"PROG2" 

90 OA 


EQU 

BITFLG( 10) 

"8ITFLG" 


^^MS0S4. 0 


N21QQ 017 
N210 0 018 


N21Q 0019 


N2ifl0a20 


N2100U21 


’^*N210 0 022 


N21C 0 024 
N210 0 025 
N21G 0 026 
N21QQ027 
N21Q 0 028 
N 210 0 029 
N210 0030 
N21Q 0 031 
N2130032 
N210Q 033 
N 210 0 034 



RFLRFQ 


PAGE 2 

OATES 01/27/99 

00 3 5 

00 OB 

EQU 

BUFCNT ( 11) 

“BUFCNT" 

003 6 

none 

EQU 

FIELD (12) 

"FIELD" 

003 7 

00 10 

EQU 

SLASHF ( 16) 

"SLASHF" 

0038 

0 Q 11 

EQU 

3UFEMT ( 17) 

"BUFEMT" 

0039 

D012 

EQU 

BUFFER( 18) 

"BUFFER" 


N210 CO 35 
N21QQQ36 
N21G u Q37 
N21QOG38 
N210 G 039 


0041 



* 



0042 





-If 

0043 






00 45 

PODOO 

6816 

RELREQ 

STA^ 

BASE 

0 0 4 6 

POOQl 

60FF 


STA- 

I 

0047 

PO 0 02 

GlOl 


LDA- 

HANDLE, I 

00 4 8 

POO 03 

8814 


STA^ 

EXTHAN 

0049 

P00 04 

C102 


LDA- 

MSG, I 

005 0 

P0 005 

6813 


STA^ 

EXTMSG 

0052 

PC 00 6 

GC04 


ENQ 

4 

0053 

P0 00 7 

OA02 


ENA 


0054 

P00G8 

5C0F 


RTJ’f 

(EXTHAN ) 

0055 

P0 009 

0A03 


ENA 

3 

0056 

POOC A 

5COO 


RT 

(EXTHAN ) 

0057 

PQ OQB 

0 OOQ 

RELVAL 

0 

a 

0058 

POOQC 

C8FE 


LDA» 

RELVAL 

0059 

PCOOD 

0136 


SAM 

RELOfll-^-1 

0060 

PUOOE 

68 03 


STA^ 

RELSTR 

0061 

POO OF 

54F4 


RTJ- 

(AMONI) 

0062 

POOlO 

1800 


NUM 

$1800 

0063 

POOll 

OOOQ 

RELSTR 

0 

Q 

0064 

P0012 

0C02 


ENQ. 

2 

006 5 

P0013 

1E05 


JMP-’^ 

(EXTMSG) ,Q 

006 6 

P0014 

OC04 

RELOOl 

ENQ 

4 

00 6 7 

PO 015 

1C03 


JMP^ 

(EXTMSG ) 

0069 






007 0 

PQ016 

OQOO 

BASE 

NUM 

0 

QQ7 1 

P0G17 

0 0 0 0 

EXTHAN 

NUM 

0 

007 2 

PQOia 

OOOG 

FXTMSG 

NUM 

0 


PROGRAM START 

SAVE PARAMETER BUFFER ADDRESS 
GET “HANDLE" ROUTINE ADDRESS 
FETCH "MSG” ADDRESS 

GET ONLY FIELD 

CONVERT TO HEX 

STORE LOCATION FOR 
SKIP ILLEGAL ADD. 

RELEASE 


OUTPUT MSG AND 
EXIT PROCESSOR 


N21U0041 
N210O 042 
N21Q0Q43 


N21Q0Q45 
N21G0046 
N21G 0 0h 7 
N21U 0 048 
N21QQQ49 
N2i0Q050 

N2100G52 
N 210 0 05 3 
N210 0 054 
N210 0 355 
N2100056 
N2100057 
N2100 058 
N2130G59 
N210G060 
N210G0&1 
N2100062 
N2100063 
N21Q0064 
N210 0065 
N2100Q66 
N210 0067 

N2i00069 
N21&0070 
N210007i 
N210 0 072 


0074 






0075 


COCO 

P 

EQU 

SA13 (^/96 ) 

0076 


0 0 01 

P 

EQU 

SP13 (SA13+1) 

0077 


0 0 60 

P 

EQU 

DB13 (SP13^96) 

0078 

PO 019 

0 0 47 


BSS 

(DB13-» ) 

0079 




END 


PGM = 

0060 

( 

96 ) 

COM = 

aoQO { 0) 


N2100374 

N21Da075 

N21Q0076 

N2100077 

N210G078 

N210a079 


0 0 0 0 ( Q ) 


Q 

O 

O 

O 

o 

o 


C) 


o 

o 

O 

O 

O 

O 

O 


o 


PAGE 


3 


date: 01/27/99 


PELREQ. 



E Q U I V 

A L E N 

C E S 

o 

DEF.LINE 

NAME 

VALUE 


0 0 0 0 

I 

OQFF 


0018 

AMONI 

00F4 

o 

0018 

ADISP 

COEA 

0 018 

LPMSK 

00 0 2 


0 018 

NZERO 

0012 


0018 

ZR08IT 

0033 

Q 

0 019 

FIVE 

0043 

0 019 

SIX 

0044 


0019 

ZERO 

0022 


0019 

ONEBIT 

G023 

o 

0 019 

SIXTEN 

0027 

0 0 20 

COMMA 

0Q2C 


0 0 20 

SLASH 

G02F 


0 020 

ASTRIC 

0 02A 

Q 

0 0 21 

EIGHT 

0 026 

0 021 

NINE 

0045 


0 021 

THREE 

QQQ4 


0 0 21 

ONE 

000 3 

o 

0 021 

TWO 

0 0 2 4 

0022 

TEN 

0 


0 025 

handle 

0 00 1 


0 026 

MSG 

C0Q2 


0 027 

SGMHOR 

0003 


0 028 

10 ERR 

0004 


0029 

LISTLU 

000 5 


0030 

COMOLU 

00 0 6 


0 031 

NEWMLU 

00 0 7 


0 032 

PROGi 

00 08 


0033 

PR0G2 

00 09 


0 0 34 

BI TFLG 

QOO A 

Q 

0 035 

BUFCNT 

OOQB 

0 036 

FIELD 

00 00 


0Q37 

SLASHF 

0010 


0 038 

RUFEMT 

0011 

o 

0 039 

BUFFER 

0012 


O 


in 


REFERENCED AT LINE NUMBER 

(000255) 0046 

(000244) DG61 
I 000234) 

( 000002 ) 

( OQOOlfi) 

(000051) 

(000067) 

(000060) 

(000034) 

(GQ0035) 

{ 000039) 

(000044) 

(00 0 0^.7) 

(000D42) 

{ 00Q038) 

(00 0 069) 

( 000004 ) 

(000003) 

(000036) 

( 000070) 

(OOQOGl) 0 0 47 

(000002) 0 0 49 

(000003) 

( 000004) 

(000005) 

( QGCDQ6) 

(000307) 

(000008) 

(000009) 

( 000010 ) 

( 000011 ) 

( 000012 ) 

(000016) 

(000017) 

( OGOoia) 


r"; 

*>>.-• 


O 

C) 

O 

O 

(D 

O 


I. I 


o 

Ci 

o 

o 

c 


o 


o 


o 


RELRED 


PAGE 


4 


OATEJ 01/27/99 


SYMBOLS 


OEF .LINE 

NAME 

ADDRESS 

0015 

RELREQ 

OODO 

005 7 

RELVAL 

QQOB 

0 063 

RELSTR 

0011 

0 06 6 

REL 001 

0014 

0 070 

BASE 

0016 

0 071 

EXTHAN 

0017 

0 072 

EXTMSG 

0018 

00 7 5 

SA13 

GOOD 

0 0 76 

SP13 

0 001 

007 7 

DB13 

0060 


REFERENCED AT LINE NUMBER 

0015 
0 058 
0060 
0 059 
0 0 45 

0048, 0054, G05& 

0050, 0065, 0067 
0 0 76 
0 077 
0 078 


RFLRFQ PAGE 5 DATE: 01/27/99 


»=?■» A L 

P H A 

E E T I 

CAL 

SORT 

0 F 

S Y H B 

0 L S 



ADISP 

0018 

AHONI 

0 018 

ASTRIC 

0 020 

BASE 

0073 

eiTFLG 

Q03 4 

COMOLU 

0030 

DB13 

0 077 

EIGHT 

0021 

EXTHAN 

0071 

EXTMSG 

0 07 2 

lOERR 

0 028 

LISTLU 

0029 

LPMSK 

0018 

MSG 

9026 

NEWMLU 

0031 

PROGl 

0032 

PR0G2 

0 0 33 

RELOOl 

0 0 66 

RELREQ 

0015 

RELSTR 

0063 

SLASH 

0020 

SLASHF 

0037 

SOMMOR 

0G27 

SP13 

0076 

TEN 

002 2 


O 

O 

O 

O 

w 

O 

O 

O 

O 

o 

o 

o 

o 


8UFCNT 

0035 

eUFEMT 

0 03 8 

BUFFER 

0039 

COMMA 

DC2C 


FIELD 

0036 

FIVE 

0019 

HANDLE 

0025 

I 

0 0 0 G 


NINE 

0021 

NZERO 

0018 

ONE 

0021 

0ME8IT 

0 G 19 


RELVAL 

0057 

SA13 

00 75 

SIX 

0019 

SIXTEN 

0019 


THREE 

0 021 

TWO 

0021 

Z ER 0 

0019 

ZROBIT 

0016 



o 

o 

n 

o 

o 

o 

Q 

c 

o 

o 

o 

o 

o 


DACREQ 


PAGE 


1 


DATE: 01/27/99 


o 


NAM DACREQ DECK-ID N22 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION^ LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

THIS PROCESSOR DUMPS A MAP OF ALL0CATA8LE CORE. 
THE HAP IS OBTAINED UNDER INTERRUPT LOCK-OUT 
AT THE PRIORITY LEVEL OF OOP. THE REQUcST HAS 
THE FOLLOWING FORMAT. 

DAC (CR) 


ENT DACREQ 


EXT LVLSTR 
EXT LEND 


ENTRY 


NAME 


EXTERNAL 


SUMMARY-11 

N2200002 
N220G003 
N22 0 0 ii G H 
N220 0 00 5 
N2200006 
N22000Q7 
M22Q 0 00 6 
N 220 Q GO 9 
N22G 0010 
N2200011 
N22G0012 
N22Q0313 

N2200 G15 
N2200016 

N22Q0Q18 

N220G019 

N2200G2Q 


0022 

0023 

G 0F4 


EQU 

' t 

AMONI ( JF4) 

0024 

ODEA 
0 0 02 
0012 
0 0 33 
0 0 43 


EQU 

FIVE'IS43) , 

0025 

0 0 44 
0 0 22 
GO 23 
0 0 27 
0 0 2C 


EQU 

COMMA t$2C) 

0026 

002F 
GD2A 
0 0 26 


EQU 

EIGHT ($26) 

0027 

G 0 45 
Q Q 0 4 
0 0 03 
0 0 24 
0 0 46 


EQU 

TEN ($46 ) 

0029 
003 0 

0 0 01 


EQU 

PAR 

HANDLEt 1) 

0031 

0 0 02 


EQU 

MSG (23 

0032 

0 0 03 


EQU 

SOMMOPJ 3) 

0033 

0 0 04 


EQU 

lOERR (4 ) 

0034 

C 0 05 


EQU 

LISTLU(5) 


TABLE 


••HA NDLE^* 

**MSG'^ ENTRY 
••SOMMOR'^ ENTRY 
••lOERR^* ENTRY 
LIST OUTPUT — 


- ••LISTLU' 


N220Q022 

N22G0Q23 


;27) NEEGOQE^- 

N2200025 

N2E00G26 

^*MSOS4.0’^^N220 0 027 


N220 0 029 
N220 0 030 
N220Q031 
N22GD03 2 
N2200033 
N220 0 034 


/■’ 


o 

003 5 

DACREQ 
0 0 06 

EQU 

PAGE 2 

COMOLU (6 ) 

DATE1 01/27/99 

"COMOLU" 


003 6 

0 0 07 

EQU 

NEWMLU (7) 

"NEWMLU" NEW MM LU 

o 

0 0 3 7 

0 0 0 8 

EQU 

PROGl (8 ) 

"PROGl” 

00 3 8 

0 0 09 

EQU 

PR0G2 (9 ) 

"PROG2" 


003 9 

0 0 OA 

EQU 

8ITFLG (10) 

"BITFLG" 


0040 

00 OB 

EQU 

8UFCNT (11) 

"BUFCNT" 

o 

00 41 

00 OC 

EQU 

FIELD (12) 

"FIELD" 

0042 

0 010 

EQU 

SLASHF (16) 

"SLASHF" 


0043 

0011 

EQU 

8UFE(MT(17) 

"BUFEMT" 

o 

0044 

0012 

EQU 

BUFFERdS) 

"BUFFER" 

0 0 4 6 
0047 

* 

0 0 07 

EQU 

VARIABLE EQUS 

GHRSLV17) LEVEL OF THIS PROGRAM 

o 

0049 

0050 

-V- 

0 8FC 

EQU 

EQUS 

COMOUTC $8FC) 

FOR LOGICAL UNITS 
TYPE OUTPUT LOGICAL UNIT 

o 

0051 

03FD 

EQU 

CONLU ($8F0 ) 

INPUT COMMENT LOGICAL UNIT 

0 0 5 2 

0 8C2 

EQU 

MASSLU( $8C2) 

MASS MEMORY LOGICAL UNIT 


0053 

10 00 

EQU 

ASMOD ($1000) 

ASCII MODE OUTPUT 


u 

o 

o 


0055 ^ 

0056 n. }/. I/. If. 

0057 ^ 


0059 PODQC 687C DACREQ STA^ BASE 

0060 POOOl 0822 TRA Q 

0061 PC002 C201 LDA- HANDLE, Q 

0Q62 P00G7 687A STA-^ EXTHAN 

0063 P00u4 C2Q5 LDA- LISTLU,Q 

0064 PQ005 8875 ADD^ MODE 

0065 P0Q06 6867 STA^ OTLU 

0066 P000 7 682A STA=^ OTLUl 


PROGRAM START 

SAVE PARAMETER BUFFER ADDRESS 

GET "HANDLE" ROUTINE ADDRESS 

GET LIST LOGICAL UNIT 
+ MODE (ASCII) CODE 


o 

o 

o 

o 


0068 P0008 OCOF 

0069 PO0G9 C600 X 
PGOOA 7FFF X 

0070 PO OOB 60FF 

0071 POOOC C400 X 
POOOD 7FFF X 

0072 POOCE 6871 

0073 POOGF 0842 

0074 POOlO 0500 

0075 POQll COFF 

0076 P0012 6A74 

0077 PD013 C503 

0078 P0Q14 90FF 

0079 P0015 09FD 

0080 POO 16 C112 


ENQ 15 
LDA+ LVLSTR,Q 

STA- I 
LDA+ LEND 

STA^ DACLPl 
CLR Q 
IIN 0 
DACOOl LDA- I 

STA^ DACTBL.Q 
LDA- (ONE), I 
SUB- I 
INA -2 

SAN DACQ02-^-l 


SET CORE INDEX TO START OF 
AVAILABLE CORE 


GET LAST AVAILABLE CORE LOG. 


INITIALIZE PIECE STORE INDEX 
IHiaiT INTERRUPTS DURING SNAP SHOT 
STORE CORE INDEX AS START 
OF PIECE 

IS THIS PIECE OF CORE BEING USED 


o 



SKIP MO 



C'! 

N2200 035 


N220SQ36 


N22Q 0 03 7 

: O 

N220 0 Q38 

N220 0 039 


N22Q0040 


N22D0041 


N22Q 0 042 

: 

N22Q 0 043 


N 220 0 3 44 


N 220 0 0 46 

C-’ 

116-«‘436Q^»»*’^-^«-^' 



: o 

N22G0049 


N22Q005G 


N220 0 051 


N2200052 

M 

N2200 053 


N220D 055 

C 

N2200Q56 


N220 0057 



. o 

N2200059 


N220006G 


N22Q u u61 

: O 

N22Q0Q62 

N2200063 


N22Q 0 Qd4 


N22pQ 065 

. O 

N 220 0 0 66 

N2200068 


N2200Q69 

■ c 

N2200070 


N2200071 

, o 

N22G0Q72 

N22Q0073 


N2200 074 


N22QDQ75 

; O 

N22G 0 0 76 


N22Q0077 


N22U0Q73 


N22u 0 079 

; U 

N2200030 



o 


o 





DACRFQ 


PAGE 3 

DATES 01/27/99 


/■■■ ! 

o 









O 


008 1 

P0017 

C522 


LDA- 

(ZERO) , I 

GET LENGTH OF PIECE 

N 22 0 0 U 8 i 



0082 

P0018 

1802 


JHP- 

DAC003 


N2200 082 



00 83 

PQC19 

0 AFE 

OACOD 2 

ENA 

-1 

GET - FLAG TO INDICATE PIECE EMPTY 

N22C 0 08 3 


{ 

008 4 

POOIA 

6A6D 

OACQO 3 

STA^ 

□ ACT3L4-1,Q 

STORE LENGTH OR FLAG FOR MSG. 

N22a 0 084 



00 8 5 

PDOIB 

0002 


INQ 

2 

INCREMENT PIECE STORE INDEX BY 2 

N220 0 085 



00 8 6 

POOIC 

C869 


LDA^ 

OACMXP 

IS PIECE INOEX=MAX. 

N2200Q86 



0087 

PO DID 

08 34 


AAQ 

A 

(STORAGE FOR SNAP SHOT FULL) 

N220 0 087 

: O 


0088 

POOIE 

01 2C 


SAP 

DAC0G5- ^-1 

SKIP YES 

N220008B 


0089 

POOIF 

COFF 


LDA- 

I 

ADD LENGTH OF PIECE TO CORE 

N2200089 



0090 

P0020 

8522 


ADD- 

(ZERO ) , I 

INDEX 

N2200Q90 


."**N 

0091 

PG021 

60FF 


STA- 

I 


N22Q0Q91 

O 


009 2 

P0022 

985D 


SUB^- 

DACLPl 

IS THIS END OF ALLOCATABLE CORE 

N2200092 


0093 

P0D23 

0121 


SAP 

DAC0Q4-^-l 

SKIP YES 

N2200093 



00 94 

PQ0 24 

18FC 


JMP» 

DACCOl 


N22Q0094 



0095 

P0025 

COFF 

DAG 0 0 4 

LDA- 

I 

STORE END OF ALLOCATABLE CORE 

N2200095 

O 


0096 

P0026 

09FE 


INA 

-1 

FOR MSG. 

N220 0096 


0097 

P0027 

6A5F 


STA^ 

DACTBLf Q 


N220 0 097 



0098 

PQQ28 

0 AFD 


ENA 

-2 

STORE END FLAG 

N22Q0 096 



0099 

P0029 

6A5E 


STA^ 

DACTBL + 1 ,Q 


N220 0 099 

o 


0100 

P002A 

OD 02 


INQ 

2 

BUMP PIECE STORE INDEX 

N220 010 0 



0101 

P002B 

4 8 55 

DACGO 5 

STQ’^ 

OACSTO 

SAVE IT 

N220G IGl 



0102 

PQQ2C 

0 400 


EIN 

0 

RESTORE INTERRUPTS 

N220 0102 



010 3 




BUILD MESSAGE TO PRINT MAP 

N 220 u 10 3 



0104 

P0Q2D 

5 4F4 


RTJ- 

( AHONI) 

OUTPUT HEADER MESSAGE 

N22G010‘+ 



010 5 

PO 02E 

05 07 

DACPRl 

ADC 

$500+CHRSLV 


N220G 10 5 



010 6 

P002F 

0 0 07 


ADC 

DAC020-DACPR1 


N 220 0 IG 5 



0107 

PQ030 

OQOQ 


NUM 

0 


N2200107 

I''''! 

o 

0108 

P0031 

0 0 00 

OTLUl 

NUM 

Q 


N22D 010 8 



010 9 

PG032 

OOOC 


NUM 

12 


N22Q 0109 



0110 

PO 033 

0 080 


ADC 

DAG3KL-DACPR1 


N22G0110 



0111 

P0034 

14EA 


JMP- 

(ADISP) 


N22Q0111 

o 


0112 

P0035 

0 8 42 

DAC020 

CLR 

Q 

INITIALIZE MESSAGE STORE INDEX 

N2200 112 


0113 

P 0 0 3 6 

-+B4D 


STQ^ 

DACMSX 

AND PIECE removal INDEX 

N220 G113 



Oil 4 

PQQ37 

48 4A 


STQ'* 

DACREM 


N22Qail4 



0115 

P0038 

C84B 

OAC006 

LDA» 

DACMSX 

CALC. RELATIVt ADDRESS FOR 

N22G011 5 

' o 

'•w>' 

0116 

P00 39 

8 8 49 


ADD^ 

DACMRl 

hexasc call 

N22Q011 6 



Oil 7 

POO 3A 

6804 


STA-^ 

DAC007 


M22D0117 



0118 

P003R 

FA 4B 


LDQ^ 

DACTBLi Q 

GET START OF PIECE 

N 2200 118 



0119 

PQ03C 

0AO5 


ENA 

6 


N2200il9 

: O 


0120 

P0030 

5C40 


RTJ^ 

(EX THAN ) 

CONVERT ASC AND STORE 

N2200 12G 


0121 

P0Q3E 

00 00 

DACOO 7 

0 

0 

IN MSG. 

N2200121 



0122 

P003F 

0844 


RAO^ 

DACMSX 

BUMP MSG. STORE BY 2 

N22G 0122 



0123 

P0Q40 

0843 


RAO^ 

DACMSX 


N220Q 123 

O 

o 

0124 

P0041 

E840 


LOQ^ 

DACREM 

IS NEXT WORD LENGTH OF PIECE 

N2200 12 4 


0125 

P0042 

EA45 


LDQ^ 

DACT8L+1 ,Q 


N22D0125 



0126 

P0043 

01 60 


SQP 

OACOO 9-^-1 

SKIP YES 

N2200126 



0127 

P0044 

ODQl 


INQ 

1 

IS IT ^ FLAG 

N220 0127 

o 

o 

0128 

P0045 

01 41 


SQZ 

DAC008-^'-l 

SKIP YES 

N220C128 



0129 

PO 0 46 

181A 


JMP^ 

DACQll 


N22D0129 



0130 

P0Q47 

cooo 

OACG08 

LDA 

=N$AOO 

PUT CR AND ASTERISK INTO 

N22D0130 


1-^ 


P0Q48 

OAOD 






O 

\J 

0131 

P0049 

E8 3A 


LOQ^ 

OACMSX 

MSG. 

N22Q0131 



0132 

P004A 

6A7D 


STA- 

DACMSGtQ 


N22D0132 


O 









o 

O 









1 } 










- - — . _ - - 





DACREQ PAGE 4 DATE: 01/27/99 


0133 

PG04R 

DD 01 


INQ 

1 


N22D0133 

0134 

P004C 

0A2A 


ENA 

$2A 

(ASTERISK=$2A) 

N2200134 

0135 

PQ04O 

6A 7A 


STA^ 

DACMSG, Q 


N220Q135 

013 6 

P004E 

ODOl 


INQ 

1 


N2200136 

013 7 

P004F 

48 34 


STQ^ 

OACHSX 


N2200137 

0138 

P0050 

1810 


JHP» 

DACBll 


N220 0 138 

0139 

P0051 

GOOD 

OAG009 

LDA 

= N$20 20 

PUT SPACE INTO MSG. 

N220G139 


P0 052 

2020 





014 0 

P0053 

E830 


LDQ’*- 

OACHSX 


N220014G 

0141 

PQ054 

6A73 


STA^ 

OAGHSG, Q 


N220G141 

0142 

PQ055 

082E 


RAO^ 

DACMSX 


N22Q0142 

0143 

P0056 

C8 20 


LD A^ 

OACHSX 

CALC. RELATIVE ADDRESS FOR 

N22CG143 

0144 

P0057 

8 8 2D 


ADD-'^ 

DACMR2 

HEXASC CALL 

N220 0144 

0145 

POO 58 

6805 


STA^ 

OACfllO 


N2200145 

0146 

PQD59 

E828 


LDQ^ 

OACREM 

GET LENGTH 

N2200146 

014 7 
0148 

DQ05A 

EA2D 


LDG-^ 

DACTBU-1,Q 


N220G147 

PO 05B 

0A06 


ENA 

6 

CONVERT LENGTH TO ASCII 

N2200148 

0149 

P0Q5C 

5C21 


RTJ» 

(EXTHAH ) 


N22QQ149 

0150 

PGG5D 

0 000 

DACOlO 

0 

0 


N220015C 

0151 

P005E 

0825 


RAO-'^ 

DACMSX 


N22Q 0151 

0152 

PQ05F 

0824 


RAO^ 

DACMSX 


N2200152 

0153 

PG06D 

C8E7 

OACflll 

LDA^ 

DAC008+1 

PUT CR RETURN INTO MSG. 

N22Q0153 

QiSu 

P0061 

E822 


LOQ^ 

OACHSX 


N220G154 

0155 

P0 0 62 

6A65 


SIA* 

OACHSGtQ 


N2200155 

015 6 

P00 63 

D820 


RAO^ 

DACMSX 


N2200156 

0157 

PG064 

C81D 


LDA^ 

OACREM 

INCREASE REMOVE INDEX 

N220 0157 

0158 

P0 0 65 

0 9 02 


INA 

2 

BY 2 

N220 0 158 

0159 

P0066 

6818 


STA^ 

OACREM 


N22Q 0159 

0160 



* 



4 CARDS DELETED 

N2200 160 

0161 

PG067 

C81C 

OAC012 

LDA^ 

OACHSX 

CALC. LENGTH OF MSG. 

N22ufll61 

0162 






1 CARO DELETED 

N220Q162 

0163 

P0068 

6806 


STA^ 

DACPAR-s-4 


N220Q163 

0164 

P0069 

54F4 


RTJ- 

(AMONI) 

OUTPUT MSG. 

N220 0164 

016 5 

PQ06A 

05 07 

DACPAR 

ADC 

$500+CHRSLV 


N220Q165 

016 6 

P0 06B 

0 0 0 7 


ADG 

OAC014-OACPAR 


N 22 0 0 16 6 

016 7 

P006C 

0 0 DO 


0 

0 


N22Q 0 167 

0168 

P0 06D 

OQGO 

OTLU 

NUN 

0 

LOGICAL UNIT (TO BO FILLED) 

N2200168 

0169 

PO 06E 

OQ 00 


0 

0 


N2200169 

0170 

PQ06F 

0 0 5D 


AOC 

DACMSG-DACPAR 


N22G C17G 

0171 

P0070 

14EA 


JHP- 

C ADISP) 


N2200171 

0172 

P0371 

E81Q 

OACQl 4 

LDQ^ 

OACREM 


N2200172 

0173 

PQ 072 

0814 


TRQ 

A 


N220Q173 

0174 

P00 73 

98 00 


SUB^ 

DACSTO 

IS REMOVE INDEX = PIECE INDEX 

N22C0174 

0175 

P0Q74 

0103 


SAZ 

DAC013-^-l 

YES, DONE 

N2200 175 

0176 

PO 075 

08 44 


CLR 

A 


N22QQ176 

0177 

P0076 

6800 


STA^ 

DACMSX 

NO, RESET MESSAGE LENGTH TO ZERO 

N22G0177 

0178 

P0077 

18C0 


JMP^ 

DACOO 6 

SET UP TO OUTPUT NEXT BLOCK 

N2200 178 

0179 

P0 078 

E804 

DAC013 

LDQ^ 

BASE 

EXIT (TO ■•SOMMOR") 

N220 0179 

018 D 

PQ079 

E2 03 


LDQ- 

SOMMOR, Q 


N220Q180 

0181 

P007A 

1622 


JHP- 

(ZERO),Q 


N2200181 

0182 

P007B 

1000 

MODE 

ADC 

ASHOD 


N2200 182 




0184 


N220Q184 




COPE 

CALi 

CALL 

SHOT 


N22C0185 

N220018 6 

N220018r 

N22a0188 

N22Q D 189 

N22G0190 

N2200191 

N220G 192 

N22QG19S 

N22C019A 

N2200195 

N22Q0196 

N2200197 

N220G198 

N2200199 

N220 0200 

N220G2Q1 

N 220 0 20 2 

N2200203 


N220 G 20 4 
N220 0 205 


N 220 0 20 7 
N223G2C8 
N22Q02G9 
H22G 0210 
N2200211 
N22G 0212 


o 

o 

o 

c 

C) 

o 

Q 

O 

o 

c 

o 

o 

o 

o 

o 


o 

o 


DACREQ 


EQUIVALENCES 


PAGE 


date: 01/27/99 


o 


o 



DEF .LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

o 


0 0 0 0 

I 

OOFF 

( 000255) 

0070, 0075, 

0078, 0089, 0091, 0095 



0 0 23 

AMONI 

0QF4 

(000244) 

0104, 0164 


r\ 


0 023 

ADISP 

OOEA 

( 000234) 

0111, 0171 



o 

0 023 

LPMSK 

000 2 

(000002) 





0 0 23 

NZERO 

0012 

(OOQD18) 





0 0 2 3 

ZROBIT 

00 33 

(000051) 





0 02 4 

FIVE 

0043 

(000067) 




u 

0 024 

SIX 

0 0 4 4 

(0 00068) 





0 024 

ZERO 

0022 

( OCO 034) 

0081, 0090, 

0181 



0 024 

OMEBIT 

0023 

(000035) 



. O 

■•"’X 

0 024 

SIXTEN 

0027 

(00QG39) 



V..' 

‘w' 

0 025 

COMMA 

002C 

( 0 00 0h4) 





0 02 5 

SLASH 

0Q2F 

(000047) 





0 02 5 

ASTRIC 

002A 

(000042) 



/ \ 

r’'*N 

0 02 6 

EIGHT 

0026 

( 000038) 



L-) 


0 026 

NINE 

0045 

(000069) 





0 026 

THREE 

000 4 

(0COGQ4) 





0 02 6 

ONE 

00Q3 

(000003) 

0 077 


J* ’l 


0 0 26 

TWO 

0024 

{ 000036) 



L.-' 

o 

0 02^ 

TEN 

0046 

(000070) 





0 0 30 

HANDLE 

0 001 

(OOODOi) 

0 0 61 




0 031 

MSG 

000 2 

(000002) 





3 032 

SOMMOR 

000 3 

( OOQ 303) 

0180 



o 

0 033 

10 ERR 

00 0 4 

( 0 0-30 0 4) 





0 0 34 

LISTLU 

0 00 5 

{ 000005) 

0 0 63 




0 03 5 

COMOLU 

0 0 0 6 

(000306) 



■ O 


0 03 6 

NEWMLU 

0 0 0 7 

(000007) 




u 

0 037 

PROGl 

00 0 8 

(000008) 





0 0 38 

PR0G2 

0 00 9 

(000009) 





0 G39 

BITFLG 

OOOA 

{ OQGOIQ) 





0 0 40 

BUFCNT 

0 0 0 B 

(000011) 



o 


0 0 41 

FIELD 

OOQC 

(000012) 





0 042 

SLASHF 

0010 

(000016) 





0 0 43 

QUFEMT 

0011 

( 000017) 



("■3 


G044 

BUFFER 

0012 

( 0G0Q13) 




1^.' 

0 047 

CHRSLV 

00 0 7 

(000007) 

0105, 0165 




0 050 

COMOUT 

08FC 

(002300) 





0 051 

CCMLU 

08FD 

(002301) 



n 


o 




o 


( \ 


o 


o 




DACRFQ 


PAGE 


7 


date: 01/27/99 


0052 MASSLU D8C2 (002242) 

0053 ASMOO 1000 {004096) 0182 


DACRFQ 


PAGE 


8 


DATE; 01/27/99 


S Y M n 0 L s 


o : 

DEF . LINE 

NAME 

ADDRESS 


0016 

dacreq 

00 0 0 


0 Q75 

DACOOl 

0011 

C') 

0083 

DAC002 

0019 


008 4 

OAC003 

•301 A 


009 5 

DACOO 4 

002 5 


0101 

DAC005 

002B 


0105 

□ACPRl 

002E 


0 10 8 

OTLUl 

0031 


0112 

DAG020 

003 5 


0115 

DAC006 

0038 

n 

0121 

OACQ07 

Q03E 


0 130 

DAC008 

0047 


0 139 

DAC009 

00 51 


0 150 

OACOlO 

GG5D 

Q 

0153 

OACOll 

0060 


0161 

DAC012 

0 0 67 


016 5 

OACPAR 

D06A 


0168 

OTLU 

0 06D 

O 

0 172 

OAC014 

00 71 

0179 

DAC013 

0078 


0182 

MODE 

Q07B 


0185 

BASE 

Q07C 

r') 

018 6 

EX THAN 

0070 


0187 

EXTMSG 

007E 


0 19C 

DACLPl 

0Q7F 


0192 

OACSTO 

0080 

o 

0193 

DA C REM 

0081 

V./ 

0194 

DAGMRl 

0082 


019 5 

OACMSX 

0083 


019 6 

DACMR2 

0084 


0197 

DACMXP 

0 0 8 5 

■>w-' 

0198 

OACTBL 

0086 


0 202 

OACSKL 

OOBB 


0 20 5 

DAGMSG 

00C7 

o 

0 208 

SA14 

0002 


0209 

SP14 

00 03 


0210 

DB14 

0120 


o 


o 

o 


referenced at line number 


0016 
3 0 94 
0 0 80 
0 0 82 
0 0 93 






0 088 
0 106, 
0 0 66 

0 110 





0106 

0178 

0117, 

0194 





0128 , 
0 126 

0153 





0145 , 

0196 





0129 , 

Q 138 





0163, 
0 0 65 

0156, 

0170 




0165 
0175 
0 064 
0 0.59 , 

0179 





0 0 62, 

0 12Q, 

0 149 




0 072, 
0101, 
0114, 
0 116 
0113, 

0 092 
0174 
0124, 

0146, 

015 7, 

0159, 

0 172 

0115, 

0122, 

0123, 

013 1, 

013 7, 

0144 
0 0 86 


0 0 76, 
0110 
0 132, 
0 209 
0210 

0 084, 

0 097, 

0 0 99, 

0118 , 

0125, 

0135, 

0l4l, 

0155, 

Q17G, 

0194, 

0211 


o 


■ o 

■ o 
• o 

■ n 

, o 
o 
' o 
^ o 

C140, G 142, 0143, 0151, 0152, 0154, 0156, 0161, 0177 

0147 ■ O 

0196 

; O 
O 

o 

o 


OACRFQ 


PAGE 9 


date; 01/27/99 



o 

o 

o 


n 


O 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DACREQ 
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DATE; 01/27/99 


o 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H B 

0 L S 



ADISP 

0023 

AHONI 

0 023 

ASMOD 

0 0 53 

ASTRIC 

0025 

BASE 

0185 

CHRSLV 

0 047 

GOMLU 

0051 

COMMA 

0 0 25 

COMOLU 

0035 

COMOUT 

0050 

DAC005 

0101 

DACOOb 

0115 

OAC007 

0 121 

DAC008 

0130 

DAC009 

0139 

DACO 14 

0172 

DACQ2Q 

0 112 

DACLPl 

0 190 

OACMRl 

0194 

DACMR2 

0196 

DACPRl 

CIO 5 

DACREM 

0193 

DACREQ 

0016 

DACSKL 

0202 

DACSTO 

019 2 

EXTMSG 

0187 

FIELD 

0 041 

FIVE 

0 0 24 

HANDLE 

0030 

I 

OQG 0 

LVLSTR 

0019 

MASSLU 

0 052 

MODE 

0182 

HSG 

0031 

NEWMLU 

0 03 6 

OTLU 

C16 8 

OTLUl 

0108 

PROGl 

0 037 

PR0G2 

003 8 

SA1-+ 

020 8 

SOMHOR 

0 032 

SPl^ 

0209 

TEN 

0 02 7 

THREE 

0026 

TWO 

0026 


o 

o 

o 

o 


o 

o 


o 

c 


o 


BITFLG 

0039 

BUFCNT 

0040 

BUFEMT 

0043 

BUFFER 

0044 

■ O 

DACOOl 

0075 

DAC0G2 

0083 

OACG03 

0 08^ 

DACO Oh 

DC95 


OACOID 

0150 

DACOll 

0153 

DAC012 

0161 

DAC013 

0179 


OACMSG 

0205 

DACMSX 

Cl 95 

DACMXP 

0197 

DACPAR 

0165 

O 

OACTBL 

019 8 

D814 

0210 

EIGHT 

0 026 

EXTHAN 

0186 

lOERR 

0033 

LEND 

0 02 0 

LISTLU 

0 03 4 

LPMSK 

0023 


NINE 

0 026 

NZERO 

0023 

ONE 

0 026 

0NE8IT 

0 024 


SIX 

0024 

SIXTEN 

002h 

SLASH 

0025 

SLASHF 

0042 

O 

ZERO 

0024 

ZROBIT 

0023 




o 

(3 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DATEJ 01/27/99 


000 1 
000 2 
00 0 3 
000 4 
0005 
00 0 6 

0007 

0008 
000 9 
0010 
DQll 
0012 
0013 

0015 

0015 


PTHREQ 


PAGE 1 


NAM PTHREQ DECK-ID N23 MSOS 5.0 

^ MASS STORAGE OPERATING SYSTEM VERSION 5.0 

^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

^ COPYRIGHT CONTROL DATA CORPORATION 1976 

if- 

^ THIS PROCESSOR PRINTS THE LOCATION AND THE 

^ FIRST 2 WORDS OF THE REQUESTS ON A THREAD, 

^ UP TO 10 REQUESTS, AT THE LEVEL OF OOP. 

^ THE REQUEST HAS THE FOLLOWING FORMAT, 

^ PTH, LOCATION OF TOP OF T HREAD , BAS E ( CR3 

if 


if 


ENTRY NAME 

ENT PTHREQ 


SUMMARY-11 

N23Q0002 
N230Q 00 3 
N230 0 OOP 
N233 0 00 5 
N2300Q06 
N23Q 0 0 0 7 
N230 0008 
N2300009 
N230001G 
N23DCail 
N2300Q12 
M2300013 

N23u 0 015 
N23G0016 


0018 


TABLE 


0019 

0QF4 
OOEA 
•3 0 02 
0012 
0 0 33 


EQU 

AMONI {$F4) 

, AD ISP { SEA) ,LPMSK(2) ,NZERO($12) ,ZR0BIT($33) 




0020 

0 0 43 
0 0 44 
0 0 22 


EQU 

FIVE($43) , 

SIX ($44) , ZERO ($22) , ON EBIT ($23 ), SIX TEN ($27 ) 


0 0 23 
0 0 27 





0021 

0 0 2C 
0 0 2F 
00 2A 


EQU 

COMMA ($20 

,SLASH($2F) ,ASTRIC($2A) 

0022 

0 0 26 
0 0 45 
0 0 04 
0 0 03 
0 024 


EQU 

EIGHT ($ 26) 

, NINE ($45 ), THREE (4) ,ONE(3) , TWO ($24) 



0C23 

0 0 46 


FQU 

TEN ($45 ) 

»^MS0S4 

002 5 




PARAMETER LOCATION (OFFSET FROM BASE) 

002 6 

0 0 01 


EQU 

HANDLEt 1) 

••HANDLE" 

002 7 

0 0 02 


EQU 

MSG (2) 

"MSG" ENTRY 

0028 

0 0 03 


EQU 

SOMMOR{ 3) 

••SOMMOR" ENTRY 

0029 

0 0 04 


EQU 

I0ERR(4 ) 

■•lOERR" ENTRY 

0030 

0 0 05 


EQU 

LISTLU (5) 

LIST OUTPUT — - "LISTLU" 

0031 

0006 


EQU 

COMOLU( 61 

"COMOLU" 

GD32 

0 0 07 


EQU 

NEWMLU(7) 

"NEWMLU" NEW MM LU 

003 3 

0 0 08 


EQU 

PROGl (8 } 

"PROGl" 

003 4 

0 0 09 


EQU 

PR0G2 (9 ) 

"PR0G2" 


N23Q0G18 
N230 QQ19 


N2300020 

N230 0 021 
N23G 0022 


N230 0 Q25 
N230Q026 
N2300 027 
N2300028 
N2300029 
N2300 030 
N2300 031 
N23QG032 
N23GG033 
N23Q0Q34 


PTHREQ 


PAGE 


2 


date: 01/27/99 


OQOA 
00 OB 
00 OC 
OQ 10 
0011 
0012 


EQU QITFLG(105 
EQU BUFCNT(ll) 
EQU FIELD(12> 
EQU SLASHFdS) 
EQU 8UFEMT(17) 
EQU BUFFERdS) 


•RITFLG" 

•BUFCNT" 

■FIELD" 

■SLASHF" 

■8UFEMT" 

■BUFFER" 


0 0 07 


VARIABLE EQUS 

EQU CHRSLV(7) LEVEL OF THIS PROGRAM 


0 8FC 
08FD 
0 8C2 
1000 


EQUS 

EQU COMOUT($8FC) 
EQU C0MLU($8FD) 
EQU MASSLU($8C2) 
EQU ASMODISIOOO) 


FOR LOGICAL UNITS 
TYPE OUTPUT LOGICAL UNIT 
INPUT COMMENT LOGICAL UNIT 
MASS MEMORY LOGICAL UNIT 
ASCII MODE OUTPUT 


PROGRAM 


START 


POOOO 
POGOl 
P00G2 
PG003 
POaOA 
PGOOp 
P0D06 
POOQ 7 
P Q 0 0 8 
P90Q9 

POOOA 
POOOB 
POOQC 
POOOD 
PO OOF 
POQGF 
POOlO 
POOH 
P0012 
PD013 
P0014 
P0015 
P0016 
P 0 0 1 7 
P0018 
P0019 
POOIA 
POQ IB 


6 8 7C 
60FF 
Cl 01 
687A 
Cl 02 
6379 
C105 
8 365 
683F 
686E 

03 AO 
6 8 7A 
0 A02 
68 74 
flC04 
0A02 
5C6D 
CIOC 
0107 
90 OA 
0105 
80 0A 
Q9D3 
0102 
0C04 
1C65 
0A03 
5C62 


PTHREQ STA^ BASE 
STA- I 

LDA- HANDLE,! 
STA^ EXTHAN 
LDA- MSG, I 
STA^ EXTMSG 
LDA- LISTLU,! 
ADD^ MODE 
STA^ OTLUl 
STA^ OTLU2 


CLR 

STA^ 

ENA 

STA^ 

PTHOCl ENQ 
ENA 
RTJ» 
LDA- 
SAZ 
SUB- 
SAZ 
ADD- 
INA 
S AZ 

PTHOIA ENQ 
JMP^ 

PTH002 ENA 
RTJ^ 


PTHBSE 

2 

PTHFLD 


(EXTHAN ) 

FIELD, I 

PTH002-^-l 

LPMSK+-8 

PTHOOE-i^-l 

LPMSK + 8 

-COMMA 

PTHQ02---1 

4 

(EXTMSG ) 

3 

(EXTHAN ) 


SAVE PARAMETER BUFFER ADDRESS 

GET ■•HANDLE'^ ROUTINE ADDRESS 

FETCH "MSG^' ADDRESS 

GET LIST LOGICAL UNIT 
+ MODE (ASCII) CODE 


INITIALIZE BASE TO ZERO 
SET TO GET 2 FIELDS 
SET TO GET 4 CHAR, FIELD 
GFT FIELD 

IS CONTROL CHAR.= COMMA, 
SKIP YES (ZERO) 

SKIP YES ($FF) 


SKIP YES (COMMA) 

NO, OUTPUT FORMAT INCORRECT 
MSG. 

CONVERT TO HEX 


N23G 0 035 
N230a036 
N230 0 037 
N23G 0 0 5 8 
N2300 039 
N23 5 0 0 4 0 


N2300042 

116'^435 


N230 0045 
N23Q0046 
N2300047 
N23G00h6 
N23Q0049 


N230G051 
N2300 052 
N2300 053 


N230 0 055 
N230u056 
N2300057 
N23Q0056 
N2300059 
N2 3 u 0 05 0 
NESOOuBl 
N2300062 
N230Q063 
N233 Q0b-^ 

N23D0066 
N2300G67 
N23QU 068 
N230 0 069 
N230 Q D7D 
N230G071 
N23DDQ72 
N23D 0073 
N230 0 07P 
N2300075 
N2300Q76 
N2300077 
N2300078 
N230Q079 
N23Q 0 080 
N2300081 
N230D082 
N2300083 


(' 

o 

o 

o 

o 

ri 

O 

L.' 

o 

o 

o 

o 

o 

o 

o 

o 


o 


PTHREQ 


PAGE 
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DATEt 01/27/99 


j 

0D8 4 

POOIC 

OOQQ 

PTHVAL 

0 

0 


N2300Q84 

c- 


008 5 

POOID 

C8FE 


LDA^ 

PTHVAL 

SAVE FIELD 

N2300 085 


0 

0086 

PQQIE 

E863 


LOQ- 

PTHFLD 


N2300Q86 


0087 

POOIF 

6A5F 


STA^ 

PTHBSE-1 ,0 


N23UQ 087 



0088 

PO 020 

ODFE 


INQ 

-1 

DECREMENT FIELD COUNTER 

N2300088 



0089 

P0021 

43 60 


STQ’^ 

PTHFLD 


N2300089 


o 

0090 

Pfl022 

0 1 A1 


SQZ 

PTHOQS-^f-l 

SKIP IF DONE (GOT 2 FIELDS) 

N23a0090 

' 0 

0091 

P 0 0 2 3 

18EA 


JMP» 

PTHQOl 


N 230 u-j 91 


0092 

P0024 

C85B 

PTHOO 3 

LDA^ 

PTHBSE 

ADD FIELDS TO GET FINAL 

N2300 092 



0093 

P0025 

885B 


ADD» 

PTHTOP 

A8S. LOG. OF TOP OF THREAD 

N230G093 



009 4 

P00 26 

60FF 

PTH03 A 

STA- 

I 


N23DD094 

0 

w 

0095 

P0027 

OCOO 


ENQ 

0 

INITIALIZE THREAD ENTRY COUNTER 

N23Q0 095 


00 96 

P0Q28 

0 500 


IIN 

0 

INHIBIT FOR SNAP SHOT 

N230 0096 



0097 

P0029 

C4FF 


LDA- 

(I) 

IS TOP OF THREAD = END OF 

N230C097 


r'^ 

0 0 9 8 

PO 02A 

09 0 0 


INA 

0 

thread 

N2300098 

0 

w 

0099 

P002R 

0111 


SAN 

PTHOO 4-^-1 

SKIP NO 

N2300Q99 


0100 

P002C 

1812 


JMP^ 

PTH006 

YES, GO TO TERMINATE 

N23CU100 



0101 

PG020 

C5 22 

PTHOO 4 

LDA- 

(ZERO) , I 

GET LOG. OF FIRST ENTRY 

N23a01Ql 


O ' 

01Q2 

P0Q2E 

60FF 


STA- 

I 


N23DG102 

r') 

0103 

P002F 

COFF 

PTH005 

LOA- 

I 

GET LOCATION OF ENTRY 

N230C103 



QIDh 

P0030 

6A 56 


STA» 

PTHTBL, Q 


N 23 0 CIO 4 



0105 

P0Q31 

C522 


LDA- 

(ZERO ) , I 

STORE WOS 1 AND 2 AND THREAD 

N23QU105 


/■^\ 

0106 

P0Q32 

6A 55 


STA^^ 

PTHTBL+1 ,Q 


N230 OIC 6 

C 

f 

010 7 

P00 33 

C503 


LDA- 

(ONE) ,I 


N23GQ1D7 


0108 

P 0 0 34 

6A54 


STA^‘ 

PTHTBL + 2 ,0 


N 230 GIG 8 



0109 

P0035 

C524 


LDA- 

(TWO) ,I 


N230G109 


O 

QUO 

PQG36 

60 FF 


STA- 

I 

UPDATE FOR NEXT ENTRY, IF ANY 

N230 0 110 

0 

0111 

P0037 

0003 


INQ 

3 

BUMP THREAD ENTRY COUNTER 

N23GGlli 


0112 

P0Q38 

0900 


INA 

0 

IS THIS END OF THREAD 

N2300112 



0113 

P0039 

0104 


SAZ 

PTHOO 6-^-1 

SKIP YES 

N2300 113 



0114 

P0Q3A 

QAEl 


ENA 

-30 

HAVE TEN ENTRIES BEEN FOUND 

N2330114 

: 0 


0115 

P003B 

0 8 34 


AAQ 

A 

(MAX. ALLOWED) 

N230011 5 


0116 

P003C 

0 104 


SAZ 

PTH007--^-i 

SKIP YES 

N2300116 



0117 

P003D 

18F1 


JMP’^ 

PTH005 

GO GET NEXT ENTRY 

N230Q 117 


0 

0118 

PCQ3E 

OAFF 

PTHOO 6 

ENA 

-0 

STORE EOT FLAG 

N230G 113 

0 

0119 

P003F 

bA 47 


STA^ 

PTHTBL, Q 


N230Q 119 


0120 

P0040 

ODOl 


INQ 

1 

BUMP ENTRY COUNTER 

N2300 12 c 



0121 

PO 041 

0 4 00 

PTH007 

EIN 

0 

END OF SNAP SHOT 

N230G121 


o 

0122 

P0042 

48 40 


STQ’f 

PTHCTR 

SAVE ENTRY COUNTER 

N2300122 

: 0 

0123 

PO Q43 

54F4 


RTJ- 

(AMONI) 

OUTPUT HEADING 

N 230 012 3 


0124 

P 0 044 

05 07 

PTHPRM 

ADC 

$50 0 + CH RSLV 


N23D0124 



0125 

P0Q45 

Q0 07 


ADC 

PTHD13-PTHPRM 


N230Q12 5 



0126 

P0046 

0 0 0 0 


0 

0 


N23G0126 

: 0 

'Sw'' 

0127 

P0047 

GO 00 

OTLUl 

NUM 

0 

LIST LOGICAL UNIT (TO BE FILLED) 

N23G0127 


0128 

P0048 

OQ 09 


ADC 

LHEAOG 


N23Q 0128 



0129 

PO 049 

0 0 62 


ADC 

PTHSKH-PTHPRM 


N23QQ 129 


o 

0130 

POO4A 

14FA 


JMP- 

(ADIS P) 


N230Q130 

: 0 

0131 

P0D4B 

0 AOO 

PTH013 

ENA 

0 

INITIALIZE INDEX TO SNAP 

N23G0131 


0132 

P0Q4C 

68 37 


STA^ 

PTHTCT 

SHOT TBL. 

N2300132 



0133 

PQO 4 D 

0 8 44 

PTH014 

CLR 

A 

INITIALIZE MSG. INDEX 

N23D0133 


r-) 

0134 

P004F 

6836 


STA^ 

PTH MS X 


N23Q0134 

■ 0 


013 5 

P0G4F 

C835 

PTHOO 8 

LDA^ 

PTHMSX 

SET-UP REL. LOG. IN HEXASC 

N2300135 

o 

o 

0136 

P0050 

8835 


ADD^ 

PTHRML 

CALL FOR ENTRY OF DATA 

N230Q136 

0 0 




PTHREQ 


PAGE 4 

DATE: 01/27/99 

013 7 

P0 0 51 

68 05 


STA^ 

PTH009 

INTO MSG. SKELETON 

0138 

P0052 

E831 


LDQ^ 

PTHTCT 

GET VALUE 

0139 

P0Q53 

EA33 


LDQ^ 

PTHTBL, Q 


0140 

PQ 054 

0A06 


ENA 

6 


0141 

P0u55 

5C28 


RTJ + 

(EXTHAN ) 

CONVERT TO ASCII AND STORE IN SKEL 

0142 

PQ056 

0 0 00 

PTH009 

0 

0 


0143 

P03 57 

D82D 


RAO^ 

PTHMSX 

BUMP MSG. INDEX BY 2 

0144 

P0 068 

082C 


RAO^ 

PTHMSX 


014 5 

P0059 

D82A 


RAO^ 

PTHTCT 

BUMP SNAP SHOT INDEX 

0146 

PO G5A 

0A20 


ENA 

S20 

PUT SPACE INTO MSG. 

0147 

PD05B 

E8 29 


LOQ^ 

PTHMSX 


014 8 

PD05C 

6A53 


STA^ 

PTHMSG, Q 


0149 

P005D 

D827 


RAO--^ 

PTHMSX 

BUMP MSG INDEX BY 1 

0150 

PO 05E 

C8 25 


LOA^ 

PTHTCT 

HAVE ALL VALUES BEEN ASSEM. 

0151 

P Q05F 

9823 


SUB^ 

PTHCTR 


0152 

P006Q 

0115 


SAN 

PTH010-»-l 

SKIP NO 

015 3 

P0061 

58 QC 


RTJ^f 

PTHSR 

ADO CR AND OUTPUT LINE 

015 4 

PD062 

E8 lA 


LDQ^ 

BASE 

EXIT TO "SOHMOR" 

015 5 

P 0 0 6 3 

E2 03 


LOQ- 

SOHMOR, Q 


015 6 

P0054 

1622 


JMP- 

(ZERO ) , Q 


015 7 

PO 065 

0 0 0 0 

OTLU 

NUM 

0 

LOGICAL UNIT (TO BO FILLED) 

015 8 

P0066 

C81E 

PTHOIQ 

LDA^ 

PTHMSX 

HAS ONE LINE BEEN ASSEM. 

0159 

PO 067 

09F6 


INA 

-9 


0160 

PO 068 

G112 


SAN 

PTHOll-^-1 

SKIP NO 

OlBl 

PC 0 69 

5804 


RTJ^ 

PTHSR 

ADD CR AND OUTPUT LINE 

0162 

PDG6A 

18E2 


JMP^ 

PTH014 

RETURN FOR ANOTHER LINE 

015 3 

PO 06D 

18E3 

PTHQl 1 

JMP» 

PTHOGS 

CONTINHUE LINE 

0164 

P0 0 6C 

1C 0 0 

MODE 

ADC 

ASMDD 


016 5 







016 6 



■V. 

SR TO ADO CR AND OUTPUT 

0167 



4 

ONE 

LINE 


015 8 



V 




0169 

P0Q6D 

GOOD 

PTHSR 

0 

0 


0170 

PQQ6E 

C8 38 


LDA^ 

PTH3KH 

ADD CP 

0171 

P006F 

E815 


LOG^ 

PTHMSX 


0172 

P0070 

6A3F 


STA^ 

PTHMSG, Q 


0173 

PQ071 

OOGl 


INQ 

1 


0174 

PGQ72 

4806 


STQ^ 

PTHPAR+4 

STORE MSG. LENGTH 

0175 

POO 73 

54F4 


RTJ- 

(AMONI) 

OUTPUT MSG . 

017 6 

P0 074 

0507 

PTHPAR 

ADC 

$5Q0+CHRSLV 


0177 

PU075 

0 0 0 7 


ADC 

PTHQ12-PTHPAR 


0178 

P0076 

0 0 0 0 


0 

0 


0179 

P0077 

0 0 00 

0TLU2 

NUM 

0 

LIST LOGICAL UNIT (TO BE FILLED) 

013 0 

PO 078 

0 0 0 0 


0 

Q 


0181 

PO 079 

Q 0 3B 


ADC 

PTHMSG-PTHPAR 


0182 

PQC7A 

14EA 


JMP- 

(ADIS F) 


018 3 

PD 07B 

1C FI 

PTH012 

JMP^ 

(PTHSR) 

RETURN TO CALLER 

0185 







018 6 

P0 0 7C 

0 Q DO 

BASE 

NUM 

0 


018 7 

PD07D 

0 0 0 0 

EXTHAN 

NUM 

0 


018 8 

P007E 

00 00 

EXTMSG 

NUM 

0 


0189 








N230Q137 

N23Q0138 

N 23 0 013 9 

N230Q 140 

N23DQ141 

N230Q142 

N 23 0 014 3 

N23G0 144 

N 23 0 0 14 5 

N 230 01 46 

N2300147 

N2300148 

N230Q149 

N23Q0 15C 

N2300151 

N230G152 

N2300153 

N2300154 

N23Q 0155 

N23G 0156 

N23G0157 

N2300 158 

N2300159 

N230016U 

N230Q161 

N23G0162 

N23C 0 163 

N230Q164 

N2300 165 

H23D0166 

N23D 0167 

N2300166 

N230 0169 

N2380170 

N23GG171 

N2300172 

N2300173 

N23QC174 

N230 0 175 

N2300176 

N2300177 

N230 0178 

N230Q179 

N230018Q 

N2300181 

N 23 0 0 18 2 

N23QG183 

N2300185 

N2300iac 

N23Q0187 

N2300188 

N2500189 


PTHREQ 


PAGE 
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DATE: 01/27/99 


020 3 
020 4 
0205 
020 6 
02D 7 


P0 0 7F 
P008Q 
P0 081 
PQ 082 
P0Q83 
P 0 0 8 4 
PO 085 
P0 036 

P00A5 
P0 0A6 
POOA 7 
P00A3 
P00A9 
POOAA 
POOAB 
POOAC 
POOAD 
PQ OAE 


0 0 00 
0 0 00 
Q 000 
00 DO 
0 0 00 
UO 00 
0 0 59 
OOIF 

0 0 D Q 
OAOO 
4C4F 
432E 
20 57 
4431 
2020 
57 

3220 
GA OD 
0 0 09 


POOAF OOOA 
PDi3B9 0014 


PTHBSE 

PTHTOP 

PTHFLO 

PTHCTR 

PTHTCT 

PTHMSX 

PTHRHL 

PTHTBL 


PTHSKH 


CONST A MTS 

0 0 base 

0 3 RELATIVE ADDRESS OF TOP OF THREAD 

0 2 NO. OF REMAINING FIELDS TO GET 

0 0 TABLE ENTRY COUNTER 

G 0 TABLE REMOVE COUNTER 

0 0 MSG. Index 

ADC PTHMSG-PTHD09 RELATIVE BASE FOR HEXASC GALL 
0 0 IFOR BUFFERING) 

® rroo. hd ' p - 


NUM $A0D 

EQU LHEADGI--PTHSKH) 


PTHMSG BZS PTHMSG(IO) 
8ZS (20) 


MSG. FOR DATA TO BE ASSEH. BY PROG< 


M230G190 
N230G191 
N2300192 
N2300193 
N23C019R 
H2300195 
N2300196 
N2300197 
N230 0198 
N2300199 
N23DQ200 
N230 0 201 
N2300 202 


N230C 203 
N2S00204 
N23Q 0 20 5 
N230 0 20 6 
N23Q 0 20 7 


0209 

0210 0002 P 

0211 0003 P 

0212 0120 P 

0213 POflCD 0 0 53 

0214 


EQU SA15(^/96) 

EQU SP15ISA15+1) 
EQU OB15( SP15^96) 
8SS (DB15-^ ) 


N 23 0 0 20 9 
N230 0 21C 
N2300211 
N23GG212 
N230G213 
N230G214 


0120 ( 


288 ) 


aooG ( 


QuOO ( 


o 

o 

O 


O 

O 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 
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date: 01/27/99 


: Q U T V 

A L E N 

C E S 


’’ 


DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

GOOD 

I 

OOFF 

(000255) 

0056* 0094, 

0097, 0102, 0103, 0110 

0 019 

AHONI 

O0F4 

1000244) 

0123, 0175 


QQ19 

ADISP 

OQEA 

(000234) 

0130, 0182 


0019 

LPMSK 

0 00 2 

(0 00002) 

0075, 0077 


0019 

NZERO 

0012 

(000018) 



0Q19 

ZPOBIT 

0033 

(000051) 



D02Q 

FIVE 

0043 

(000067) 



0 020 

SIX 

0044 

( 0 00068) 



0 020 

ZERO 

0022 

( 0 DQG34) 

0101, 0105, 

0156 

0020 

DNEBIT 

0023 

( 000035) 



0020 

SIXTEN 

0027 

( 000039) 



0 021 

COMMA 

00 2C 

(0 0QQ-^4) 

G 078 


00 21 

SLASH 

002F 

(000047) 



0 021 

AS7RIC 

002A 

(00QD42) 



0 022 

EIGHT 

0026 

( 000038) 



0022 

NINE 

0045 

(000969) 



0 022 

THREE 

0 0 0 4 

( 00 000 4) 



0 022 

ONE 

0 0 0 3 

I 0 G 0 0 0 3 ) 

0 107 


0 0 22 

TWO 

0024 

(000036) 

0109 


0 023 

TEN 

0046 

(000070) 



0 0 2 6 

HANDLE 

0 001 

(OOOOul) 

0 057 


0 0 2 7 

MSG 

00 02 

(000002) 

0 059 


0 0 23 

SOMMOR 

0003 

( 000003) 

0155 


0 029 

10 ERR 

00 04 

(000004) 



0 0 30 

LISTLU 

000 5 

(000005) 

0 0 61 


0 031 

COMOLU 

000 6 

( GOOQ06) 



0 032 

NEWMLU 

0007 

( 000Q07) 



0033 

PROGl 

0 0 0 8 

(000008) 



0Q.3 A 

PR0G2 

000 9 

(000009) 



0 035 

BITFLG 

OQO A 

(000010) 



00 36 

BUFCMT 

oooe 

( 000011) 



0 037 

FIELD 

QOOC 

(000012) 

0 0 73 


0 038 

SLASHF 

ooie 

(000016) 



0 0 39 

BUFEMT 

oaii 

( 000017) 



0040 

BUFFER 

0012 

(B0D018) 



0 0 43 

CHRSLV 

0007 

(000007) 

Q12h, 0176 


0 046 

COMOUT 

08FC 

(002300) 



0 0 47 

COMLU 

08FD 

(002301) 




PTHRFQ 
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DATE! 01/27/99 


0 046 
00 49 
0 2 0 4 


MASSED 08C2 (002242) 
ASMOD 1000 (004096) 
LHEAOG 0009 (000009) 


0164 
C 128 


PTHREQ 


PAGE 
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DATEJ Cl/27/99 


O 

r\ S Y M DOES 



DEF.LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 


0016 

PTHREQ 

000 0 

0016 




0 070 

PTHDOl 

OOOE 

0 091 



o 

0 08 0 

PTHOIA 

0016 




0 0 82 

PTH002 

OOIA 

0074, 

0 07 6, 

0 079 


0 084 

PTHVAL 

COiC 

0 0 85 



0092 

PTH003 

0024 

0 090 



o 

0 09 4 

PTH0.3A 

00 2 6 





OlCl 

PTHOO 4 

0020 

0 0 99 




0 103 

PTHQ05 

Q02F 

0117 




0118 

PTH0Q6 

G03E 

0100 , 

0113 


f 'i 

0 121 

PTH007 

0041 

3116 




0124 

PTHPRM 

0 04 4 

0125 , 

0129 



012 7 

OTLUl 

0047 

0063 




0131 

PTH013 

004B 

0125 




0133 

PTH014 

00 4D 

0162 




0135 

PTH003 

0 0 4F 

0163 




0142 

PTH009 

0056 

0137, 

0197 



015 7 

3TLU 

0065 





0158 

PTHGIO 

0066 

0152 




016-3 

PTHOll 

00 6B 

0160 




0164 

MODE 

006C 

0 0 62 




0169 

PTHSR 

0060 

0153, 

0161, 

0183 

o 

017 c 

PTHPAR 

0 07 4 

0174, 

0177, 

0181 


0179 

0TLU2 

0077 

0 064 




0183 

PTH012 

00 7B 

0177 




0186 

BASE 

007C 

, 0055, 

015 4 



018 7 

EXTHAN 

0 0 7D 

0 0 58 , 

0 072, 

0083, Q141 

■■U 

0188 

EXTMSG 

007E 

0 0 60 , 

0 081 



0191 

PTHBSE 

0 07F 

0 0 67 , 

0 087, 

0 092 


0192 

PTHTOP 

Q08D 

0 0 93 




0 193 

PTHFLD 

0081 

0 G 69 , 

0 086, 

0 0 89 


0194 

PTHCTR 

0082 

0122 , 

Q151 


0195 

PTHTCT 

0083 

0132, 

0138, 

0145, 0150 


0195 

PTHMSX 

0 084 

0134, 

013 5, 

0143, 0144, 0147 

o 

0197 

PTHRML 

GQ8 5 

0136 



0198 

PTHTBL 

0086 

0104, 

0106, 

0108, 0119, 0139 


0 201 

PTHSKH 

0DA6 

0129, 

0 170, 

0 204 


0 206 

= THMSG 

QOAF 

0148, 

0172, 

Q181, 0197 

1 

0 210 

SA15 

■CO 0 2 

0211 




0 211 

SP15 

000 3 

0 212 




Q 212 

0B15 

0120 

0213 




O 


c 

o 

O 

Q 

■ o 

: O 
: O 
: Cl 
C- 

0158» 0171 

' O 

■ C 
O 

o 

o 
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DATFt 01/27/99 


r;. 


r-1 


U 


U 




■: \ 


( ! 


o 

o 

o 

o 


d 

o 

o 

(■“■'I 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 
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date: 01/27/99 


A L 

P H A 

B E T I 

GAL 

SORT 

0 F 

S Y H R 

0 L S 


ADI SP 

GQ19 

A MON I 

0 019 

ASMOD 

0 0 49 

ASTRIC 

0021 

BASE 

CHRSLV 

0043 

COMLU 

0 047 

COMMA 

0 0 21 

COMOLU 

0031 

COMOUT 

FIELD 

0037 

FIVE 

0020 

HANDLE. 

0 026 

I 

00 00 

10 ERR 

MODE 

0164 

MSG 

0 027 

NEWMLU 

0 0 32 

NINE 

0022 

NZERO 

OTLU2 

0179 

PROGl 

0 0 35 

PROG2 

0 034 

PTHOOl 

0070 

PTHQG2 

PTH0G7 

0121 

PTH008 

0135 

PTHG09 

0142 

PTHOlO 

0153 

PTHOll 

PTH03A 

009 4 

PTHBSE 

0191 

PTHCTR 

0194 

PTHFLO 

0193 

PTHMSG 

PTHRML 

0197 

PTHSKH 

0 201 

PTHSR 

0169 

PTHT8L 

0198 

PTHTCT 

SIXTEN 

ZROBIT 

0020 

0019 

SLASH 

0 021 

SLASHF 

0 038 

SOHMOR 

0028 

SP15 


0186 

BITFLG 

003 5 

BUFCNT 

00 36 

BUFEMT 

0039 

BUFFER 

0 0 40 

0046 

DB15 

0212 

EIGHT 

0022 

EXTHAN 

018 7 

EXTMSG 

0188 

0029 

LHEAOG 

0204 

LISTLU 

0 05 0 

LPMSK 

0019 

MASSLU 

0 048 

0019 

ONE 

0022 

ONEBIT 

0020 

0 TLU 

015 7 

OTLUl 

0127 

0082 

PTH003 

0092 

PTHuG4 

ulGl 

PTHQ05 

0103 

PTHflC6 

0118 

0163 

PTHD12 

0183 

PTH013 

0131 

PTH014 

0133 

PTHGIA 

0 0 80 

020 6 

PTHMSX 

019 6 

PTHPAR 

0176 

PTHPRM 

0124 

PTHREQ 

0 016 

0195 

PTHTOP 

0192 

PTHVAL 

008-r 

SA15 

0 210 

SIX 

00 20 

0211 

TEN 

0023 

THREE 

0022 

TWO 

0 022 

ZERO 

0020 


MTRRFQ 
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DATE; 01/27/99 


000 1 
000 2 
00 0 3 
00 0 A 
00 0 5 
00 0 6 
00 0 7 
00 08 

00 09 
0010 
0011 
0012 
0013 

001 A 

0015 

0016 
0017 


■¥■ 

V- 

V- 

V- 

¥ 

V- 

¥ 

¥ 

¥• 


NAM MTRREQ DECK-ID N24 MSOS 5.0 

MASS STORAGE OPERAHMG SYSTEM VERSION 5.0 
SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPOPsATION 1976 


ARE IN DECIMAL 


THIS PROCESSOR HANDLES ALL MAG TAPE MOTION REQUESTS 
THE FOLLOWING REQUESTS ARE PROCESSED BY THIS 
PROCESSOR. 

ALL VALUES IN THESE REQUESTS 
ADF,LU,NO. OF FILES(CR) 

BSF,LU,NO. OF FILES(CR) 

ADR,LU,NO. OF RECOROS(CR) 

8SR,LU,N0. OF RECOROSCCR) 

WEF,LU,NO. OF FILES(CR) 

REW,LU{ CR) 


SUHMARY-116«‘^-'‘-^^"“- 
N240C002 
N2400u03 
N240 0004 
N2400 00 5 
N240 OQGb 
N2400U07 
N24DGC08 
N 240 0 0 0 9 
N2400010 
N2400011 
N2400 012 
N24G0 013 
N24Q0 014 
N2400 015 
N24000ib 
N240G 017 


0019 

Q02D 


ENT 

MTRREQ 

E 

N T 

R Y 

0021 


ENT 

adfreq 



16 

0022 


ENT 

BSFREQ 



17 

0023 


ENT 

ADRREQ 



18 

0024 


ENT 

BSRREQ 



19 

0025 


ENT 

WEFREQ 



20 

0026 


ENT 

REWREQ 



21 

0028 

0Q29 


EXT 

NUMLU 

r- 

£1 

X T 

UJ 

0Q30 


EXT 

CHRSFG 




GQ31 


EXT 

HANDLE 




0032 


EXT 

OFF 





NAMES 

N24Q0G19 
N24G 0020 

ADVANCE FILE 

N2‘^0 0 021 

BACKSPACE FILE 

N2u0 0 022 

ADVANCE RECORD 

N24GG023 

BACKSPACE RECORD 

N24C 0024 

WRITE END OF FILE 

N2400 025 

REWIND TAPE 

N24u 0 02o 

A L S 

N2400Q23 
N24G 0 029 
N240003Q 
N240 0 031 
N240G032 


003 4 


0035 

U 0 F4 
0 0 EA 
0 0 02 
0012 
0 0 33 

EQU 

0036 

0 0 43 
D 0 44 
n Q 92 

EQU 


0 0 23 
0 9 27 


0Q37 

0 0 2C 
0 Q2F 
G02A 

EQU 

0038 

C 0 26 
DO 45 
G 0 04 

EQU 


'EQU' TABLE 

AMONI ($F4) ,ADISPI$EA) , LPMSK(2) ,NZER0{$12) ,ZROBIT($333 
FIVE ($431 , SIX ($44) , ZERO ($2 2 ) , ON EB I T {$ 23 1 , SI XT EN ( $27 ) 


COMMA ($20 ,SLASH($2F) , ASTPIC ($2A) 


EIGHT ($ 26 ) , NINE ($ 45 ) , THREE ( 4 ) , ONE ( 3 ) , TWO ( $24 ) 


N240uC'34 
N2 4G 0 035 


N24C 0 03 6 


N24u 0 037 


N24uGu38 


0039 


0041 

0042 

0043 

0044 

0045 
00 46 

0047 

0048 

0049 
005 0 
0051 
00 5 2 
0 0 53 
0 0 5 4 
005 5 
0056 


0 0 5 8 
0 05 9 


0061 
00 62 
00 6 3 

0064 

0065 


0 06 7 
0068 
0 0 6 9 


00 71 
0072 
00 7 3 
007 4 
0075 

007 6 

0077 

0078 
G079 

008 0 
0081 
0C82 
0083 


MTRREQ 


PAGE 2 

date: 01/27/99 

C 0 03 





0 0 24 





0 0 46 


EQU 

TEN {$45 ) 





PARAMETER LOCATION (OFFSET FROM BASE) 

0 0 01 


EQU 

6HAN(1> 


0 0 0? 


EQU 

MSG (2) 

"MSG" ENTRY 

0 0 03 


EQU 

SOMMORC 3) 

"SOMMOR" ENTRY 

0 0 0 4 


EQU 

I0ERR(4) 

"lOERR" ENTRY 

0 0 05 


EQU 

LISTLU (5) 

LIST OUTPUT "LISTLU" 

0 0 06 


EQU 

COMOLUCo') 

"COMOLU" 

0 0 0 7 


EQU 

NEWMLUC 7) 

"NEWMLU" NEW MM LU 

0 0 08 


EQU 

PROGl(S) 

"PROGl" 

0 0 C9 


EQU 

PROG2 (9 > 

"PROG2" 

00 OA 


EQU 

BITFLG(IO) 

"BITFLG" 

0 0 OB 


EQU 

BUFCNT{ 11) 

"BUFCNT" 

00 OC 


EQU 

FIELD (12) 

"FIELD" 

0010 


EQU 

SLASHF( 16) 

"SLASHF" 

0 011 


EQU 

8UFEHT (17) 

"BUFEMT" 

0 0 12 


EQU 

BUFFER(i8) 

"BUFFER” 




VARIABLE EQUS 

0 0 07 


EQU 

CHRSLV( 7) 

LEVEL OF THIS PROGRAM 




EQUS 

FOR LOGICAL UNITS 

0 8FC 


EQU 

COMOUT ( $8FC) 

TYPE OUTPUT LOGICAL UNIT 

Q8FO 


FQU 

COMLU($ 8FD) 

INPUT COMMENT LOGICAL UNIT 

Q8C2 


EQU 

MA3SLU($8C2) 

MASS MEMORY LOGICAL UNIT 

0 0 01 


EQU 

MTCLA3 ( 1) 



Sf. 


If. If. if. >(. If. p 

ROGRAM START 


N24G 0 039 


N24Q 0041 
N24C00-2 
N243 0 0-r3 
N2i.Q 0044 
N2400Q45 
N 2 4 0 0 0 4 5 
N2 hOQ 047 
N24u0 048 
N240 0 049 
N240 0o50 
N2400051 
N240 0 052 
N 2 4 0 G 0 5 3 
N 2 40 0 05 4 
N24Q 0 055 
N 240 0056 


N240 a 058 


N24'e0 061 
N2400062 
N 240 00 6 3 
N240Q 064 
N2400055 


N2400 067 
N24D0 068 
N2 40 G 0 69 


POOOG 684E 

GOOD P 
0 0 0 0 F 
0 0 00 P 
0 0 00 P 
00 0 0 P 
0 0 00 P 
POOOi 60FF 
PD002 ClOl 
POO 03 68 4C 
PGOOi- CIO? 
PQ005 684B 


MTRREQ STA^ BASE SAVE PARAMETER BUFFER ADDRESS 

EQU ADFREQ{ MTRREQ) 

EQU 8SFREQ{ MTRREQ ) 

EQU ADRREQ( MTRREQ) 

EQU BSRREQ( MTRREQ) 

FQU WEFREQ< MTRREQ) 

EQU REWREQC MTRREQ ) 

STA- I 

LDA- THAN, I GET "HANDLE" ROUTINE ADDRESS 

STA^ EXTHAN 

LOA- MSG, I FETCH "MSG" ADDRESS 

STA^ EXTMSG 


N24Q0 j71 
N2400072 
N24GG073 
N24Q 0 0 74 
N24CQ 075 
N24Q 0 076 
N2400G77 
N24G 0 078 
N2400079 
N24a008G 
N24a 0 081 
N24G 0 082 
N240D 083 


M TRREQ 

o 



00 85 

P0 00 6 

0C02 



ENQ 


008 6 

PD0G7 

0A02 



ENA 

o 

0087 

P0 0 08 

5C47 



RTJ^ 

0088 

P0 0 09 

5837 



RTJ^ 


0089 

PQDOA 

68 ID 



STA^ 


00 90 

POGCB 

981F 



SUB* 


0091 

POO DC 

G9FE 



IMA 


0092 

POQuD 

Q132 



SAM 


0093 

PQ QOE 

OC 09 



ENQ 


0094 

POOOF 

1C 41 



JMP* 

C'\ 

0 0 9 5 

POOlO 

0C04 


MTROO 0 

END 


0096 

POOH 

QA02 



ENA 


0 09 7 

PG012 

5C3D 



RTJ* 


0098 

P0013 

582D 



RTJ* 

C) 

0 0 99 

P 0 0 1 i- 

9Q0E 



SUB- 


fllQQ 

P0015 

0102 



SAZ 


010 1 

PO 016 

0131 



SAN 


0102 

POO 17 

1831 



JMP* 


0103 

PQOIR 

C839 


MTROO A 

LDA* 


0104 

P0G19 

Dill 



SAN 


010 5 

POOIA 

OAOl 



ENA 


010 6 

PO OIB 

68 36 


MTROO 1 

STA* 


0107 

PODIC 

C832 



LDA* 


0108 

POOlO 

60FF 



STA- 


010 9 

POOIE 

El 09 


MTROO 5 

LDQ- 


0110 

POOIF 

ODEF 



INQ 


0111 

P0G20 

480B 



STQ* 


0112 

PQ021 

CA31 


MTREP 

LDA* 


0113 

P0G22 

6806 



STA* 


0114 

P 0 0 2 3 

54F4 



PTJ- 

o 

0115 

P0024 

ID 77 


MTRPRl 

AOC 


oil 6 

P0G25 

0 0 08 



ADC 


0117 

PO 026 

GOOD 



ADC 



Pfl027 

0 0 0 0 




O 


P0028 

0 0 0 0 





0118 

P0029 

14EA 



JMP- 


0120 




* 


t’ 

0121 

P002A 

7FFF 

X 

HAXLJ 

ADC 


0122 

P0 02R 

0 0 00 


PROTYP 

NUM 


0124 

PQ02C 

C825 


MTROO 6 

LDA* 


0125 

P002D 

09FE 



INA 


0126 

P002E 

01 07 



SAZ 


0127 

P002F 

0136 



SAM 

r-'i 

0128 

POO 30 

6821 



STA* 

■s_> 

0129 

P0031 

C400 

X 


LDA 



P003^ 

7FFF 

X 




0130 

P0Q33 

0105 



SAZ 


0131 

P003h 

E8F6 



LDQ* 


0132 

P0C35 

18E8 



JMP* 


Q133 

P0036 

E813 


TOEXIT 

LOQ* 


PAGE 


date: 01/27/99 


2 

2 

(EXTHAN ) 
CCCK 

MTRPRH-3 

MAXLU 

-1 

MTROO 0 
9 

(EXTMSG3 

4 

2 

CEXTHANi ) 

CCCK 

SE 

MTRQOA 

HTROO A 

HTRERR 

MTRN 

MTROOl 

1 


GET L,U. FIELD 


OUTPUT ILLEGAL LU MSG. 

GET NO. OF FILES (RECOFDS) FIELD 


SOFFF. CHECK FOR MAXIMUM TIMES 
SKIP IF TIMES=MAXIHUM. 

SKIP IF TIMES IS LT MAXIMUM. 


IF NO. OF TIMES = 0. SET TO ONE. 


MTRM 

BASE 

I 

PROG2,I 

-16 

PROTYP 
MTRCTW, Q 
HTRPPH- 4 
(AMONI) 


SlDGOfC I-RSLV^^$1Q + CHRSLV 
HTRC06-MTRPR1 
0 » 0 f Q 


GET INDEX TO MOTION CONTROL CODE 
FROM MNEMONIC INDEX-16 
SAVE COMMAND TYPE (-16) INDEX 
PICK UP MOTION CONTROL CHARACTER. 
STORE IN TAPE MOTION REQUEST 
TAPE MOTION RE(0UEST FOR 

3 OR LESS EXECTIONS 


(ADISP) 


NUMLU 

0 


MTRN CHECK IF ALL RECORD /FILE BEEN DONE 

TOEXIT done, SKIP 

TOEXIT DONE, SKIP 

MTRN 

CHRSFG CHECK FOR OX 

TOOFF 

PROTYP RECALL COMMAND TYPE 

MTREP TO REPEAT 

BASE EXIT TO >'SOMMOR' 


N240 0 035 
N24C 0 086 
N240 0 0 87 
NEi^OO 086 
N240 0 089 
N2400090 
»^MSOSi*.0--N2400u91 
^^MSOS4.0«-^^N24QQ092 
^"^MSOS4.0»-N2w0 0 093 
N240 0 094 
N240 0 095 
N24D 0 096 
N24G 0 097 


N24u0a98 

^•^^MSOS4.u«^»N2hQ0Q99 

^^MSOS^r.O^-NEi-OOiOO 

♦^HSOS4.0-^N2400101 

N2400102 

♦^MSOS4.0^^N24001Q5 

■»^MSOS4.0^^N2400104 

N240G105 

N24001QO 


N240G1G7 
N2400 108 
N24GC109 
N 24 00 110 
N24C0111 
'■f’-MSOSH. 0^^N24GC112 


N2i-00 113 


N 2w 0 0 11 - 


N2400115 
N2400116 
N24Q oil 7 


N2400118 


N240 0 12G 
N240 0121 
N240 0122 


N2400124 
N240Q125 
N24G0126 
N2h00 127 
N24Q 0128 
N2400129 

N240U13C 
N2i^00151 
N240C 122 
N24G0133 


O 




C) 

o 


o 

r\ 

N».-' 


o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


MTRRFQ 


PAGE 
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DATE: Gl/27/99 


O’ 

o 

o 

o 

o 

D 

' ') 

o 

o 

n 

o 


0134 

P0 0 3 7 

E2 C3 



LDQ- 

SOMMOR, Q 


0135 

P00 38 

1622 



JMP- 

(ZERO) , Q 


0137 




A* 


EXIT 

TO 'OFF' 

0138 

PQQ 39 

C8 05 


TOOFF 

LDA^ 

0T8 

GENERATE 'OFF' ADDRESS 

0139 

P003A 

98 05 



SUB^ 

OTB+1 


0140 

PQ03B 

8814 



ADD^ 

EXTHAN 


0141 

PO 03C 

0 8 22 



TRA 

Q 


0142 

POO 30 

1622 



JMP- 

(ZERO ) , Q 

TO 'OFF' 

0143 

P003E 

7FFF 

X 

0TB 

ADC 

OFF 

0. 'OFF' ENTRY 

0144 

PG03F 

7FFF 

X 


AOC 

HANDLE 

1. 'HANDLE' ENTRY 

0145 




* 




0146 




»• 

SR TO CHECK FOR 

ACCEPTABLE CONTROL CHARACTER 

0147 




V- 

AND 

CONVERT TO 

DECIMAL. 

0148 








0149 

P004C 

0 0 00 


CCCK 

0 

0 


Q15 0 

POO 41 

CIOC 



LDA- 

FIELD , I 

IS CONTROL CHAR.= COMMA, 

0151 

P0Q42 

0 107 



SAZ 

CCCKQ 1-^-1 

$FF OR NONE 

0152 

P0043 

90 OA 



SUB- 

LPMSK+8 


0153 

P G 0 4 *+ 

0 105 



SAZ 

CCCKOl- --^-l 

SKIP YES 

0154 

P0G45 

3DGA 



ADD- 

LPMSK43 


0155 

PG046 

0 9D3 



INA 

-COMMA 


015 6 

PO 047 

0102 



SAZ 

CCCKOl- ''■-1 

SKIP YES 

0157 

PG 0-^8 

0C04 


MTRERR 

ENQ 

4 

OUTPUT ERROR MSG. 

0158 

PQ0 49 

in 0 7 



jMP^f 

(EXTMSG ) 


0159 

P004A 

GAG 5 


CCCKOl 

ENA 

5 

CONVERT ASCII DEC. TO BINARY 

0160 

P0G4P 

5C04 



RTJ» 

(EXTHAN) 


0161 

PO 04H 

6 8 05 



STA^-^ 

MTRN 


015 2 

P004D 

1CF2 



JMP^ 

(CCCK) 


0164 








016 5 

P0Q4E 

00 00 


BASE 

NUM 

0 


0166 

PD C4F 

0 0 0 0 


EXTHAN 

NUM 

0 


016 7 

PDQ5D 

Q 0 00 


EXTMSG 

NUM 

0 


016 8 





CONSTANTS 


0169 

P0Q51 

0 G 00 


MTRN 

0 

0 

NO. OF FILES OR RECORDS 

0170 






TABLE OF MOTION CONTROL CODES. 

D171 

P0 052 

50 DO 


HTRCTW 

NUM 

S500 0 

0 ADVANCE FILE. 

0172 

P0053 

60 0 0 



NUM 

$60 0 0 

1 BACKSPACE FILE. 

017 3 

P0054 

70 0 0 



NUM 

$700 0 

2 ADVANCE RECORD. 

G17.+ 

P 0 0 5 5 

1000 



NUM 

sieoo 

3 BACKSPACE RECORD. 

0175 

P0 056 

2 0 0 0 



NUM 

$2000 

4 END OF FILE. 

0176 

PQ057 

30 0 0 



NUM 

$3000 

5 REWIND TAPE. 


o 


0178 ♦ 

0179 0000 P EQU SA16(^/96) 

0180 0001 P EQU SP16(Sai6+l) 

0181 0 060 P EQU DBi6iSP16--^96) 



N24Q 0 13 u 
N240 Q 135 


N24G0i37 
N2400138 
N2400139 
N240Q140 
N2ir00i4l 
N240G142 
N24C0143 
N2400144 
N2400145 
N2400 146 
N24QQ147 
N24G 0148 
N240 0149 
N240015C 
N24U0151 
N240C152 
N 2400 153 
N2400154 
N240 0155 
N24G0156 
N240G157 
N2400158 
N2400159 
N240 C 16 0 
^’^MSOS4.0^^N2-t00161 
N2400 162 

N2400164 
N2400165 
NZhQO 166 
N24Q 0 167 
N2400168 
N24G 016 9 
»^^MSOS4.0«‘^N240G 17D 
N240G17i 
N24G0172 
N24G0173 
N240 C174 
N 240 0176 
N2400176 


N240 0178 
N240Q179 
N240 0 18 0 
N2400181 


o 

o 

o 

o 

c 

o 

o 

o 

o 

r>, 

*4^-' 

o 

o 

o 

o 

o 

o 



MTRREQ 


PAGE 


5 


DATE: 01/27/99 




o 

o 


0182 PQ058 GG08 

0183 


BSS (OBlo-’*^) 
END 


PGM= 0060 { 96) DOM = 0000 ( 0) DAT = OuQO 



0 ) 


O 


o 

o 

o 

o 

o 

o 

o 

o 


o 


N240 0 18 2 
N240G183 


C- 

o 

C' 

'V..' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 


HTRREQ 


PAGE 


6 


date; 01/27/99 


{■ ') 


O 


EQUIVALENCES 


V ■■ 


o 

o 


o 

DEE . LINE 

NAME 

VALUE 


0 0 0 0 

I 

QOFF 


0035 

AMONI 

00F4 

o 

0 03 5 

ADISP 

OOEA 

0 0 35 

LPMSK 

0 0 02 


0 03 5 

NZERO 

0012 


0 03 5 

ZROBIT 

0033 


0 0 3 6 

FIVE 

0 043 

» / 

00 3 6 

SIX 

0 0 4 4 


0 0 3 6 

ZERO 

DC22 


0036 

0NE8IT 

0023 

o 

0 036 

SIXTEN 

0027 

0 037 

COMMA 

002C 


0 037 

SLASH 

Q02F 


0 037 

AS TRIG 

002A 


0 038 

EIGHT 

002 6 


00 38 

NINE 

0045 


0 0 38 

THREE 

flOOi- 


0038 

ONE 

0 00 3 

O 

0 038 

TWO 

00 2 4 

0 039 

TEN 

0046 


0 0 42 

BHAN 

0001 


0 0 43 

MSG 

00 0 2 

0^ 

0 044 

SOMMOR 

00 0 3 

0 045 

10 ERR 

OuG 4 


0 04 6 

LISTLU 

00 0 5 


0047 

COMOLU 

0006 

Q 

0 0 48 

NES'JMLU 

00 07 


0049 

PROGl 

0 0 0 8 


0 0 50 

PROG2 

0009 


UG51 

BITFLG 

00 0 A 


0 052 

BUFCNT 

0 OQB 

w'' 

0 0 53 

FIELD 

OOOC 


0 05 4 

SLASHF 

OOIG 


0 05 5 

BUFFMT 

ooli 

o 

0 056 

BUFFER 

0012 

0 0 59 

CHRSL V 

00 0 7 


0 0 62 

COMOUT 

Q8FC 


0 0 63 

C OMLU 

Q8FD 


i '» 


REFERENCED AT LINE NUMBER 


<000255) 

0G78, 

0108 

(0002^4) 

0 114 


(000234) 

0 118 


(000002) 

(000018) 

(000051) 

(000067) 

(000068) 

0 152, 

0154 

( 00 003-+) 
( 000035) 
(000039) 

0135, 

0142 

( 000044) 
( 0u00h7) 
{ 0 00 042) 
( 000 038) 
(000069) 
( 00 000 4 ) 
( 0 0000 3) 
(C0Q036) 
(0OQ07D) 

0155 


( ODOOOl) 

0 0 79 


(000002) 

0 0 81 


(0 0000 3) 
(0 00004) 
I QG0G05) 
(000006) 
( 0 0 C 0 0 7 ) 
(000008) 

0134 


(000009) 

(000010) 

(000011) 

0 109 


(000012) 
( 0DOQ16) 
( QG0017) 
(00Q018) 

0 150 


(000007) 

(002300) 

(002301) 

0115 , 

0115 


o 

o 


C) 


o 





o 


n 


O 


O 



O 


MTR9FQ 


PAGE 


7 


DATE; 01/27/99 


0064 MASSLU 08C2 

0065 HTCLAS 0001 


(0 0224?) 
( 000001 ) 










C-- 



MTRREQ 

PAGE 8 


DATE: 

01/27/99 

o 

o 

S Y M B 0 

L S 






■ o 


DEF.LINH 

NAME 

ADDRESS 

REFcRENCED AT 

LINE NUMBER 




0 Q20 

MTRREO 

00 0 0 

0 0 20 , 

0 072, 

0073, 0074, 

0075, 0076, 0077 

Lj 


0 021 

AnPREQ 

000 0 

0021 





C\ 

0 022 

BSFREQ 

GOOD 

0 0 22 





*w*-' 

0023 

ADRREQ 

000 0 

0 023 




- C) 


0 02 4 

3SRREQ 

0 0 0 0 

0 0 24 






0 02 6 

WEFREQ 

0 0 0 0 

0 025 






0 02 6 

REWPEQ 

00 0 0 

0 0 26 






0 095 

MTROOO 

0010 

0 0 92 




o 


0103 

M T R 0 0 A 

0018 

3100 , 

0101 





010 6 

HTROGl 

0018 

0104 






0109 

H T R 0 0 5 

OOIE 







0112 

HIRER 

0 021 

0132 




r-i 


0 115 

MTRPRl 

0 0 2 4 

0089 , 

0113, 

0116 




0 121 

HAXLU 

Q02A 

00 90 






0122 

PROTYP 

0C2B 

0 111, 

0131 





0 124 

MTRC06 

002C 

0116 




O 


0133 

TOEXIT 

00 36 

0126 , 

0127 




0 13 8 

TOOFF 

00 39 

0130 





!' 1 

0 143 

0TB 

0Q3E 

0 138, 

0139 





0149 

COCK 

0 04 0 

0 0 88 , 

0098, 

0162 


' o 


015 7 

MTRFRR 

0048 

0 102 






0159 

CCCKOl 

G04A 

0151, 

0153, 

0156 




016 5 

BASE 

0 Q 4 E 

0 071, 

0107, 

0133 




016 6 

EXTHAN 

004F 

0 080 , 

0 087, 

0097, 0140, 

0 160 

■ 0 


016 7 

EXTMSO 

0050 

0 0 82 , 

0 094, 

0158 




0169 

MTRN 

0051 

0103, 

0106, 

0124, 0123, 

0161 


'f 

0171 

MTRCTW 

0052 

0 112 






0179 

SA16 

GOOD 

0 180 




o 


0 180 

SPl 6 

0 0 0 1 

0 181 






0181 

DB16 

0060 

0 182 













c 









0 

o 








o 

o 








o 

o 








o 


- 








C) 


M TRREO 


PAGE 


9 


DATEi 01/27/99 


o 


o 

E X T E R 

N A L S 


o 

DEE . LIME 

NAME 

VALUE 


0 0 29 

NUMLU 

0 D2A 


0 030 

GHRSFG 

0032 

o 

0 031 

HANDLE 

0 03F 

0 0 32 

OFF 

00 3E 


referenced at line number 

0121 

0129 

0 14A 

01 A3 


o 

o 

o 

o 


o 


o 


o 


o 


o 

o 


o 

o 


c 


c 

o 




o 

o 

o 


o 



MTRREQ 


PAGE 

10 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

AHFREQ 

0 021 

AOISP 

0 035 

AORREQ 

0 023 

BSRREQ 

0 02A 

BUFCNT 

0 052 

8UFEMT 

0 055 

COM HA 

0037 

COMOLU 

0 047 

COMOUT 

0 0 62 

HANDLE 

0G31 

I 

0 0 u 0 

lOERR 

Q0 45 

MTROOD 

QQ95 

NTRQOl 

OIG 6 

MTR005 

0 109 

HTRPRl 

0115 

HTRREQ 

0020 

NEWMLU 

0 0 48 

0T8 

0143 

PROGl 

C 049 

PROG2 

0 050 

SLASHF 

0 05 4 

SOMMOR 

0 044 

SP16 

0180 

ZERO 

0 036 

ZROBIT 

0 035 




date: ai/27/99 


S Y M B 

0 L S 





A MON I 

0035 

ASTRIC 

0 03 7 

BASE 

0165 

BUFFER 

0055 

CCCK 

G149 

CCCKOl 

0159 

DB16 

0181 

EIGHT 

0038 

EXTHAN 

016 6 

LISTLU 

0 046 

LPMSK 

0 0 3 5 

MASSLU 

0064 

MTRDQ6 

0124 

MTROOA 

010 3 

MTRCTW 

0171 

NINE 

0038 

NUHLU 

0029 

NZERO 

003 5 

PROTYP 

0122 

REWREQ 

0026 

SA16 

0179 

TEN 

0039 

THREE 

0038 

TOEXIT 

0133 


BHAN 

0042 

BITFLG 

0051 

BSFREQ 

0022 

CHRSFG 

0 D 3 u 

CHRSLV 

0 059 

COMLU ■ 

0C63 

EXTiMSG 

0167 

FIELD 

0053 

FIVE 

0 036 

MAXLU 

0121 

MSG 

0 043 

MTCLAS 

0 06:.. 

MTREP 

0112 

MTRERR 

015 7 

HTRN 

016 9 

OFF 

0032 

ONE 

0 038 

ONEBIT 

0 036 

SIX 

00 3 6 

SIXTEN 

0 03 6 

SLASH 

0037 

TOOFF 

0138 

TWO 

0 038 

WEFREQ 

0 0 25 


MSOREQ 


PAGE 


1 


DATE: 01/27/99 


o 




o 


o 


o 


o 

o 

o 


o 


o 


0 00 1 
000 2 
00 03 
00 0 4 
00 0 5 
00 0 6 
00 0 7 
00 0 8 
000 9 
0010 
0011 
0012 

0013 

0014 


0016 

0017 

0018 
0019 
00 2 0 
0021 
0022 
00 23 
00 2 4 
002 5 
0G26 
0 0 27 
0028 
0029 

0031 
0 032 


¥■ 




N2500002 
N2500003 
H25D0u0h 
^^MSOS4.a’*‘^N25GQ005 

-^MSOS4.0"-»N25Gu0Q7 
HSD ^^MSOS4.0^»N250uQ03 

^=»^MS0S4. Q»^N2500009 

PROCESSOR PRINTS DATA FROM THE DISK »^MS0S4. 0* ^N250 0 01 0 

IN HEX, ASCII, ON DECIHAL FORHAT g. :B|ig § 01 2 

♦^MS0S4. fl-»-^N25C 0 014 


NAM MSDREQ DECK-ID N25 I1SOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


THIS 







N250 G 016 

Jf ^ Ilf. If. If. 

input 

FORMAT : 



N25jG017 

¥ 





N 250 0 018 


M SD, SSH S B, SSLSB, ESHSB,ESLS B,H 



N25Q G 019 

y- 





N250 0 02 G 






N25Q 0021 



SSMSB = START SECTOR (HEX) MSB 

N25GD022 

V- 


SSLSB = START SECTOR (HEX) LSB 

N25Q0 02 3 



FSMSB = END SECTOR 

(HEX) MSB 

N25G 0 02 4 



ESLSB = END SECTOR 

(HEX) LSB 

N25b G 32 5 

-V- 


M = MODE 

A 

FOR ASCII 

N250 0 026 




H 

FOR HEX, 

N25'J0a27 




I 

DECIMAL. 

N25GG 028 






N25Q0029 


ENT 

R Y NAME 



N25QG 031 

ENT 

MSDREQ 




N250 0 032 


r~', 0 0 3 4 

0 0 3 5 
0036 
003 7 

o 


^ EXTERNALS 

EXT OFF 
EXT HANDLE 
EXT CHRSFG 


N25Q 0 03 4 
N 250 0 035 
N250 0036 
N2500 037 


O 

C 

O 

O 

O 


o 

o 

o 

o 


o 


o 






0039 
00 4 0 


0041 


00F4 


EQU 

'EQU' TABLE 

ANON I ($F4) , ADISP ($EA) ,LPMSK(2) ,NZERO($12l ,ZROBIT ($33) 

N250 0039 
N25G 0 040 

0 OEA 
0 0 02 
D012 
0 0 33 
0 0 43 


FQU 

FIVE ($4 3), SIX ($44) , ZERO ($22) , ON EBIT ($23) ,SIXTEN ($27) 

N25Q G G41 

0 0 44 
0 0 22 
0 023 
0 0 27 





O 


c 

O 

O 


O 


MSDREQ 


PAGE 2 


DATES 01/27/99 


0042 

C02C 
0 Q2F 
0 0 2A 


EQU 

0043 

0 0 26 
0 0 45 
0 0 04 
0 0 03 
0 0 24 


EQU 

00 44 
00 46 

0 0 46 

At 

EQU 

0047 

0 0 02 


EQU 

0G48 

0 0 03 


EQU 


COMMA ($20 ,SLASH{$2F) tASTRIC ($2A) 
EIGHT{$26)tNINE($4 5),THREE(-+)t0NE(33, TWO ($ZU) 


TEN ($46 3 


SYSTEM 
GETFLO( 23 
ASCHFX ( 33 


SU EROUTINE 
"GETFLD" -- 
••ASCHFX" -- 


INDEX 

GET A FIELD 

ASC TO HEX. CONVERSION 


N250 0 042 


N250 0 043 


N25GG044 

N25C 0046 
N2::0 0 047 
N2500 048 


0050 

0051 
GQ52 
005 3 

005 4 
00 5 5 
0056 
00 5 7 
0 058 
0059 

006 0 
0061 
006 2 
0053 
0064 
006 5 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
00 05 
0 0 06 
0 0 0 7 
0 0 0 8 
0 0 09 
OOOA 
0 0 06 
GCOC 
0010 
0011 
0012 


EQU BHAN(l) 

EQU MSG(2) 

ECU SOMMOR(33 
EQU I0ERR(4) 
EQU LISTLU(53 
EQU COMOiU(63 
EQU NEWMLU(7) 
EQU PROGK8 3 
EQU PROG2(9) 
EQU BITFLG(IQ) 
EQU BUFCNT(ll) 
EQU FIELQ(123 
EQU SLASHF(163 
EQU 3UFEMT(17) 
EQU 8UFFER(18) 


PARAMETER LOCATION (OFFSET FROM BASE) 
"HANDLE" 

••MSG" ENTRY 
"SOMMOR'^ ENTRY 

"IOERR" entry 

LIST OUTPUT "LTSTLU" 

■•COMOLU" 

••NEWMLU" NEW MM LU 

••PROGl" 

"PR0G2" 

"BITFLG" 

••BUFCNT^* 

"FIELD" 

••SLASHF" 

••BUFEMT^^ 

"BUFFER" 


N253 0 050 
N2500Q51 
N250u052 
N25G J053 
N25J 0 034 
N250G 055 
N 250003b 
N250 0 Q57 
N250 0 05 8 
N2500 059 
N250UG60 
N250 C 061 
N 2 5 J 0 06 2 
N250G 065 
N 2 5 0 0 0 6 4 
N250 0 065 


0057 
0 0 68 
0069 
00 7 0 
00 71 




0 0 07 
0 0 41 
0 0 48 
0 0 49 


VARIABLE EQUS 

IRH level of THIS PROGRAM 

EQU KGHARA($41) CHARACTER A 

EQU KCHARH($48) H 

EQU KCHARI($493 I 


N250 0 067 

N2500069 

N2500070 

N2500071 


0 07 3 
00 7 4 
0075 
007 b 
0077 


0 8FC 
Q8FO 
C 8C2 
10 0 0 


EQU 

EQU 

EQU 

EQU 


EQUS 

C0H0UT($8FC) 
COMLU ($8F0 3 
MASSLU($8G2) 
A3MOO ($1 00 0 3 


FOR LOGICAL UNITS 
TYPE OUTPUT LOGICAL UNIT 
INPUT COMMENT LOGICAL UNIT 
MASS MEMORY LOGICAL UNIT 
ASCII MODE OUTPUT 


N250 0 073 
N25u 0074 
N2500075 
N 250 00 7b 
N25G a 07 7 


0079 

At 



003 0 


¥ ¥> At At At 

PRO 

008 1 

At 


0G33 POOOO 687C 

MSOREQ 

STA^ BASE 

SAVE 


RAM 

S T A 

P 7 

N250 0 Q79 
N2500080 
N2500081 

PARAMETER 

BUFFER 

ADDRESS 

N25J0083 


c,. 





MPDREQ 


PAGE 3 

date: 01/27/99 



C: 

008 4 

POOfli 

60FF 


STA- 

I 


N25D0G8H 

' O 


008 5 

P000 2 

ClOl 


LDA- 

8HAN, I 

GET "HANDLE" ADDRESS 

N25G 0 085 


Q 

0066 

P0003 

687A 


STA'^ 

EXTHAN 


N25G0086 

o 

008 7 

POO 04 

0102 


LDA- 

MSG, I 

FETCH "MSG" ADDRESS 

N25Q0087 


0088 

P0Q05 

68 79 



EXTMSG 


N 2 5 0 0 0 8 8 



0089 

P000 6 

010 5 


LOA- 

LISTLU, I 

GET LIST LOGICAL UNIT 

N25G0089 


G 

009 0 

P0 007 

833E 


ADD^ 

MODE 

+ MODE {ASCII) CODE 

N2500a9G 

c 

0Q91 

P0G08 

6857 


STA’^ 

OTLU 


N250G091 


G092 

POOQq 

0107 


LDA- 

NEWMLU , I 

SET UP MM LU 

N 250 0 0 92 



0093 

PQOO A 

68QE 


STA^ 

MSLU 


N2500 093 

o 

D 

00 9 5 

POO CO 

1876 


JMP^ 

MSDITL 

JUMP TO INITIALIZE REGUEST 

N250D095 


009 6 

POOQC 

0831 

MSD007 

LOA^ 

STRSEC 

SET UP MH ADD. FOR I/O CALL 

N2500 09b 



0097 

POOOD 

68 OE 


STA^ 

MMSADR-1 


N25G 0 097 


f '| 

0098 

POQQF 

C83Q 


LDA^ 

STRLSB 


N250 0 098 

■ o 


0099 

POOOF 

680D 


STA^ 

MMSADR 


N250 0 099 


010 0 


V- 




N25u01Qu 



0101 





CHECK 

FOR LSB LESS THAN/EQUAL TO $7FFF 

N250G101 



0102 







N250 Q102 

■ o 

\ J 

010 3 

POOlO 

0132 


SAM 

HILSB 

SKIP ON ERROR 

N250Q1C3 


010 4 

POOH 

C82F 


LDA^ 

LSTLSB 

CHECK THE ENDING LSB 

N250 0 10 4 



010 5 

PG 012 

0 121 


SAP 

1 

OK, SKIP 

N25Q0105 



0106 

PQQ13 

18 7D 

HILSB 

JMP^- 

MSOFI 

TO PRINT FORMAT ERROR 

N2500106 

(""'I 


010 7 

P0014 

54F4 


RTJ- 

( AHONI) 

READ ONE SECTOR 

’^^MSOS4.0»^N250 0107 



010 8 

PO 015 

0907 

MSOOOR 

ADC 

$90 0+-GHRSLV 


^i^MSOS4.Q''‘^N25QCi08 



0109 

P0G16 

0 0 09 


ADC 

MS3009-MSDQ08 


^^MSOSA.O’^^NZbuulOg 


l' '» 

Oil 0 

PQ 017 

0 0 0 0 


NUM 

0 


’^MSOS4.G^^N250Q ilG 

■ 


0111 

PO 018 

0 8 02 

HSLU 

ADC 

MASSLU 


^^MSOS4.0^^N2500 Hi 

L,.- 


0112 

P0Q19 

0 0 60 


MUM 

96 


^^MSOS4. 0^^N250Q 112 



0113 

PGOIA 

3 0 ec 


ADC 

MM3BUF-MS0008 


-^MS OSA..O^^N25uGH3 


o 

0114 

POOIB 

00 DO 


NUM 

0 


^-MSOS-t.G-^NZSuOHA 

' 0 

0115 

POQIC 

0 0 00 

MMSADR 

0 

0 


-“•^^MSOSa. 0^-N250Q 11 5 


Oil 6 

POO ID 

14EA 


JMP- 

(ADISP) 


»^MS0S4. 0^^N25G0 11 6 



Oil 7 

PO GIF 

Q1 63 

MSD009 

SOP 

MSDCie 

SKIP IF NO I/O ERROR 

’‘^MSOS‘4. Q»^N2500 H7 



0118 

POOIF 

E8 5D 

X 

LOQ^ 

BASE 

EXIT (TO "lOERR") 

N2500 11 8 

: O 


0119 

P0Q20 

E2 04 


LDQ- 

IOERR,a 


N250 0 H9 


0120 

P0021 

1622 


JMP- 

( ZERO) , Q 


N25u 0 120 


o 

0122 







N250G122 

- o 


0123 

P0 02 2 

0 A16 

MSOOiO 

ENA 

STR3EG-ASECML 


N250Q123 



0124 

PQQ23 

6804 


STA^ 

ASECML 


N2500 124 


C) 

0125 

PC024 

0012 


END 

161-2 

SETUP FOR. 2 WOROS (AND + BIAS OF 

16) N2500125 

C) 

0126 

PQQ25 

0 A04 


ENA 

4 

DUMP SECTOR ADDRESS 

^^MSOS-r. 0--N2500 126 



0127 

P0 02& 

5057 


RTJ^ 

( FXTHAN ) 


N25QG127 



0128 

pn 027 

0016 

ASECHL 

ADC 

STRSEC-^ 


N 25 DC 12 8 



0129 

P0028 

C819 


LDA^ 

AHDFLG 

CHECK FOR TYPE OF DUMP 

N25CC129 

• c 


013 G 

PO 029 

0121 


SAP 

MSDOli 


-=^MSOS4.0«~-N250013u 


0131 

P002A 

18 20 


JMP- 

ASCDMP 


’i^MSOS4.Q^ifN2600131 



0132 

PO G2R 

OA 00 

HSDOll 

ENA 

12 

SET LINE INDEX 

^^MSOS4. 0*^N2500132 


o 

0133 

P002C 

6816 


STA^^ 

MSDLN 


*-MS0Si^. 0'’‘^N2500133 

o 

0134 

P002D 

C80F 


LOA^ 

MSBAOR 


^«^MSOS4.Q^^'N2500134 


0135 

PO 02F 

6 8 0 8 


STA^ 

MSD013 


^^MSOS4.Q^^N25G0135 



o 


o 


MSDREQ 


PAGE 


date: 01/27/99 


o 


0136 

PQQ2F 

C312 


MSD012 

LDA^ 

0137 

P 0030 

0C18 



END 

0138 

P0031 

0102 



SAZ 

0139 

P0032 

0 A07 



ENA 

0140 

P0 033 

1302 



JHP» 

0141 

PD034 

OA 04 


MOl 

ENA 

0142 

P00 35 

5C48 


MSO03 0 

RTJ^- 

0143 

P0 036 

0 0 


MSDOl 3 

ADC 

0144 

PQ037 

CSQB 



LOA-‘f 

0145 

PG 038 

09FE 



INA 

0146 

PO 039 

OlOC 



SAZ 

Qli^7 

POO 3A 

6808 



STA^ 

0148 

P0 0 3R 

18 F3 



UMP*^ 

0150 




■V- 


0151 

PC03C 

0 0 48 


MSB ADR 

ADC 

0152 

PO 03n 

0 0 0 0 


STRSEC 

NUM 


P0Q3E 

0 0 00 





P0 03F 

0 0 0 0 





P0 040 

0 0 00 




0153 


0 0 3E 

P 


ECU 

0154 


C0 3F 

P 


EQU 

015 5 


0 0 40 

P 


EQU 

015 6 

P0041 

0 0 GO 


AHDFLG 

C 

0157 

P0042 

0 0 90 


MSDLN 

0 

0158 

PG043 

0 0 0 0 


DMPFLG 

0 

0159 

P004h 

0 0 23 


DMPADR 

ADC 

0150 

P0045 

1000 


MODE 

ADC 

0162 

POO 46 

C8F9 


MSDOl 5 

LDA» 

015 3 

P 0 0 7 

98F6 



SUB^ 

0164 

PO 048 

0 116 



SAN 

016 5 

P0049 

C8F5 



LDA^ 

0166 

P004A 

98F2 



SUB-» 

016 7 

PO 049 

0113 



SAN 

0158 

PQ04C 

E830 


MSUEXT 

LOQ^ 

0169 

P004D 

E2G3 



LDQ- 

0170 

FO 04E 

1622 



JMP- 

0171 

P004F 

03EE 


MSDOl 6 

RAO^- 

0172 

P0050 

C8FD 



LDA^ 

0173 

PQ051 

0123 



SAP 

0174 

P0Q52 

AOil 



AND- 

0175 

PQ053 

68EA 



STA^ 

0176 

P005 4 

08E8 



RAO’i‘ 

017 7 

PQ055 

1886 


HSDX16 

JMP^ 

0179 




¥ 


0180 

PD056 

Q A09 


A SC DM P 

ENA 

0181 

PQ057 

68EA 



Slh^ 

0182 

POO 58 

CBEB 



LDA^ 


AHDFLG 

2h 

MCI 

7 

MSD030 

(EXTHAN ) 
MMSBUF-^ 
HSDLN 

-1 

MSDQ15 
HSDLN 
.MS0 012 


Q BIASED EY 16 TO INDICATE 
OUTPUT IN DECIMAL FORMAT 
OUTPUT IN HEX FORMAT 

CHECK IF LAST 8 WORDS 

SKIP IF YES 

PRINT ANOTHER LINE 


^^MSOS4.0^-N250Q136 
RELATIVE»»MSOS4.0’^^N25 0 013 7 

N25Q013 8 
»^MSOS4. 0^»N2500139 
■*‘^'^MSOS4.U^'^N250Q140 
»»MSOS4.0^^N2500141 
N2500 142 
^»HS0S4. O-^-'^NEEQ 0143 
-^^HS0S4. 0’-^N250 0 14- 
^•>MSOSi^.0’^^N25t3 0145 
-'>MS0S4.0^-N250 0 14o 
^^HS0S4. Q--M25G 0147 
->^MS0S4. Q^^N25 3 0 1 h8 


MMSBUF-MSDG13 
0 ,Q ,0 j 0 


^'^^MSOSL 


N250 015 0 
u^^N25 00151 
N250G152 


STRLS8(STRSEC+1) 

LSTMSfi{STRSEC+2) 

LSTLSB(3TRSEC+3) 


0 

0 


TYPE OF DUMP FLAG 


0 

ASC8UF-MSO018 

ASMOD 


N250G153 
N25Q0154 
N 250 0 15 5 
^^MSOS4.Q^^N250 0156 
^^MSOS4.C^^N25t]0157 
^^MSOS4.0^^N2500158 
♦■^MSOS^.O^^N 250 015 9 
N253Q16G 


LSTLS E 
STRLSB 
MSD016 
LSTMS8 
STRSEC 
MSD016 
RASE 

SOMMOR,Q 

(ZERO),Q 

STRLSB 

STRLSB 

HSDX16 

LPHSK+15 

STRLSB 

STRSEC 

MSD007 


CHECK IF LAST SECTOR PRINTED 
SKIP IF HO 

LSB SECTORS DONE, CHECK IF MSB 

SKIP MORE TO DO 
EXIT 

TO "SO MHO R" 

INCREMENT SECTOR ADDRESS 

SKIP» MORE ON LSB 

RESET LSB AND INCREMENT MSB 


N250 0 162 
N25G0163 
»^MSOS4. G*=»-N 250 0 164 
DEFINED N250 0165 

N 25 0 Q 16 6 
N250 0157 
N250G158 
N2500 169 
N2500170 
N2500171 
N250G172 
N2500173 
N25G0174 
N250 0 17 5 
N250Gi76 
»^MSOS4.0«^^N250017 7 


0 ZERO OUT LINE COUNT 

MSDLN 

DMPAOR 


N250 0 179 
N250 0 18G 
N25D0181 
^^MSOS4.0^^N25C0182 


O 

c 

o 

C) 


o 


o 

o 






u 


o 


o 

o 


o 


o 


MSDREO. 


PAGE 
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DATE: fl 1/27/9 9 


0183 P0059 63E9 STA» 

0184 POOEA 6307 MSD017 STA-^ 

0185 P005B 54F4 RTJ- 

0186 P0Q5C 0007 MSD018 AOC 

0187 P005D 0C07 AOC 

0188 P005E 0000 NUM 

0189 P005F OQDO OTLU NUM 

0190 P0060 0012 NUM 

0191 P0 061 0 0 23 MSO019 ADC 

0192 PQ062 14FA JMP- 

0193 P0Q63 0161 MSOuZO SQP 

0194 P0Q64 18BA JMP- 

0195 ^ 

0196 P0065 C400 X MS0C21 LOA 
PG065 7FFF X 

0197 P0067 Q117 SAN 

0198 P0068 C806 LDA^ 

0199 P0G69 9804 SU3^ 

0200 P006A 8813 ADD^ 

0201 POD&B 0322 TRA 

02G? P006C 1622 JMP- 

0204 P006D 7FFF X OFTB AOC 

0205 PG06E 7FFF X ADC 


DMPFLG 
MSD019 
< ANON I) 

SDG Q + CHRSLV 
MS9Q20-MSD018 
0 


A3CBUF-MSO018 

(ADISF) 

MSDG21 

X 

CHRSFG 

MSD21X 

OFTB+1 

OFTB 

EXTHAN 

Q 

(ZERO) ,Q 

HANDLE 

OFF 


SET ADDRESS OF BUFFER 


LOGICAL UNIT (TO BO FILLED) 
NO. OF WORDS 


SKIP IF NO I/O ERROR 


CHECK IF "OX" 

NOt SKIP 

CALCULATE "OFF" ADDRESS 


TO "OFF" 

0, "HANDLE" ENTRY 

1. "OFF" ENTRY 


020 7 
020 8 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

021 6 
021 7 
0218 

0219 

0220 

0222 

0223 

0224 

0225 


POO 6F 
PQ070 
P0 071 
P0Q72 
PQ073 
PO 074 
P0075 
P00 7 6 
PQ077 
P0Q78 
P0 079 
PQQ7A 
P 0 0 7 R 


D8D2 
G8D1 
Q9F9 
0108 
E8CE 
OF A4 
C80A 
6A09 
6A0 9 
C8E8 
0910 
18 OF 
1 8CA 


MSD21X RAO- 
LDA^ 
INA 
SAZ 
LDQ^ 
QLS 
LOA^ 
STA^ 
STA^ 
LDA^ 
INA 
JMP^‘ 
CHOON JMP^ 


MSDLN 

MSDLN 

-6 

CHOON 

MSDLN 

4 

ASGBUF 
ASCBUF, Q 
ASCBUF + 1 
MS0C19 
16 

MSDQ17 

MSD015 


INCREMENT LINE COUNT BY 1 
CHECK IF ALL 6 LINES BEEN PRINT 

YES, SKIP 

CALCULATE CURRENT POSITION 
AND INSERT 2-SPCE 
(GET SPACE CODE) 


ADJUST TO NEXT LINE 

TO REPEAT PRINTING 

TO CHECK IF ALL SECTORS BEEN DONE 


P0G7C 0000 
PD070 0000 
P0 07E 0 0 00 


BASE NUM 0 
EXTHAN NUM 0 
EXTM3G NUM 0 


022 7 

0228 P007F 2020 
P0080 2020 

0229 0081 F 


ASCBUF ALF 


EQU MMSBUFC^) 


0231 


«^^HSOS4.Q^-N250G163 
^^MSOS-+.0^f ^N25G0134 
^-MSOS4. G^-N2500185 
^‘^MSOSA.O^^NZSQ G186 
^^^MS0S4. 0^^N2500187 
»^MSOS4.0^^^N25G0188 
N250 0 189 
N250G19G 
^^MS0S4. 0^’N25G0191 
♦^MSOS4.0»»N250 0192 
»»MSOS4.0’^-N2500193 
N250 0194 
N250 Q195 
N250 0 196 

N25GG197 
N2500198 
N2500199 
N250 0 200 
N25Q 0 2C1 
N2500202 

N250 0 204 
N25G02Q5 

N25Q 0 20 7 
N250 0208 
N 25 0 G 2 0 9 
N250 Q 210 
N2500 211 
N250G 212 
N25G0213 
N250Q 214 
N25U 0 21 5 
N25GG216 
N250Q217 
N2500218 
N25D0219 
N25C0 220 

N250 0222 
N2500223 
N250 0 22 4 
N2500225 


N2500227 
N25G 0228 

»«^MSOSi*.O^^N250 022g 


»^MSOS4.0^^N2500231 


o 

o 

o 

o 

c 

c 

o 

o 

o 

c 

o 

o 

o 

o 


MSORFQ 


PAGE 
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date: 01/27/99 


P0081 OAOO 
PQ0a2 631B 
P0Q83 0CQ4 


PO 08 4 
PG085 
PD086 
P00 87 
PO 088 
P0 089 
P0 08 A 
P0 08B 
P00 8C 
POO 80 
PC08E 
P008F 
P009 0 
P0091 
P0 092 
POO 93 
PO 094 
P0095 
P0 0 96 
P0097 
PO 098 
PD099 
PO 09A 
P 0 0 9 R 
P0 0 9G 


0 A Q2 
5CF7 
CIOC 
90 0 A 
0114 
C814 
09FC 

0 114 
13 06 
CIOC 
09D3 
0 102 
0C04 
ICEC 
0A03 
5CE9 
0 0 0 0 
C8FE 
E8 07 
6 A A5 

0001 
4804 
ODFB 
01 42 
18E6 


MSDITL 

MSDPAR 


THIS CODE WILL BE 
ENA 0 
STA- COUNT 
ENQ 4 

GET ONE FIELD FROM 


OVERLAYEO WHEN INITIALIZING IS DONE »’^MS0S4, 
ZERO OUT SECTOR PARAMETER COUNT 


ENA 

RTJ^ 

LOA- 

SUB- 

SAN 

LDA^ 

INA 

SAN 

JMP^ 

LDA- 

INA 

SAZ 

ENQ 

JMP^ 

ENA 

RT 

HUM 

LOA=*^ 

LOQ^ 

STA^ 

INQ 

STQ?^ 

INQ 


MSDREP JMP^ 


NOFF 


HSDFI 
CHROOl 
MSD VAL 


(EXTHAN ) 

FIELD, I 

LPHSK+8 

NOFF 

COUNT 

-3 

MSDFI 
CHROOl 
FIELD, I 
-COMMA 
CHROOl 

IexTMSG) 

3 

(EXTHAN ) 
0 

MSOVAL 
COUNT 
STRSEC, Q 
+ 1 

COUNT 

-4 

MSD003 

MSDPAR 


GET MM ADD. 

REQUEST AND CONVERT TO HEX 


CONTROL CHAR. = NONE 
NO, SKIP 

MAKE SURE ALL MM ADD. ARE IN 

FORMAT ERROR, GO 
TO CONVERT LAST PARAMETER 

CONTROL CHAR. = COMMA 
SKIP yes 

FORMAT INCORRECT 
CON VET FIELD TO HEX 


SAVE IT ACCORDINGLY 


»^MS0S4 . 
^"^MS0S4. 
-‘^MSOS^. 


»«^MS0S4. 

»^HSOS4, 


^^MS0S4. 

^^MSOSh. 

»»MS0S4. 


UPDATE INPUT COUNT AND CHECK' IF ALL 4 PAR. 


YFS, SKIP 


0 ^^N25GQ232 
N2500233 
N250 0234 
N2500235 
Q-^N25Q0236 
0»»N2500237 
u^-N25G 0238 
N2500 239 
N25G32‘+0 
N250Q241 
N2500242 
N25GG243 
N2500244 
N250Q245 
N25Q 0 246 
N2500247 
0’^^N25 0D 248 
U»^N2500249 
0^^N25fl0 250 
N250G251 
0»^N25Q0252 
N2500253 
0’’-^N250 0 25 4 
0«^^N250 0 255 
N250 0256 
N250 G 257 
IN N250 G258 
N25J 0259 
N250 0260 
N250G 261 
N2500262 


026^* P009O DO GO 


COUNT NUM 


N250026.4 


P0 09F CIOC MS0003 LDA- 
P0Q9F 9QDA SUB- 

POOAO 0111 SAN 

POOAl 1815 JMP«^ 

P00A2 GCOl ENQ 

P0QA3 0A02 ENA 

P00A4 5CD8 RTJ^ 

POO A5 ClOF LDA- 

POO A6 A 0 OA ANO- 

P00A7 OCFE ENQ 

P00A8 Q9BE INA 

PG0A9 0107 SAZ 

POOAA Q9F8 INA 

POOAB OOOl INQ 

POOAC 0104 SAZ 

PCOAD ODOl INQ 


FIELD , I 
LPMSK+8 
1 

HS3IX 

1 

GETFLD 
TEXTHAN ) 
FIELO+3,1 
LPHSKiH8 

-1 

-KCHARA 

MSD03A 

-KCHARH + KCHARA 
1 

MSD03A 

1 


CHPQK IF TERMINATOR 
NO, SKIP 

TO SET DEFAULT MODE 
GET MODE CHARACTER 


CHECK IF IT IS 'A' 
YFS, SKIP 

CHECK FOR 'H’ 

YES, SKIP 
CHECK FOR 'I' 


N250 0 266 
N 25 CO 26 7 
N25G 0 258 
N250 0269 
N25G 0 270 
N25Q0271 
N250 G 272 
N2500273 
N 25 GO 27 4 
N25Q 0 275 
N250G27b 
N25QG277 
N 25 0 0 27 8 
N250 0279 
N2500 280 
N2500 281 
N250 0282 


o 




MSDREQ 
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0263 

POOAE 

09 FE 


INA 

-KCHARI + KCHAP.H 


0284 

POOAF 

0101 


SAZ 

MS 9 D 3 A 

YES, SKIP 


0285 

POOBO 

18 DF 


JHF» 

MSOFI 

TO PRINT FORMAT ERROR 


0286 

POjEI 

488 F 

MSO 03 A 

STQ^ 

AHDFLG 

-1 = ASCII, 0 = HEX, 1 = DECIMAL 

^^MS 0 S 4 

028 7 

POOB 2 

CIOC 


LDA- 

FIELD, I 

0288 

PG 0 e 3 

90 OA 


SU 8 - 

LPMSK +8 

MAKE SURE NO MORE DATA 


0289 

P 00 B 4 

0101 


SAZ 

MSDIX 


0290 

P 00 B 5 

180 A 


JMP^ 

MSOFI 

FORMAT ERROR 

^^MSOS-t 

0291 

PO 0 B 6 

DA 00 

MSDIX 

ENA 

0 

SET NUMBER OF WORDS TO SKIP 

♦^MSOS*r 

0292 

P 00 B 7 

610 C 


STA- 

FIELD, I 

ON OUTPUT BUFFER 

029 3 

POOB 8 

1800 


JMP 

MSDCQ 7 

-*^^MSOS 4 


P 0 DB 9 

FF 52 





0294 







^-MS 0 S 4 


0296 






^^MSOS 4 

0297 


0 0 01 P 

EQU 

SA 26 (^/ 95 ) 


«^^MS 0 S 4 

0298 


00 02 P 

EQU 

SP 261 SA 26 + 1 ) 


^^HS 0 S 4 

0299 


OOCO P 

EQU 

0 B 26 (SP 26 ^ 96 ) 


^•"^MSOS 4 

030 0 

PGOPA 

0 0 06 

BSS 

(DB 26 -^ ) 


’^^MS 0 S 4 

0301 



END 




PGM = 

OQCO 

( 192 ) 

COM = 

0000 f 0 ) OAT = 0390 ( 

G ) 



N 250 0 283 
N 2500284 
N 250 0 28 £> 
u^^N 25 C 0 286 
N 250 G 287 
N 25 G 0 288 
N 25 G u 289 
0^^N25Ju290 
0 ^^N 25 G 0 291 
N 2500292 
0 ^^N 2500293 

Q^^N 250 Q 294 


0’^^N25G0296 
0 -^N 25 GQ 297 
0^^^^2500298 
o^'^NZSGflzgg 
0»’i^N250 a300 
N 2500301 


( 

o 


MSDREQ 
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DATE; 

01/27/99 


o 

E Q U I V 

A L E N 

C E S 






■ n 

o 

DEF . LINE 

NAME 

VALUE 


referenced at 

LINE NUMBER 


O 


0 0 0 0 

I 

OOFF 

(000255) 

0 0 84 





OOLG 

AMONI 

OOFl 

(000244) 

0107, 

018 5 




o 

0 OLD 

ADISP 

OOEA 

(000234) 

0 116 , 

0192 



• C) 

0 040 

LPMSK 

00 0 2 

(000002) 

0 174 , 

0241, 

0268, 0275, 

028 8 


0 040 

NZEPO 

0012 

(000018) 






0 0 40 

ZRORIT 

00 3 3 

(000051) 






f’*'l 

0 0 41 

FIVE 

0043 

( 000067) 







0 0 41 

SIX 

00 44 

( 0 00068) 





O 


0 041 

ZERO 

0 0 22 

(000034) 

0 120, 

0 170 , 

0202 




0 041 

ONERIT 

0023 

(000035) 






o 

0 041 

3IXTEN 

0027 

( 0Q0039) 







0 042 

COMMA 

Q02C 

(000044) 

0248 




L-' 


0 042 

SLASH 

002F 

(000047) 







00 42 

ASTRIC 

002 A 

(000042) 






o 

0 043 

EIGHT 

002 6 

(000038) 





o 

J 043 

NINE 

0045 

(000069) 






0 0 43 

THREE 

00 0 4 

( 00000 4) 







D 0 43 

ONE 

0 0 0 3 

(000003) 






o 

0 0 43 

TWO 

D024 

( 000036) 





• o 


0 0 4 4 

TEN 

00^+6 

( Q 0 0 0 7 0 ) 






0 0 47 

GETFLO 

0 0 0 2 

(000002) 

Q 272 






0048 

ASCHEX 

00 0 3 

(000003) 






C") 

0 051 

BHAN 

0 00 1 

{ 0 0 0 0 u 1 ) 

0 0 85 




o 


0 052 

MSG 

0 0 02 

( 0 00 G 02) 

3 0 87 





0 0 53 

SOM MO R 

00 0 3 

(000003) 

0169 






0 0 5 4 

lOFRR 

ODD 4 

( OOOOU4) 

0 119 





l’ 

0 05 5 

LISTLU 

0 0 0 5 

( 000G05) 

0 0 89 




o 


0 056 

COMOLU 

0 00 6 

(000006) 






0 0 5 7 

N EWMLU 

00 0 7 

(000007) 

0 0 92 






0 0 58 

PROGl 

0 0 0 8 

(000008) 






o 

0 0 5<5 

PROG2 

0 0 09 

{ OC0009) 





' o 

D 06D 

3ITFLG 

0 0 0 A 

(Oflooid) 






0 0 61 

eUFCNT 

QOQB 

(00 0011) 







0 062 

FIELD 

0 0 0 C 

(000012) 

0 2 40 , 

0247, 

0267, 027i*, 

0287, 0292 


o 

0 0 63 

SLASHF 

OQIO 

( 000016) 




o 

0 0 

BUFEMT 

0011 

(000017) 






0 0 6 5 

BUFFER 

0012 

(000018) 







0 0 68 

CHRSLV 

000 7 

{ 000007) 

0 108 , 

018 6 













c 

o 









o 

o 









o 

r ''', 









n 


MSOP?FQ 


PAGF 


9 


DATE 




I o 
o 
o 
o 


I 


0 1 / 27/99 

o 

c 

r'', 

V. 

■ O 

■ f'') 

; O 
O 
: O 

o 

o 

o 

; O 
O 

o 

: O 

O 



r 

o 
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date: 

01/27/99 

L.-' 

G 

o 

S Y M B 0 

L S 






o 

o 

DEF . LINE 

NAME 

ADDRESS 

referenced at 

LINE NUMBER 


Q. 

0 Q32 

MSDREQ 

00 0 0 

0 0 32 






009 6 

MSD007 

OOOC 

0177, 

0293 




o 

010 6 

HILSB 

0013 

0103 




O 1 

OIG 8 

HSD008 

0015 

01 09, 

0113 




Dili 

HSLU 

0018 

0 0 93 






0115 

MMSADR 

OOlC 

0 097, 

0 099 





0 117 

MSD0D9 

OQIE 

0109 






0118 

X 

OOIF 

0 194 






0123 

MSDOID 

0022 

0117 






0128 

ASECML 

0027 

0123, 

0124 





0 132 

MSOOll 

0 02B 

0 130 




^ C •' 


0136 

MSD012 

0C2F 

0143 






0141 

M9 1 

003 4 

0138 

0140 






0142 

MS0030 

0 03 5 

0151 




o 

0143 

MSD013 

0036 

0135 , 




0151 

MSBAOR 

003C 

0134 



0154, 0155, 0166, 0176, 0257 



0152 

STRSEC 

0030 

0 096, 

012 3, 

0128, 0153, 



0153 

STRLS3 

003F 

0 0 98 , 

0163, 

0171, 0172, 

0175 


o 

015i- 

LSTMSB 

003F 

0 165 

0162 



' f J' 

0155 

LSTLS3 

0040 

QiOt, 

0286 




0 15 6 

AHOFLG 

0041 

0129, 

0136, 

0208, 0209, 0212 



015 7 

MSDLN 

0042 

0 133, 

0144, 

0147, 0181, 


o 

0 158 

DMPFLG 

0043 

0 183 




o 

0159 

OMPADR 

0 0 4 4 

0182 






0 16 Q 

MODE 

0045 

0 0 90 






0 162 

MSD015 

0 0 4 6 

0146, 

0 220 




o 

0 168 

MSOEXT 

004C 





' L.- 

0171 

MS0016 

004F 

0154, 

0167 





0177 

MS0X16 

005 5 

0173 






0 180 

ASCDMP 

0056 

0131 






018 4 

MSD017 

005 A 

0 219 

0187, 





018 6 

HSD018 

005C 

0 159, 

0191 



0189 

OTLU 

005F 

0 0 91 

0217 





0191 

M S D 0 1 9 

0061 

0184, 



■ O 


0193 

MSDQ20 

0063 

0187 




■-J 

0196 

HS0021 

0065 

0193 





0 20 4 

OFTB 

006D 

0198, 

0199 





0 208 

MS021X 

006F 

0197 






0 220 

CHOON 

007B 

0211 

0118, 

0168 


C.' 

*w' 

0 223 

BASE 

007C 

0 0 83, 

0239, 0253, 0273 

o 

0224 

EXTHAN 

007D 

0086, 

0127, 

01^2, 0200, 

■ o 


o 








o 

( ; 








o 



MSORFQ 

PAGE 11 


DATEi 

01/27/99 

0?25 

EXTMSG 

0Q7E 

0 088 , 

0 251 



0228 

ASCBUF 

007F 

0159, 

0191, 

0214, 0215, 

0216 

0 22q 

:1MSBUF 

0081 

0113 , 

0 143 , 

0151 


0 233 

MFniTL 

00 31 

0 095 




0235 

MSOPAR 

0 08 3 

0262 




U?U7 

NOFF 

0080 

0 242 




0 25G 

HSDFI 

0090 

0 106, 

0245, 

0285, 0290 


£252 

CHROOl 

0092 

0 2 46, 

0249 



0254 

MSDVAL 

009 4 

0255 




0 26 2 

MSORFP 

009C 





0 264 

COUNT 

0090 

0 234, 

0 243, 

025o, 0259 


0 267 

1 1 S D 0 0 3 

009E 

0261 




028 6 

HSD03A 

GOBI 

0 278 , 

0281, 

0284 


0 291 

MSOIX 

00B6 

0270, 

0289 



0 29 7 

SA26 

GQQl 

0 298 




0 298 

SP26 

00 02 

0299 




0 ?99 

DB26 

OOCO 

0300 






MSDREQ 


PAGE 12 


date: oi/27/g9 


X T E R 

N A L S 



DEE. LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 0 3 5 

OFF 

006E 

0 205 

0 0 3 6 

HANDLE 

006D 

0204 

0 0 3 7 

CHRSFG 

0066 

0196 


MSDREQ 


PaCE 13 


date: Oi/27/99 


^v-v- A L 

P H A 

B £ T I 

CAL 

SORT 

0 F 

AOTSP 

QQ4D 

AHDFLG 

0156 

AMONI 

0 0 40 

BASE 

0223 

BHAN 

0 051 

BITFLG 

0 060 

CHRSLV 

0Q68 

COMLU 

0 075 

COMMA 

0 0 42 

EIGHT 

0043 

EXTHAN 

0224 

EXTMSG 

0 225 

lOERP. 

0 05 4 

KCHARA 

HMSAOR 

0 069 

KCHARH 

0 0 70 

MASSLU 

0 07 6 

0115 

HMSBUF 

0229 

HSDGIO 

012 3 

Msnoii 

0132 

MSOG12 

0136 

MSOG20 

0193 

MSD021 

0196 

HSDD30 

Q 142 

MSOLN 

015 7 

MSDPAR 

0235 

HSDREP 

0262 

NTNJF 

0 04 3 

NOFF 

0247 

NZERO 

0 040 

PR0G2 

0059 

SA26 

0297 

SIX 

0 0 41 

STRSEC 

0152 

TEN 

G 044 

THREE 

0 0 43 


S Y M B 

0 L S 





ASCeUF 

0228 

ASCOMP 

0180 . 

ASCHEX 

0 048 

8UFCNT 

0061 

aUFEMT 

0064 

BUFFER 

0065 

COMOLU 

0056 

COMOUT 

0074 

COUNT 

0 26 4 

FIELD 

0062 

FIVE 

0041 

GETFLO 

0047 

KCHARI 

0071 

LISTLU 

005 5 

LPMSK 

0040 

MODE 

016 0 

MSBADR 

0151 

MSDC03 

0267 

MSD013 

0143 

MSO015 

0162 

M SO 016, 

0171 

MSD03A 

0286 

MSD21X 

020 8 

MSDEXT ■. 

0168 

MSDREQ 

0032 

MSDVAL 

025 4 

H SOX lb 

017 7 

OFF 

0035 

OFTB 

02G 4 

ONE 

0043 

sixten 

0041 

SLASH 

0042 

SLASHF 

0063 

TWO 

QD43 

X 

0118 

ZERO 

0 041 


ASECML 

0128 

ASHOD 

0G77 

ASTRIC 

0 0 42 

CHDON 

022 0 

CHRDOl 

0252 

CHRSFG 

0G3 7 

0B26 

0299 

DMPADR 

0159 

DMPFLG 

0158 

HANDLE 

0 03 6 

HILSB 

Q 106 

I 

OGOO 

LSTLSB 

015 5 

LSTMSB 

G154 

MOl 

G141 

MSO007 

00 96 

MSDO 08 

0108 

MSDGQ9 

G 117 

HSD017 

Cl 84 

MSOGIB 

u 18 6 

MSD019 

0191 

HSDFI 

0250 

MSOITL 

0233 

HSDIX 

0291 

HSG 

0 05 2 

MSLU 

ulll 

NEWMLU 

0057 

0NE8I T 

0 0 4 i 

OTLU 

0189 

PROGi 

C 058 

S OHM OR 

GO 5 3 

SP2 6 

0 298 

STRLSR 

C 1 5 3 

ZROBIT 

C 0 ‘t 0 






CLUREQ 


PAGE 


1 


date: Gl/27/99 


OOGi 
0002 
DOQ 3 
DOC 4 
00 0 5 
0006 
QQQ7 
000 8 
00 0 9 
0010 
0011 
0012 

0 013 

001 4 

0015 

0016 

0017 

0018 


NAM CLUREQ DECK-ID N26 MSOS 5.0 SUMMARY- 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

**MS0S4. 

If. }(. K. If, If. If -If » SOS 4 , 

^*MS0S4. 

CLU ^^MS0S4. 

^^MSOS4. 

THIS PROCESSOR CHANGES THE LOGICAL UNIT NUMBER OF »^MSOS4. 

LISTA8LE OUTPUT . ^^MS0S4. 

»^MS0S4. 

THE REQUEST HAS THE FOLLOWING FORMAT ' •»'*MS0S4. 

CLU,LU{CR) LU = LOGICAL UNIT NUMBER OF NEW ^^^MSOSi*. 

LISTABLE OUTPUT TO BE USED »'^MS0S4. 

BY ODEBUG ^^MS0S4. 

'’^^MSOSA. 


■¥■ 



0Q2Q 

0021 



ENT 

o 

0 0 23 
002 4 



EXT 


0025 



EXT 

o 





o 

0 

002 7 
0 0 2 6 

0 0F4 
OOEA 
0 0 02 
0012 
G 0 33 


EQU 


0 0 2 9 

0 0 43 
C 0 44 


FQU 

‘‘«>x 


0 0 22 
0 0 23 
0 0 27 



o 

003 0 

BQ2C 
0 0 2F 
0 0 2A 


EQU 

o 

0u3t 

0 0 26 
0 0 45 
00 04 
0 0 03 
0 0 24 


EQU 


o 

0Q3 2 

0 0 46 


EQU 


ENTRY 


N A t'! E 


LOGIA 

NUMLU 


EXTERNALS 


' E Q U ' 


TABLE 


FQU FIVE($4 3),SIX (?44) ,ZERO ($22),ONLBIT($?3),SIXTEN{$27) 

EQU COMMA (S2C) ,SLASH($2F) , AST RIG ($2 A) 

EQU EIGHT {$ 26) ,NINF ($45) , THREE (4) ,ONE ( 3) , TWO ( $2 4) 


110N2&L100C1 
N26Q uo02 
N260g003 
N260 0 ii 0 4 
0’^^N260 0 005 
0*‘*N26uaOu6 
Q=>‘^N25aG0Q7 
G-^N260 0uu8 
0=»^^N260 0 0 09 
C^*N 26 G 0 ul 0 
0^^N2600011 
a^-^NZ&Ofl 012 
0^^N260 0 013 
0 '’^'*''N 26 G 0 G 14 
0^^N260Q015 
U’^^‘N260 0 016 
0»-^N26G0Q17 
0*^'^N260 0 Q18 

N26UD020 
N2fa0 0 j21 


N2600Q23 
N 260 0 0 2 4 
N26Q0025 


N260 0 027 
N 260 0 028 


N 2b Q 0 0 2 9 

N260 0 03 0 
N26DGU31 


EQU TEN ($45) 


"J‘^MS0S4. 0’^*N2600032 


CLUREQ 


PAGE 2 


date: 01/27/99 


003 4 
0C35 

003 6 
00 37 
0 03 8 
0039 
0 0 40 

0041 

0042 

0043 

004 4 

0045 

0046 
0Q47 

0048 

0049 


0 0 01 
0 0 02 
0 0 03 
0 0 0 4 
0 0 05 
0 0 06 
0 0 0 ? 
0 0 08 
00 09 
OOOA 
CO OB 
00 QC 
00 10 
0011 
G012 


EQU HAMDLE(i) 
EQU MSG (2) 

EQU SOMHOR(3) 
EQU lOERR (4) 
EQU LISTLU(5) 
EQU C0M0LU(6) 
EQU NEWMLU(7) 
EQU PROGl (3 > 
EQU PR0G2(9) 
EQU BITFLG(IO) 
EQU BUFCNT(ll) 
EQU FIELD (12) 
EQU SLASHF(16) 
EQU BUFEMTd?) 
EQU 8UFFER(18) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE 
"MSG” ENTRY 
••SOHHOR" ENTRY 
"lOERR" ENTRY 

LIST OUTPUT 

"COMOLU 
"NEWMLU 
••PROGl" 

"PR0G2" 

“BITFLG 
"BUFCNT 
"FIELD" 

"SLASHF 
"BUFEMT 
"BUFFER 


■LISTLU' 


NEW MM LLl 


N26 j 0 03 4 
N26Q0035 
N26G 0 036 
N2b] 3037 
t'l 260 0 038 
N26 ju 039 
N26 00040 
N260Q 04i 
N 26 u 0 Q 42 
N2600043 
N2600 044 
N260 u 04 5 
N 260 0 0 46 
N26DG047 
N26C 0 048 
N2d03 049 


0051 

0052 
00 5 3 


0055 POOOO 6826 

0056 POOCl 60FF 

0057 PG002 ClOl 

0058 P00u3 6824 

0059 P0LiG4C102 
006 0 P 0 0 0 5 68 23 

0062 P0005 DC02 

0063 P00Q7 0A02 

0064 POOQ8 5C1F 

0065 P0009 0A05 

0066 POQOA 5C1D 

0067 POOQB OlOB 
0058 POOOC 6818 
D059 POGOD 0822 
00 7 0 POQOE E6 00 X 

POOOF 7FFF X 

0071 POOlO 0146 

0072 POOll C2Q8 
QQ73 P0012 0F4B 

0074 P0013 ASD6 

0075 P0014 0104 

0076 PC015 09FO 

0077 P0G16 0112 

0078 P0Q17 0CG9 

0079 PG018 ICIO 

0080 P0019 C8GB 

0081 POOIA 980B 

0082 POOIB 09FE 

0083 POOIC 0131 




3f.if.>f:^)f 

V 



CLUREQ 

STA-'^ 

BASE 

STA- 

I 


LDA- 

HANDLE, I 


STA^^ 

EXTHAN 


LOA- 

MSG, I 


STA*^ 

EXTMSG 


ENQ 

2 


ENA 

2 


RTJ’ 

lEXTHAN ) 


ENA 

5 


RTJ*^ 

(EXTHAN ) 


SAZ 

CLUERR--*^ 


STA^^ 

CLU 


TRA 

Q 


LDQ + 

LOGIA ,Q 


SQZ 

CLUERR 


LOA- 

8,0 


ARS 

11 


AND- 

LPMSK+4 


SAZ 

CLUOOl 


INA 

-2 


SAN 

CLUOOl 

CL U ERR 

ENQ 

9 

JMP^ 

CEXTMSG ) 

CLUOOl 

LOA*f 

CLU 


SUB*^ 

MAXLU 


INA 

-1 


SAM 

CLU002 


PROGRAM 


START 


If. If. S(. If. 


N26G 0 05 1 
N2 60 G 05 2 
N260Q053 


SAVE PARAMETER BUFFER ADDRESS 
GET "HANDLE" ROUTINE ADDRESS 
FETCH "MSG" ADDRESS 


N 2600 055 
N 260 0 056 
N2600057 
N260aa5B 
N25GQ059 
N26u 0 QbO 


GET 2 CHAR. FIELD 

CONVERT ASCII DEC. TO BINARY 
SKIP IF ZERO (ILLEGAL LU) 

Q = ADDRESS OF PHYS . OEV. TABLE 


N26ua 062 
^^MSOSn.O’f ^N2600065 
N26Q 0 064 
»»MS0S4. 0*^’^N2oQ u 0 65 
N26CQ066 
»^MS0S4. *J^-N260 0 067 
^^MSOS4. 0«^^N26b 0 068 
»^MSOS4.0^-N2600059 
^^-MS0S4. O^^N2600070 


NO PHYS. OEV. TABLE 
GET LU CLASS 


SKIP IF CLASS NOT DEFINED 
CLASS 2 = MASS MEMORY 
SKIP IF LU OK 

ILLEGAL LU 

CHECK IF LU EXCEEDS MAX 
SKIP IF NO 


«^*MS0S4. G-s^^NObOO 3 71 
^»MSOS4 . 0-^N2600 372 
’•’MSOS4. 0*^^0260 0 373 
»^HSOS4.0’*‘^N260 0 074 
-*HSOS4.0*^"^N263 3 3 75 
♦^MS0S4. 0*^N260Q 076 
^^MSOS4.Q^^N2600077 
^'^^MS0S4. 0^^0 260 0 378 
N2600 079 
■*^*•05034.0^^0260 0 380 
N2630 081 
^•’MSOS4.3*-^N260 0082 
SO S4. fl =**^02600 083 


CLUREQ 


PAC7E 


3 


date: 01/27/99 


008 4 

POOID 

i 3F9 


JMP- 

CLUERR 

ILLEGAL 

LU 

»^MS0S4. 0^^N26Q 0 084 

003 5 

POOIE 

C8 06 

CLU002 

LOA^ 

CLU 



^»MSOS4«0»’^N260G085 

00 86 

POOIF 

0C05 


ENQ 

LISTLU 



N2600086 

008 7 

P 00 2D 

6E06 


STA^^ 

(BASE) , Q 

SET NEW 

LIST LU 

N 260 008 7 

008 8 

P00?j 

E8 05 


LOQ^ 

BASE 

EXIT TO 

■•SOMMOR" 

N263 0 038 

0089 

P00 22 

F2 03 


LOQ- 

SOMMOR, Q 



N260 0 089 

0 0 9 0 

P0Q23 

1622 


JMP- 

(ZERO) ,Q 



N26C0 090 

009 1 

P0 024 

0 0 00 

CLU 

NUM 

0 

NEW LIST 

LU 

’^^'-MSOSR.0»^N2b0 009i 

0092 

P0025 

7FFF 

X MAXLU 

ADC 

NUMLU 



N26Q 0 092 

009 4 








N26DQ09H 

0095 

P0 026 

0 0 0 0 

BASE 

NUH 

0 



N260 0 095 

0096 

PC 027 

0 0 00 

exthan 

NUM 

0 



N260 0 096 

0097 

P0 028 

00 0 0 

EXTMSG 

NUM 

0 



N2600 097 


0099 



* 



-*MS0S4.U*^N26GQu99 

010 0 


0 0 0 0 

P 

EQU 

SA27(^/96) 

N26001GO 

0101 


0 0 01 

P 

EQU 

SP27(SA27+1) 

N260 0101 

010 2 


G06Q 

P 

EQU 

DB27 (SP27^96) 

N2600102 

010 3 

P0 029 

Q 037 


BSS 

(0627-^^ ) 

N26G0103 

010 4 




END 


N2600104 

PGM = 

0 060 

( 

96) 

COM = 

JUOO ( 0) DAT = uuO'J { 0) 




CLURFQ 


PfiGE 


4 


date: 01/27/99 


EQUIVALENCES 

DEF.LINE NAME VALUE REFERENCED AT LINE NUMBER 



QOOG 

I 

OOFF 

(000255) 

0 0 56 


0 0 28 

AMONI 

O0F4 

(000244) 


o 

0 0 28 

ADISP 

QOEA 

{ 000234) 


00 28 

LPMSK 

00 0 2 

(OQO0O2) 

0 074 


GG28 

NZERO 

QQ12 

{ 000018) 



0 028 

ZROBIT 

0033 

(000051) 



0 029 

FIVE 

0043 

( QG0G67) 


■w' 

0 029 

SIX 

0 0 H 4 

(000068) 



0 0 29 

ZERO 

0022 

{ 0 G 0 034 ) 

0 090 


0 Q29 

ONEPIT 

0023 

(000035) 



0 029 

SIXTEN 

0027 

( 0Q0039) 



Q G3G 

COMMA 

0D2C 

( 0 00 0-44) 



00 30 

SLASH 

G02F 

(000047) 



D u30 

ASTRIC 

002 A 

(000042) 



0 031 

EIGHT 

0 0 2 6 

(000038) 



Q031 

NINE 

0045 

(000069) 



0 0 31 

THREE 

00 0 4 

C 0 00004) 



0 031 

ONE 

DQO 3 

(000003) 



0 031 

TWO 

00 2 4 

(000036) 



0032 

TEN 

0046 

1 0 00070) 



0C35 

HANDLE 

000 1 

( 0 DOOOl) 

0 057 


0 03 8 

MSG 

00 0 2 

(000002) 

0 0 59 


0 037 

3 OH MO R 

000 3 

( 000QO3) 

0 089 


0 038 

10 ERR 

00 0 4 

( G0QQQ4) 



0 039 

LISTLU 

000 5 

(000005) 

0 0 86 


0 0^0 

COMOLU 

000 6 

( 0000 0 6) 


o 

0 0 41 

NEWMLU 

000 7 

(000007) 



0 0 42 

PROGl 

0008 

(000008) 



0 043 

PROG2 

0009 

1 000009) 



0 044 

8ITFLG 

000 A 

(000010) 



0 04 5 

aUFGNT 

OOflB 

( OQOOil) 



0 0 46 

FIELD 

OOOC 

( 0Q0012) 



0047 

SLASHF 

0010 

(000016) 



0 0 48 

8UFFMT 

0011 

(000017) 



0 049 

BUFFER 

0012 

(000018) 



o 

o 


l'. ) 


o 

Q 

O 

O 

O 

Q 

o 

o 

o 

o 

"W- 

o 

o 

o 



CLUREQ 


PAGE 


date: 01/27/99 




SYMBOLS 


DEE . LINE 

NAME 

ADDRESS 

0 021 

CLUREQ 

000 0 

0078 

CLUERR 

0017 

0 080 

CLUOOi 

0019 

0 0 8 5 

CLU0D2 

OOIE 

0 091 

CLU 

002 A 

0 09? 

MAXLU 

0025 

0 095 

BASE 

0026 

G096 

EXTHAN 

0027 

0 Q97 

EXTMSG 

0028 

0 100 

S A27 

000 0 

U ICl 

SP27 

0001 

C1G2 

DE27 

Q06G 


referenced at line number 


0 0 21 
0 0 67, 

0071 , 

0 084 

0 0 75 , 

0077 


0 083 
Q0 68 , 

0080 , 

0085 

0 0 81 
0 0 55, 

0087, 

0 0 88 

0 0 58 , 

0 06 A, 

0 066 

0 060 , 

0 079 


0 101 
0 102 
0103 




CLUREQ 


PAGE 


D 


date: 01/27/99 


■/Jl 

r \ E X T E R M A L S 



referenced at line number 

0 0 70 
009? 


o 

o 

o 

o 

o 

C ) 


Q 

; O 

■ o 
• o 

r') 

V.-' 

■ 0 
; O 

: C 

: O 
O 

, 

o 

o 


CLURcQ 


PAGE 


7 


DATE*. 01/27/99 





'?■ V Af- l\ l_ 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 




AOISP 

GG28 

AHONI 

0 02 8 

ASTRIC 

0 030 

BASE 

0095 

BITFLG 

0 04 4 


CLUOGl 

0080 

CLUQ02 

0 0 85 

CLUERR 

0 078 

CLUREQ 

0 0 21 

COMMA 

003 0 


EXTMGG 

n 097 

FIELD 

0046 

FIVE 

0 0 29 

HANDLE 

0 035 

I 

000 0 


HAXLU 

0092 

MSG 

0 0 36 

NEWMLU 

0 0 41 

NINE 

0 0 31 

NUMLU 

0 02 5 

1. } 

PR0G2 

0043 

SA27 

DlOO 

SIX 

0 029 

SIXTEN 

00 29 

SLASH 

0 03 0 


THREE 

0031 

TWO 

0 031 

ZERO 

0 0 29 

ZROBIT 

0 0 28 






'■'"l 


( 'l 


o 

o 



o 

O 

o 


o 


BUFCNT 

0 0 4 5 

EUFEMT 

0 048 

BUFFER 

Q 049 

CLU 

0 091 

COHOLU 

0 Ghu 

DB2 7 

£102 

EIGHT 

0 031 

EXTHAN 

0 096 

lOERR 

0038 

LISTL U 

0 0 39 

LOGIA 

0Q2 4 ' 

LPMSK 

0C28 

NZERO 

0 028 

■ ONE 

003 1 

ONEBIT 

0029 

PROGl 

0 G 42 

SLASHF 

0047 

SOMMOR 

0 0 3 7 

SP27 

0101 

TEN 

0 0^2 


o 

o 

o 

o 

o 

o 

o 

C) 

c 

o 

o 

o 


( 


WCOREQ 


PAGE 


1 


date: 31/27/99 


0 00 1 
000 ? 
00 03 
0 0 0 4 
0 0 0 5 
00 0 6 
00 0 7 
OOOfi 
00 0 9 
0010 
0011 
SOI? 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
002 ? 
0023 
002 4 

0025 

0026 


NAM WCDREQ DECK- 10 N27 MSGS 5.0 

♦ MASS STORAGE OPERATING SYSTEM VERSION 5.0 

^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

* COPYRIGHT CONTROL DATA CORPORATION 1976 


V- 

if- 

V- 

> 1 - 

>f- 

>h 

¥ 

V- 

=(■> 

* 


wco 


RDC 


THIS PROCESSOR TRANSFERS DATA FROM CORE TO DISK 
OR DISK TO CORE (ROC) 

BOTH HAVE THE SAME FORMAT 
WCO, SSMSB,SSLSB,SW,SC,NW 
RDC,3SMSB,SSLSB,SW,SC,NW 


WHERE SSMSB = START SECTOR (HEX.) MSB 
SSLSB = START SECTOR (HEX.) LS B 
SW = START WORD (HEX.) 

SC = STARTING CORF (HEX.) 

MW = NO. OF WORDS (HEX. ) 


(WCO ) 


SUMMARY 

^^^MSOS4 

*^MS0S4 

^^MSOS4 

^’^MSOSA 

-^MS0S4 

’^^^MSOSh 


‘ ^ ^ ^ ^ ^ ^ ^ ¥■ ^ ^ ^ •41' 4?* ^ 


^’^MSOSA 

^^MS0S4 

^♦MSOS4 


-11 jfv jf. 

N 27 0 0 0 D 2 
N27U0QQ3 
N270 Q 0G4 
.Q^^N27Ga005 
.O^^N2700006 
N27j 0 00 7 
. 0^^N270 0008 
N270 0 009 
.u«‘»N27QG OIG 
.0’^^N270U011 
.0'«^^N27G0012 
N2700013 
N279 0014 
N27u0015 
N27u0016 
N270GG17 
N27G 0 018 
N270 0 019 
N270 0 020 
N270G 021 
N27Q0u22 
. Q^-N270G 023 
.Q^^N27u0024 
.0^»N27l]a 025 
. 0-»N27G 0 02o 


0028 
0029 
003 0 


ENTRY 

ENT WCOREQ 
ENT RCOREQ _ 


NAMES 


N27(j0a28 
N27C 0 029 
N27Q 0 030 


0032 


0033 

0 0F4 
OOEA 
0 0 02 
0012 
0 0 33 

EQU 

0C34 

0 Q 43 
G 0 4i+ 
CO 22 
0 0 23 

EQU 


GQ27 


003 5 

0 0 2C 
D0 2F 
0 0 2A 

EQU 

Q036 

0 0 26 
0 0 45 
0 C 0 4 
0 0 03 
0 0 24 

EQU 




'EQU' TABLE 

AMONI($F4) ,ADISP (SEA) , L PMS K ( 2 ) , NZ ERO ( $1 2) , ZRO BI T ( $3 3 ) 


FlVE{$43),SIX<$AA)t ZERO ($22 ) , ONEBI T ($ 23 ) , SIX TEN ($27 ) 


COMMA (S2C) ,SLASH ($2F) ,ASTRIC ($2A) 

EIGHT ($ 26) , NINE ($45 ) , THREE (4) ,ONE (3) , TWO ($2 4 ) 


N27ut}Q32 
N2700 033 


N270Q034 


N27C 0035 


N270 0 036 


WCnREQ 


PAGE 


2 


date: ui/27/gg 


(j 

0037 


0 0 46 


EQU 

TEN ($46) 


o 

0039 





PARAMETER LOCATION (OFFSET FROM BASE) 


0040 


0 0 01 


EQU 

HANDLEC 1) 

"HANDLE" 


0041 


00 0? 


EQU 

MSG (2 ) 

"MSG" ENTRY 

r\ 

0042 


0 0 03 


EQU 

SOMMOR(3) 

"SOMMOR" ENTRY 


0043 


0 0 04 


EQU 

I0ERR(4 ) 

"TOERR" ENTRY 


0044 


0 0 05 


EQU 

LI5TLU ( 5 ) 

LIST OUTPUT "LISTLU" 


0045 


0 0 06 


EQU 

COMOLU( 6 ) 

"COMOLU" 

o 

00 46 


0 0 07 


EQU 

NEWMLU (7 ) 

"NEWMLU" NEW NM LU 

0047 


0 0 08 


EQU 

PROGl (8 ) 

"PROGl" 


0048 


0 0 09 


EQU 

PR0G2 (9 ) 

"PROG2" 


0049 


00 OA 


EQU 

3ITFLG( 10) 

"BITFLG" 

i'^\ 

00 5 0 


0 0 08 


EQU 

3UFCNT (11) 

"BUFCNT" 


GO 51 


0 OOC 


EQU 

FIELD(12) 

"FIELD" 


00 52 


00 10 


EQU 

SLASHF (16) 

"SLASHF" 


005 7 


0011 


EQU 

BUFEMK 17) 

"BUFEMT" 

Q 

D054 


00 12 


EQU 

BUFFER (18) 

"BUFFER" 


0056 



V- 


VARIABLE EQUS 


0G57 


0 0 07 


EQU 

CHRSLV (7) 

LEVEL OF THIS PROGRAM 


0058 


0 0 09 


EQU 

FETMN (9) 

"FETMM"— GET HM ADD. SUB. INDEX 

n 

0050 



if. 


EQUS 

FOR LOGICAL UNITS 

0061 


0 8FC 


EQU 

COMOUT(S8FG) 

TYPE OUTPUT LOGICAL UNIT 


0062 


G8Fn 


EQU 

GCMLU($8F0) 

INPUT COMMENT LOGICAL UNIT 


005 3 


G8C2 


EQU 

MASSLU($8C2) 

MASS MEMORY LOGICAL UNIT 


006 5 



if. 





0066 



^ if. if. a. if. 


jf. 1/. If. i/. 

PROGRAM START * 

o 

00 67 








0069 

POO oc 

6 8 51 

WCOPEQ 

STA^ 

BASF 

SAVE PARAMETER BUFFER ADDRESS 

r“i 

00 70 


0 0 0 0 P 

EQU 

RCDREQi WCDRFQ) 


0071 

POQOl 

60FF 


STA- 

I 



0072 

P0 002 

ClOl 


LOA- 

HANDLE, I 

GET "HANDLE" ROUTINE ADDRESS 


0073 

PG003 

684F 


STA^ 

EXTHAN 


O 

0074 

PQ0Q4 

C102 


LDA- 

MSG, I 

FETCH "MSG" ADDRESS 

007 5 

POOO 5 

684E 


STA^ 

EXTMSG 



0077 

PG0G6 

C107 


LOA- 

NEWMLU, I 

GET LU 

c> 

0078 

P0 0 07 

683A 


STA» 

otlu 


0079 

P00Q8 

684C 


STA^ 

MSB 



008 0 

PO 009 

QA09 


ENA 

FETHM 



0081 

POOGA 

QCOl 


ENQ 

1 


o 

0082 

P0 009 

5C47 


RTJ^ 

(EXTHAN ) 

TO EXTRACT MM ADD. AMO CONVERT 

0083 

POOOC 

0 0 48 


ADC 

MSB-^ 



00 84 

POOOO 

CIOC 


LDA- 

FIELD, I 

GET "FIELD" 


o 




N27D0Q3r 



N27 0 0 03 9 
N27Q0040 
N2700041 
N2700Q42 
N2700043 
N270 0 044 
N27G00h5 
N 270 0 0 46 
N2700047 
N270GG4B 
N2700G49 
N2700Q50 
N2700051 
N270 0 052 
N27G0053 
N270 0 054 


N27u0056 
116 ’^436 0 ^^^^'^^-^'^ 
N2700Q58 


N270 0060 
N27C0061 
N2700062 
N270 0 363 


N270 0 065 
N270 0 366 
N270 0 067 


N270 G06 9 
N2730G7C- 
N27C0071 
N270 0072 
N270G 073 
N27GQ07 4 

N27GQ G75 

N27C0077 
N27G0076 
N2700079 
N27uGd8G 
N270 0081 
N27Q 0 082 
N27Q0Q83 
N27G0084 


O 

o 

c 

o 

r-'- 

Cl 

o 

o 

o 

o 

o 

o 

o 


r"'i 



W CORED 


PAGE 3 

date: 01/27/99 


O 


008 5 

PO OGE 

09D3 


INA 

-COMMA 


^^MSOS4.u»^N2700Q85 


0086 

POOOF 

0102 


SAZ 

RCDOKl 


^^MSOS4.0»^N27JO 086 


o 

0087 

POOlO 

QC04 

RCDFI 

END 


FORMAT INCORRECT 

^^MS0S4,a^^N27G 0 0 87 
M27Q0 086 


00 88 

POOli 

1C42 


JHP^ 

{EXTMSG) 




00 89 

PQ012 

E842 

RCOOKl 

LDQ» 

MSB 

SET UP MM ADDRESS FOR READ/WRITE 

N2700089 



0090 

P0013 

G842 


LDA» 

LSB 


N270009C 


o 

0091 

P0014 

6831 


STA^ 

RCDLSfl 


-^»MS0S4. O^^N 270 0 091 

O 

0092 

P0015 

482F 


STQ^ 

RCDM3B 


^^MSOS4.Q’^-^N270U092 


0093 

P0016 

00 04 


ENG 

4 

GET CORE LOCATION 

=^^MS OS4,0^’^N2700093 



009 4 

P0017 

OA02 


ENA 

2 


»^MSOS4.0»^N27uOQ9i, 


C) 

009 5 

P0Q18 

5C3A 


RTJ=»^ 

tEXTHAN ) 


N2700095 


w 

Q096 

PQ019 

0A03 


ENA 

3 


»^-MSOS%,Q*f-N27a 0 096 

L_.- 


0097 

POOIA 

5C38 


RTJ^ 

(EXTHAN ) 


N2700097 



0098 

PO OIR 

0 0 00 

R CO IMP 

NUM 

0 


^^MSOS4.0^^N27u0398 



0099 

POO 1C 

cioc 


LDA- 

FIELD, I 

GET ’'FIELO" 

N27j 0 099 



QIO 0 

POOlO 

09D3 


INA 

-COMMA 


^-MSOS^.O’^N27001GG 



0101 

PO oir. 

01 01 


SAZ 

RCD0K3 


^^MSOS4.0-^N27001D1 



0102 

POOIF 

18F0 


JMP^ 

RCOFI 


♦^MSOS4.0»^N2700102 



010 3 

PGG20 

C8FA 

RC00K3 

LDA* 

RCDTMP 


’‘^MSOS4. 0^^N27001G3 

C) 


010 4 

PG021 

6822 


STA^ 

RCDCOR 


’■«MSOS4.u’^-N270 010 4 


0105 

PQ022 

DC 04 


END 

4 

GFT NUMBER OF WORDS 

N2700105 



0106 

P0023 

0A02 


ENA 

2 


^^MS0S4. 0^--N270Ql06 


0 

010 7 

P0G24 

5C2E 


RTJ- 

<EXTHAN ) 


N27001G7 


oica 

P0 025 

0 AQ3 


ENA 

3 

CONVERT TO HEX. FROM ASCII 

N27C0106 



0109 

P0026 

5C2C 


RTJ^ 

(EXTHAN ) 


N270 0109 



one 

P0 0 27 

0 0 00 

NW 

NUH 

0 


N2700 no 


o 

Gill 

P00 28 

C8FE 


LOA^ 

NW 


N27Gaill 


0112 

PQ029 

0121 


SAP 

RC0 2 

MUST BE POSITIVE 

N2700 112 

u 


0113 

PG02A 

1RF5 


JMP^ 

RCDFI 


»^MSOS-.0^^N2700113 



0114 

P 0 0 P B 

6817 

RC0 2 

STA^^ 

RCONUM 


^^MS0S4. Q»^-N 270 on 4 


0 

0115 

P0Q2C 

CiOC 


LDA- 

FIELD, I 

GET "FIELD” 

N2700 115 

O 

0116 

PD02O 

0 9D3 


INA 

-COMMA 


-'‘^MSOS4.0^^'N27Q0116 


0117 

PO D2E 

Cl 11 


SAN 

RC03 


N 270 0 il7 



G118 

n002F 

18E0 


JMP» 

PCDFI 


»^MSOS-.u^^N2?QQ 118 


C~\ 

0119 

P 0 0 3 0 

5801 

RC03 

RTJ^^ 

RCDABS 


’f^MSOS4.0’f-^‘N270 0119 

i' \ 

■~J 

0120 

PC031 

Q8Q0 

RCDABS 

NOP 

0 


^^MSOS-r.0^^N2700120 



0121 

P0032 

C8FE 


LDA^ 

RCDABS 


*^MSOS4.C'^^N2700121 



0122 

P0 0 33 

88 in 


ADD^ 

RCOOIF 


^^MSOS4.0^^N270D122 


i'^'x 

0123 

P0 034 

680B 


STA^ 

RCOCAL+1 


^^MSOS4.0^^‘N270 0123 

- C' 

<^i 

0124 

PGG35 

C109 


LDA- 

PR0G2,I 

GET "PR0G2" 

N270 012 4 


0125 

PC036 

09F1 


INA 

-30 

RCD = 0, ROC = 1 NOW 

^^MSOS4,0 --N27D0 125 



012 6 

PQ037 

0113 


SAN 

RDCPRO 


^*MSOS4.0»»N270D126 


0 

0127 

P0 038 

C816 


LDA^ 

RCDWC 

WRITE ON DISK 

^*MSOSit.0’^N2700127 

o 

0128 

POO 39 

6805 


STA^ 

RCOCAL 


^’^MSOS4.0^^N27DG128 


0129 

P0Q3A 

1803 


JMP- 

RCDOOl 


^’^MSOS4.0^‘^N270 0 129 



0130 

P C 0 3 B 

0814 

ROC PR 0 

LDA^ 

RDCRC 

READ FROM DISK 

^^MSOS4.0»^N270013C 


o 

0131 

P003C 

6SQ2 


STA^ 

RCOCAL 


^»MS0S4.C^^N27Gfll31 

o 

0132 

P0G3D 

54F4 

RCDOOl 

RTJ- 

(AMONI) 


»^MSOS4.Q^^N 2700132 


0133 

P0Q3F 

00 00 

RCOCAL 

NUH 

0 


’'-«MSOS4.0^-^N2700 133 



0134 

PQ03F 

0000 


NUM 

0 


’^^HSOS4.0<‘^N270013h 


o 

Q135 

PQ040 

0 00 0 


MUM 

0 


»»MSQS4. O^^^N 2700135 


C156 

P0041 

00 00 

OTLU 

NUM 

0 

LU (TO BE FILLED) 

N2700136 

L,.-' 


0137 

PQ042 

0 0 0 0 

RCONUH 

NUM 

0 


^»MSOS4.0»^N2700137 


o 









O 

/•****. 

) .' 

s,.-' 









o 



WCDREQ 


PAGE 


4 


DATE! 01/27/99 


0138 P0D43 0 OQO 

0139 P0 04ir OCQO 

0140 PD045 ODOD 

0141 P0046 14EA 

0142 P0047 0163 

0143 PC048 F809 

0144 PG049 E204 

0145 P004A 1622 

0146 P0G4B E306 

0147 PQQi-C E203 
0143 POO^n 1622 

0149 

0150 PQ04E 4407 

0151 P004F 4207 

0152 P0050 0016 


RCDCOR NUM 
RCOMSB NUH 
RCDLS8 NUM 
JMP- 

RCOEXT SQP 
LOQ*^ 
LDO- 
JMP- 
RCDOK5 LDQ^ 
LDQ- 
JMP- 


RCDW2 ADC S44G0+CHRSLV 
ROCRC ADC $420Q+CHRSL\/ 
RCDOIF AOC RGDEXT-RCDABS 


SKIP IF NO I/O ERROR 
EXIT (TO "lOERR") 

EXIT (TO "SONMOR") 


Q 


0154 - 

0155 P0G51 0000 BASE NUM 

0156 P0052 0000 EXTHAN NUM 

0157 PC053 0000 EXTMSG NUM 

0158 P0054 0005 MSB BZS 

0159 0 0 55 P EQU 


0 


0 

0 

HSB(5 ) 
LS8(MSB+1) 


o 

o 


0161 

0152 

0000 

P 

EQU 

SA30 ( ^/9S) 

0163 

0 0 01 

P 

EQU 

SP30(SA30+1) 

0164 

00 60 

P 

EQU 

DB3D (5P30^96) 

0165 
016 6 

P0059 0007 


8SS 

END 

(D830-^ ) 


PGM= 0060 ( 96) COM = 0000 ( 0) DAT = 03G0 ( 0) 


r-'. 


O 

O 

o 




^^MSOSi^.Q^-N2700 138 
•»^MSOS4.0^»N2700139 
■v^fMSOS4. O’^^^N 270 0 140 
^^MS0S4. a^*N?7QU14i 
^-MSOS4.0»^N27QQ 142 
N27GQ143 
N27Q0144 
N270 G145 
N270 0 l4b 
N27G0147 
N270 0148 
^-MSOS4.0^^N2700l49 
^^MSOS4.0^^N270C150 
-’^MSOS4.0»^N2700151 
^^MS0S4. 0-«^"^N27G015 2 

N270 0154 
N2700155 
N27D0156 
N270 C157 
N270O158 
N270G159 


( ! 

o 

o 

o 

C: 


»^HS0S4. 0»"^N27Q01ol 
-^MS0S4.Q-^N27GD162 
^*MSOS4.0-^'N270 016 3 
^-HSOS4.0’f»N27Gfllb4 
^-^MS0S4. (]^^N27a01b5 
N270 016 6 


o 

o 

c 

o 

o 


o 


o 


o 


u 






W CORED 


PAGE 5 DATE: 01/27/99 

O 






u 






C 

E 0 U I V 

A L E N C 

E S 



■ C 

O 

DEF.LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 

■ c- 


OODO 

I 

OOFF 

(000255) 

0 0 71 



0033 

AH ONI 

00F4 

(000244) 

0132 

■ O 

o 

G 033 

ADISP 

OQEA 

( 00Q234) 

0 l4l 

0 033 

LPMSK 

00 02 

( 000002) 




0 0 33 

N ZERO 

0012 

(000018) 




00 33 

ZROBIT 

0033 

(000051) 


■ o 


0 0 3 4 

FIVE 

0043 

( 0QC067) 


'■u 

0034 

SIX 

004^ 

(000068) 

0145, 0148 



0 034 

ZERO 

0022 

(000034) 



G03t* 

ONERIT 

0023 

(000035) 



o 

0 03 4 

SIXTEN 

0027 

( 000039) 

0 0 85 , 0 IG 0 , 0116 

• o 

0 03 5 

COMMA 

0D2C 

(000044) 



0 0 3 5 

SLASH 

G02F 

(000047) 




0035 

ASTRIC 

002A 

(OOOOh2) 



L..' 

0 0 36 

EIGHT 

0 026 

(000038) 


• L) 

003 6 

NINE 

0C45 

( 0QQG59) 




0 0 3 6 

THREF 

000 4 

( 0Q0G04) 




0036 

ONE 

00 0 3 

(Q0QG03) 


■ C) 

o 

0 0 3 6 

TWO 

CB2h 

(000036) 


0037 

TEN 

0 04 6 

( G00Q70) 

0 0 72 


0 040 

HANDLE 

0 00 1 

( OOuOQl) 



0041 

MSG 

000 2 

(000002) 

0 074 


r'\ 

0 0 42 

SOMMOR 

0 0 03 

( 00000 3) 

0147 

■ 


0043 

lOERR 

000 4 

( 0 00004) 

0144 


0 0 44 

LISTLU 

00 0 5 

(0OQ00 5) 




00 45 

COMOLU 

000 6 

(000005) 


o 

o 

0 Q<a6 
0047 

NEWMLU 

000 7 

(003007) 

0 077 

PROGl 

0008 

( OQQ003) 

0 124 



0 0 48 

PR0G2 

0009 

(000009) 



0 0 49 

BITFLG 

OflO A 

(QOOOlO) 


o 


0050 

BUFCMT 

Qooe 

( 0 Q 0 0 1 1 ) 

0084, 0099, 0115 


0 051. 

FIELD 

aooc 

( OGOG12) 


0 052 

SLASHF 

0010 

(000016) 




0 0 5 3 

BUFPMT 

0011 

(000017) 


■ o 


0 05 4 

BUFFER 

0012 

(000018) 

0150, 0151 


005 7 

CHRSLV 

000 7 

(000007) 



0 0 58 

FETMM 

0 0 0 9 

(0GQ009) 

0 0 80 



0 0 61 

COMOUT 

0 8FC 

(002300) 



o 





u 


o 


o 


WCDREQ 


PAGE 


6 


OATEJ 01/27/99 


0 0 62 
0 063 


COMLU 03FD 
MASSLU 08C2 


( 002301) 
( 0022A2) 




WCDREO 


DATES 01/27/99 


SYMBOLS 


o 

DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 


0 0 29 

WHO REQ 

0 0 0 0 

00 29 , 

0070 



0030 

RCDREQ 

000 0 

0 030 



r\ 

0 0 87 

RCDFI 

0010 

0102, 

Q 113, 

0118 


0 0 89 

RCOOKi 

0012 

0 0 86 




0C98 

RCDTMP 

OOIB 

0 103 




0103 

RCD0K3 

0020 

0101 




0 110 

NW 

0027 

Gill 




0114 

RC02 

002B 

0 112 




0119 

RCO 3 

0030 

0117 




0 12G 

RCDABS 

0 031 

0119, 

0 121, 

0152 


0 130 

ROCPRO 

DQ3B 

0126 



'•-J 

0132 

RCOCOl 

003D 

0 129 




0 133 

RGDCAL 

0 0 3f 

0 123, 

0128, 

0131 


013 6 

OTLU 

0041 

0 0 78 




0137 

RCDNUM 

GO 42 

0 114 




0138 

RCDCOR 

0043 

0 104 




0139 

rcdmsb 

004 4 

0 0 92 




G 140 

RCOLSB 

3 04 5 

0 0 91 



r"\ 

0 142 

RCDEXT 

0047 

0 152 




oii^e 

RCOOK5 

004B 

0142 




0 lEO 

RCDWC 

004E 

0 127 




0151 

RDCRC 

004F 

Q130 




0152 

RCDDIF 

0 05 0 

0122 




0155 

BASE 

0051 

0 369, 

0143, 

014 6 


0156 

EXTHAN 

0 0 52 

0 0 73 , 

0082, 

0095, 0397, 


0157 

FXTMSG 

0053 

0075, 

0 088 



0158 

MSB 

005 4 

0 0 79, 

Q 083, 

0089, 0159 

W 

0159 

LSB 

G055 

0 0 90 




0162 

SA30 

GOOD 

0 163 




0163 

SP3Q 

0 0 0 1 

0164 



n 

016 4 

DB3 0 

0060 

0165 




( 

WCDRFQ PAGE 8 DATE! 01/27/99 


o 



A L 

DMA 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



(j 

ADISP 

GG33 

A MON I 

0 033 

ASTRIC 

0 035 

BASE 

0155 

BITFLG 

■3 04 9 


COMLU 

0062 

COMMA 

0 0 35 

COMOLU 

0 0 45 

COMOUT 

0 0 61 

DB30 

0164 


FIELD 

0051 

FIVE 

0 034 

HANDLE 

0 040 

I 

OOGC 

lOERR 

0043 


MSB 

015 8 

MSG 

0 041 

NEWMLLJ 

0 0 46 

NINE 

0 036 

NW 

Oil D 

\ 1 

PROGl 

0047 

PROG2 

0048 

RC02 

0114 

RCO 3 

0119 

RCDO'J 1 

0132 


RDDEXT 

0142 

RCDFI 

0 0 87 

RCDLSB 

0 140 

RCDMSB 

0139 

RCDNUM 

013 7 


RCDTMP 

0 09 8 

RGDWC 

0 150 

RDCPRO 

0130 

ROCRC 

0151 

SA30 

0162 


SOMMOR 

0 042 

SP30 

0163 

TEN 

0 0 37 

THREE 

0036 

TWO 

0 03 6 


o 

o 

o 

0 

o 

o 

o 

o 


o 


BUFCNT 

0050 

BUFEHT 

£ 0 5 5 

BUFFER 

E IGHT 

0 0 36 

EXTHAN 

0156 

EXTMSG 

LISTLU 

0044 

LPMSK 

00 3 3 

LSB 

NZERO 

0033 

ONE 

00 3 6 

ONEBIT 

RCDABS 

0 12 0 

RCDCAL 

Li 13 3 

RCDCOR 

RCDOKl 

0089 

RCDOK3 

010 3 

RCD0K5 

SIX 

0034 

SIXTEN 

00 3 4 

SLASH 

WCDREQ 

0029 

ZERO 

00 34 

ZROEIT 


0 05 4 

GHRSLV 

0 057 


0157 

FETMM 

0 058 


0159 ' 

MASSLU 

0 06 3 


0034 

OTLU 

0136 

: G 

013 8 

RCOOIF 

0152 

Oli-6 

RCDREQ 

0 030 


0 03 5 
0 03 3 

SLASHF 

u u5 2 

' Pi 


o 

o 

o 


C'^ 


c 

o 

o 

o 

o 


L ASRFQ. 


PAGE 


1 


DATE: 01/27/99 


NAM LASREQ DECK-ID N28 HSOS 3.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


^ THIS PROCESSOR LOAD ASCII WORDS FROM ^ 

♦ INPUT comment MEDIUM TO CORE ^ 

if. * 


SUHMARY- 




INPUT FORMAT : 

LAS, coke LOC., BASE/DATA 
LIT, CORE LOC BASE/I, I, 


WHERE DATA 


ENT LASREO 
ENT LITREO, 


EXT HANDLE 
EXT OFF 


ENTRY 


A STRING OF ASCII CHARACTERS 
AND STORED 2 CHAR. /WORD WITH 
SPACE FILLED LOW 8-BIT IF NEEDED 

INTEGER DATA 


NAMES 


EXTERNAL 

1 CARO DFLETEO 
"HANDLE" ENTRY 
"OFF" ENTRY 


11 uN2P.O OQOl 
N28GG002 
N28D G 0G3 
N280 0004 
N28JC005 
N2800Q06 
N28G G 007 
N28Q 0 0 0 8 
N 280 0 0 0 9 
N283 0 01 0 
N280QG11 
N280G012 
N28Q0013 
N2800014 
N280 0 015 
N2800016 
N280 0 017 
N280 G 018 
N28G0019 
N2800u20 
N28Q 0 021 
N2800Q22 
N28Q0 G23 
N2800 02 h 
N280G025 
N2800026 
N28G 0 027 

N28G 0 029 
N?8lj0 0 3G 
N28G 0Q31 

N28G0Q33 
N28QC 034 
N28G 0 035 
N28G0036 


00F4 
COEA 
OG 02 
0012 
0 0 33 
GQ 43 
0 G h4 
0 0 22 
0 023 
0027 
0 D2C 
0 0 2F 


EQU AMONI (SF4) ,ADISP(SEA > , LPM SK { 2 N NZ ERO i SI 2 ) ,ZR0BIT^$33) 


EQU FIVE ($4 31 , SIX ($44) , ZERO ($22) ,0Nc8IT ($ 23 ) , SIXTEN ($ 27 ) 


EOU C OMMA ( $20 , SL ASH ( $2 F ) , AS T RIG ( $2 A ) 


N28Q 0 038 
N2800G39 


N28G0040 


N28Q 0041 


o 




L ASRFQ 
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G G 2A 






0043 


0 0 26 


EQU 

EIGHT ($26) » 

NINE ($45) , THREE (4) , ONE (3) , THO ($2A) 

N2800a42 



Q 0 45 








0 0 04 








0 0 03 








0 0 24 






0Q43 


0 0 i'-b 


EQU 

TEN ($46 ) 

MS OS 4. 

0.-’'^N280 0 043 

0044 


GOES 


EQU 

EXTBV4($E9) 

LOCATION CONTAINS EXTENDED CORE TABLE 

N28Q0044 

0045 


0 0 1C 


EQU 

COMLIK 28) 

COMMAND "LIT" INDEX 

N2800045 

0046 


0 028 


EQU 

NO40 (40 ) 

LOCAL INPUT BUFFER SIZE 

N28QC046 

0048 





PARAMETER LOCATION (OFFSET FROM BASE) 

N280 u 048 

0049 


0 0 01 


EQU 

8HAN (1) 


N28uOG49 

0050 


0 0 02 


EQU 

MSG (2 ) 

"MSG" ENTRY 

N2800050 

0051 


0 0 03 


EQU 

SOHMOR(3) 

"SOMHOR" ENTRY 

N2800051 

005 2 


0 0 04 


EQU 

I0ERR(4) 

"lOERR" ENTRY 

N28j0052 

0053 


00 05 


EQU 

LI3TLU(5) 

LIST OUTPUT "LISTLU" 

N2800Q53 

005 4 


0 0 06 


EQU 

C0M0LU(6) 

"COMOLU" 

N28U O 054 

0055 


0 0 0 7 


EQU 

NEWMLU(7) 

"NEWMLU" NEW MM LU 

N280 0 0 5 5 

0 0 5 6 


0 0 08 


EQU 

PROGl (3 ) 

"PROGl" 

N 28 0 O Q ip 6 

0 0 5 7 


D009 


EQU 

PR0G2(9) 

"PROG2" 

N2800057 

0058 


OOOA 


EQU 

BITFLG (10) 

"BITFLG" 

N28 j 0 05 8 

0059 


00 OB 


EQU 

BUFCNT (11) 

"BUFCNT" 

N2830059 

0050 


0 0 OC 


EQU 

FIELD (12) 

"FIELD" 

N 28 G G 06 G 

0051 


00 10 


EQU 

SLASHF (16) 

"SLASHF" 

N280G061 

0062 


00 11 


EQU 

8UFEMT ( 17) 

"BUFEMT" 

N280 G 052 

0053 


0012 


EQU 

eUFFER(18) 

"BUFFER" 

N28flOD63 

0055 



¥ 


SUBROUTINE "EQU" POINTERS 

N2800 065 

0066 


0 0 02 


EQU 

GETFLO ( 2) 

"GETFLD" 

N280D 066 

00 5 7 


0 0 03 


EQU 

ASCHEX(3) 

"ASCHEX" 

N28G0057 

0058 


0G05 


EQU 

ASCOEC( 5) 

"AS CO EC" 

N280 0 068 

0069 


GOOC 


EQU 

CONFH (12) 

"CONFM" ENTRY 

N28U 0 069 

0071 







N28GG G71 

0072 



^ V- 


^ If. 

PROGRAM START 

N2800072 

007 3 







N2800Q73 

0075 

P 0 0 0 0 

687A 

LASREQ 

STA» 

BASE 


N2800075 

007 6 


0000 P 


EQU 

LITREQ( LASREQ ) 

N2SG0076 

0077 

POOul 

60FF 


STA- 

I 


N280 0 Q 77 

00 78 

P0002 

8112 


ADD- 

BUFFER, I 

CALCULATE 'BUFFER' ADD. AND SAVE 

N28G 0 078 

00 79 

POOG3 

6872 


STA^ 

8UFA00 


N28G 0 079 

008C 

P0004 

C1D2 


LDA- 

MSG, I 

FETCH "MSG" ADDRESS 

N 28 u 0 0 8 G 

00 81 

P00 05 

6 8 77 


STA^ 

EXTMSG 


N26G0081 

0082 

P00 06 

ElOl 


LOQ- 

BHAN, I 

GET "HANDLE" ADDRESS 

N2800082 

0083 

P0Q07 

4874 


STQ^ 

EXT HAN 


N280 0083 

008 4 

POO 08 

C80F 


LDA^ 

OTB + 1 

CALCULATE "OFF" ADDRESS 

N2800Q84 

0Q85 

P0G09 

98 00 


sue^ 

0T6 


N280 Q 085 

008 6 

PO OGA 

0834 


AAQ 

A 


N280 0 086 


LASREQ. 


PAGE 


DATEJ 01/27/99 


0087 POOQB 6879 


STA^ EXTOFF 


N280 u 067 


0089 POOUC CA02 

0090 POOOD 0CD9 

0091 POQOE 5C6D 

0092 POOOF 0A03 
0 0 93 POO 10 5C6B 
0094 POOll OUOO 


ENA GETFLO 
ENQ 4 

RTJ^ (EXTHAN) 
ENA ASCHEX 
RTJ^ (EXTHAN) 
LAS LOG HUM 0 


TO GET STARTING CORE LOG. 

SET 4 CHAR. IS MAX. 

CONVERT FROM ASC TO HEX 

STARTING LOCATION (TO BE FILLED) 


N28GGQ89 
N26C0 090 
N28jDQ91 
N28a0092 
N28G0Q93 
N26D 0 G9n 


0096 

0097 

0098 

0099 

0100 
0101 
0102 


010 3 
0104 
010 5 
0106 
010 7 
0108 
G109 
0110 
0111 
0112 
0113 


P0012 

CIOC 


-Y- 

LDA- 

P0Q13 

09D0 



INA 

P0ul4 

0113 



SAN 

P0Q15 

1811 



JMP'" 

P0016 

7FFF 

X 

0TB 

ADC 

P0017 

7FFF 

X 

>f. 

ADC 

PQ018 

0 AG2 


LAS2 

ENA 

P0C19 

QCG4 



ENQ 

POOIA 

5C61 



RT 

PQOIB 

0A03 



ENA 

POOIC 

5C5F 



RTJ» 

pooin 

GOOD 


LASBAS 

NUM 

POOIE 

C8FE 



LDA'^ 

POOIF 

88F1 



ADD^ 

PD02G 

58F0 



STA**^ 


FIELD, I 

-SLASH 

LAS2 

LAS19 

HANDLE 

OFF 


CHECK IF base ADD- USED. 

SLASH IS NEXT CHAR. WHEN BASE IS UNUSED. 
IS CONTROL CHAR.= SLASH 


NO BASE ADDRESS USED, GO 

0. "HANDLE" ENTRY ADDRESS 

1. "OFF" ENTRY ADDRESS 


GETFLO 


( EXTHAN ) 
ASCHEX 
(EXTHAN ) 
0 

LA3BAS 

LASLOC 

LASLOC 


GET BASE LOCATION 
CON'/ERT TO HEX. 

BASE + STARTING = CORE LOCATION 


N280 0 096 
N28Q0 097 
N280G 098 
N280 0 099 
N280 010 0 
N28D0101 
N28Q0102 
N2&00103 
N28CD1D4 
M28001D5 
N 280 G 10 6 
N280 0 10 7 
N2800108 
N28QC109 
N280ull0 
N280 0111 
N280U 112 
N2800113 


Oil 5 ^ 

0116 PQ021 CiOC 

0117 P0G22 C9O0 

0118 POC23 0102 

0119 P0024 0004 LAS7 

0120 PC 025 1C 57 


LDA- 

INA 

SAZ 

ENQ 

JMP^ 


CHECK FOR FORMAT SLASH 


FIELD, I 
-SLASH 
LASiO 
4 

(EXTMSG ) 


OUTPUT FORMAT INCORRECT 


N2800115 
N28G0116 
N280 0 117 
N280Q118 
N 28 CO 119 
N28D0 120 


0122 
0123 
012 4 

P0026 

6110 

LASiQ 

STA- 

G 

SLASHF, I 

0125 

P0 0 27 

684F 


STA’^ 

UPDOW 

012 6 

POO 28 

6856 


STA^ 

COUNT 

0127 

P0029 

C0F5 


LDA- 

SF5 

0128 

P002A 

68 53 


STA^ 

MAX 

0129 

PO 0 2B 

C 8F5 


LDA* 

LASLOC 

013 0 

P0Q2C 

58 70 


RTJ» 

CORADK 

0131 

P0G2O 

18F6 


JMP’^ 

LAS7 

0132 

PO Q2E 

Cl 09 


LDA- 

PROG2,I 

0133 

P0Q2F 

09F3 


INA 

-COMLIT 

0134 

PD03Q 

0111 


SAN 

LASX 

013 5 

P0031 

1850 


JMP^ 

DECOAT 

0136 

PG032 

na4F 

LASX 

RA04 

PROTYP 


ASCII CHARACTERS 

HIGHEST COPvE LOCATION USED BY SYSTEM 

TO CHECK CORE ADD. LEGALITY 

ADDRESS ERROR, GO 
CHECK FOR “LIT" 

NO SKIP 

TO’OEGIMAL DATA PROCESSING 
SET TO ASCII DATA TYPE 


N28Q0122 
N2800123 
N2800124 
N2800 12 5 
N2800126 
N28G 0127 
N28C0 128 
N28C0129 
N2600 130 
N28D0131 
N280 0 132 
N28G 0133 
N28D0134 
N280G135 
N2800136 


LASRFQ 
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013 7 

P003 3 

El OA 


LOQ- 

3ITFLG, I 

0138 

P0034 

4843 


STQ^ 

HILO 

0139 

PQD35 

ClOB 


LDA- 

BUFCMT, I 

0140 

P0036 

60FF 


STA- 

I 

0141 

P0 037 

G 142 

LAS15 

SQZ 

LAS21 

0142 

P 0 0 3 3 

OCFE 


ENQ 

-1 

0143 

P0039 

DOFF 


RAO- 

I 

0144 

PO 03A 

CD 01 

LAS21 

INO 

1 

0145 

PO 03 B 

C03A 


LDA> 

(3UFAD0 ) ,I 

0146 

P003C 

4838 


STQ^ 

HILO 

0147 

P003D 

01 51 


SQN 

LAS22 

0148 

P0 03E 

OF 48 


ARS 

8 

0149 

P003F 

AO OA 

LAS22 

AND- 

LPMSK+8 

015 0 

P 0 0 0 

6838 


STA^ 

TEMP 

0151 

P0041 

BO OA 


EOR- 

LPMSK+8 

0152 

P0C42 

Gill 


SAN 

LAS25 

015 3 

P0 0 43 

180F 


JMP^- 

LAS32 


GET BUFFER COUNTER AND BYTE POSITION N28QG137 

FLAG AND SAVE N280G13d 

N28GG139 
N280 0 140 

SKIP IF NO CHANGE OF CHAR. POSITION IS NEEDED N2800141 

N280 0 142 
N28C 0 143 
N28D 0 144 

GET INPUT TEXT WORD N28DQ145 

SAVE HI-LO FLAG N2800146 

N280Q147 

N28Q01h8 

ISOLATE CHAR. N280G149 

N280G150 

CHECK FOR END OF TEXT C$FF) N2800151 

N280G152 

N2800153 


0155 
015 6 

PO 044 

EB32 

LAS25 

LOQ + 

UPOOW 

0157 

P0045 

C833 


LDA + 

TEMP 

0158 

PO 0 + 6 

01 53 


SQN 

LAS26 

0159 

P 0 0 47 

0FC8 


ALS 

8 

0160 

P0 048 

OCGl 


ENQ 

1 

0151 

PO 049 

18 03 


JMP^ 

LAS27 

0162 

PDO + A 

B82F 

LAS26 

EOR + 

CHAR 

0163 

PD 04B 

QCOO 


ENQ 

0 

0154 

P004C 

482A 

LAS27 

STQ + 

UPDOW 

0165 

P004D 

68 2C 


STA + 

CHAR 

0166 

PQ OAF 

Q1 51 


SQM 

LAS30 

0167 

POOuF 

5 844 


RTJ + 

SAVCHK 

0168 

P0050 

E827 

LASSO 

LDQ+ 

HILO 

0169 

P0051 

18F5 


JMP + 

LAS15 


0171 



4- 



0172 





CLOSE 

0173 






0174 

P0052 

C824 

LAS32 

LDA + 

UPDOW 

C175 

P0C53 

0103 


SAZ 

LAS34 

Q176 

P0 054 

GS25 


LDA + 

CHAR 

0177 

P0C55 

0920 


INA 

S2Q 

0178 

P0056 

58 30 


RTJ» 

SAVCHK 

0179 

P0 057 

C81E 

LAS34 

LD A + 

8UFA0D 

018G 


0 0 57 P 


EQU 

GONFRM(LAS34) 

0181 

P0058 

6GFF 


STA- 

I 

0182 

P0059 

OCDO 


ENQ 

0 

018 3 

P005A 

CEB6 

LAS40 

LDA^ 

(LASLOC ) ,Q 

0184 

PD05B 

6722 


STA- 

(ZERO)» e 

0185 

P005C 

DOOl 


INQ 

1 

0186 

PO 05D 

0814 


TRQ 

A 

0187 

P005E 

9820 


SU8 + 

COUNT 


E DATA WORD AND SAVE IF NEEDED 
GET POSITION FLAG 
RECALL INPUT TEXT CHAR. 

POSITION TO HI-3-BIT 


INSERT WITH HI-8-BIT 

ADJUST POSITION FLAG AND SAVE 


SKIP IF ON HI-8-BIT 

TO SAVE DATA IN INPUT BUFFER 

RECALL HI-LO FLAG AND REPEAT 


OUT BEFORE EXIT 

ANY CHAR (HALF WORD) NOT YET STORE 


INSERT SPACE INTO L0-8-BIT 

TO SAVE DATA IN INPUT BUFFER 

MOVE CURRENT DATA TO "BUFFER” FOR PRINTING 


CHECK IF ALL DATA BEEN MOVED 


N 26 0 0 IB 5 
N28Q 0 15 6 
N280 0157 
N280 0158 
N280Q159 
N280aibG 
N28G01&1 
N28G0162 
N280G153 
N28Q0154 
N2830165 
N28Q0166 
N280 Q1&7 
N 280 0 15 8 
N28QG169 


N 28 00 171 
N2800172 
N2300173 
N28G0174 
N 280 0 17 5 
N280Q176 
M280Q177 
N2800178 
N2800179 
N280 018G 
N280G181 
N280Q182 
N280 0183 

N280 0184 

N2800185 
N28 G 0 18 6 
N2800187 
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018 8 

PQ 05F 

0101 


SAZ 

LAS44 


N280D 188 


0189 

P0060 

18F9 


JMP + 

LAS40 

REPEAT, NOT DONE 

N2800189 


019 0 







N2800190 

- Q 

0191 

PC061 

ESID 

LAS-+4 

LDQ^ 

COUNT 

SET UP NO. OF WORDS AND DATA TYPE 

N28C0191 


0192 

P0 062 

C81E 


LDA-^ 

PROTYP 

ASSEMBLE DATA TYPE AND NO. OF WORDS 

N2800 192 


0193 

P0G63 

QFG8 


ALS 

3 


N28G0193 


0194 

P0064 

0 832 


AAQ 

Q 


N 28 00 19 4 

( ' 

0195 

P0G65 

oa oc 


ENA 

CONFM 

TO PRINT DATA AND REQUEST CONFIRMATION 

N2800195 


0196 

P0D66 

5C15 


RTJ’^ 

(EXTHAN ) 


N280Qi9b 


0197 

P0067 

0 0 45 


ADC 

NEWOAT-^ 


N2800197 


0193 

P0068 

CCQD 


LDA^ 

( BUFADD) 

CHECK IF CONFIRM 

N 28 0 0198 

' o 

0199 

P0069 

0118 


SAN 

LAS51 

NO, SKIP 

N2800199 


020 0 

PO 06A 

0 CGO 


ENQ 

0 

SET INDEX AND HOVE NEW DATA TO CORE 

N2800 2CC 


0201 

POO 6R 

CA41 

LAS48 

LDA» 

NEWOAT, Q 


N2800 201 


G2G2 

P0Q6C 

6EA4 


STA-^ 

(LASLOC ) ,Q 


N 280 0 20 2 


0203 

PO 060 

OOOl 


INQ 

1 


N28Q0 20 3 


0204 

P006E 

08 14 


TRQ 

A 

CHECK IF DONE MOVING 

N28Q 0 20 4 


0205 

P006F 

980F 


SUB^ 

COUNT 


N28002G5 


0206 

PQ07Q 

0 101 


SAZ 

LAS51 

YES, SKIP 

N28GG 206 

1 

0207 

P0071 

18F9 


JHP^ 

LAS48 

NO, REPEAT 

N28Q 0207 

V.-- 

020 8 

POC 72 

E8 08 

LAS51 

LDQ» 

BASE 


N28Q 0 20 8 


0209 

POO 73 

E2 03 


LDQ- 

SOMMOR, Q 

EXIT TO "SOMMOR'* 

N280D209 


0210 

P0074 

1622 


JMP- 

(ZERO) , Q 


N28QU21G 



0212 



V- 


COUNTERS, FLAGS, ETC. 

N28Q0212 

0213 

P0075 

OQ 00 

BUFADD 

NUM 

0 

TEXT BUFFER ADO. (TO BE FILLED) 

N28GG213 

0214 

P0 076 

0 0 0 0 

UPOOW 

NUM 

0 

HI-8/L0-8 FLAG (Q=HI) 

N28Q0214 

0215 

PO 077 

0 00 0 

HILO 

NUM 

0 

INPUT TEXT POSITION ( 0 = HI-8) 

N28G0215 

0216 

PQ078 

0 0 0 0 

TEMP 

NUM 

0 

TEMPORARY STORAGE 

N28Q0 216 

0217 

P0079 

0 0 0 0 

CHAR 

NUM 

0 

DATA 

N 28 0 0 217 

0218 

P007A 

0 0 00 

BASE 

NUM 

0 

PARAMETER BASE ADDRESS 

N280 0218 

0219 

P007R 

0 0 e 0 

EXTHAN 

NUM 

0 

"HANDLE" ADDRESS 

N28Q0 219 

0220 

PQ07C 

0 0 0 0 

EXTHSG 

NUM 

0 

"MSG" ADDRESS 

N 280 0 22 0 

0 221 

P0C7D 

0 0 0 0 

MAX 

NUM 

0 


N280 0 221 

0222 

P007F 

00 00 

COUNT 

NUM 

0 


N280Q222 

0223 

P007F 

0 0 0 0 

EXTOFF 

NUM 

0 

"OFF" ADDRESS 

N2800223 

0224 

P008 0 

0 0 01 

PROTYP 

NUM 

1 

SET FOR DECIMAL TYPE DATA 

N28Q 0 224 

0226 



♦ 


1. DECIMAL 

DATA 

N28Q0226 

0227 

P0081 

Q A02 

DECDAT 

ENA 

GETFLD 

GET INPUT DATA 

N280 0 227 

0228 

P0082 

0C06 


ENQ 

6 


N2800228 

0229 

P00 83 

5CF7 


RTJ* 

(EXTHAN ) 


N280 0229 

0230 

PO 084 

0A05 


ENA 

ASCOEC 

CONVERT TO DEC. 

N 28 0 0 23 0 

0231 

P008 5 

5CF5 


RTJ’f 

(EXTHAN ) 


N28G0231 

0232 

PQ086 

E8F7 


LDO» 

COUNT 


N28 Q 0 232 

0233 

POOS? 

6 A 25 


STA^ 

IMPDAT, Q 

SAVE INPUT data 

N2800233 

0234 

P0088 

D8F5 


RAO^ 

COUNT 

BUMP STORAGE INDEX BY 1 

N2800234 

0235 

PG089 

E8F0 


LDQ^ 

BASE 


N26Q 0 235 

0236 

PQ08A 

C20C 


LOA- 

FIELD, Q 

CHECK IF END OF TEXT 

N28Q 0236 

0237 

P0088 

BO OA 


EOR- 

LPMSK+8 


N2800 237 


o 

o 

r\ 

O 

c 

o 


o 
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6 


0238 

P0 08C 

0111 


SAN 

DEC3 


N2800 238 

0239 

P00 80 

18C9 


JMP* 

CONFRM 

NO MORE DATA, TO PRINT 

N2800239 

0240 

PO 08E 

H2 OC 

DEC3 

LDA- 

FIELD, 0 

CHECK FOR COMMA 

N280024C 

02^1 

P 008F 

0903 


INA 

-COMMA 


N2800241 

0242 

PO 0 9Q 

0101 


SAZ 

DEC7 



0243 

PGogi 

1892 

DECS 

JMP-'^ 

LAS7 

FORMAT ERROR, GO 

M 28 0 0 2 4 3 

0244 

PG092 

1 SEE 

0EC7 

JMP^ 

DECDAT 

TO REPEAT 

N280 Q 24i, 


0246 








N28G 0 246 

0247 





SAVE 

NEW DATA IN TEMPORARY BUFFER AND 

MAKE SURE 

N28D0247 

0248 






LESS THAN OR EQUAL TO 40 WORDS IN 

INPUT 

N280 0248 

02i*9 








N28D0249 

025 0 

P0C93 

0 BOO 

SAVCHK 

NOP 

9 

ENTRY 


N280 0 250 

0251 

P0094 

E8E9 


LDQ^ 

COUNT 

CHECK NO. OF INPUT DATA 


N2800251 

0252 

PQ095 

0DD6 


INQ 

- Hi 



N2800252 

0253 

PO 096 

0171 


SQM 

SAVl 

OK, SKIP 


N280G253 

0254 

P0097 

188C 


JMP» 

LAS7 

TO PRINT FORMAT ERROR 


N280 0254 

0 2 55 

P0Q98 

E8E5 

SA\/1 

LDQ- 

COUNT 

SET INDEX TO SAVE INPUT DATA 


N2890255 

0256 

P0099 

6A13 


STA^ 

NEWDAT,0 



N28GQ256 

0257 

POORA 

D8F3 


RAO- 

COUNT 

UP DATE INPUT COUNT 


N2800257 

0258 

P009B 

1CF7 


JMP^ 

(SAVCHK ) 

RETURN 


N2800258 


025 0 



if- 


CHECK 

ADDRESSES TO BE WITHIN 32K 

N280026Q 

0261 



¥■ 




N280Q 261 

0262 

PG09C 

OBOO 

CORAOK 

nop 

n 

ENTRY 

N2800252 

0263 

PC09D 

E0F9 


LDQ- 

EXTBV4 

GET 32K/65K FLAG (32K=0, 65K=1) 

N 28 0 0 26 3 

0264 

PO Q9E 

E622 


LDQ- 

(ZERO) ,Q 


N280Q264 

0265 

P0Q9F 

01 55 


SQN 

AD65 

SKIP ON 65K 

N280Q 265 

0266 

POOAO 

0133 


SAM 

AD32EX 

ERROR, OVER 32K 

N28Q 0 266 

0267 

POQAl 

98DB 


SUB^- 

MAX 


N2800 267 

0268 

P00A2 

0137 


SAM 

AD65EX 


N2800268 

0269 

P00A3 

0106 


SAZ 

A065EX 


N2800259 

027G 

PQCAh 

1CF7 

AD32EX 

JMP- 

{C3RADK) 

RETURN 

N2800270 

0272 





CHECK 

TO BE WITHIN 65K OR LESS 

N2800272 

0273 

PQ0A5 

0124 

AD65 

SAP 

A065EX 

SKIP FOR 32K OR SO 

N280Q 273 

0274 

P00A6 

98D6 


SUB^^ 

MAX 


N2800274 

0275 

PDQA7 

0132 


SAM 

AD65EX 

OK, SKIP 

N28D0275 

0276 

PO 0A8 

0101 


SAZ 

AD65EX 

OK, SKIP 

N2800276 

0277 

PQDA9 

18 FA 


JMP’^ 

AD32EX 

ERROR, GO 

N28a02?7 

0278 

POOAA 

D8F1 

AD65EX 

RAO^^ 

CORAOK 

SET NORMAL EXIT 

N28il 0 278 

0279 

POO AB 

ICFO 


JMP» 

ICO RADIO 

NORMAL RETURN 

N280 0279 

0281 







N 28 90 281 

0282 

POOAC 

0 0 28 

newdat 

BZS 

NEWDAT (NO4 0) 


N280 C 282 

0283 


5 QAC 

p 

EOU 

INPDATINEWOAT ) 

N28GG283 



o 

o 

••J 

o 

o 

o 

o 

o 

r--. 

'v--- 


N28Q0285 
N28Q 0286 
N280 Q287 
N2e0Q288 
N280Q289 
N2800 29Q 


o 

L.' 

n 

O 

r') 

o 

o 

o 

o 

o 

o 

o 

o 

o 




L ASREa 

PAGE 8 

date: 01/27/99 


o 







o 

o 

E Q U I V 

A L E N 

C E S 




o 

I****”} 

OEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

■ 0 









OQOO 

I 

OOFF 

(000255) 

0D77, 0140, 

0143, 0181 



0 03q 

AMONI 

00F4 

(000244) 




r''\ 

0 Q39 

ADISP 

OOEA 

(000234) 





0 039 

LPMSK 

00 0 2 

C 000002) 

0149, 0151, 

0237 

o 


0 0 39 

NZERO 

0012 

(000018) 





0 039 

ZRORIT 

0033 

(000051) 





00 40 

FI\/E 

0343 

(000067) 




■-J 

0 040 

SIX 

0044 

1 000068) 



o 


0 040 

ZERO 

0 0 22 

(000034) 

0184, 0210, 

0264 



0040 

ONERIT 

QC2 3 

(000035) 




C'\ 

0 040 

SIXTEN 

0027 

( 000039) 





0 041 

COMMA 

002C 

(000044) 

0241 




0041 

SLASH 

002F 

(000047) 

0099, 0117 




0 041 

ASTRIC 

0 0 2A 

(000042) 




o 

G042 

EIGHT 

0C26 

(000038) 




\J 

0042 

NINE 

0 0 45 

(000069) 





0 042 

THREE 

0 0 0 4 

(000004) 





0 0 42 

ONE 

OGQ 3 

(000003) 




C\ 

0 0 42 

TWO 

002 4 

(000036) 



.’-*v 


0 043 

TEN 

00 46 

(000070) 





0 04i* 

EXTBV4 

00E9 

(000233) 

0 2 63 




0 045 

COMLIT 

OOlC 

( D00G28) 

0 133 



n 

0 0^5 

N04G 

0028 

(000040) 

0282 




0 G49 

8HAN 

000 1 

(000001) 

0 0 82 


■ L.J 


0 050 

MSG 

000 2 

( 00000 2) 

0 080 




0 051 

SCMHOR 

0 00 3 

(000003) 

0 2 09 




0 052 

lOERR 

0 0 04 

( 00Q004) 





0 053 

LISTLU 

00 0 5 

(000005) 





0 054 

COMOLU 

0 00 5 

( 0 0 0 0 0 6 ) 





0 05 5 

newmlu 

00 0 7 

1000307) 




t'~; 

0 056 

PROGl 

0 0 0 8 

(000008) 





0 05 7 

PR0G2 

0 00 9 

(030009) 

0132 


/ ] 


0 058 

8ITFLG 

000 A 

(000010) 

0137 




0 0 59 

BUFCNT 

00 0 8 

( QOOQll) 

0139 



l’ 

0 060 

FIELD 

OOOC 

(000012) 

0098, 0116, 

0236, 0 240 

■ o 


0 061 

SLASHF 

OOlC 

(Q0Q016) 

0124 



0062 

BUFEMT 

0011 

(000017) 





0063 

SUFFER 

0012 

(000018) 

0 0 78 



o 







: C 

o 







' O 

Q 







n 

C-' 







C) 

- 


- - - 


- 

- 


. . . 



LASREQ 


PAGE 

9 

date: 01/27/99 

C) 

D 066 

GETFLO 

00 0 2 

(000002) 

0 0 89 , 

0105, 0227 

0 067 

AS C HEX 

0003 

(000003) 

0 0 92 , 

0108 


0 068 

A SC DEG 

0 0 0 5 

(000005) 

0 230 



0 0 69 

CONFM 

COOC 

(000012) 

0195 


* 1 1 


O 


o 

o 




o 


o 


.'■“'I 



C' 

o 

o 

o 

o 


Q 

o 

o 

o 

o 


o 


c 


L ASREQ 


OATF: Ql/27/99 


PAGE 


IG 


SYMBOLS 


DEF.LIME 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 





0 030 

LASREQ 

0 0 0 0 

0 0 30 » 

0 076 






0031 

LITREQ 

00 0 0 

0D31 



0 20 2 




0 094 

LASLOC 

0011 

0 112, 

0113, 

0129, 0183, 




0 102 

0TB 

0016 

0G84, 

0 08 5 






0105 

LAS2 

0018 

0 100 







0 ilQ 

LASBAS 

QOID 

0111 







0119 

LAS7 

0 02 4 

0131, 

0243 , 

0254 





0124 

LASIO 

0026 

0101, 

0118 






0136 

LASX 

0 0 32 

0 134 







0141 

LAS15 

0037 

0169 







0144 

LAS21 

0 03A 

0 l4i 







0149 

LAS22 

0D3F 

0147 







0156 

LAS25 

004 4 

0152 







0 162 

LAS26 

00 4A 

0 158 







0164 

LAS27 

004C 

0161 







0168 

LAS30 

0050 

0166 







0174 

LAS5? 

0052 

0 153 







0179 

LAS34 

QQ57 

0 1 75, 

0 180 






0 18 Q 

C CNFPM 

0057 

0 239 







0183 

LAS40 

005A 

0 1 39 







0191 

LAS44 

0061 

0 188 







0 201 

LAS48 

0C6B 

0 207 







020 8 

LAS51 

00 72 

0199 , 

0206 






0 213 

BUFADD 

0075 

0079, 

0145, 

0179, 0198 





0 21 4 

UPDOW 

0 076 

0 125, 

0 156, 

0164, 0174 





0 215 

HILO 

00 77 

0 138, 

014 6, 

0168 





0216 

TEMP 

0 0 78 

0 150 , 

0157 

0176 





0 217 

CHAR 

00 79 

3162, 

0165, 





0 218 

BASE 

0Q7A 

0 0 75 , 

0 20 8 , 

0235 





0 219 

EXTHAN 

0 078 

0 0 83 , 

0 091 , 

0G93, 0107, 

0109, 

0196, 

0229, 

0231 

0 220 

EXTMSG 

D07G 

0 0 81, 

0120 

0274 





fl 221 

MAX 

0 0 7D 

0 128 , 

0267, 




0255, 0257 

0222 

COUNT 

0 0 7E 

0 126, 

0187, 

0191, 0205, 

0 3 2 t 

0 234, 

0251, 

0223 

EXTOFF 

0 07F 

0 0 87 







0224 

PROTYP 

0 0 8 0 

0136, 

0192 






0 22 7 

OECOAT 

0081 

0135, 

0244 






0 240 

OEC3 

0Q8E 

0 238 







0 2 43 

DEC5 

0091 








0244 

0EC7 

0092 

0 2 42 







0 25 0 

SAVCHK 

0093 

0167, 

0178, 

0258 





0 255 

SAVl 

0 0 9 8 

0 253 








C) 

c 


o 


o 


o 


o 


o 


o 

o 


o 


o 


o 

o 


o 


LASRFQ 


PAGE 11 


DATE 


0262 

CORADK 

009C 

013 0, 

0 270 , 

0278, 

0279 

0 270 

AD32EX 

OOAA 

0268 , 

0 27 7 



0 273 

AD65 

00A5 

0265 




Q 278 

AD65EX 

OOAA 

0 268, 

0269, 

0273, 

0 2 75 

0 282 

NEWDAT 

OOAC 

3 197, 

0 20 1, 

0256, 

0 283 

0 28 3 

INPDAT 

00 AC 

0 233 




0 286 

SA32 

00 02 

0287 




0 267 

SP3? 

0003 

0 288 




0 288 

DB32 

0120 

0 289 





o 

o 

o 

o 

o 

o 

r ) 

o 

o 

o 

o 


ul/27/99 


o 

C27 6 

o 
o 
o 
' o 
o 

: O 
; O 

o 
- o 
■ o 
o 
o 
o 

o 


L ASREa 


PAGE 12 


OATES 01/27/99 


EXTERNALS 

DEE. LINE NAME VALUE REFERENCED AT LINE NUMBER 


0 0 3 5 
0 035 


HANDLE 0016 
OFF 0017 


0 102 
0103 


LASRFQ, 


PAGE 13 


DATEi 01/27/99 



A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



AD32EX 

0 27 0 

A0P5 

0273 

AD65EX 

0 278 

AOISP 

0059 

AHONI 

0039 

BHAN 

GQ49 

PITFLG 

G 056 

RUFADD 

0 213 

BUFCNT 

0059 

BUFEMT 

006 2 

COMOLU 

0 0 5 A 

CONFM 

0 06? 

CONFRH 

0180 

CORADK 

0262 

COUNT 

0222 

OECDAT 

022 7 

EIGHT 

Q0A2 

EXT8V4 

0 0 44 

EXTHAN 

0219 

EXTHSG 

022 0 

HANDLE 

0035 

HILO 

0215 

I 

OGOQ 

INPDAT 

0283 

lOERR 

0052 

LAS22 

0149 

LAS25 

0156 

LAS 26 

0 162 

LAS27 

0164 

LAS30 

0168 

LASA6 

0 20 1 

LAS51 

MAX 

0208 

LAS? 

Q 119 

LAS8AS 

GllO 

LASLOC 

0 G9 4 

LPMSK 

0 03 9 

0 221 

HSG 

0 0 50 

NEWnAT 

0282 

NEWHLU 

005 5 

ONE 

0042 

OMEBIT 

0 0 40 

OT3 

0 102 

PROGl 

0056 

PR0G2 

0057 

SIX 

TWO 

0 040 
0042 

SIXTEN 

UPDOW 

0 040 
0214 

SLASH 

ZERO 

00 41 
0 0 40 

SLASHF 

ZROBIT 

0061 
0 039 

SOMMOR 

00 51 


o 

o 

o 

o 

o 

0 

o 

o 

o 

o 

o 


o 


ASCDEC 

0068 

ASCHEX 

0 0 6 7 

BUFFER 

0 06 3 

CHAR 

0217 

0832 

0288 

DEC3 

0 2h u 

EXTOFF 

0223 

FIELD 

0 0 5 0 

LASl 0 

0124 

LAS15 

0141 

LAS32 

0174 

LAS34 

0179 

LASPEQ 

0G3Q 

LASX 

0135 

NINE 

0042 

N04G 

0046 

PROTYP 

0224 

SA32 

0 286 

SP32 

0 28 7 

TEMP 

0216 


ASTRIC 

0 041 

BASE 

0218 

COM LIT 

0045 

COMMA 

OQLl 

DEC 5 

0 243 

DEC? 

0244 

FIVE 

0 34C 

GETFLD 

C 0 6b 

LAS2 

010 5 

LAS21 

0144 

LAS40 

0183 

LAS44 

0191 

LISTLU 

0053 

LITREQ 

0031 

MZERO 

0 039 

OFF 

0036 

SAVl 

0 25p 

S AVCHK 

0250 

TEN 

0043 

THREE 

Q04 2 


o 

o 

c 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 




DASRFQ 


PAGE 

1 

DATE; 01/27/99 



o 

DOOl 


NAM 

0 A 3 RE Q 


DECK-ID N29 MSOS 5.0 SUMMARY- 

1 1 6^ ** 

O 


OCO 2 


MASS 

STORAGE 

OPERATING SYSTEM VERSION 5.0 

N29fl0a02 


o 

0003 


SMALL 

. SYSTEMS 

DIVISION, LA JOLLA, CALIFORNIA 

N2900G03 

O 

0QQ4 


COPYRIGHT CONTROL 

DATA CORPORATION 1976 

N2900004 


00 0 5 






N290Q005 



000 5 






N29000D6 


C) 

00 0 7 




Hiififi^if. ififig. sf^;^.:^if.if.:^^if.if.if.3f. if. if. ^ if, if ^ 

N290 0 007 

■ O 

00 0 8 





if. 

N290 QGD8 


0009 



if. 

THIS 

PROCESSOR DUMPS CORE CELLS ONTO ^ 

N290 0009 



0010 




THE LIST COMMENT MEDIUM IN ASC FORM ^ 

N290001G 


C) 

0011 






N2900011 

: O 

0012 





N290C012 


0013 

•V- 





N 29 GO 013 



OOlC 






N2900014 


o 

0015 






N290 0 01 5 

. o 

0016 

^ ^ ^ TT 


REQUEST FORMAT ! 

N29G 0 016 



0017 






N2900017 



0018 

if. 


OAS, START CORE, END CORE , 8 A S E (C R) 

N2900018 


i^ 

0019 






N2900019 

O 

0G20 

if. 




WHERE (CR> = CAPRAGE RETURN 

N2900u2C 


0021 






N 29 C 0 u 2 1 



0022 






N2900022 


( *’v 

0023 






N29G0023 

0 


0024 



OUTPUT 

FORMAT ; 

N29C0024 


00 2 5 

if. 





N29G0U25 



0026 



LLLL 

AA BB CC 00 EE FF G& HH II JJ KK LL MM NN 

N2900026 


o 

002 7 

¥ 





N29D0Q27 

o 

0028 





WHERE LLLL = CORE LOCATION 

N29C 0 028 


0029 

-V- 





N290 0 029 



0030 

if. 





N2900030 

o 


0032 

•V 


E 

N T 

R Y NAME 

N2900032 

o 

0033 


ENT 

OA5REQ 



N29D0033 


0035 

if 


£ 

X T 

E R N A L 

N2900035 

: O 


0036 





1 CARD DELETED 

N2900036 



0037 


EXT 

HANDLE 


"HANDLF" ENTRY 

N2900 037 


o 

003 8 


EXT 

OFF 


"OFF" ENTRY 

N29D 0 038 

o 

0039 


EXT 

CHRSFG 



N29G 0 039 




O 


0041 


if 


' E 

Q U ' TABLE 

N2900041 

0042 

C 0F4 
OOEA 
0 0 02 
0 012 
GO 33 


EQU 

AHONI {TF4) 

, ADISP CSEA) ,LPMSK(2) ,NZERO( $12) ,ZP0BIT{$33) 

N29G0042 

0 0 43 

0 0 43 
G G 44 
0 022 


EQU 

FIVE($‘r3) , 

SIX ($44) ,ZERO ($22) , ON EBIT ($23), SIX TEN ($27) 

N29Q00t3 


O 


O 




o 


o 


OASREO 


PAGE 2 


DATE: ai/27/99 


0044 

0 0 23 
0 0 27 
0 0 2C 

0045 

0 02F 
0 G 2A 
0 0 26 

0046 

0 0 45 
GO 04 
0 0 03 
0 0 24 
G 0 46 

0047 

0 0 03 

0048 

0QE9 


EQU COMMA (B2C) , SLASH ($2F) ,ASTRIC (S2A) N290 0 Q44 

EQU EIGHT ($ 26) t NINE ( $45 ) , THREE (4) t ONE ( 3 ) » TWO ($24) N2900Q45 


EQU TEN($46) 

EQU MASK(3) ONE BIT MASK 

EQU £XTBV4( $E9 ) 


»^MSOS4.0*^»N2900 046 
N2900047 
N290G 048 


0050 0007 

0051 OOiC 

0052 0010 

0053 lOCQ 


EQU 

EQU 

EQU 

EQU 


CHRSLV (7) 
LNWD28 (28) 
LNCH16 ( 16) 
ASMOO($1000) 


LEVEL OF THIS PROGRAM 
MAX. NO. OF WORDS USED BY 1 LINE 
MAX. NO. OF DATA IN LINE 
OUTPUT ASC MODE 


1 16-^436 

N29G0051 
N29 0 0 052 
N29U0053 


0055 
005 6 

0 0 01 


EQU 

PARAME 

8HAN( 1) 

TER LCCATTOM (OFFSET FROM BASE) 
"HANDLE" 

005 7 

0 0 02 


EQU 

MSG(2 ) 

"MSG" ENTRY 

0 0 5 8 

0 0 03 


EQU 

S0HM0R(3 ) 

"SOMHOR" ENTRY 

005 9 

0 0 04 


EQU 

lOERR (4 ) 

"lOERR" ENTRY 

00 6 0 

0 0 05 


EQU 

LI3TLU (5) 

LIST OUTPUT "LISTLU" 

0051 

0 0 06 


EQU 

C0M0LU(6) 

"COMOLU" 

0052 

0 0 07 


EQU 

NEWMLU (7) 

"NEWMLU" NEW HM LU 

0 0 5 3 

0 0 08 


EQU 

PROGl (8 ) 

"PROGl" 

005 4 

0 0 09 


EQU 

PR0G2(9) 

"PROG2" 

0065 

0 0 OA 


EQU 

BITFLG(IO) ‘ 

"BITFLG" 

00 6 6 

CODE 


EQU 

BUFCNT(ll) ■ 

"BUFCNT" 

0057 

0 0 OC 


EQU 

FIELO(12) 

"FIELD" 

006 8 

0010 


EQU 

SLASHF (16) 

"SLASHF" 

005 9 

00 11 


EQU 

BUFEMT ( 17) 

"BUFEMT" 

007 0 

0012 


EQU 

OUFFERdS) 

"BUFFER" 


N2900 055 
N29G 0 056 
N29uu 057 
N290 0 058 
N 29 0 0 0 5 9 
N290QQ60 
N 290 0 061 
N2900062 
N290Q063 
N2900 064 
N2900 065 
N2900066 
N 29 0 0 0 6 7 
N29u0G68 
N290 0 069 
N29D0 D70 


0072 
007 3 
007 4 
0075 




0 0 02 
0 0 03 
0 0 05 


EQU 

EQU 

EQU 


SUBROUTINE "EQU* 
GETFLD(2> "GETFLD" 


ASCHEX(3) 

ASC3EC(5) 


■ASCHEX' 

•ASCDEC’ 


POINTERS 


N293 0 072 
N29QQQ73 
N29J 0 074 
N2900075 


007 7 

0078 

0079 


H- 


¥ V 


PROGRAM START 


N290 0 077 
N 290 0 07 8 
N2900 079 


0081 POOOO 687E 

0082 PGOOl 60FF 

0083 PGG02 8112 

0084 P0003 6800 
P0004 008D 


DASPEQ STA^ BASE 
STA- I 

ADO- BUFFER,! 
STA BUFADO 


N2900081 
N2900 082 
N2900083 
N29G 0 084 




DASREQ 


PAGE 



008 5 

P0 0 0 5 

68 7C 


STA^‘ 

OATLOC 


00 8 6 

POO C6 

C105 


LDA- 

LTSTLU, I 


0087 

P0 0 07 

88 7E 


ADD- 

MODE 

w 

008 8 

P 0 D 0 a 

6800 


STA 

OTLU 



P0 0 09 

0 0 86 





0089 

POO OA 

ElOl 


LDQ- 

BHAN, I 

(0 

QQ9Q 

POO OB 

^374 


STQv 

EXTHAN 

0091 

POOGC 

C842 


LDA^ 

OTB+1 


009 2 

POOOD 

9840 


SUB^ 

0TB 


0093 

PGOOF 

0834 


AAO 

A 

r\ 

009 4 

POOOF 

6840 


STA^ 

EXTOFF 


0095 

POOiO 

C102 


LDA- 

MSG, I 


0096 

POOll 

686F 


STA* 

EXT MSG 


0097 

P0012 

G0F5 


LOA- 

$F5 

o 

0098 

P0Q13 

6871 


STA» 

MAX 


010 0 





G 


0101 

PO 014 

QAGO 


ENA 

0 


0102 

P0015 

681B 


STA=^ 

OASLOC+2 


010 3 

P0016 

686C 


STA^ 

COUNT 


0104 

P0017 

fl A02 

OASl 

ENA 

GETFLD 


QIC 5 

P0018 

QC04 


ENQ 

4 


0106 

P0019 

5C66 


RTJ^^ 

(EXTHAN ) 


0107 

PDOIA 

ClCC 


LDA- 

FIELD, I 


Q1C8 

POOIB 

0107 


SAZ 

DAS5 

7 ”l 

0109 

POOIC 

90 0A 


SUB- 

LPMSK+8 

' 1 

0110 

PO OID 

0105 


SAZ 

0AS5 


0111 

PO niE 

80 OA 


ADD- 

LPHSK+8 


0112 

PO OIF 

0903 


INA 

-COMMA 

o 

0113 

0114 

P0Q20 

0102 


SAZ 

DAS 5 


0115 

P00 21 

0C04 

0AS3 

FNQ 

4 

o 

0116 

PC02 2 

1C 5E 



(EXTMSG ) 

0118 

PG023 

OA 03 

DAS5 

ENA 

ASCHEX 


0119 

PG024 

5C5B 


RTJ^- 

(EXTHAN ) 


0120 

P0 025 

00 00 

DASVA 

NUM 

0 


0121 

P0026 

E85C 


LOQ^ 

COUNT 


0122 

P0027 

CaFD 


LDA^ 

DASVA 


0123 

P0028 

6A 06 


STA^ 

DASLOC, Q 


0124 

PC 029 

0001 


INQ 

1 

0 

0125 

P0G2A 

4858 


STQ^ 

COUNT 

012 6 

PD02B 

ODFC 


INQ 

-3 


0127 

P0 0 2C 

01 44 


SQZ 

DASIO 

o 

0128 

P002D 

18F9 


JMP^ 

OASl 

0130 



* 


A 


0131 





o 

0132 

0133 

PO 02E 

00 03 

DASLOC 

BZS 

DASL0CC3 


0134 

P0031 

cm 

DASIO 

LOA- 

BUFEMT, I 


date: 01/27/99 

GET LIST UNIT 

GET "HANDLE" ADDRESS 
calculate "OEF" ADDRESS 


SAVE "OEF" ADDRESS 
FETCH "MSG" ADDRESS 

HIGHEST CORE LOCATION USED BY SYSTEM 


ADDRESSING DATA 


TO EXTRACT A FIELD ADDRESS 

SET TO GET 4 CHAR. FIELD 

IF EMPTY 

CHECK FOR END OF TEXT 
YES, SKIP 

CHECK FOR COMMA 
YES, SKIP 

INCORRECT FORMAT AND GO PRINT HESSAGF 


CONVERT TO HEX. 


SET-UP STORAGE INDEX 

SAVE ADO. ACCORDING 
BUMP FIELD COUNT BY 
BEEN EXTRACTED 

SKIP, DONE 


TO FIELD INDEX 
1 AND CHECK IF ALL FIELDS 


MAKE SURE BUFFER IS EMPTY 


N2g00085 
N290Q 086 
N29Q 0 08 7 
N2900G88 

N290 0 389 
N2QQ 0Q9G 
N2900U91 
N2900 092 
N290Q 093 
N29QQQ9^ 
N290U 095 
N2900 096 
N2900097 
N290 0 098 


N290Q1D0 
N2900101 
N290Qi02 
N290Qi03 
N290 010 4 
N29G01G5 
N29G0i05 
N29D0107 
N290 0108 
N290 0 109 
N290 QllG 
N29Q 0 ill 
N29Q0112 
N29fl0113 
N29a0114 
N290D115 
N2900116 

N2900116 
N290 0 il9 
N290 0120 
N29D0121 
N290 0 122 
N2900123 
N2900124 
N290G125 
N290Q125 
N2990127 
N290 0128 


N2900 13 G 
N2900131 
N2900 132 
N29G0133 
N290 0134 


L.) 

C 

c.) 

o 




o 


o 

o 

o 

o 

o 

c 

o 

o 


I ^ 


{ ) 


DASREQ 


PAGE 


date: 01/27/99 


o 

0135 P0032 B012 

0136 P0033 0101 

0137 P003A 18EC 

0138 PQQ35 C8F9 

0139 P0036 98F7 

0140 P0037 0121 

r-, 0141 P0038 18E3 

0142 

0143 P0 039 C8F4 

0144 PQ03A 88F5 

014 5 P0Q3R 6 8F2 

^ 0146 P003C 5857 

0147 P003D 18E3 

0148 P003F C8F0 

0149 PQ03F 88F0 

0150 P0040 68EE 

0151 PGQ41 5852 

0152 PG042 180E 

015 3 



EOR- 

LPMSK+1 5 


SAZ 

DASH 


JMP^ 

DAS 3 

DASH 

LDA» 

DASLOC+1 

SUB^ 

DASLOC 


SAP 

DAS12 

if. 

JMP^ 

DAS3 

DAS12 

LDA^ 

DASLOC 


AOD^ 

DASLOC+2 


STA^ 

DASLOC 


RTJ- 

CORAOK 


JMP^ 

DAS3 


LDA» 

OASLOC+1 


ADD^ 

0A3L0C+2 


STA^ 

OASLOC+ 1 


RTJ^ 

CORAOK 


JMP^ 

DAS3 


>r 


END - START 

ADDRESS ERROR, GO PRINT MESSAGE 
START AND END ADDRESS + BASE 

TO CHECK IF CORE LOG. WITHIN LIMIT 
ADDRESS ERROR, GO 


TO CHECK IF CORE LOG, WITHIN LIMIT 
ADDRESS ERROR, GO 


N29QC13 5 
N290 013 6 
N2900137 
N29G013S 
N2900 139 
N29D0140 
N29001h1 
N290G142 
N2900 143 
N2900144 
N2900145 
N2900146 
N2900147 
N290 0148 
N 290 0149 
N29 0 0 15 0 
N2900151 
N2900152 
N2900153 


O 

O 

c 

o 

o 

o 


o 


o 




o 

o 

o 


0155 




At 


0156 






015 7 






0158 

P0G43 

OAOO 


DAS19 

ENA 

0159 

POD 44 

683E 



STA^ 

0160 

PG 0 45 

683E 



STA^ 

0161 






015 2 






0163 

PO 046 

OCIC 



ENQ 

0164 

P00i^7 

COOO 



LDA 


P0Q48 

20 20 




0165 

P0049 

6E48 


OASEG 

STA^ 

0166 

P0Q4A 

OOFE 



INQ 

016 7 

PO O^R 

0144 



SQZ 

0168 

P004C 

18FC 



JMP^ 

0170 




¥ 


0171 

F0Q4O 

7FFF 

X 

0TB 

ADC 

0172 

PO 04F 

7FFF 

X 


ADC 

0173 






0174 

P0Q4F 

0 0 0 0 


EXTOFF 

NUM 

017 5 






017 6 






017 7 






0178 

P0050 

C8DD 


DAS22 

LDA^ 

0179 

P0Q51 

OF 4G 



ARS 

0180 

P0Q52 

5863 



RTJ^^ 

0181 

P0053 

0822 



TRA 

0182 

P0054 

0FA8 



QLS 

0183 

P0055 

C8D8 



LDA^ 


INSERT ASCII INTO OUTPUT LINE 


0 

COUNT 

HILO 

FILL OUTPUT BUFFER WITH SPACE CODE 

LNWD28 
= A 


iBUFAOO ) ,Q 

-1 

OA522 

DA520 


HANDLE 

OFF 


0. "HANDLE" ENTRY 

1. "OFF" ENTRY 


0 


ASSEMBLE CORE LOCATION TAG 


DASLOC ASSEMBLE HI-2-DIGIT OF LOC. 

12 

CONASC 

Q 

8 

DASLOC 


N 290 015 5 
M290 015 6 
N 290 015 7 
N2900158 
N29Q0159 
N290016G 
N29CC161 
N2900162 
N2900163 
N290 0164 

N29001b5 
N2900166 
N29D0167 
N 29 00 16 6 

N290G17G 
N2900171 
N2900 172 
N2900173 
N2900174 
N2900175 
N29Q0176 
N2900177 
N 29 DO 17 6 
N2900179 
N2900180 
N290C181 
N2900162 
N2900163 


o 


o 

o 

o 

o 

o 

o 

G 

O 

o 


o 


o 


DflSREQ 


PAGE 5 


date: 01/27/99 


018A P0056 OF 48 
0185 P0057 585E 
0166 PG058 0874 

0187 Pa059 6C38 

0188 P 005 A cans 

0189 POOER 0F44 

0190 PO05C 5859 

0191 P305n 0822 

0192 P005E 0FA8 

0193 P0Q5F C8CE 

0194 P0060 58 55 

0195 P0061 0874 

0196 P0062 OCOl 

0197 P0063 6£2E 

0198 

0199 P0064 0 A 04 

0200 P0065 881C 

0201 P0D66 681B 

0203 

0204 P0067 CCC6 

0205 PQ068 E81B 
0205 P0C69 0146 

0207 P006A EOuO 
P006B 2020 

0208 P0D6C 0FE8 

0209 P006D -^C14 

0210 PO 06E 08 13 

0211 P006F DCFF 

0212 P0070 6C11 

0213 P0071 0810 

0214 PD072 ODOl 

0215 P0073 4810 

0216 P0074 D8B9 

0217 P0075 0800 

0218 

0219 PC076 OAIO 
Q220 P0O77 980B 

0221 P0O78 0100 

0222 P0Q79 C8B4 

0223 P007A 98B4 

0224 P0Q7B 09FE 

0225 P007C 0109 

0226 PQC7D 18E9 



ARS 

8 



RTJ» 

CONASC 



EAQ 

A 



STA-^ 

(BUFADO ) 



LDA» 

OA5LOC 

ASSEMBLE L0W-2-DIGIT OF LOCATION 


ARS 

4 



RTJ^^ 

CONASC 



TRA 

Q 



QLS 

8 



LOA^ 

OASLOC 



RTJ^ 

CONASC 



EAQ 

A 



ENQ 

1 


w 

STA^ 

(BUFAOO ) ,Q 


'T 

ENA 

4 

SET INDEX TO FIRST DATA WORD 


ADO^ 

DATLOC 



STA^ 

OATLOC 




GET DATA ANO INSERT 

0AS3D 

LOA^ 

(DASLOC ) 

GET DATA FROM CORE 


LDQ^ 

HILO 

FETCH STORAGE POSITION 


SQZ 

0A332 

SKIP ON WHOLE WORD 


LDQ 

= A 



LLS 

8 

INSERT SPACE IN BOTH SIDES 


STQ^ 

(DATLOO ) 

SAVE HSD 


RAO^ 

OATLOC 



FNQ 

-1 


DAS32 

STA^ 

IDATLOO ) 

SAVE DATA 


RAO* 

DATLOC 



INQ 

1 

UPDATE STORAGE POSITION 


STQ* 

HILO 



RAO* 

OASLOC 

UPDATE CORE DATA LOCATION AND NO. OF WORDS 


RAO* 

COUNT 

IN A LINE 



CHECK 

IF ONE LINE 


ENA 

LNCH16 



SUR* 

COUNT 



SAZ 

DAS40 

LINE BEEN FILLED, TO PRINT 


LOA* 

DASLOC 

CHECK IF ALL REQUEST LOC. BEEN DONE 


SUB* 

DASLOC+1 



INA 

-1 



SAZ 

0AS4Q 

DONE, SKIP 


JMP* 

0AS3Q 

NO, TO PROCESS MORE 


N290 018h 
N 29G0185 
N2900186 
N2g0O187 
N290Q188 
N290Q189 
N2900 190 
N290019i 
N 29 00 19 2 
N29QQ193 
N29U 019^ 
N2900195 
N29Q019 6 
N2900197 
N293 0198 
N290G 199 
N29Q0 20 0 
N2900201 

N2900203 
N2900204 
N2900205 
N29fl0 206 
N29Q 0 20 7 

N2900208 
N290 0 209 
N29002i0 
N 29 0 0 211 
N290C212 
N 29 0 0 213 
N290 0214 
N290Q 215 
N2900216 
N290Q217 
N29D0218 
N2900219 
N290a 220 
N2900 221 
N290C222 
N2900 223 
N2900224 
N2900225 
N2900226 


0228 

0229 

P007E 

00 00 

* 

BASE 

NUM 

0 

COMSTAND, BUFFER LOCATION, 

0230 

P007F 

0 000 

EXTHAN 

NUM 

0 


0231 

PCQ80 

00 0 0 

EXTH3G 

NUM 

0 


0232 

P0081 

0 0 00 

OATLOC 

NUM 

0 


0233 

P0Q82 

0 0 00 

COUNT 

NUM 

0 



N29u0228 
N29j 0229 
N29QG23G 
N2900231 
N2900232 
N2900253 


DASRfQ 


PAGE 


6 


DATE: 01/27/99 


023 4 

PC083 

0 0 00 

HILO 

NUM 

0 

0235 

P0084 

00 00 

MAX 

MUM 

0 

r-, 023 6 



♦ 


ASMOD 

0 23 7 

P0 085 

10 00 

MODE 

ADC 


0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 


PRINT DATA 


POO 86 
P0 087 
POO 88 
P0089 
P008A 
POO 8P 
PQ08C 
PO 08D 
P0C8E 
PO 08F 
P0090 
PO 091 
PQ092 


5 8 01 
GBOO 
C8FE 
0 9 1C 
68 03 
54F4 
0C07 
GOOD 
CO 00 

ooco 

OOlC 
0 0 00 
14EA 


OAS40 RTJ^ 

SELF NOP 
LDA^ 
INA 
STA» 
RTJ- 
ADC 

DASX NUM 
NUM 

OTLU NUM 
ADC 

BUFAOD NUH 
JMP- 


OASX 

OTLU 


SELF 

0 

SELF 

OASRET-SELF 

DASX 

(AMONI) 

$C0Q + CH RSLV 
0 
0 
0 

LNWD28 

0 

(ADISP) 


CALL CODE 

EXIT ADD. (TO BE FILLED) 

THREAD 

LU (TO 8E FILLED WITH LIST- UNIT) 
LENGTH 

"BUFFER" ADD. (TO BE FILLED) 


0256 
025 7 
025 8 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

027 7 

0278 

0279 


CHECK ADDRESSES TO BE WITHIN 32K 


P0093 OBOO CORADK NOP 0 

P0094 E0E9 LDQ- EXTBV4 

P0095 E622 LDQ- (ZERO),Q 

D0C96 0155 SQN A065 

P0097 0133 SAM AD52EX 

P0093 98E8 SUB^ MAX 

P0099 0137 SAH AD65EX 

P009A 0106 SAZ AD65EX 

P009B 1CF7 AD32EX JMP^ (CORADK) 

CHECK 

PG09C 0124 AD65 SAP AD65EX 

PQ09D 98E6 SUB«- MAX 

P009E 0132 SAM AD65EX 

PD09F 0101 SAZ AD&5EX 

POOAO 18FA JMP^ AD52EX 

POOAl D8F1 AD65EX RAO"'^ CORADK 

PC0A2 ICFO JMP^ (CORADK) 


ENTRY 

GET 32K/65K FLAG (32K=0 , 65K=1) 

SKIP ON 65K 
ERROR, OVER 32K 


RETURN 

TO BE WITHIN 55K OR LESS 
SKIP FOR 32K OR SO 

OK, SKIP 
OK, SKIP 
ERROR, GO 
SET NORMAL EXIT 
NORMAL RETURN 


PC0A3 01 63 OASRET SQP OASOK 


RETURN FROM OUTPUT 

SKIP WHEN NO ERROR ENCOUNTERED 


N29J0234 
N2900 235 
N29Q0236 
N2900237 


N2900239 
N290024D 
N2900241 
N2900242 
N29D0245 
N290024H 
N29QQ245 
N29Q0246 
N2900247 
N2900246 
N2900249 
N2900250 
N2900 251 
N2900252 
N2900253 
N2900254 


N2900256 
N2900257 
N2900 258 
N290 0 259 
N290 0 26 0 
N2900251 
N2900252 
N290Q263 
N2900264 
N2900255 
N29G0266 

N2900268 
N2900 269 
N290 0 27 0 
N2900271 
N290D272 
N2900273 
N2900274 
N2900275 

N2900277 
N290 0278 
N2900 279 


o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




DASREQ 
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DATE: 01/27/99 


C28G 

PG0A4 

E8D9 



LDQ^ 

BASE 



N2 90 0280 

0281 

POOA5 

E2 04 



LDQ- 

IOERR,a 

EXIT 

TO "lOERR" 

N2900 281 

0282 

P0QA6 

1622 



JMP- 

(ZERO) , Q 

EXIT 

TO "lOERR" 

N2900 282 

0283 



n- 





N2900283 

0284 

POOA7 

C400 

X 

DASOK 

LDA 

CHRSFG 

CHECK 

FOR **DX" 

N290G284 


POO A8 

7FFF 

X 






N29D 0 285 

0285 

P0QA9 

Dill 



SAN 

DASUP 

OK, SKIP 

028 6 

POOAA 

1CA4 



JMP» 

(EXTOFF) 

EXIT 

TO "OFF” 

N290Q286 

028 7 

POO AB 

G832 


DASUP 

LDA^- 

DASLOC 



N2900287 

0288 

PODAC 

9882 



SUB’ 

OASLOC+1 



N290Q288 

0289 

POOAD 

09FE 



INA 

-1 



N29D0289 

0290 

PO OAE 

01 03 



SAZ 

DA350 

DONE, 

SKIP 

N290O29G 

0291 

POOAF 

C8F1 



LDA’ 

BUFAOD 



N2900291 

0292 

POOBO 

6800 



STA’ 

DATLOC 



N29Q0292 

0293 

POOBl 

1891 



JMP’ 

DAS19 



N29QG 293 

0295 






DONE 

EXTI 

N29Q0295 

0296 

P00B2 

F8CB 


OAS50 

LOG’ 

BASE 



N2900296 

0297 

P00B3 

E2 03 



LDQ- 

SOHMOR, Q 

EXIT 

TO "SOHHOR" 

N2900297 

0298 

PGQB4 

1622 



JMP- 

(ZERO) ,Q 



N290 0 298 


030 Q 







N29G03C0 

0301 





SUBROUTINE FOR ASSEMBLE ASCII 

N29Q0 301 

0302 



Ar 




N 290 0 30 2 

030 3 

P00B5 

DBOO 

CONASC 

NOP 

0 

ENTRY 

N290Q303 

0304 

PQCnb 

AO 06 


AND- 

MASK+3 

EXTRACT 4 BITS 

N290 0 30 4 

0305 

P00E7 

09F5 


INA 

“lO 

CHECK FOR NUMBER 

N290 0 30 5 

0306 

P 0 u B8 

0131 


SAM 

OASNO 


N290 0 30 6 

0307 

PO 0B9 

0907 


INA 

7 

SET FOR A-F 

N29Q 0 30 7 

030 8 

POOBA 

09 3A 

OASNO 

INA 

$3A 


N2g0D308 

03 09 

PO OBB 

1CF9 


JMP’ 

(CONASC ) 

EXIT 

N290u 30 9 


0311 





N293 0 311 

0312 


0 0 01 P 

EQU 

SA33( ’/96) 

N290G 312 

0313 


00 02 P 

EQU 

SP33( SA33+1 ) 

N2900 313 

031 4 


0 0 CO P 

EQU 

DB33(SP33’96) 

N29G0 314 

0315 

POOBC 

0 0 04 

BSS 

(DB33-’ ) 

N 29 GO 315 

0316 



END 


N29Q G 316 

PGM = 

QOCQ 

( 192) 

COM = 

0000 ( 0 ) DAT = GOOD { C) 



DASREQ 


PAGE 
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DATEJ Dl/27/99 


EQUIVALENCES 


DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

Q OGC 

I 

OOFF 

(000255) 

0 0 82 



00 A2 

AMONI 

00F4 

(000244) 

0247 



0 042 

AOISP 

GOEA 

(000234) 

0 254 



0 042 

LPMSK 

000 2 

(000002) 

01 09, 

0111, 

0135 

0 042 

NZFRO 

DQ12 

( D00018) 




0042 

ZROeiT 

00 33 

(0 00051) 




0 043 

FIVE 

0 043 

(Q00067) 




0 0 43 

SIX 

004 4 

( 0QQ068) 




0 043 

ZERO 

0022 

(000034) 

0260 , 

0282, 

0298 

0 0^3 

ONERIT 

0023 

(0 00035) 




0 0 45 

SIXTEN 

0027 

(000039) 




0 044 

COMMA 

Q02C 

(000044) 

0 112 



0 0^4 

SLASH 

00 2F 

( 000047) 




C 044 

ASTRTC 

0Q2A 

(00004?) 




0 0 4 5 

EIGHT 

0 0 2 6 

(000038) 




0 0 4 5 

NINE 

0045 

(Q00Q69) 




0 045 

THREE 

00 0 4 

( OCOQ04) 




0 045 

ONE 

000 3 

(000003) 




0 045 

TWO 

0024 

(000036) 




0D4& 

TEN 

0 0 46 

(000070) 




0 0 4 7 

MASK 

0003 

(000003) 

0 30 4 



0 048 

EXTBV4 

00E9 

(000233) 

0259 



0050 

CHRSLV 

0 0 0 7 

(000007) 

0 248 



0 051 

LNWD28 

OOlC 

(000028) 

0163, 

0252 


0 05? 

LNCH15 

OulO 

(000016) 

0219 



0 0 53 

ASMOD 

1000 

(004096) 

0237 



0 05 6 

BHAN 

0 00 1 

(000001) 

0 089 



0 0 5 7 

MSG 

.00 0 2 

(000002) 

0095 



0 058 

SOMHOR 

000 3 

(000003) 

0 297 



0 0 59 

10 ERR 

0 00 4 

( 000 00 4) 

0281 



0 0 60 

LISTLU 

0 0 0 5 

(000005) 

0 0 86 



0 061 

COHOLU 

00 0 6 

( 000006) 




0 0 62 

NEWMLU 

00 0 7 

(000007) 




0 063 

PPOGl 

00 0 8 

(000008) 




0 0 6 4 

PROG2 

00 0 9 

(000009) 




0 0 65 

BITFLG 

0 0 0 A 

(000010 ) 




0 06 6 

BUFCNT 

OOOB 

(OQOOil) 




0 067 

FIELD 

00 0 C 

(000012) 

0107 




DASREQ 


PAGE 
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OATEt Gl/27/99 


0 068 

SLASHF 

0010 

(000015) 


0 069 

BUFEMT 

0011 

(C00017) 

0134 

0070 

BUFFER 

0012 

( OOOC18) 

0 0 83 

0 0 73 

GETFiD 

00 0 2 

(000002) 

0104 

DQ7U 

ASCHEX 

0003 

(000003) 

I] 118 

0 0 7 5 

ASCDEC 

D005 

(000005) 



C'i 









Q 



DASRFQ 

PAGE 10 


DATE! 

01/27/99 



(J 









o 

o 

S Y M B C 

L S 







o 

o 

DEF.LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 



: C) 


0 033 

DASREQ 

0 0 0 0 

0 0 33 







0104 

DASl 

0017 

0123 






o 

0115 

DAS3 

0021 

0137, 

0141, 

0147, 0152 



, O 

0118 

DAS5 

0023 

0108, 

0 110, 

Q 113 




0 120 

DA SVA 

0025 

0122 





0148, G149, 0150, 0178, 0183, 0188, 0193, 0204, 021b 


0133 

DASLOC 

0 02E 

0102, 

0123, 

0138, 0139, 

0143, 0144, 

0145, 




0 2 22, 

0 223, 

0287, 0288 



(■“"i 


0134 

DASIG 

0031 

0127 







0 138 

DASH 

003 5 

0 135 







0143 

0AS12 

0 039 

0140 






r'\ 

0158 

DAS19 

0 043 

0 293 





o 

0165 

DAS20 

0049 

0163 







0171 

0TB 

0040 

0 091, 

0 092 






0174 

EXTOFF 

004F 

0 0 94, 

0286 






0178 
0 20 4 

DAS22 

0G5G 

0167 





C' 


DAS30 

0067 

0226 






0212 

DAS32 

00 7 0 

0 2 06 







0229 

BASF 

007E 

0 081 , 

0 280 , 

0296 




O 

G 23G 

EXTHAN 

Q07F 

0 090 , 

0106, 

0119 



■ lO 

0 231 

EXTHSG 

0 080 

0 0 96, 

one 




0292 


0232 

DATLOC 

0081 

0 0 85 I 

C 200 , 

0201, 0209, 

0210, C212, 

0213, 


0233 

COUNT 

0082 

0103 , 

0121, 

0125, 0159, 

0217, 0220 



o 

0234 

HILO 

008 3 

0160 , 

0 205 , 

0215 



o 


0235 

MAX 

00 8 4 

0098 , 

0 263 , 

0 2 70 





0 23 7 

MODE 

008 5 

0 0 87 







0242 

DAS40 

0G8 6 

0 221, 

0225 






0243 

SELF 

0 08 7 

0 242, 

0244, 

0245 



o 


0249 

DASX 

00 80 

0 246 







0 251 

otlu 

00 8F 

0 0 88 







0253 

BUFADD 

0091 

00 84, 

0165, 

0187, 0197, 

0291 



o 

0258 

CORADK 

0 093 

0146, 

0151, 

0266, 0234, 

0275 


; 

0 266 

A032EX 

0Q9B 

0 2 62, 

0 273 





0 269 

AD65 

009C 

0 2 61 


0269, 0271, 





0274 

AD65EX 

OOAl 

Q 264, 

0265, 

G272 



o 

0279 

DASRET 

0 0 A3 

0245 





■ O 

0 284 

DASOK 

O0A7 

0279 






0287 

OASUP 

00 AB 

0 285 







0 29 6 

OAS50 

C0B2 

Q 290 






o 

0 30 3 

COMASC 

O0B5 

0180 , 

0185, 

0190, 0194, 

0 3 0 9 


: C' 

0308 

DASNO 

DOBA 

0306 






0 312 

SA33 

0 001 

0313 






o 









o 

/*** . 









: O 

{ ‘ 









O 


I 



DASREQ 


0313 

0314 


SP33 
DB3 7 


0 0 0 2 
OOCO 
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0 314 
0315 


OATEJ 01/27/99 


o 

O 

o 

O 

O 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

c 

o 

Q 

o 

o 

C-' 

c 

c 

o 


o 



OASREQ 
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DATE: 01/27/99 


X T E P. 

N A L S 



DEE, LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 037 

HANDLE 

Q04D 

0 171 

0 038 

OFF 

0 0 4 E 

0172 

0 039 

CHRSFG 

Q0A8 

0 284 


DASREQ 


PAGE 13 


DATE; 01/27/99 


A L 


A032EX 

BASE 

COHM A 

0AS19 

DASLOC 

DB33 

HANDLE 

MAX 

0TB 

SLASHF 


P H A 

B E T I 

CAL 

SORT 

0 F 

0266 

A065 

0 269 

AD65EX 

0 2 74 

0229 

BHAN 

0 056 

BITFLG 

0 065 

0044 

COMOLU 

0 061 

CQNASC 

0 3 03 

015fl 

DAS20 

0165 

DAS22 

0178 

0133 

DASNO 

0 30 8 

DASOK 

02 84 

0314 

EIGHT 

0 0^5 

EXTBU4 

3 0 48 

0037 

HILO 

0234 

I 

0 0 0 0 

0235 

MODE 

0237 

MSG 

0 0 57 

0171 

OTLU 

0 251 

PROG! 

0 0 63 

0G&3 

SOHMOR 

0058 

SP33 

0 3 13 


S Y H B 

0 L S 




ADISP 

0 u hZ 

A HON I 

0042 

ASCDEC 

BUFADD 

0253 

BUFCNT 

0 06 6 

BUFEMT 

CORADK 

0258 

COUNT 

0233 

DASl 

D AS3 

0115 

DAS30 

020 4 

DAS32 

0 ASRED 

0 0 33 

DASRET 

027 9 

OASUP 

EXTHAN 

G 23 0 

EXTMSG 

0231 

EXTOFF 

lOERR 

0059 

LISTLU 

0 06 0 

LNCH16 

NEWMLU 

0062 

NINE 

0 045 

NZERO 

PR0G2 

0064 

SA33 

0312 

S ELF 

TEN 

0 046 

THREE 

0045 

TWO 


007 5 

ASCHEX 

00 74 

0 06 9 

BUFFER 

007 0 

016 4 

DASIO 

0134 

0212 

0AS4C 

0242 

0 26 7 

DASVA 

0120 

0174 

FIELD 

0067 

0052 

LNWD28 

0 0 5 1 

0042 

OFF 

0038 

0243 

SIX 

0043 

0045 

ZERO 

0043 


ASHOO 

0 05 3 

ASTRIC 

CHRSFG 

0 GS9 

CHRSLV 

DASH 

0138 

DAS12 

DAS 5 

0118 

DAS50 

OASX 

0249 

DATLOC 

FIVE 

0 Om-3 

GETFLD 

LPMSK 

0042 

MASK 

ONE 

0 045 

0NE8IT 

SIXTEN 

0043 

SLASH 

ZROBIT 

0 042 



GC5G 

ul43 

0296 

0232 

CG73 

0G47 

0043 

0044 


MLURFa 
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date: 01/27/99 


0001 
00 0 2 
00 0 3 
00 0 4 
00 0 5 
OQO 6 
00 0 7 
00 0 8 
00 0 9 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0022 

0023 

002 5 
0026 
0027 


* 

V- 

>/■ 

■*r 

V- 

* 

•V- 

* 

4 


NAM MLUREQ DECK-ID N30 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 




THIS 


PROCESSOR IS USED TO CHANGE THE 
MASS MEMORY LOGICAL UNIT 


V- ’!■ 


INPUT FORMAT % 
MLU,UNIT 


SUMMARY-ilGN3C0 u 001 
N300 0 002 
N3 00 000 3 
N3 00 0 00 4 
N3000005 
N30GG006 
N300 0 00 7 
N3000008 
N3Q000Q9 
N3(J00Q10 
N300 0 011 
N30Q0012 
N30Q0G13 
N3000014 
N3000Q15 
N30G0016 
N300fl017 
N30uQ 018 
N30G0 019 
N30 0G 02 0 




ENT 

R Y NAME 

N3000a22 

ENT 

MLUREQ 


N3 0GG 02 3 



EXT 

E R N A L S 

N3G0 0 025 

EXT 

LOGIA 



N3GC0G26 

EXT 

NUMLU 



N3000G27 


0029 


003 0 

Q QF4 
GO EA 
6 0 02 
0012 
0 0 33 

FQU 

0031 

0 0 43 
0 0 44 
0 022 
0 0 23 
0 0 27 

EQU 

00 32 

0Q2C 
0 02F 
0 02A 

EQU 

0033 

0 0 26 
0 0 45 
0 0 04 
0 0 03 
0 0 24 

EQU 

0034 

0 0 46 

EQU 

0035 

0 0 03 

EQU 


'EQU' TABLE 

A MON I (SF4) ,ADISFt$EA) ,LPMSK(2) ,NZERO($12) ,ZR0BIT($33) 

FIVE ? $43 ) , SIX ($44) , ZERO ( $ 22 ) , ON E8 1 T ($ 23 ) , SI X T EN ( $27 ) 

COMMA ($20 ,SLASHi$2F) ,ASTRIC($2A) 

EIGHT ($26) ,NINE($45) , THREE , ONE ( 3 ) , TWO ($24 ) 


N30D0029 
N 300 00 30 

N300CQ31 

N3000032 

N3000a53 


T£N($46) »»MSOS4, 0^^N3000 034 

MASK(3) ONE BIT MASK N3G0G035 


C037 

0038 

0039 
00 kQ 

0041 

0042 

0043 

0044 

0045 
0045 
0047 
0G48 

0049 

0050 

0051 

0052 

005 4 

0055 

0056 

0057 


0059 
006 0 
0 0 6 1 


0063 
0 0 6u 
00 65 
006 6 
0067 
0058 

0070 

0071 

0072 

0073 

0074 
007 5 
0076 
00 7 7 

0078 

0079 

0080 
OOBl 
0082 
00 83 


MLUREQ 
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0 0 01 
0 0 02 
0 0 03 
0 0 04 
00G5 
0 0 06 
0 0 07 
0 0 08 
0 0 09 
0 0 OA 
OOOB 
OOOC 
0010 
0011 
0012 


0 0 02 
0 0 03 
0 0 05 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


EQU 

EQU 

EQU 


HANDLE( 1) 
MSG (2) 
S0MM0R(3) 
lOERR (4) 
LISTLU( 5) 
COMOLU (6 ) 
NEWMLU(7) 
PROGl (3 ) 
PR0G2 (9 ) 
8ITFLG (103 
BUFCNT(ll) 

field (12) 

SLASHF( 16) 
BUFEMT(17) 
BUFFER( 18) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE 
"MSG" ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 
LIST OUTPUT — 
"COMOLU" 
"NEWMLU" 
"PROGl" 

"PROG2" 
"BITFLG" 
"BUFCNT" 
"FIELD" 
"SLASHF" 
"BUFEMT" 
"8UFFFR" 


"LISTLU' 
NEW MM LU 


SUBROUTINE "EQU' 
GETFL0(2) "GETFLD" 

ASCHEX(3) "ASCHEX" 

ASCDEC(5) "ASCDEC" 


POINTERS 


N3000037 
N30Q0Q38 
N3000 039 
N300004Q 
N3000Q41 
N3000042 
N3GQ0 043 
N30 0 0 (JhL 
N3000045 
N30G C 046 
N300 0 0-+7 
N30000h8 
N30Q 0049 
N3000050 
N3000051 
N3000052 

N3000 35h 
N3000055 
N30Q0056 
N3Q0QQ57 




PCflOO 

6824 


MLUREQ 

STA^ 

BASE 

PuOOl 

60 FF 



STA- 

I 

P 0 0 0 2 

ClOl 



LDA- 

HANDLE, I 

P0 0 0 3 

6822 



STA^^ 

EXTHAN 

PG004 

C102 



LDA- 

MSG, I 

PD005 

6821 



STA» 

EXTMSG 

P00D6 

0C02 


¥ 

ENQ 

G 

2 

P0007 

0 A 02 



ENA 

GETFLD 

PQ00 8 

5010 



RTJ^ 

C EX THAN ) 

PO QQ9 

0 A05 



ENA 

ASCDEC 

POO OA 

5C1B 



RTJ^ 

(EXTHAN ) 

P0 0 03 

OlOE 



SAZ 

MLUER 

POOflC 

6816 



STA^ 

LU 

PO 0 OD 

0822 



TRA 

Q 

PODOE 

ca 14 


LUOK 

LDA^ 

LU 

POOOF 

9 814 



SUB^ 

MAXLU 

PQOlO 

09FE 



INA 

-1 

PGOll 

0128 



SAP 

MLUER 

PCC12 

E6G0 

X 


LDQ 

LOGIA ,0 

P0013 

7FFF 

X 





PROGRAM START 


GET "HANDLE" ADDRESS 
FETCH "MSG" ADDRESS 

LOGICAL UNIT FROM TEXT 

GET 2 CHAR. 

CONVERT TO BINARY 

LU = 0, ERROR, SKIP 


ERROR, SKIP 

GET PHY. DEV. FROM PHY. TAB. 


N30G0059 
N300 0050 
N30G0061 


.N3000063 
N3G000&4 
N3GQ 0065 
N3000Q66 
N3000067 
N300 0068 

N3000G70 
N300Q071 
N3000072 
N3000073 
N3000 074 
N3G00075 
N300 0 075 
N3000077 
N3fl0Q078 
N30Q0079 
N30Q 0 080 
N3000081 
N30Q0 082 
N3000Q83 


( . 













MLUREQ 
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r^* 


DC84 

P0C14 

0145 


SQZ 

MLUER 

ERROR, UNDEFINED 

N300 0 084 



C085 

P0015 

C208 


LDA- 

8,Q 

EXTRACT CLASS TYPE 

N3000Q85 


o 

GG86 

P0G16 

OF 4B 


ARS 

11 


N300uu86 

r\ 

0087 

P0017 

AO 05 


AND- 

HASK+2 


N30G0037 



0088 

PG018 

09FD 


INA 

-2 

FOR MASS MEMORY, CLASS =2 

N3UOOQ88 



00 89 

P0019 

0102 


SAZ 

MLUIQ 


N300G089 



0090 

POGIA 

0CQ9 

HLUER 

ENQ 

9 

PRINT ERROR 

N30G009C 

; o 


0091 

POOIB 

1C08 


JMP» 

(EXTMSG ) 


N30Qfi091 


0097 





LAST CHECK, MAKE SURE WITHIN MAX. 

N3D00093 


o 

009 5 







N3000095 

O 


0096 

POOIC 

C806 

HLUIO 

LOA^ 

LU 

RECALL NEW MM UNIT AND STORE 

N3C00Q96 



0097 

POOID 

0C07 


END 

NEWMLU 


N3G0 0 097 


o 

0098 

PO QIE 

6E06 


STA=^ 

{BASE) , Q 


N300 0 098 

^ o 

0099 

°001F 

E8 05 


LDQ^^ 

BASE 


N3C0 0099 


0100 

P0020 

E203 


LOG- 

SOMHOR, Q 

EXIT TO "SOMMOR" 

N30QG100 



0101 

P0021 

1622 


JM P- 

(ZERO) ,Q 


N3QGC101 


n 

010 2 







N30001G2 

o 


0104 

P0022 

0 0 0 0 

LU 

NUM 

0 


N30Q0104 



0105 

P0023 

7FFF 

X MAXtU 

AOC 

NUMLU 

MAX. NO. OF LU 

N3C00105 


O 

0106 







N3y001Q6 

o 

010 7 

P0024 

0 0 00 

BASE 

NUM 

0 


N3000107 


010 8 

PO 025 

00 00 

EXTHAN 

NUM 

0 


N3 CO 0108 



0109 

PO 026 

0 0 0 0 

EXT MSG 

NUM 

0 


N3Q00109 


O 

0111 







N3GG0111 


O 

0112 


0 0 0 0 

P 

EQU 

SA34(^/96) 


N3GQC 112 

■ r* 

0113 


0 0 01 

P 

EQU 

SP34( SA34+1) 


N3G0G113 



0114 


0 0 60 

P 

EQU 

nB34{SP34^96) 


N30D0114 



Oil 5 

PO 027 

0 0 39 


BSS 

(DB34-» ) 


N3000115 


.'**N 

0116 




END 



N300011 6 

O 


PGH = 

0060 

( 

P6) COM = GOOD ( Q) 

DAT = OOCu C 0) 



o 









■ o 

o 









o 

o 









■ o 

o 









o 

o 









o 

o 









o 


o 


MLUREQ 


PAGE 


4 


DATE: 01/27/gg 


L.'- 

O 


o 

E Q U I V 

A L E N 

C E S 


■ O 

Q 

DEF.LINE 

NAHE 

VALUE 


REFERENCED AT LINE NUMBER Q 


OGOG 

I 

OOFF 

(000255) 

0 0 64 


CQ30 

AMONI 

O0F4 

(000244) 


o 

0 0 30 

ADISP 

OOEA 

(000234) 

n 

0030 

LPMSK 

000 2 

(000002) 



0 030 

NZEPO 

0012 

(000018) 



0 030 

ZRORIT 

0033 

(000051) 


o 

0 031 

FIVE 

00 43 

(000067) 

O 

0031 

SIX 

0 0 4 4 

(000068) 


0 031 

ZERO 

0 022 

(000034) 

0 101 


0 0 31 

ONEBIT 

0023 

(000035) 


o 

0 031 

SIXTEN 

0 0 27 

(000035) 

O 

G 032 

COMMA 

002C 

(0QQ044) 


0 032 

SLASH 

0G2F 

( 00 0047) 



0032 

ASTRIC 

OOEA 

(QG0042) 



0 033 

EIGHT 

002 6 

( QQ0038) 

O 


0 0 33 

NINE 

004 5 

(OQOO&g) 


0 033 

THREE 

00 04 

(000004) 



0033 

ONE 

0003 

(0 0Q003) 


o 

00 33 

TWO 

0024 

(003036) 

' 0 

0 034 

TEN 

0 0 46 

(000070) 


0035 

MASK 

OQ0 3 

( 0 0000 3) 

0 087 


0038 

HANDLE 

0 00 1 

(000001) 

0 0 65 

o 

0 0 3g 

MSG 

30 0 2 

(000002) 

0067 ^ n 

0100 , ^ 

Q 040 

SOMHOR 

0Q03 

(OQQ003) 


0041 

lOERR 

0 004 

( 000304) 



0 0 42 

LISTLU 

000 5 

(003005) 



0 0 43 

COMOLU 

000 6 

(000006) 

0 0 87 . 


0 044 

NEWMLU 

00 07 

(000007) 


0 045 

PROGl 

00 08 

( 0OQ0O8) 



0046 

PR0G2 

Qoog 

(oofloog) 


o 

0 047 

BITFLG 

QOQA 

(000010) 

0 

0 048 

8UFCNT 

QOOB 

(000011) 


0 0 4g 

FIELD 

OOQC 

( 000012) 



0050 

SLASHF 

0010 

(000016) 



0 0 51 

8UFFMT 

0011 

(000017) 

o 


0 0 52 

BUFFER 

0012 

( GOG018) 


0055 

GET FLO 

00 02 

(000002) 

0 0 72 

0 

0 056 

ASCHEX 

00 03 

(000003) 

• C 

o 





o 

o 

C) 





o 

o 



MLURPQ 


date: Ql/27/99 


0G57 ASCDEC 0G05 (000005) 0074 


O 


MLUREQ 

('■'I 


o 

S Y M B n 

L S 


o 

DEE .LINE 

NAME 

ADDRESS 

0 023 

MLUREQ 

000 0 


0079 

LUOK 

OQQE 

o 

0 090 

MLUER 

OOIA 

0 09 6 

MLUIO 

OQIC 


0104 

LU 

0 022 


0105 

HAX'LU 

8023 

o 

0107 

BASE 

0 0 2 4 

010 8 

EXTHAN 

0 02 5 


0109 

EXT MSG 

0026 


0112 

SA34 

GOOD 

0 

0113 

SP34 

0 001 

0114 

0B34 

0060 


PAGE 6 date: 


referenced at line number 


0 0 23 
0 0 76, 

0 082 , 

0 084 

0 0 89 
0 0 77 , 

0079, 

0096 

0 080 
00 63 , 

0 098, 

0 099 

0 0 66 , 

0073, 

0 075 

00 68, 

0091 


3113 
0 114 
0115 




0 i/ 27/99 


MLUREQ 


PAGE 


7 


date: 01/27/99 


X T E R 

N A L S 



DEE. LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0026 

LOGIA 

0013 

0 0 83 

0 027 

NUH'LU 

0023 

0105 


MLUREQ PAGE 3 DATE: 01/27/99 


o 

/i [_ 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 

V- 


o 

ADISP 

0030 

AMONI 

0 030 

ASCDEC 

0 057 

ASCHEX 
DB3 4 

0056 

ASTRIC 

0032 


B'JF PER 

0052 

COMMA 

0 032 

COMOLJ 

0 043 

0114 

EIGHT 

0033 


GETFLD 

0055 

HANDLE 

0 038 

I 

0 0 00 

lOERR 

0041 

LISTLU 

0042 

o 

MASK 

003 5 

MAXLU 

0105 

MLUIO 

0096 

MLUER 

0090 

MLUREQ 

0023 

NZEPO 

0030 

ONE 

0 0 33 

OMEBIT 

0031 

PROGl 

0045 

PR0G2 

QG46 

o 

o 

SLASHF 

0 05 0 

SOM MOR 

0040 

SP34 

0113 

TEN 

0034 

THREE 

0033 


o 

o 

o 

o 

o 

o 


o 

o 

o 


BASE 

010 7 

BITFLG 

0047 

BUFCNT 

EXTHAN 

0108 

EXTHSG 

0109 

FIELD 

LOGIA 

0026 

LPMSK 

003 0 

LU 

MSG 

0039 

NEWMLU 

0 0 44 

NINE 

SA34 

0112 

SIX 

00 31 

SIXTEN 

TWO 

0033 

ZERO 

0 0 3 1 

ZROeiT 


u 

o 


0048 

BUFEMT 

GC51 

■ O 

0 049 

FIVE 

0 031 


0104 

LUOK 

0079 


0 03 3 

NUMLU 

0 0 27 

O 

0031 

0030 

SLASH 

0032 


o 


o 

o 

o 

Q 

c 

o 

o 

o 

o 

o 

o 



date: 01/27/99 


00 0 1 
0002 
00 03 
000 4 
00 0 5 
00 0 6 
00 0 7 
000 8 
00 09 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
002 0 
0021 
0022 

0023 

0024 

0025 
002 6 

0027 

0028 
0029 
00 30 

0032 
003 3 

0 0 3 5 

0036 

0037 

0038 
00 39 


DPT PFQ 


PAGE 1 


* 

>(■ 

¥ 

* 

V 

V- 

■V- 

V- 

V- 

V- 

-¥■ 


MAM DPTREQ DECK-IO M31 MSOS 5.C 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


3J. 

If. 


if- 

THIS PROCESSOR PRINT THE PARTITION ^ 

CORE MAP ^ 

•¥■ 


INPUT FORMAT : 
DPT 


OUTPUT FORMAT : 

PARTITION CORE MAP 
PARTITION NO. NN LLLL 

WHERE NN = PARTITION NO. 

LLLL = CORE LOCATION 
MMMM = SIZE 


MHMM 


SUMMARY- 116 ^-»^^^^^ 
N31D0002 
N3100Q03 
N31Q 0 00 4 
N 310 0 005 
N3100006 
N3 10 0 00 7 
N31C0D08 
N31CQ009 
N310 0010 
N3100011 
N31QQ012 
N31C0013 
N3100014 
N3 10 0 01 5 
N3100016 
N310 0 017 
N3100 018 
N310 0 019 
N310 0 020 
N310U 021 
N3100022 
N3100Q23 
N3100024 
N31D0Q2 5 
N310 G 02b 
N31D0027 
N31Q 0 02 8 
N310 0029 
NSlOOuSO 




ENTRY NAME 

ENT DPTREQ 


N3100Q32 
N310G 033 




EXT 

EXT 

EXT 

EXT 


EXT 

BUSY 

PARTBL 

LSTPRT 

LSTLOC 


^BUSY INDICATORS FOR ALL PARTITIONS 
PARTITION CORE TABLc 
LAST PARTITION IN SYSTEM 
LAST ADDRESS OF LAST PARTITION 


N 310 0 035 
N3103036 
N3100a37 
N310Q038 
N3100 039 


0041 

0042 


0043 




00F4 
OOEA 
0 0 02 
00 12 
0 0 33 
GO 43 
0 0 44 
0 0 22 
0 0 23 


EQU AMONI (SF4) , AD ISP tSEA) , LPMSK?2*F , NZER0($12) ,ZR0BIT ($33) 
EQU FIVE ($43), SIX ($44 ) , ZE RO ( $2 2 ) , ON EB IT ( $23 ) , SI XT EN ( $27 ) 


N310 0 D4l 
N3ia 0042 


N3100 043 


DPTRFQ 


PAGE 2 
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3 0 27 
0 0 2C 
U 0 2F 
0 D2A 
3 026 
0 0 A5 

00 oa 

OG 03 
0 0 24 
0 0 46 
0 0 07 
10 0 0 
0 0 E9 


0 0 06 


EQU COMMA (S 20 , SLASH ($2F) , AST RIC (S2 A) 

EQU EIGHT ($26) , NINE ($45) , THREE (4) , ONE ( 3 ) , TWO ( $24 ) 


N310004i* 


N310GQ45 


TEN ($46) 
CHRSLV( 7) 
ASMOD($1000) 
EXTB\?4($E9) 


»^MS0S4. 0^^N3100046 

LEVEL OF THIS PROGRAM 

ASCII OUTPUT MODE CODE N31D0043 

LOCATION CONTAINS EXTENDED CORE TABLE N3100U49 


SUBROUTINE POINTER 
HEXASC(6) "HEXASG" 


HEX. TO ASC 


N3100G51 
N313 0 052 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
0 0 06 
0 0 07 
0 0 08 
0 0 09 
00 OA 
00 OB 
OOQC 
0010 
0011 
0012 


HANDLE! 1) 
HSG(2) 
S0MM0R(3) 
I0ERR(4) 
LISTLU (5) 
COMOLU( 6 ) 
NEWMLUt 7) 
PROGl (8 ) 
PROG2 (9 ) 
BITFLG(IO) 
BUFCNT (11) 
FIELD (12) 
SLASHF ( 16) 
BUFEMK 17) 
BUFFERdS) 


parameter LOCATION (OFFSET FROM BASE) 


“HANDLE" 

"MSG" ENTRY 
"SOHMOR" ENTRY 
"lOERP" ENTRY 

LIST OUTPUT * 

"COMOLU" 

"NEWMLU" NEW 

"PROGl" 

"PR0G2" 

"8ITFLG" 

"BUFCNT" 

"FIELD" 

"SLASHF" 

"BUFEMT" 

"BUFFER” 


LISTLU' 


N31G‘3 05 h 
N 3100055 
N31 J 0 Os 6 
N31G0057 
N31D0Q58 
N31Q0059 
N3100060 
N31G0 361 
N 310 u 05 2 
N3100063 
N31D0Q64 
N31Q 0 055 
N31QQ056 
N3100 067 
N3100068 
N31U0069 


* 

* 


PROGRAM 


START 


N31QC071 

N3100Q72 

N3130073 


POOGO 686C DPTREQ STA^ BASE 

PGOQl 0822 TRA Q 

P0Q02 C201 LDA- HANDLEfQ 

P0QG3 686A STA» EXTHAN 

POuGL C202 LDA- MSG,Q 

P00G5 686E STA^ EXTMSG 

P0C06 C2Q5 LDA- LISTLU, Q 

P0Q07 8357 ADD^ MODE 

P00Q8 6845 STA» OTLU 


GET 'HANDLE' ADDRESS AND SAVED 
FETCH "MSG" ADDRESS 
GET LIST LOGICAL UNIT 


N31D0075 
N31Q0Q76 
N31Q0077 
N313 0 078 
N31G 0 0 79 
N31UQQ8C 
N3100i381 
N31GQ082 
N3100083 


o 


OPTREQ 


PAGE 


3 


DATE: Ql/27/99 


P0 0 09 
POOOA 
POQOB 
POOOC 
PD ODD 
P 0 0 D E 

POOOF 

POfllO 

POOll 

PC012 

P0013 

P0314 

P0C15 

P0016 

PQ017 

PQ018 

PC019 

POOiA 


POOIR 
POOiC 
POOID 
PO DIE 
POOIF 
P0O2O 
P0021 
P0022 
P00 23 
P0 024 
P0 02 F 
P002 6 
P0027 


EO E9 
C622 
Dill 
18 52 
0 8 42 
4861 

C 50 0 
E4QD X 
7FFF X 
48 60 
0 814 
9012 
0111 
18 48 
0 8 44 
0F61 
4857 
0107 


E854 
C60G X 
7FFF X 
6 A 56 
60FF 
ClOl 
6A63 
D3 40 
C84C 
09EF 
0102 
E84A 
18EF 


LDQ- EXTBV4 
LDA- IZERO),Q 
SAN DPTl 
JMP» NOPART 
DPTl CLR Q 

STQ^ COUNT 

^ IN 

II M 0 
LDQ BUSY 

STQ’^ BUSYFG 
TRQ A 
SUB- NZERO 
SAN DPT2 
JMP^ NOPART 
DPT2 CLR A 

LRS 1 
STQ^ TEMP 
SAZ DPTIO 

if. G H T 

OPT 5 LOQ«- COUNT 

LOA PARTBLtQ 

STA^ PATLOC,Q 
STA- I 
LOA- Ijl 
STA-'^ PATSIZ,Q 
DPTIO RAO^ COUNT 
LDA^ COUNT 
INA -16 
SAZ OPT20 
LDQ^ TEMP 
JMP-> OPT 2 


GET EXTENDED CORE TABLE ADDRESS 
OBTAIN 32K OR 65K FLAG 
65K » SKIP 

32K, NO PATITION CORE GO 


T E R R U P T 


DISABLE 


BUSY INDICATOR TO A AND CHECK IF ANY ONE IS 
IN BUSY STATUS 

NO, GO 

PUT THIS PARTITION BUSY BIT TO A-REGISTER 
PARTITION IS NOT BUSY, SKIP 
PARTITION CORE DATA 

GET CORE LOG. OF THIS PARTITION AND SAVE 


GET ITS SIZE AND SAVE 
BUMP COUNT BY 1 

CHECK IF ALL 16 PARTITION BEEN EXAMINED 

SKIP TO ASSEMBLE MESSAGE 
RECALL BUSY INDICATOR AND REPEAT 


N3100a85 
N310Q036 
N3100G87 
N310Q 083 
N310QQ89 
N310 0090 
N310 0 091 
N310 0 092 
N3100093 

N310 0 094 
N310Q095 
N310 0 096 
N 310 0 09 7 
N31L 0098 
N3i0uQ99 
N31QD10G 
N310G101 
N31D0102 
N310 0103 
N 310 010 4 
N31D0105 
N310 0106 

N31Q&1Q7 
N3100108 
N310 0109 
N310G11G 
N3100111 
N3100 112 
N 310 Oil 3 
N3l0flll4 
N3100115 
N3100116 


P0028 
P0029 
P002A 
P00 2P 
P002C 
P0G2D 
P0 02F 
P0 02F 
P0G30 


0 4Q0 
0 8 44 
68 47 
C847 
0 3 42 
OFEl 
68 42 
0 1 51 
1825 


V- 

DPT20 


DPT22 


POOSl E83E 


EIN 0 
CLR A 
STA^ HEADNG 
LDA» BUSYFG 
CLR Q 
LLS 1 
STA^ TEMP 
SQN DPT30 
JMP^ 0PT4Q 


OPT30 LOQ'^ COUNT 


PARTITION DATA CLOG. + SIZE) BEEN FETCHED 
ENABLE INTERRUPT AND GENERATE MESSAGE 


CLEAR HEADING INDICATOR 
RECALL BUSY FLAG 

GET THIS PARTITION BUSY BIT TO Q-REG. 
YES IT IS BUSY 


GET PARTITION NO. 


N31Q0 118 
N31Q0 119 
N3100120 
N3100l2i 
N3100122 
N31Q0123 
N310C124 
N31Q0125 
N310 0126 
N310Q127 
N 316 0128 
N31Q 0129 
N310 0130 
N310Q131 
N3100132 
N3100133 




0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 


0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 
0156 

0159 

0160 
0161 
0162 

0163 

0164 

0165 


DPT96Q PAGE 4 


P9Q3? 

EA41 


LDQ^ 

PATL0C-1»Q 

P0 033 

0A06 


ENA 

HEXASC 

P0034 

5C3 9 
0 0 6E 


RTJ-> 

(EXT HAN ) 

P0035 


ADC 

MES 01-^ 

P0G36 

E839 


LOQ^ 

COUNT 

P003 7 

EA4C 


LDQ» 

PATSIZ-1 ,0 

P0038 

0 A06 


ENA 

HEXASC 

P0039 

5034 


RTU”*^ 

lEXTHAN ) 

PO 03A 

0 Q ec 


ADC 

MES0 2--''‘ 

P003R 

E8 34 


ldo^ 

COUNT 

PO 03C 

0 AD6 


ENA 

HEXASC 

P0 03D 

5C30 


RTJ^ 

(EXTHAN ) 

P003E 

0 0 62 


ADC 

MESOO-'' 

P0 0 3F 
P0040 

cooo 

5 0 54 


LDA 

= APT 

P0041 

685E 


STA^^ 

MESO 

SET UP 

P0042 

FR2F 


LDQ^ 

HEAONG 

P0043 

CA69 


LDA^ 

SIZE,Q 

PO 0 ^ 4 

EA56 


LDQ^^ 

MES LOG, Q 

P0045 

480 A 

DPT33 

STQ^ 

ADORES 

POQi-o 

6808 


STA^ 

SZ 

PO D47 

OAGl 


ENA 

1 

P0048 

6829 


STA^ 

HEADNG 

P0 049 

54F4 


RTJ- 

(AMONI) 

P004A 

0007 

OPTCAL 

ADC 

$DQ OfCHRSLV 

P0D4B 

0 0 0 7 


ADC 

DPTEXT-DPTCAL 

PO G4C 

OOGO 


NUN 

0 

PG04D 

0 0 00 

OTLU 

NUM 

0 

P004E 

00 CO 

SZ 

NUM 

0 

P0C4F 

0 0 0 0 

ADORES 

NUM 

a 

P0050 

14EA 


JMP- 

(ADISP) 


date: 01/27/99 


GET CORE LOCATION AND CONVERT TO ASCII FOR 
PRINT 


GET SIZE AND CONVERT TO ASCII 


CONVERT PARTITION NO. TO ASCII 


SIZE OF MESSAGE ACCORDINGLY 

GET MESSAGE AND SET UP 
obtain MESSAGE LOCATION 


SET NO MORE HEADING 


CALL CODE 

EXIT 

THREAD 

COMMENT UNIT 
SIZE (TO BE FILLED) 


N313 G13h 
N310Q135 
N31Q0136 
N3100137 
N310 0 138 
N3100139 
N31Q 0 140 
N31GQ141 
N310Q142 
N310 0143 
N3100144 
N31G0145 
N31S01^6 
N31Q0147 

N31{jQ148 

N 310 0149 

N31QQ150 

N 310 0151 

N3100152 

N310Q153 

N3100154 

N310Q155 

N31G0156 

N310G157 

N31QQ 158 

N3100159 

N310C160 

N31QQ1&1 

N3100162 

N3100163 

N310G164 

N3100165 


0167 



0168 



0169 



0170 

P0 051 

0163 

0171 

P0&52 

E81A 

0172 

P0053 

E2 04 

0173 

P0Q54 

1622 

0174 



0175 

PO 055 

C81A. 

0176 

P0D56 

09FE 

0177 

PO 057 

0103 

0178 

PQ058 

6817 

0179 

PGG59 

C817 

018 0 

P0 05A 

1801 

0182 



0183 

PQ0 5B 

E811 

018% 

P0Q5C 

E2 03 


DPTEXT SQP 
LDQ^ 
LDQ- 
JMP- 

DPT40 LOA* 
INA 
SAZ 
STA^ 
LOA^ 
JMP^ 


CHECK 


DPT40 
BASE 
lOERRtO 
(ZERO) ,0 

COUNT 

-1 

OPT50 

COUNT 

TEMP 

DPT22 


IF ERROR ENCOUNTERED 
EXIT TO "lOERR" 

DECREMENT PARTITION CCUNT BY 1 

SKIP WHEN ALL DONE 

RECALL BUSY INDICATOR AND REPEAT 


if, F X 

DPT50 LDO'^ BASE 

LOQ- SOMMOR.Q 


T ALL DONE 

GET "SOMMOR" ADDRESS AND EXIT TO IT 


N3100167 
N3100168 
N 310 016 9 
N310Q 170 
N3100171 
N3100172 
N310Q173 
N3100174 
N3100175 
N31G0176 
N3100177 
N310 0178 
N3100179 
N 3100 18 G 

N31QQ162 

N310C183 

N310018U. 


!'” ''i 

DPTREQ page 5 date: 01/27/99 

C) 

0185 P0050 1622 JMP- { ZERO ) , Q 

c.) 


o 

o 

r\ 

O 


018 7 
0188 

0189 

0190 P005E OAOl 

0191 P005F 6310 

0192 pooeo cooo 
P0061 554E 

0193 P00o2 683D 

0194 P0063 CGDO 
PC064 5553 

0195 P0065 683B 

0196 P0066 COOO 
P0067 4544 

0197 PGG68 6839 

0198 P0069 OAOE 

0199 PGQ6A E840 

0200 P0 06B 1809 


PARTITION UNUSED 

NOPART ENA 1 SET UP TO PRINT ONE SHOT MESSAGE 

STA^ COUNT 
LDA =AUN 

SJk* MESO 
LDA =AUS 

STA^ MESOO 
LDA =AEO 

STA^ MESGO+l 
ENA MESOX-MES 
LDQ» HESLOC 
jMpr- 0PT33 



0202 

0203 P006C 0000 

0204 P0060 0000 

0205 PG06E 1000 

0206 P006F 0000 

0207 P0Q70 0000 

0208 P0G71 0000 

0209 P0072 0000 

0210 P0073 0000 

0211 P0074 0010 

0212 P0084 0010 


BASE NUM 
EXTHAN NUM 
MODE ADC 
COUNT NUM 
TEMP NUM 
HEAONG NUM 
8USYFG NUM 
EXTMSG NUM 
PATLOC BZS 
PATSIZ BZS 


0 

0 

ASMOD 

0 

0 

0 

0 


CONSTANTS OR STORAGE LOCATIONS 

PARAMETER ADD. (TO BE FILLED) 
•HANDLE' ADDRESS (TO BE FILLED) 
ASCII OUTPUT MODE CODE 


0 

PATL0C(16) PARTITION CORE LOG. 

PATSIZ(16) PARTITION CORE SZE. 


o 

o 

o 

o 


0214 ^ 

0215 MESSAGE SKELTON 

0216 ^ 

0217 P0Q94 OAOO MES NUM $A0D 

0218 P0095 5041 ALF 9, PARTITION CORE MAP 

P0096 5254 

P0097 4954 
P0098 494F 
P0Q99 4E20 
P009A 434F 
P009B 5245 
PC09C 2040 
P0Q9D 4150 

0219 Fu09E OAOD NUM $A0D 

0220 P009F 5054 MESG ALF 1,PT 


O 


.***. 


N310G185 


f'") 

o 


c 


N310 0137 
N3100188 
N31Q0139 
N310019Q 
N310G 191 
N31Q0192 


C 

O 


N3100193 

N310G194 

N3100195 
N31Q 0196 

N3100197 

N3100198 

N31G0199 

N31Q02Q0 


N31GQ202 
N3100203 
N310 G204 
N310 0 20 5 
N310 0 20 6 
N310C207 
N31QQ208 
N310G209 
N31Q 0 210 
N310 0 211 
N3100212 


N31G0214 
N310C 215 
N3100216 
N310G217 
N3100 218 


o 

p 

o 

c 

o 

o 

o 


N 310 0 219 
N310 0 22 0 


DPTREO. 


PAGE 6 


date: 01/27/99 


0221 

POOAO 

POOAl 

GOOD 
0 0 00 

MESGO 

NUM 

0,0 

0222 

P00A2 

20 20 

MES OX 

ALE 

1 * 

0223 

P00A3 

P00A4 

0 0 0 0 
0 0 00 

HES 01 

NUM 

0 , 0 

Q22U 

P 0 0 A 5 

2020 


ALE 

1 , 

0225 

P0QA6 
P 00A7 

0 0 GO 
0 0 GO 

MES 02 

NUM 

0,0 

0226 

Pfl 0A8 

Q ADD 


NUM 

$A0D 

0227 

P00A9 

0 0 15 

MES 03 

ADC 

4.-MES 

0228 

POO AA 

0 0 4A 

MESLOC 

ADC 

HES -OPT CAL 

0229 

POOAB 

0 0 55 


ADC 

MESO-OPTCAL 

0230 

PO OAC 

0015 

SIZE 

ADC 

MES03-MES 

0231 

0232 

POOAD 

0 0 0 A 

* 

ADC 

MESQ3-MFS0 


0234 


CO 01 

P 

EQU 

SA35 { ^/96) 

0235 


G 0 02 

P 

EQU 

SP35 (SA35+1) 

0236 


0 0 CO 

P 

EQU 

DB35(SP35^96) 

023 7 
0238 

POOAE 

GO 12 


BSS 

END 

(DB35-^ ) 

PGH = 

0 0 CO 


192) 

COM = 

0 0 0 0 ( 0 ) 


PARTITION NUMBER 


CORE LOCATION 


CORE SIZE 


MESSAGE LOCATION 


DAT = 0000 { 0) 


NSIQO 221 

N310C222 

N3100223 

N310 0 224 
N31D 0225 

N3100226 
N3100227 
N31QQ228 
N31QQ229 
N 310 0 23 0 
N31Q 0 231 
M 3100 232 


N310 0234 
N3100 235 
N31Q0236 
N3100237 
N310 023B 


DPTREQ 


PAGE 


DATES 01/27/99 


: Q u I V 

A L E N 

C E S 



DEF.LINE 

NAME 

VALUE 


REFEREI 

GOOD 

I 

OGFF 

(000255) 

G 108 

0 0 L2 

AMONI 

00F4 

(000244) 

0158 

0 Q42 

ADISP 

QOEA 

(000234) 

0165 

0 0 42 

LPMSK 

GOO 2 

(000002) 


0 0 42 

NZERO 

0 012 

(000018) 

0 0 96 

0 0 42 

ZROBIT 

0033 

(000051) 


0 0 43 

FIVE 

0043 

(000067) 


0 043 

SIX 

0044 

(000068) 


0 Gi*3 

ZERO 

0022 

(000034) 

0 0 86 

0043 

ONEBIT 

0023 

(000035) 


0 0 43 

SIXTEN 

0027 

(000039) 


0044 

COMMA 

QQ2C 

(000044) 


0 0 44 

SLASH 

002F 

( 000 047) 


0044 

AS TRIG 

002A 

(0G0Q42) 


0 0 45 

EIGHT 

0026 

1000038) 


0 04 5 

NINE 

0045 

( 003069) 


0 045 

THREE 

00 0 4 

(000004) 


004 5 

ONE 

0 0 0 3 

(000003) 


0 045 

TWO 

0024 

C 000036) 


0 046 

TEN 

0046 

(000070) 


0 047 

CHRSLV 

000 7 

(000007) 

0 159 

0 0 48 

ASMOO 

lOQO 

( 004G96) 

8205 

0 0 49 

EXTBV4 

Q0E9 

(000233) 

0 085 

0052 

HEX ASG 

0 0 0 6 

( Q00006) 

0135 

0 055 

HANDLE 

0 001 

(000001) 

0 Q 77 

0 Q56 

MSG 

0GQ2 

(000002) 

0 079 

0 057 

SOMMOR 

0 00 3 

(000003) 

0184 

0058 

lOERR 

000 4 

(000004) 

0172 

0 0 59 

LISTLU 

00 0 5 

(000005) 

0 0 81 

0 0 60 

COMOLU 

0 00 6 

(OQQOQ6) 


0 0 61 

NEWHLU 

00 07 

(000007) 


0062 

PROGl 

0008 

(000008) 


0 Q63 

PR0G2 

00 09 

( 0QG0Q9) 


0 064 

BITFLG 

OOQA 

C 000 010) 


0 065 

BUFCNT 

OOOB 

{ 000011) 


0 066 

FIE-LD 

oooc 

(000012) 


0 06 7 

SLASHF 

0010 

( 000016) 


0068 

BUFEMT 

0011 

(000017) 



REFERENCED AT LINE NUMBER 


DG86, 0173, 0185 


nPTREO 


PAGE 8 


DATE: 01/27/99 


o 


o 

0069 BUFFER 0012 (000018) 

o 

o 

o 

o 

o 

(D 

o 

'O 

o 

o 

o 

o 

l"”) 


o 

c 

0 

n. 

1 ^ 

V,<- 

o 

o 

o 

o 

c 

o 

c 





DPTREQ 
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date: 

01/27/99 

' 

\ ^ 1 








^ c 


S Y M B 0 

L S 















■ 0 

o 

OEF.LIME 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 




0 0 33 

OPTREQ 

0000 

0 033 




; C...-' 


0 0 89 

OPTl 

OOOD 

0 0 87 






0099 

DPT2 

0017 

0 097, 

0 116 




•>W^ 

0105 

DPT5 

OOIB 







0111 

OPTIO 

0022 

0102 






0123 

OPT20 

00 2 8 

0 114 





C) 

012 7 

DPT22 

002 c 

0 180 






0133 

DPT30 

0031 

0 130 




- C 


0153 

0PT33 

0045 

0 200 





0159 

DPICAL 

004A 

0 160 , 

0228, 

0229 




0162 

OTLU 

0040 

0 083 






0163 

SZ 

004E 

0154 






0164 

ADORES 

004F 

0153 




-W,- 


0 170 

OPTEXT 

0051 

0160 





o 

0175 

DPTAQ 

0055 

0 131 , 

0 170 





0183 

DPT5Q 

D05B 

0 177 




n 


0 19 0 

NOPART 

005E 

0 0 88 , 

9 098 





0 203 

BA SE 

0 0 6 C 

0 0 75 , 

0171, 

0183 




0 204 

EXTHAN 

006D 

0 078, 

013 6 , 

0141, OIE .5 




0 205 

MODE 

006E 

0 082 




tt 


0 2 0 6 

COUNT 

006F 

0 0 90 , 

010 5, 

am, 0112 , 

0 133, 0138, 0143, 0175, 0178 , 0191 



0 2 0 7 

TEMP 

0070 

0 101, 

0115, 

0129, 0179 



o 

0 208 

HEADNG 

0071 

0 125, 

0 150, 

0156 




0 209 

BUSYFG 

0072 

0 0 94, 

0126 



■ n 


0 210 

EXTHSG 

0073 

u G 8 0 






0 211 

PATLCC 

0074 

0 107, 

0134 




C) 

0 212 

PATSIZ 

00 8 4 

QUO , 

0139 





0 217 

MES 

0 09 4 

0 198, 

0227, 

0228, 0230 


0 


0 220 

MES 0 

C09F 

0 148, 

0193, 

0229, 0 231 




0 221 

MESGO 

00 AO 

0 146, 

0195, 

0197 




0 222 

MES OX 

00A2 

0198 






0 223 

MES 01 

Q0A3 

0137 




■ (''I 


0 225 

MES 02 

G 0 A 6 

0 142 






0227 

MES03 

00A9 

0 230 , 

C 231 




.0 

0 228 

MESLOC 

OOAA 

D152, 

0199 





0 230 

SIZE 

OOAC 

0 151 




■ C"'> 


0 234 

SA35 

0 00 1 

0 235 






0235 

SP35 

Q002 

0 236 





0 

0 236 

D835 

DOCO 

0237 




c 

0 








0 

0 








■ 0 

-■^*s 









(. } 








! 
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OATEI 01/27/99 


X T E R 

M A L S 



DEE. LINE 

NAME 

VALUE 

referenced at LINE NUMBER 

0036 

BUSY 

0011 

0 0 93 

0 037 

PARTBL 

OOID 

0106 

0 038 

LSTPRT 

7FFF 


0 039 

LSTLOC 

7FFF 




o 


OPTREQ 
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date: 01/27/99 





^ A L 

P H A 

E E T I 

CAL 

o 

ADORES 

0164 

AOISP 

0 0 42 


8UF PER 

0069 

BUSY 

0 0 36 


OPTIO 

Gill 

DPT2 

D099 

o 

OPTCAL 

0159 

DPTEXT 

0 170 

HANDLE 

0055 

HEADNG 

0 208 


MES 

0 217 

MESO 

0 220 


MSG 

0056 

NEWMLU 

0 061 

o 

PATLOC 

0 211 

PATSIZ 

0212 

SLASHF 

0 067 

SOHMOR 

0 057 


ZR08IT 

0042 




SORT 

0 F 

S Y M B 

0 L S 

^ ^ 

AMONI 

0 0 42 

ASMOO 

0048 

ASTRIC 

BUSYFG 

0209 

CHRSLV 

0047 

COMMA 

DPT20 

0 123 

DPT22 

0127 

DPT30 

DPTRFQ 

0 033 

EIGHT 

0 0 4 5 

EXTBVi^ 

HEXASC 

0 0 52 

I 

00 0 0 

lOERR 

MES 0 0 

0 2 21 

MESOl 

0223 

MES02 

NINE 

D 0 45 

NOPART 

019 0 

NZERO 

PROGl 

0 0 62 

PR0G2 

0063 

SA35 

SP35 

0235 

SZ 

0163 

TEMP 


004 A 
0044 
0133 
0 049 
0 05 8 
0225 
0042 
0234 


O 

o 

o 


o 

o 

o 

o 

o 

C) 


o 


BASE 

0203 

BITFLG 

0 0 6 4 

BUFCNT 

COMOLU 

0060 

COUNT 

0206 

DB3 5 

DPT33 

0153 

DPT4G 

0175 

DPT5 

EXTHAN 

0204 

EXTHSG 

0210 

FIELD 

LISTLU 

Q059 

LPHSK 

0042 

LSTLOG 

MES03 

0227 

MESOX 

0222 

MESLOC 

ONE 

0045 

ONEBIT 

0043 

OTLU 

SIX 

0043 

SIXTEN 

0043 

SIZE 

TEN 

0046 

THREE 

00 45 

TWO 


0065 

3UFEMT 

0068 

O 

0236 

DPTl 

0089 


0105 

DPT50 

0183 


0 066 

FIVE 

0043 


0039 

LSTPRT 

0038 

0 22 8 

MODE 

0205 


0 162 

PARTBL 

0 037 


0230 

SLASH 

0 044 

■ 0 

0045 

ZERO 

0043 


C) 


o 


o 

o 

© 

o 

o 


n 


O 


SLDRFQ. 


PAGE 


1 


DATE! ai/27/99 


0001 
00 0 2 
0003 
00 0 4 
00 0 5 
000 6 
00 0 7 
00 0 8 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
0G2D 
00 21 
0022 
0 02 3 
002 4 

0025 

0026 

0027 

0028 
0 0 29 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0 039 

0040 

0041 

0043 

0044 
00 45 


■V 

•V 

* 

Jf. 


V- 

K- 

if. 

•V- 

■V 

if- 

At 

At 

At 

A- 

At 


At 


NAM SLDREQ DFCK-ID N32 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

If. if- if- if. if. if. ^ If. if. If. if. >fi ^ ^ ^ sf. if. V- ^ if- if- if- ^ if- >f. if- if. if- if. ^ 

if if. 


if 

At 

>f 


THIS PROCESSOR SELECTS THE REQUESTED 
DENSITY FOR USER, IT ALSO UNLOAD TAPE 




SUMMARY- 11 

N32000Q2 
N320 0 Q03 
N32Q0uG 4 
N32Q 0 0G5 
N3200006 
N32UUQtj7 
N320 0008 
N320 0009 
N 320 0010 
N3200011 
N3200012 
N320 u 013 


INPUT FORMATS : 

(1) SELECT DENSITY 
SLD ,U ,D (CR) 

WHERE U = LOGICAL UNIT 
0 = DENSITY 

0 FOR 200 BPI 

1 FOR 556 BPI 

2 FOR 800 BPI 

3 FOR 1600 BPI 

(CR) = CARRAGE RETURN 


(2) UNLOAD TAPE 
UNL,U (CR) 


N3200014 
N3200015 
N3200 016 
N5200017 
N3200ul8 
N320GG19 
N32Q0U2C 
N32QD021 
N32Q0022 
N32G0023 
N3200024 
N3200025 
N32Q0026 
N3200027 
N 320 0 02 8 
N32u0 029 
N3200 030 
N3200 031 
N32Q0D32 
N32D0033 
N3200034 
N320G 035 
N320Q 036 
N320 0 037 



ENT 

SLDREQ 

E N 

T 


ENT 

UNLREQ 



if. 

EXT 

LOGIA 

E X 

T 


EXT 

NUMLU 




R Y NAMES 

UNLOAD MAG. TAPE REQUEST 
E R N A L S 


N32Q 0 039 
N3200040 
N3200G41 

N32Q0 045 
N3200044 
M3200045 


0047 'EQU' TABLE N3200Q47 

0048 G0F4 EQU ANONI ( S F4 ) , A DISP ( SE A ) , LPHS K ( 2 ) , NZ ERO ( $1 2 ) , ZR08I T ( $3 3 ) N3200 048 

0 0 EA 

0 0 0 ? 


date: 01/27/99 


SLDREO. 


PAGE 


0049 

0 012 
0 0 33 
0 0 43 

EQU 

FIVE($43) , 

SIX ($44) .ZERO ($22) .ON EBIT ($23) ,SIXTEN($27) N32uG 0 49 

00 5Q 

0 0 44 
0 0 22 
0 0 23 
0 0 27 
0 0 2C 

EQU 

COMMA (320 

.SL ASH (S2F) . ASTRIC ($2A) 

N320 0050 

0051 

0 0 2F 
0 0 2A 
0 026 

EQU 

EIGHT ($26) 

.NINE ($45) .THREE (4) , ONE ( 3 ) . TWO ( $24 ) 

N32G 0 051 

0052 

0 0 45 
0 0 04 
00 03 
0 0 24 
0 0 46 

EQU 

TEN ($46 ) 


^^MS0S4. Q’^^N3200u52 

0053 

0 0 03 

EQU 

MASK (3) 

ONE BIT MASK 

N3200053 

0055 

0 0 07 

EQU 

CHRSLV(7) 

LEVEL OF THIS PROGRAM 

il6^4360»*^»’-^^'^^ 

0056 

10 u 0 

EQU 

ASMOO($1000) OUTPUT ASC MODE 

N320005b 

0057 

0 0 37 

EQU 

C0MSLD(55) 

"SLO" COMMAND INDEX 

N3200G57 

0059 



SUBROUTINE ’'EQU" POINTERS 

N3200059 

0060 

0 0 02 

EQU 

GETFLDI 2) 

"GETFLD" 

N323006Q 

0 051 

0 0 03 

EQU 

ASCHEX ( 3) 

••ASCHEX" 

N3200ubl 

0062 

00 05 

EQU 

ASCDEC(5) 

••ASGDEC^* 

N3200062 

006 4 

>/■ 


PARAMETER LOCATION (OFFSET FROM BASE) 

N323 0064 

0065 

0 0 01 

EQU 

HAN0LE( 1) 

"HANDLE^^ 

N320u 055 

0066 

0 0 02 

EQU 

MSG (2) 

"HSG^^ ENTRY 

N3200Q66 

006 7 

0 0 05 

EQU 

S0MM0R(3) 

••SOMMOR” ENTRY 

N320 C 067 

005 B 

0 0 04 

EQU 

I0ERR(4 ) 

"lOERR^' ENTRY 

N320G068 

0069 

0 0 05 

EQU 

LISTLU (5) 

LIST OUTPUT "LISTLU" 

N3200Q69 

0070 

0 0 06 

EQU 

COMOLU( 6) 

••COMOLU" 

N320 0070 

0071 

0 0 07 

EQU 

NEWMLU(7) 

•■NEWMLU" NEW MM LU 

N32Q0071 

0072 

0 0 03 

EQU 

PROGl (8 ) 

••PROGl^^ 

N3200072 

0073 

0 0 09 

EQU 

PR0G2 (9 ) 

••PROGZ'^ 

N3200073 

0074 

00 OA 

EQU 

BITFLG(IO) 

"BITFLG*^ 

N3203074 

0075 

0 0 08 

EQU 

BUFCNT (11) 

••BUFCNT” 

N3200Q75 

0075 

0 0 OC 

EQU 

FIELD (12 ) 

••FIELD” 

N32Q 0 076 

0077 

00 10 

EQU 

SLA3HF { 16) 

"SLASHF" 

N32Q0077 

00 7 8 

0 0 11 

EQU 

8UFEMT( 17) 

••BUFEMT*^ 

N 32UU0 78 

007 9 

0012 

EQU 

BUFFERdS) 

"BUFFER” 

N32D0Q79 


00 81 





N3200081 

008 2 

if. if, ^ Jf. if. 

PROGRAM 

START 

ifjf if if, if. 

N320 0082 

0 083 

-V 




N3200083 

0085 POOOO 6849 

SLDREQ STA^ BASE 




N 3200 085 


O 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 


o 


o 


[ } 


0086 
0087 
00 8 8 
0089 
00 9 0 

0091 

0092 

0093 

0095 

0096 

0097 
00 9 8 

0099 

0100 
0101 
0102 

0103 

0104 

0105 
010 6 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 
Oil 6 

011 7 

0119 

012 0 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 
013 6 
0137 


SLORFQ 


PAGE 3 date: 01/27/99 


0000 P EQU UNLREGf SLOREQ) 


P 0 0 0 1 

60FF 


STA- 

I 

P00G2 

0101 


LOA- 

HANDLE, I 

P0003 

6847 


STA^ 

EXT HAN 

P000 4 

C102 


COA- 

MSG, I 

P00 0 5 

6846 


STAL 

EXT MS G 

PG 006 

CG 31 


LDA- 

ONERIT+14 

P0007 

683A 


STA^ 

DENTY 





GET 

P00C8 

0 A02 


ENA 

GETFLD 

P00G9 

0C02 


ENQ 

2 

POOOA 

5C40 


RTJ» 

(EXTHAN ) 

P00C8 

0 A05 


ENA 

ASCDEC 

POOOC 

5C3E 


RTJ-^ 

(EXTHAN ) 

POOOD 

OlOO 


SAZ 

LUER 

PODGE 

6832 


STA'^ 

LU 

POOOF 

0 822 


TRA 

Q 

POOlO 

983C 


SUB^ 

MAXLU 

POOll 

09FE 


INA 

-1 

PO 012 

0128 


SAP 

LUER 

POO 13 

E6G0 X 


LOQ 

LOGlA,Q 

P0014 

7FFF X 



LUER 

P0Q15 

0145 


SQZ 

P0G16 

C2G8 


LDA- 

8 ,Q 

P0017 

OF 48 


ARS 

11 

P0018 

AO 05 


AND- 

MA5K+2 

P0Q19 

09FE 


INA 

-1 

PDOIA 

0102 


SAZ 

LUOK 

PDOIB 

0C09 

LUER 

ENQ 

9 

POOIC 

1C2F 



(EXTMSG) 


OBTAIN AND SAVE "HANDLE” ADD. 

GET "MSG" LOCATION AMO KEEP 
SET FOR UNLOAD 

LOGICAL UNIT AND CHECK FOR LEGILTY 
GET AN INPUT FIELD 

(2 CHAR. MAX.) 

CONVERT TO BINARY 

LU=0, ERROR 

CHECK FOR MAX. NO. OF LU 

GET PHYSICAL DEVICE FROM PHY. TAB 

ERROR, UNDEFINED. 

GET CLASS TYPE 

CLASS type = 1 FOR MAG. TAPE 
LU ERROR, 


PCOID 

C82C 

LUOK 

LDA^ 

LOGICAL 

BASE 

POOIE 

60FF 


STA- 

I 

POOIF 

C1Q9 


LDA- 

PR0G2 , I 

PD020 

09C8 


INA 

-COMSLO 

PQ021 

0101 


SAZ 

SLD5 

P0022 

181A 


JMP^ 

SLD15 

PD023 

CiOC 

SLD5 

LDA- 

FIELD, I 

P0024 

gOOA 


SUB- 

LPMSK + 8 

P0025 

0 113 


SAN 

SLDo 

P0026 

0 AOl 


ENA 

1 

P0027 

681A 


STA-^ 

OENTY 

P0028 

1814 


JMP» 

SLD15 

PQ029 

80 OA 

SLD6 

Aon- 

LPMSK+8 

P002A 

0903 


INA 

-COMMA 

P0 02B 

0116 

if. 

SAN 

SLD9E 

POO 20 

G A02 

SL07 

ENA 

GETFLD 

P002D 

0C04 


ENQ 

4 


UNIT OK, GET DENSITY IF IS "SLD” 
CHECK IF 'SLD' REQUEST 

FORMAT CHECK COMMA 

CHECK IF 'NULL' FIRST 

THEN CHECK FOR COMMA 

GET FIELD DENSITY CODE 


N320 0 086 
N320 0 087 
N320 0 088 
N3200089 
N3200090 
N3200091 
N320 Q092 
N3200Q93 

N32Q0095 
N320u 095 
N32G 0097 
N3200098 
N3200 099 
N320 010 G 
N32Q01Q1 
N32Q0102 
N320Q1C3 
N32QQ10i^. 
N32Q0105 
N 320 0 10 6 
N32Q0107 

N3200l0a 
N 320 DIG 9 
N3200110 
N32uDlll 
N320Q 112 
N 3200 113 
N32G011 4 
N3200115 
N3200116 
N320Q 117 

N3200119 
N320012Q 
N3200121 
N3200122 
N3200123 
N32QQ124 
N320012 5 
N32Q0126 
N 3200127 
N32Q0128 
N3200129 
N3200130 
N3200131 
N320U132 
N320Q133 
N32Q0134 
N320 0135 
N32Q013D 
N32Q0137 


Q 


O 


O 

O 

o 

o 

o 


C) 

o 

c 

o 

o 

o 

o 


o 




SLOPED 


PAGE 4 

date: 01/27/99 

0138 

PQ 02E 

5C 1C 


RTJ- 

lEXTHAM ) 



0139 

P0Q2F 

cm 


LOA- 

8UFEMT, I 

MAKE SURE NO MORE 

DATA 

0140 

PQ030 

BQ12 


EOR- 

LPMSK+16 



0141 

PG031 

0102 


SAZ 

SL012 



0142 

P0 032 

GC04 

SLD9E 

ENQ 


FORMAT ERROR 


0143 

P0 033 

1C18 


JHP» 

(EXTMSG ) 



0144 

0145 

P 0 0 i 4 

QAC5 

SL012 

ENA 

ASCDEC 

CONVERT TO BINARY 


0146 

P0035 

5C15 


RTJ» 

(EXTHAM ) 



0147 

P0036 

0822 


TRA 

Q 

DENSITY REQUESTED 

CODE TO Q 

0148 

PD037 

09FB 


INA 

- 4 



0149 

P0038 

0131 


SAM 

SL014 



015 0 

P00 39 

18F8 


JMP» 

SL09E 



0151 

P0Q3A 

CA13 

SLD14 

LDA* 

DEMCD,Q 



0152 

P003B 

68 06 


STA^ 

OENTY 



0154 





OUTPUT 



0155 

PQ03C 

54F4 

SLD15 

RTJ- 

(AMONI ) 



0156 

POO 3D 

ID 0 7 

SLOCD 

ADC 

SlQOO+CHRSLV 



015 7 

PU03F 

00 06 


AOC 

SLDEX-SLDCD 



0158 

PO 0 3F 

00 OQ 


NUM 

Q 



0159 

P004D 

0 0 00 

LU 

HUM 

0 



0160 

P0041 

0 0 0 0 

DENTY 

NUM 

0 



0161 

P0042 

14EA 


JHP- 

(ADIS F) 



0163 



jj- 





016 4 

P0043 

0814 

SLDEX 

TRQ 

A 



0165 

P0D44 

E8 05 


LDO'- 

BASE 

EXIT TO "lOERR" (ERROR) OR "SOMMUK 

0166 

P0 045 

0121 


SAP 

SLD25 



0167 

P0046 

on 01 


INQ 

1 



0163 

Pfl047 

E2 03 

SL025 

LOQ- 

SOMMOR, Q 



0169 

P00 48 

1622 


JMP- 

(ZERO ) , 0 



0171 



if. 


STORAGE AND CONSTANTS 


0172 

PO 049 

0 0 00 

BASE 

NUM 

0 



0173 

P0Q4A 

0 0 0 0 

EXTHAN 

NUM 

0 



0174 

P 0 0 4 B 

OOoO 

EXTMSG 

NUM 

0 



0175 

P004C 

7FFF X 

MAXLU 

ADC 

NUMLU 



017 7 





DENSITY CODES 


0178 

P004D 

0 0 0 3 

OENCD 

NUM 

3 

0. 200 8PI 


0179 

P004E 

OD 02 


NUM 

2 

1. 556 BPI 


0180 

P004F 

00 01 


NUM 

1 

2. 800 BPI 


0181 

P0 05G 

0 0 04 


NUN 

4 

3 . 1600 BPI 



N 3200138 
N3200 139 
N32Q 0140 
N320 Q 141 
N 3200 l^^Z 
N3200143 
N32Q 0144 
N320 0 145 
N3200146 
N3200147 
N320Q148 
N320 0149 
N320Q150 
N3200151 
N3200152 


N3200154 
N329015 5 
N32DG156 
N320G 157 
N32G0158 
N 320 0159 
N3200160 
N3200161 

N3200163 
N32Q016 4 
N32001&5 
N32001&6 
N320Q167 
N32Q0168 
N320 0169 

N 32 0 0 1 7 1 
N3200172 
N320 0 173 
N32G0174 
M 32 0 017 5 

N3200177 
N32Q0178 
N 320 0 179 
N320018D 
N3200181 


018 3 

0184 0000 P 

0185 Q 001 P 

0186 0060 P 

0187 PQ051 OGOF 


EQU SA55(^/96) 

EQU SP55(SA55+1) 
EQU 0355 {SP55^96) 
BSS (0855-^) 


N3200183 
N32Q0184 
N323 0 185 
N 320 0 18 6 
N32Q 0187 


SLOREQ 


PAGE 


DATE; 01/27/99 


0188 END N320 G186 

PGM= 0060 { 96) COM = 0000 ( 0) DAT = 0000 ( 0) 




o 


o 


(J 

o 

o 

o 

o 


o 


o 





O 



c 

c 


o 




o 

o 

o 


u 


o 


o 




t 


SLDREQ 


; Q u I V 

A L F N 

C E S 

OEF.LINE 

NAME 

VALUE 

0 OOQ 

I 

OOFF 

0048 

AMONI 

00F4 

0 048 

ADISP 

OOEA 

0 048 

LPMSK 

0002 

0 048 

NZERO 

D012 

0 0 48 

ZROBIT 

0 0 33 

0 049 

FIVE 

0043 

0 049 

SIX 

0044 

0049 

ZERO 

0022 

0 049 

ONEBIT 

0 0 23 

0 049 

SIXTEN 

0 027 

0 050 

COMMA 

002C 

0050 

SLASH 

002F 

0 050 

ASTRIC 

Q0 2A 

0 051 

EIGHT 

0026 

0 051 

NINE 

0045 

0 051 

THREE 

00 0 4 

0 051 

ONE 

QQ03 

0051 

TWO 

00 2 4 

0 052 

TEN 

0046 

0 0 53 

MASK 

0003 

0 0 5 5 

CHRSLV 

0 0 0 7 

0 056 

ASMOD 

1000 

0 057 

COMSLO 

0 0 37 

0060 

getfld 

00 02 

G061 

ASCHEX 

00 0 3 

0062 

ASCOEC 

0 00 5 

0 065 

HANDLE 

0001 

0066 

HSG 

000 2 

0 067 

SOMMOR 

000 3 

0 068 

lOERR 

00 0 4 

0 0 69 

LISTLU 

0 00 5 

0070 

COMOLU 

00 06 

0 071 

NEWMLU 

00 0 7 

0 072 

PROGl 

00 0 8 

0 073 

PROG2 

0009 

0 07 4 

BITFLG 

000 A 

0 0 7 5 

BUFCNT 

OGOB 


PAGE 6 


REFERENCED AT 


1 000255) 

3 087, 

0121 

(000244) 

0 155 


(000234) 

3 161 


I 0 C0032) 
(O0Q018) 
(000051 ) 
(000067) 
(000068) 

0127, 

0 132 

(000034) 

0169 


(000035) 

(000039) 

0 0 92 


( 0000H4) 
( 0G0G47) 
(0000^2) 
(000038) 
{ 000069) 
1000004) 
(000003) 
(OOQQ36) 
(000070) 

0133 


(000003) 

0 111 


(000007) 

(Q04096) 

0156 


( 000055) 

0123 


(000002) 

(000003) 

0096, 

0136 

(000005) 

0 099, 

0145 

(OOOQQl) 

0088 


(000002) 

0 0 90 


( 0300031 
(000004) 
( 000005) 
(000006) 
(000007) 
(DO 00 08) 

0 168 


{ 000009) 
(000010) 
(OOOflll) 

0 122 



DATEJ 01/27/99 


CINE NUMBER 
0140 


SLDREQ 


PAGE 


7 


date: 01/27/99 


0 0 76 
0 0 77 
0 078 
0 079 


FIEID QOOC (000012) 
SLASHF 0010 (000016) 
BUFEHT 0011 (000017) 
BUFFER 0012 (000018) 


0126 

0139 


SLORFQ 


PAGE 


8 


DATES 01/27/99 


o 




o 

S Y M BO 

L S 





o 

(■■■') 

DEF.LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

' o 


OOAG 

SLDREQ 

00 0 0 

00 40 , 

0 086 




0 0 41 

UNLREQ 

0000 

0 0 41 

0106, 

0108 


o 

0 115 

LUER 

OOIB 

0101, 

: 

0 120 

LUOK 

OOID 

0113 




0 12 6 

SLD5 

0023 

0124 





0132 

SL06 

0029 

0128 



^ ^ 

o 

0136 

SLD7 

00 2C 


0 150 


■ u 

0142 

SLD9E 

0032 

0134, 



0 145 

SLD12 

003 4 

0141 





0151 

SLD14 

003A 

0149 

0131 



r") 

0155 

SLD15 

003C 

0125, 


0156 

SLDCD 

0030 

0157 





0159 

LU 

0040 

0 102 


0152 



0 160 

OENTY 

0041 

0 0 93 , 

0 130 , 


O 

0164 

SLDEX 

0043 

0157 




0168 

SLD25 

0 0 47 

0166 

0 120, 

0165 



0172 

BASE 

0049 

0 085, 



0173 

EXTHAN 

004A 

0 0 89, 

0098 , 

0100, 0138, 0146 

o 

o 

0 174 

EXTMSG 

004B 

0 091, 

one. 

0143 

0175 

MAXLU 

0 0 4C 

0 104 





0178 

OENCD 

0040 

0151 





0184 

SA55 

0 0 0 0 

0185 



o 


0185 

SP55 

0 0 0 1 

0 186 




0186 

DB55 

0060 

0187 




Q 








O 







: 

0 







O 








O 


O 

o 

O 

o 

O 

C 


SLDREa 


PAGE 


9 


OATES 01/27/99 


: X T E R 

M A L S 



DEE. LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 04 4 

LOGIA 

0014 

0107 

0045 

NUMLU 

C04C 

0175 




SLDREQ 


PAGE 

10 

o 








A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

C) 

ADISP 

0048 

AMONI 

0 048 

ASCDEC 

0 062 


BUFEMT 

0078 

BUFFER 

0079 

CHRSLV 

0 0 55 


EIGHT 

0051 

EXTHAN 

0173 

EXTMSG 

0174 


LIS TLU 

0069 

LOGIA 

0 044 

LPMSK 

0 0 48 

O' 

NEWMLU 

0071 

NINE 

0 0 51 

NUMLJ 

0 0 45 


SIX 

0049 

SIXTEN 

0 049 

SLASH 

0 0 5 0 


SLD6 

013? 

SL07 

0136 

SL09E 

0142 


THREE 

0051 

TWO 

0051 

UNLREQ 

0 0 41 



o 


C) 

o 

o 

o 


o 

o 

o 


o 


ASTRIG 

0050 

BASE 

0172 

BITFLG 

COMSLD 

005 7 

D855 

0186 

DENCD 

GETFLD 

0060 

HANDLE 

0 065 

I 

LUOK 

0120 

MASK 

0 05 3 

MAXLU 

ONEBIT 

0049 

PROGl 

00 72 

PROG2 

SLD14 

0151 

SLD15 

0155 

SLD25 

SLDREQ 

0040 

SOMMOR 

006 7 

SP55 


0374 

BUFCNT 

0 0 75 

: O 

0178 

DENTY 

0160 


0 00 0 

lOERR 

G068 


017 5 

MSG 

0 0 66 


0073 

5A55 

0184 

0168 

SLD5 

0126 


016 5 

TEN 

0 0 52 

O 0 




o 


c 

o 

o 

o 

o 

c 

o 

o 

o 

r") 


CWAREQ 


PAGE 


1 


date: 01/27/99 


000 1 
000 2 
000 3 
000 4 
00 0 5 
000 6 
00 0 7 
00 0 8 
0 0 0 9 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
00 2 0 
0021 
0022 
0023 

002£i 

002 5 
0026 

0027 

0028 
0029 
00 3 0 

0031 

0032 

003 4 
0035 


0037 
00 3 3 


0039 


0040 


if- 

V- 

if- 

if- 

-V- 

if- 

if- 

if- 

if. 

if- 

if- 

if- 

Jf, 

if- 

if- 

if- 

if- 

if- 

if- 

if- 

if- 

if- 

if- 

if 


NAM CHAREQ DECK-IO N33 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 19/6 


SUMMARY- 


^if. V- if- if-Af-if- Jf.if.^if-^if-^if.^ifif-ir- if- ^ ^ ^ if if ^ ^ ^ V- if if H- if if 

if ^ 

^ THIS PROCESSOR CONVERTS WORD ADDRESS TO ^ 

^ SECTOR/WORD ADDRESS 

¥ 

3f ^ If. ^ ^ :f. V- V- ^ V- H- ^ ^ ^ ^ ^ ^ ^ ^ 


INPUT FORMAT : 

CWA,WA(CR) 

WHERE WA =WORD ADDRESS (HEX.) (MAX. SIZE = 8) 


OUTPUT FORMAT : 


SECTOR/WORO ADDRESS = MSB-LSE-WORD 


WHERE MSB = SECTOR MSB 
LSB = SECTOR LSB 
WORD = WORD ADO. 


4 DIGITS HEX. 
4 DIGITS HEX. 
4 DIGITS HEX. 


N330i]Q02 
N3300QQ3 
N330Q004 
N33Q0005 
N3300 006 
N 33 D 0 u 0 7 
N 330 0 008 
N33GOQ09 
N33aoaio 
N33G0 oil 
N3300012 
N330 0 015 
N3300Q14 
N3300G15 
N330 0016 
N330 Q 017 
N3300018 
N3300019 
N33G002C 
N33CD021 
N33GQ 022 
N33Q 0 023 
N3300024 
N333 0 025 
N33G Q 026 
N330 u 02 7 
N33C0028 
N33G0029 
N330 0030 
N33Q0G31 
N330Q032 


>!■ 


E N T R 

ENT CWAREQ 


NAME 


N33Q 0 034 
N3300035 


Q 0F4 
COEA 
G 002 
0012 
0 0 33 
0 0 43 
0 0 44 
0 022 
0 023 
0 027 
0 Q2C 
00 2F 
0 0 2A 


EQU 


'EQU* TABLE 

AMONI ($F4),ADISP{SEA),LPMSK(2),MZER0($12) ,ZR0BIT($33) 


EQU FIVE(S43) ,SIX ($44) , ZERO ( $2 2 ) , ON EBI T ($ 23 ) , SIX TEN ( $ 27 ) 


EQU COMMA ($2C) ,SLASH ($2F) ,ASTRIC ($2A) 


N33G0 037 
N3300 038 


N330 0039 


N3SQ0040 



CWAREQ 


PAGE 2 

DATE; 01/27/99 


0041 

0 0 26 

EQU 

EIGHT ($26) , NINE ($45) , THREE (4) , ON E ( 3 ) , TWO ( $2 4 ) 

N3300041 


0 0 45 







0 0 04 







00 03 






0042 

U U c 4 

0 0 46 

EQU 

TEN ($46) 



»^MSOS4.0»»N3300042 

0043 

0 0 0 3 

EQU 

MASK (3) 

ONE BIT MASK 

N330 0 043 

0045 

0 0 07 

EQU 

CHRSLV ( 7) 

LEVEL OF THIS PROGRAM 

116^436u»^^’-^^-^- 

0046 

lOOQ 

EQU 

ASMOO ($1000) 

OUTPUT ASC 

MODE 

N3300046 

0048 



CHARACTER 'EQUIVALENCES' 

N3300 048 

004^ 

0 0 30 

EQU 

KARO ($30 ) 

CHARACTER = 

0 

N3300 049 

0050 

0 039 

EQU 

KAR9($39) 

CHARACTER = 

9 

N330 0 05 0 

0051 

0 0 41 

EQU 

KARA($41) 

CHARACTER = 

A 

N330 0 051 

0052 

0 0 46 

EQU 

KARFi $46) 

CHARACTER = 

F 

N330 0 052 

00 5 4 



PARAMETER LOCATION 

(OFFSET FROM BASE) 

N3300 054 

005 5 

0 0 0 1 

EQU 

HANOLEC 1) 

"HANDLE" 


N3300055 

0G56 

0 0 02 

EQU 

MSG(2) 

"MSG" ENTRY 


N330 0 0^6 

0057 

0 0 03 

EQU 

SOMMOR (3 ) 

"SOMMOR" ENTRY 

N330 Q 057 

0058 

0 0 04 

EQU 

lOERR (4 ) 

"lOERR" ENTRY 

N 330 0 05 8 

00 59 

0 0 05 

EQU 

LISTLU (5) 

LIST OUTPUT 

"LISTLU" 

N3300059 

006 0 

0 0 0 6 

EQU 

C0M0LU(6) 

"COMOLU" 


N330 0 060 

0061 

0 0 07 

EQU 

NEWMLU(7I 

"NEWMLU" -- 

- NEW HM LU 

N330 Q 061 

0062 

a 0 08 

EQU 

PROGl (8 ) 

"PROGl" 


N33D 0 062 

0063 

0 0 09 

EQU 

PR0G2 (9) 

"PR0G2" 


N330 0 0 63 

0 064 

0 0 OA 

EQU 

BITFLG (10) 

"BITFLG" 


N 330 0 0 64 

006 5 

00 OB 

EQU 

SUFCNTdl) 

"BUFCNT" 


N330 0 065 

0066 

COOC 

EQU 

FIELD(12) 

"FIELD" 


N 33 0 0 0 66 

006 7 

0010 

EQU 

SLASHF(16} 

"SLASHF" 


N3300 067 

00 6 8 

0011 

EQU 

BUFEMK 17) 

"BUFEMT" 


N330 0 068 

0069 

0012 

EQU 

BUFFER(18) 

"BUFFER" 


N330 0069 

0071 

V- 


SUBROUTINE "EQU” 

POINTERS 

N330Q 071 

0072 

3 0 02 

EQU 

GFTFLD( 2) 

“GETFLD" 


N330 0 072 

007 3 

0 0 0 3 

EQU 

ASGHEX( 3) 

"ASGHEX" 


N33 0 0 073 

007 4 

0 Q 05 

EQU 

ASCDEC(5) 

"ASCDEC" 


N330 0 074 


007 6 

0077 

0078 



^ ^ ^ ^ 



PROGRAM 

START 


N33QQQ76 

N33Q0077 

N330G078 

00 8 0 
0081 
00 82 
0 0 83 
00 8“+ 
0 Q 8 p 

POOOO 
POOOl 
POOOZ 
PG003 
P0QG4 
P0 0 0 5 

683D 
60FF 
8112 
6830 
ClOl 
6 8 39 

CWAREQ 

STA^ 

STA- 

ADD- 

STA^ 

LDA- 

STA^ 

BASE 

I 

BUFFER, I 
BUFAOD 
HANDLE, I 
EXTHAN 




N33GQG80 
N3300081 
N3300Q82 
N330 0 08 5 
N3300084 
N330 Q 085 


1 ,1 



CWARFQ 


PAGE 3 

date: 01/27/99 


; ' 

C) 

00 86 

P00U6 

C102 


LDA- 

MSG, I 


N330 0 0 86 

o 


0087 

PQ007 

6838 


ST A<^ 

EXT MSG 


N3300087 


o 

00 88 

P00C8 

C106 


LDA- 

COMOLU, I 

GET COMMENT LU 

N33a0088 

o 

0089 

P0 0 09 

8838 


ADD'^ 

MODE 


N33 0G 039 


0090 

POOOA 

6800 


STA 

OTLU 


N3300090 




PCOOB 

0 0 62 






o 

o 

009 2 





GET INPUT DATA 

N330e092 


0093 

POOCC 

0C08 


FNQ 

8 


N33G 0 093 



009 4 

POflOD 

4835 


STQv 

COUNT 


N33U 0 094 


o 

0095 

POOOE 

GFAl 


QLS 

1 


N330D 095 

c 

0096 

POOOF 

OAOO 


ENA 

0 

ZERO OUT COUNTERS 

N3300G96 


0097 

POOlO 

6AC0 

CWAl 

STA 

INV,Q 


N3300 097 




PDOll 

0 0 76 







o 

0098 

P0012 

01 42 


SQZ 

CWA2 


N330 0 098 

^ o 

0099 

P0013 

DDFE 


INQ 

-1 


N330 0 099 


0100 

P0014 

18FB 


JMP^ 

GWAl 


M330Q100 



QlOl 

PG015 

FI OA 

CWA2 

LDO- 

aiTFLG, I 


N33G0101 



0102 

P0Q16 

482D 


STQ^ 

HILO 


N33G0102 



0103 

PD017 

ClOB 


LDA- 

BUFCNT, I 


N330G1Q 3 



0104 

P0G18 

60FF 


STA- 

I 


N33001Q4 



010 5 

P0019 

0 1 42 

CWA4 

SQZ 

CWA 5 

NO CHANGE OF CHAR. POSITION, SKIP 

N330G105 


o 

010 6 

POOIA 

OCFE 


ENQ 

-1 

OTHERWISE BUMP POINTERS 

N 33 0 0 10 6 

f"'- 

QID 7 

PBGIB 

DOFF 


RAO- 

I 


N33Q0107 



0108 

PQOIC 

ODQl 

CWA5 

INQ 

1 


N330010 e 



0109 

POOID 

4826 


STQ^ 

HILO 


N330G 109 



0110 







N 33 0 0 lie 

o 


Qlll 

POOIE 

CD22 


LOA^ 

{3UFA0D) ,I 

GET AND EXTRACT CHAR, 

N3300111 


0112 

POOIF 

01 51 


SQN 

CWA7 


N3300112 



0113 

P0020 

OF 48 


ARS 

8 


N3300113 


o 

0114 

P0021 

AO OA 

CWA7 

AND- 

LPMSK+8 


N 33 0 0 114 

o 

0115 

P0022 

6863 


STA^ 

TEMP 


N33QQ115 


0116 

P0023 

BOOA 


FOR- 

LPMSK-l-8 

IS END OF TEXT 

N3300116 



0117 

P0024 

0111 


SAN 

CWA9 


N 330 Oil 7 


o 

0118 

P0025 

181F 


JNP’^ 

CWA27 


N3300118 

C'', 

0119 





CHECK 

FOR 0-9 AND A-F 

N 330 Oil 9 



0120 

P0026 

C85F 

CWA9 

LDA« 

TEMP 


N33Q0120 



0121 

PQG27 

09CF 


INA 

-KARO 


N330Q121 


o 

0122 

P0028 

DIOC 


SAZ 

CWA18 


N33Q0122 

C) 

0123 

P0029 

0 137 


SAM 

CWA 12 

ERROR 

N3300123 



0124 

P0 02A 

09F5 


INA 

-KAR9 + KAR0-1 


N33Q0124 



0125 

P002B 

0138 


SAM 

CWA 15 

BETWEEN 1-9, SKIP 

N3300125 


o 

0126 

P0 02C 

G9F8 


INA 

-KARA+KAR9-H 


N3300126 

o 

0127 

PG02D 

0106 


SAZ 

GWA15 

SKIP ON 'A* 

N33QQ127 


0128 

P002E 

0132 


SAM 

GWA12 

ERROR 

N3350128 



0129 

P0C2F 

09F9 


INA 

-KARF + KARA-1 


N33QQ129 



013 0 

P0Q30 

0132 


SAM 

CHA14 


N330Q13G 

c 

0131 

P0031 

0CO4 

CWA12 

ENQ 

4 

FORMAT ERROR TO "MSG" 

N3300131 


0132 

P0032 

ICOD 


JMP- 

(EXTMSG) 


N3300132 



0133 







N3300133 



013^+ 

P0033 

0906 

CWA14 

INA 

6 


N3300134 

■ c 


0135 

PGQ34 

0 90A 

CWA15 

INA 

10 


N 33 0 0 13 5 

o o 

0136 

PQ 035 

F800 

CWA18 

LDQ^ 

COUNT 


N33Q0136 

o 

o 


'/■ 'l 



CWAREQ 


PAGE 


4 

DATE: 01/27/99 


c 

\ ) 

013 7 

PO 036 

0151 


SQM 

CWA19 



SKIP IF NOT DONE 

132'^5 453^^^’^^'^^^ 



0138 

P0037 

18F9 


JMP^ 

CWA12 



ERROR - MORE THAN 8 DIGITS ENTERED 



l' '' 

0139 


00 38 P 

CWA19 

EQU 

CWA19 

) 



132^5453^»»»»^^^ 

: 0 


0140 

P00 38 

&A4F. 


STA^ 

INV-1,Q 




N330 0137 


0141 







2 CARDS DELETED 




0142 

PO 039 

OOFE 

CWA20 

INO 

-1 



DECREMENT COUNT BY 1 

N3300140 


o 

0143 

P0Q3A 

48 08 


STQ^ 

COUNT 



9 

N33Q0141 

' 0 

0145 



V- 



UPDATE POINTERS 

N3300143 



0146 

P003B 

E8 08 

CWA25 

LOQ'^ 

HILO 



RECALL BYTE POSITION FLAG AND REPEAT 

N330 0144 


o 

0147 

P003C 

18 DC 


JMP^ 

CWA4 




N33Q 0145 

C 


0149 



V- 



S 

T 

0 R A G E 

N330Q147 



0150 

P0U3O 

00 00 

BASE 

NUN 

0 




N3300148 


o 

0151 

P003E 

GO 00 

EXTHAN 

NUM 

0 




N330Q149 

0 

0152 

P003F 

0000 

EXTHSG 

NUM 

0 




NS500150 


0153 

PO 040 

GOOD 

BUFADD 

NUM 

0 




N3300151 



015^* 

P0Q41 

10 00 

MODE 

ADC 

ASMOO 




N330D152 



0155 

PQ 042 

OOQO 

COUNT 

NUM 

0 




N33GG153 

■ 0 


015 6 

P0043 

0 0 00 

HILO 

NUM 

0 




N330Q154 

o 

0158 









N33Q 0156 

0 

0159 






ALL 

INPUT IN, 00 CONVERSION 

N3300157 


0160 









N3300158 


o 

0162 






ARRANGE INPUT DATA INTO PROPER ORDER 

N330 0160 

■ C.) 


0163 

P 0 0 *<4 

C8FD 

CWA27 

LOA-'^ 

COUNT 




N 33 0 0 161 



0164 

P0045 

60FF 


STA- 

I 




N3300 162 


C) 

0165 

POO 46 

GC 08 


ENQ 

8 




N33Q0163 


0166 

P0047 

CA3F 

CWA29 

LOA^‘ 

INV-1,Q 




N3300164 



0167 

P0048 

69 47 


STA^ 

CWAVAL, 

I 



N3300165 



0168 

P0049 

ODFE 


INQ 

-1 



DECREMENT COUNT BY 1 AND CHECK IF DONE N330016b 


o 

0169 

P004A 

0 814 


IRQ 

A 




N33Q0 167 

: 0 

0170 

P0Q48 

98F6 


SUB» 

COUNT 




N3300168 


0171 

P0 04C 

0 102 


SAZ 

CWA30 




N330 0169 



0172 

P004D 

DOFF 


P.AO- 

I 




N33Q 017 0 


o 

0173 

P004E 

18F8 


JMP"- 

CWA29 



TO REPEAT 

N330fll7i 

0 

017^ 

P004F 

0G04 

CWA30 

ENQ 

4 




1 3 2» 5 4.5 3 » 


0175 

P005C 

5827 

RT 

CyTBIN 



CONVERT SECOND FOUR DIGITS TO BINARY 

132»5453»»’^^*^»»- 



0176 

P0051 

68 32 


STA^ 

ILSB 



SAVE LSB 

1 32*5453 



0177 

P0Q52 

ocoo 


ENQ 

0 




1 3 2 * 5453 ******** 

• 0 


0178 

P0053 

5824 


RT 3=*^ 

CVTBIN 



CONVERT FIRST FOUR DIGITS TO BINARY 

^32*5453******** 


0179 

P0 054 

0 8 42 


CLR 

Q 




1 32*5453*’^** 



018 0 

PG055 

3831 


DVI^ 

N09S 



DIVIDE MSB BY 96 

132*545 3 ******** 



0181 

P0fl56 

682E 


STA^ 

MOSMSB 



SAVE SECTOR MSB 

1 32*3453 '^•*^*^***’‘‘ 

■ 0 

u 

0182 






LEAVE REMAINDER IN Q 

132*5453******** 


0163 

P0 057 

C82C 


LOA^ 

ILSB 



PICK UP LSB 

132*5453******** 



0184 

P0058 

38 2E 


DVI^ 

N096 



DIVIDE LSB BY 96 

132*5-453******** 


o 

0185 

P0059 

482C 


STG’^ 

TEMP 



SAVE REMAINDER - WORD ADDRESS 

1 32*5453******** 

: 0 

0186 

P0 05A 

E82A 


LOQ^ 

MOSMSB 



GET MSB 

132*5453*****'*** 


0187 

P0 05B 

OFEl 


LLS 

1 



MOVE LSB BIT 15 TO MSB 

132*5453******** 



o 


o 


CWAREQ 


PAGE 


DATES Cl/27/99 


0188 

P005C 

OFCF 


ALS 

15 

0189 

PGQ50 

4827 


STQ^ 

M OS MSB 

019D 

P0 05E 

584E 

CWA47 

RTJ=^ 

CV4A 

0191 

PD05F 

4848 


STQ» 

MES2 

0192 

P0060 

6848 


STA» 

MES2+1 

0193 

P0061 

C823 


LDA» 

M OS MSP 

0194 

P0062 

534A 


RTJ^ 

CV4A 

019 5 

P0063 

4841 


STQ=^ 

MESl 

0195 

P006 4 

6841 


STA^ 

MESi+1 

0197 

P0065 

C820 


LOA^^ 

TEMP 

0198 

PGQ6 6 

5846 


RTJ» 

CV4A 

0199 

P0067 

4843 


SIQ’^ 

MES3 

020 0 

PC 0 68 

6843 


STA^ 

MES3+1 

0201 



V- 



020 2 

P0069 

54F4 


RTJ- 

(AMONI ) 

0203 

PD 06A 

0 5 07 

CWACD 

ADC 

$5Q0+CH RSLV 

020 4 

PO ObB 

0 0 07 


ADC 

CWART-CWACD 

020 5 

P0 06C 

0 0 0 0 


NUM 

0 

0206 

PQ0 6D 

0 0 0 0 

OTLU 

NUN 

0 

020 7 

PO 06E 

CO 14 


ADC 

LMES 

Q2G 8 

PO 06F 

0 0 2E 


ADC 

MES-GWACD 

020 9 

P0070 

14FA 


JMP- 

lADTSP) 

021 0 



■V- 



0211 

P0071 

0814 

CHART 

TRQ 

A 

0212 

P0 072 

E8CA 


LOQ^ 

BASE 

0213 

P00 73 

0121 


SAP 

CWAEX 

021% 

P0C74 

ODOi 


INQ 

1 

0215 

P0075 

E2 03 

CWAEX 

LDQ- 

SOHMOR, Q 

0216 

P0076 

1622 


JMP- 

(ZERO) , Q 

0218 



V- 



0219 






0 22 0 



» if V 



0221 



if if if if 



0222 



V- 



0223 

P0 077 

OBOO 

CVTBIN 

NOP 

0 

0224 

PC078 

4QFF 


STG- 

I 

0225 

P00 79 

C916 


LDA^‘ 

CWAVAL, I 

0226 

P0 07A 

OFCC 


ALS 

12 

0227 

POO 7B 

E915 


LDQ^ 

CWAVA L+ 1,1 

0228 

PO 07C 

0FA8 


QLS 

8 

0229 

P0 070 

0 8 74 


EAO. 

A 

0230 

P0 0 7E 

E913 


LDQ^ 

CWAVAL+2 , I 

0231 

P007F 

0 FA4 


QLS 

4 

0232 

P0 080 

08 74 


EAQ 

A 

0233 

PDG81 

B911 


EOR"^ 

CWAVAL + 3,1 

023i* 

P00 82 

1CF4 


JHP^ 

(CVTBIN ) 

0236 

P0083 

0 0 00 

ILSB 

NUM 

0 

0237 

P0i384 

0 0 0 0 

M0SHS8 

NUM 

0 

0238 

P0085 

0 0 0 0 

TEHP 

NUH 

0 


CONVERT LSB SECTOR TO ASCII 


CONVERT KSB SECTOR 


CONVERT WORD 


WRITE 

RETURN 

THREAD 

LU (TO BE FILLED) 

LENGTH 

BUFFER 


SET FOR I/O ERROR 
EXIT ACCORDINGLY 


132^545 3 

N33Q022^ 
N33G 0 225 
N33Q 0226 
N33QD227 
N33UQ228 
N3300 229 
N330 0 230 
N33U0 231 
N330C232 
N33QD235 
N33Q0234 
N3300235 
N330 0 236 
N33j0237 
N3300238 
N33Q G 239 
N330 0 24Q 
N3300241 
N33QQ242 
N33GC243 
N3300244 
N3300245 
N3300246 
N330 0247 
N3300246 
N3300249 
N330 0 250 


ROUTINE TO CONVERT 4 DI GITS 
ENTRY Q=INDEX TO 1ST DIGIT 
EXIT A= CONVERTED VALUE 


FIRST DIGIT 
^$1000 

SECOND DIGIT 
♦SlOO 

ADO TO FIRST DIGIT 

THIRD DIGIT 

^SIO 

ADO TO FIRST 2 DIGITS 
ADD IN FOURTH DIGIT 
RETURN 


INPUT LSB TEMP STORAGE 


TO BINARY 

OF CWAVAL 132’^5453»»»'^^^»^ 

132^545 3 

132 » 5453 ’!^»^»^=^-»- 

132 ^ 5453 ^^^^^^-^* 

132'*^5453^^^^^^^^ 

132^-5 45 3 ^^»’^«--^-’^^ 


1 32'*^ 5 45 3-9^-^ 

N3300252 

N3300253 


CWAREQ 


PAGE 


6 


date; 01/27/99 


Q 



0239 

P0Q86 

0 060 

N096 

NUM 

96 



D240 

P0087 

0 0 08 

INV 

BZS 

IN\; (8) 


o 

0241 

P008F 

00 09 

CWAVAL 

BZS 

GWAVAL(9) 


0243 






t-1 E S S A G E 


0244 

P0098 

OAOD 

MES 

NUM 

SAOQ 



0245 

P0099 

5345 


ALF 

11, SECTOR/WORD ADDRESS = 

O 


P009A 

4354 







P009B 

4F52 







P009C 

2F57 







P0C9D 

4F52 







P0 09E 

4420 







P0Q9F 

4144 







POOAO 

4452 





C) 


PflOAl 

4553 







POO A2 

53 2 0 







P0QA3 

3D20 






0246 

POOAu 

2020 

MESl 

ALF 

2, 

MSB ADO. 

C 


P00A5 

2020 






0247 

PG0A6 

2D2D 


ALF 

1,-- 



0248 

P00A7 

2020 

HFS2 

ALF 

2, 

LSa ADO. 



PG 0A8 

2020 






0249 

P00A9 

2D2D 


ALF 

!»-- 



0250 

POOAA 

20 20 

MES3 

ALF 

2, 

WORD ADD. 



POOAB 

20 20 






0251 


0014 


EQU 

LHES f ^ 

-MES ) 

o 









0253 








0254 






ROUTINE TO CONVERT TO I-WORD ASCII 


0255 








0256 

POOAC 

OBOO 

CV4A 

NOP 

0 

ENTRY 


025 7 

POOAD 

OCOC 


ENO 

0 



0258 

PO DAE 

08 15 


STQ^ 

Cl 

SET UP INDEX 

r''\ 

0259 

PO OAF 

OFEC 

Cl 

LLS 

12 

EXTRACT 4-BIT TO A-REG. 


0260 

POOBG 

0FC4 


ALS 

4 



0261 

POOBl 

48 DO 


STQ^ 

CT 

SAVE REHAINQER 


0262 

PO 0B2 

09F5 


IMA 

-10 

SET UP CHAR. AS NO. OR A-F 


0263 

P00B3 

0131 


SAM 

NOA FI 


O 

0264 

PG0B4 

0907 


INA 

7 



0265 

PO 0R5 

093A 

NOA FI 

INA 

$3A 



0266 

P00B6 

E8 OD 


LDQ» 

Cl 

RECALL INDEX TO SAVE CHAR. 


0267 

P00B7 

6AQ8 


STA'» 

CU,Gl 



0268 

P0QB8 

ODFC 


INQ 

-3 

CHECK IF DONE 


0269 

P00B9 

01 4A 


SQZ 

CE 

SKIP WHEN DONE 


0270 

PDOBA 

03 09 


RAO^^ 

Cl 



0271 

POOBB 

QCCO 


ENQ 

0 



0272 

P C a BG 

C8G2 


LDA- 

CT 

TO PROCESS ANOTHER ONE 


0273 

POO BD 

18F1 


JMP’^ 

Cl 



0274 







C) 

0275 

PO uBE 

00 00 

CT 

NUM 

0 



0276 

POOBF 

OQ 04 

CU 

BZS 

CU(4) 



0277 

P00C3 

OOGO 

Cl 

NUM 

0 



O 


o 


N33UQ 254 
N33Q 0255 
N330D25 6 

N3300258 

N3300259 

N330G260 


N3300 261 

N 330 0 262 
N330Q253 

N330Q264 

N33a0265 

N3300266 


N330Q 266 
N330 0269 
N330 0 270 
N33D0 271 
N3300272 
N330G273 
N 330 0 27 4 
N330 0275 
N330 0276 
N3300277 
N3300278 
N3300279 
N330 C 280 
N3300 281 
N33Q0282 
N3300 263 
N33G 0 284 
N330 0285 
M330 0285 
N33Q 0267 
N330 0 288 
N3300289 
N33G 0290 
N33C0291 
N33Q 0292 


O 

O 

O 

O 

o 

o 

o 

Q 

o 

o 

o 

o 

Cl 

o 

o 

C) 



o 

o 

o 

o 

o 

o 


N330 0293 
N3300294 
N3300295 

N3300296 ' U 

N3300 29?' 

N33DG298 
N330 0 299 

N330 0 3QO L.' 


N 33 0 0 30 2 
N33Q 030 3 
N33003Q4 
N 33 0 0 30 5 
N330 0306 
N330 0 30 7 


O 


O 


O 


o 


o 


o 


o 


o 


o 


CWAPEQ 


PAGE 


date: fil/27/99 


o 


o 

o 


o 


o 


in 


o 

o 

Q 

o 

o 

o 


EQUI VALENCES 


DEF .LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

0 GOO 

I 

OOFF 

(000255) 

0 0 81 , 

0104, 

0107, 0164, 0172, 0224 

0 038 

AMONI 

00F4 

(00024^*) 

0 202 



0 038 

AOISP 

00 EA 

( 00 Q23ii) 

0 209 



0 038 

LPHSK 

00 02 

(000002) 

0114, 

0116 


0 0 38 

NZERO 

0012 

(000018) 




0 0 38 

ZROBIT 

0033 

(000051) 




0 0 39 

FIVE 

0043 

(000067) 




0 0 39 

SIX 

0044 

(000068) 




0 039 

ZERO 

0022 

(000034) 

0216 



0 0 39 

ONEBIT 

0023 

(00QQ35) 




0 0 39 

SIXTEN 

0027 

(000039) 




0040 

COMMA 

002G 

(000044) 




0 0 40 

SLASH 

0C2F 

(000047) 




0 040 

ASTRIC 

Q02A 

( 0 000h2) 




OCUl 

EIGHT 

0 0 2 6 

( Q00Q38) 




0 041 

NINE 

OG^fS 

(000069) 




0 

0 041 

THREE 

OOOu 

( 00000 4) 




ONE 

000 3 

(0 00003) 




0 0 41 

TWO 

00 24 

(000036) 




0 0 42 

TEN 

0046 

(000070) 




0 0 43 

MASK 

00 03 

(000003) 




0 045 

CHRSLV 

0007 

(000007) 

0 203 



0 04 6 

ASMOD 

1000 

(004096) 

0154 



0 049 

KARO 

0 030 

(00QQ48) 

0 121, 

0124 


0050 

KAR9 

0039 

(000057) 

0 124, 

0126 


0 051 

KARA 

0041 

(000065) 

0126, 

0 129 


0 0 52 

KARF 

0 0 46 

(000070) 

0129 



0 0 55 

HANDLE 

0001 

(000001) 

0 084 



0 056 

MSG 

00 02 

( 0Q00Q2) 

0 0 86 



0 05 7 

SOMMOR 

0003 

(000003) 

0 215 



0 058 

lOEPR 

OQQ 4 

(00 GOG 4) 




0 0 59 

LISTLU 

000 5 

(000005) 




0060 

COMOLU 

uG0 6 

(000006) 

0 088 



0 061 

NEWMLU 

00 0 7 

(000007) 




0 0 62 

PROGl 

0 0 0 8 

(000008) 




0 0 63 

PR0G2 

00 0 9 

( O0QO09) 




0 06 4 

BITFLG 

OOuA 

(OOOCIO) 

0 101 



0 065 

BUFCNT 

0 GOB 

( Q 0 0 0 1 1 ) 

0 103 




o 

o 

o 

n 

•W' 

O 


o 

0 

o 


o 


o 


o 


o 


o 



o 



CWAREQ 


PAGE 


9 


DATE? 01/27/99 


0 0 & 6 

FIELD 

OOQC 

(000012) 


0 067 

SL ASHF 

0010 

(000016) 


QQ68 

BUFEMT 

0011 

(000017) 


0069 

BUFFER 

0012 

(000018) 

0 082 

0 0 72 

GETFLO 

0 00 2 

(030002) 


0 0 73 

ASCHFX 

0 0 0 3 

(000003) 


0 07 A 

ASCDEC 

G0Q5 

( 00000 5) 


0 251 

LMES 

0014 

(000020) 

0 207 


. 

. .. .. 








■ 

r '■ 










T 1 


CWARFQ 


PAGE 10 


DATE! 

01/27/99 


■ C'' 

(j 

S Y M B 0 

L S 







^ 0 

0 

DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 



: 0 


003 5 

CWAREQ 

000 0 

0 035 







0097 

CWAl 

0010 

0100 






■•■"A 

0101 

CWA2 

0015 

0 098 






'-J 

010 5 

CWA4 

0019 

0147 







0 108 

CWA5 

OOlC 

0105 







D llH 

CWA7 

0021 

0 112 






.. 

0 120 

CVJA9 

002 6 

0 117 





LJ 

u 

0131 

CWA12 

0031 

0123, 

0128, 

U 13 8 





0134 

CWA 14 

0033 

0130 







0135 

CWA15 

003 4 

0125 , 

0127 






0 13 6 

CWA18 

0035 

C 122 







0139 

CWA19 

0038 

0137 





1 


0 142 

CWA 20 

00 39 






1 


0146 

CWA25 

003B 






I 


0 150 

BASE 

Q03D 

3 0 80 , 

0 212 






0151 

EX THAN 

0Q3E 

0 0 85 







0 15? 

EXTMSG 

QQ3E 

0 0 87 , 

0132 






0153 

BUFADD 

0 040 

0 0 83 , 

0111 






0 15i^ 

MODE 

0041 

0 0 89 






o 

0 155 

COUNT 

0042 

0094, 

0136, 

0143, 0163, 

0170 




Q15fa 

HIIO 

0043 

0102, 

0109, 

0146 





0163 

CWA27 

0044 

0 118 







Q 166 

CWA29 

0047 

0173 






•4^; 

0174 

CWA30 

004F 

0171 







0 190 

CWA47 

0G5E 








0 203 

CWACD 

006A 

0204, 

0 208 






G 20 6 

OTLU 

0 060 

0 Q9Q 






■■■iJ 

0 211 

CWART 

0071 

0 2 04 







0 215 

CWAEX 

007 5 

0 213 







0 223 

CVTBIN 

0077 

0175, 

0178, 

0234 





0 23 6 

ILSB 

0 083 

0 176, 

0183 




u 

0 

0237 

MOSMSB 

00 8i- 

0181, 

0186, 

0189, 0193 





0 238 

TEMP 

00 8 5 

0115, 

Q 12 0 , 

0185, 0197 





0239 

N096 

00 86 

0 180 , 

0184 






0 240 

IN V 

0 0 87 

0 097 , 

0 140, 

Q 166 



■ u 

u 

0 241 

CWA VAL 

0G8F 

0167, 

0225, 

0227, 0 230, 

0233 




0 ?44 

MFS 

0098 

a 2 08 , 

0 251 






G 246 

HESl 

00 A 4 

0195 , 

019 6 






0 248 

MES2 

QO A7 

019.1, 

0192 




■ u 

u 

0 250 

MES3 

DO AA 

0199, 

020 0 






0 256 

CVuA 

OOAC 

0190 , 

0194, 

0198, 0285 




0 









0 










0 

0 



















■ 0 

{" "’1 

























CWARFQ 

PAGE 11 


DATEi 

01/27/99 

C259 

Cl 

GOAF 

0 2 73 




0265 

NOAFl 

0G8 5 

0 2 63 




0 275 

CT 

QOBE 

0 261, 

0272 



0 2 76 

CU 

GOBF 

0 2 67 , 

0279, 

0281, 0282, 

0284 

0277 

Cl 

G0C3 

0 2 58, 

0 26 6, 

0270 


0279 

CF 

Q0C4 

0 269 




0 288 

SA5G 

uOQ2 

0 289 




0 289 

SP50 

000 3 

0290 




0 290 

0850 

0120 

0 291 





CWAREQ PAGE 12 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

ADISP 

0 038 

AMONI 

0 038 

ASCDEC 

0 074 

BUFCNT 

0065 

BUFEMT 

0 068 

BUFFER 

0069 

COUNT 

015 5 

CT 

0275 

CU 

0276 

CWA18 

0136 

CWA19 

G139 

GWA2 

0 101 

CWAA7 

0190 

CWA5 

0108 

CWA7 

0 114 

DB50 

0 29 0 

EIGHT 

0 041 

EXTHAN 

0 151 

I 

000 0 

ILSB 

0236 

INV 

0 240 

LMES 

0251 

LPMSK 

0 0 38 

MASK 

0 0 43 

HSG 

0056 

NEWMLU 

0 061 

NINE 

0 u 41 

PROGl 

0062 

PROG2 

0 063 

SA50 

0288 

TEMP 

0238 

TEN 

0 0 A2 

THREE 

0041 


DATE: 01/27/99 


S Y H B 

0 L S 





ASCHEX 

0073 

ASNOD 

0046 

ASTRIC 

0040 

Cl 

0259 

CE 

0 27 9 

CHRSLV 

0045 

CV4A 

0256 

CVTBIN 

0223 

CWAl 

0097 

CWA20 

0142 

CWA25 

0146 

CWA27 

0163 

CWA9 

012 0 

CWACD 

0203 

CWAEX 

0215 

EXTMSG 

0152 

FIELD 

0066 

FIVE 

0039 

lOERR 

0058 

KARO 

0049 

KAR9 

Q05G 

HES 

0244 

MESl 

0246 

MES2 

0248 

N096 

0239 

NOAFl 

0265 

NZERO 

0038 

SIX 

0 0 39 

SIXTEN 

0039 

SLASH 

0040 

TWO 

0041 

ZERO 

0039 

ZROBIT 

0038 


BASE 

0150 

BITFLG 

0 06 4 

BUFADO 

0153 

Cl 

0277 

COMMA 

0040 

COMOLU 

0060 

CWA12 

0131 

CWA14 

0134 

CWA15 

0135 

CHA2 9 

L 166 

GWA30 

0174 

CWA4 

0105 

CWAREQ 

00 35 

CHART 

0211 

CWAVAL 

0 241 

GETFLD 

00 72 

HANDLE 

0 05 5 

HILO 

015 6 

KARA 

00 51 

KARF 

0052 

LISTLU 

0059 

HE S3 

Q250 

MODE 

0154 

MOSMSB 

0237 

ONE 

0 0 41 

ONE BIT 

0039 

OTLU 

0206 

SLASHF 

0067 

SOMMOR 

0 057 

SP5 0 

0289 


OHHRFQ 


PAGE 


i 


date: 01/27/99 


0001 
0002 
00 0 3 
00 0 4 
COO F 
00 06 

000 7 
00 0 8 
0C09 
0010 
0011 
0012 

0013 

0014 

001 5 
0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 

002 4 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

003 5 

0036 

0037 

0038 

0039 

0041 

0042 

0043 

0044 


V- 

* 

* 

* 

>/■ 

V- 

* 

* 

-¥■ 

¥ 


DECK-ID N34 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION loH 


^ THIS PROCESSOR DUMPS MASS MEMORY IN HEX. - 

* * 

JS,4tAf.:5t3#.Ai.AA AA-^21 


INPUT FORMAT 


SUMMARY-11 

N340Qu02 
N340 0(3 0 3 
N340D004 
N3400005 
N34Q 0 J06 
N340 0 00 7 
N 340 C0C8 
N340 0009 
N34Q 0 QIQ 
N3i.0Giill 
N3 h 30012 
N340Q 013 
N34a0Q14 


DMH ,SSMSB,SSLSB,SW,NW(CR) 


WHERE 


SSMSB = 
LSMSB = 
SW 

MW = 


START SECTOR (HEX) MSB 
START SECTOR (HEX) LSB 
START WORD (HEX) — DEFAULT 
NO. OF WORDS (HEX) 


N3400015 
N340 0 G16 
N3400 Q17 
N340 0 018 

N3400Q19 
N340002G 
N340GG21 
N3400022 
N3au 0 023 
N3uG0024 


* 

^ ^(L Ajt 


OUTPUT FORMAT : 


* 

■¥■ 


» 

■» 

* 

•V 

V- 


MNLLLL/WWWW 

XXXX XXXX 

XXXX XXXX 

WHERE MM 

2-DIGIT 

MSB 

(HEX . ) 

LLLL = 

-4-OIGIT 

Lse 

(HEX . ) 

wwww = 

4-OIGIT 

WORD 

(HEX. ) 

XXXX = 

MM DATA 

(8/LINE) (HEX.) 


N3430Q26 
N34Q 0027 
N3400328 
N340 0 029 
N34G003C 
N340 Q 031 
N3400032 
N3400033 
N 340 0 0 34 
N34Q 0 035 
N34C0036 
N3h0 0 037 
N340Q 038 
N340 0 039 


ENTRY 

ENT DMHREQ 
ENT DMAREQ 
ENT DNIREQ 


NAMES 


N3400041 
N34G 0 0^2 
N34u 0 0 43 
N3 40 0 044 


o 

o 

o 

o 

o, 

V,'- 


V..- 


o 

o 



0046 

0047 


G 0F4 
QOEA 
0 0 02 
0012 


EQU 


' E 

AMONI (SF4) 


Q U ' TABLE 

» AOISF (SEA) ,LPMSK(2 ) ,NZERO ( $12) ,ZROBIT{$3 3) 


N34Q 0 0%6 
N 340 0047 


o 


o 


0048 


0049 


005 0 


0051 
005 2 

0 0 5 4 
0055 
005 6 
0057 


0059 
006 0 
0061 
00 5 2 
0063 
006 4 

006 5 
0 0 6 6 

0067 

0068 

0069 

0070 

0071 

007 2 
00 7 3 
007 4 

007 6 

0077 

0078 

0079 
0 0 8 0 
0081 


0063 
008 4 
0085 


DMHREQ 


PAGE 2 

DATE) 01/27/99 


0 033 





0 0 43 

EQU 

FIVE ($43) ,SIX ($v4) ,ZERO ($22) ,0NE8IT1$23) tSIXTEN ($27) 

N34G0 048 

0 0 44 





0 022 





0 0 23 





0 0 27 





■J 0 2C 
0 0 2F 

EQU 

COMMA($2C) ,SLASH($2F) ,ASTRIG($2A) 

N340 0 049 

G 02A 





0 026 
Q n 

EQU 

EIGHT ($26) ,NINE($45) ,THRE£(h) ,ONE (3) , TWO ($24) 

N340005D 

u U “T V 

0 0 04 





0 0 03 





0 0 24 





0 0 46 

EQU 

TEN ($U6) 


N340 0 051 

00 03 

EQU 

HASK(3) 

ONE BIT MASK 

N34Q0Q52 

00 07 

EQU 

GHRSLV(7) 

LEVEL OF THIS PROGRAM 116^^436 

10 0 0 

EQU 

ASMOD ($1000) 

OUTPUT ASC MODE 

N340 0 0 55 

0 0 60 

EQU 

N096 (96 ) 

BUFFER SIZE 

N3400 056 

0 020 

EQU 

COM DM H( 45) 

COMMAND "DMH" INDEX 

N34Q0057 

V- 


PARAMETER LOCATION (OFFSET FROM BASE) 

N340 0 059 

0 0 01 

EQU 

HANDLE( 1) 

"HANDLE" 

N340Q 060 

0 0 02 

EQU 

MSG (2 ) 

"MSG" ENTRY 

N340 0 061 

OG 03 

EQU 

SOHMOR( 3) 

"SOHMOR" ENTRY 

N3400 062 

0 0 0 4 

EQU 

lOERR (4 ) 

“lOERR" ENTRY 

N34C0063 

0 0 05 

EQU 

LISTLUC5) 

LIST OUTPUT "LISTLU" 

N34Q0 064 

0 0 06 

EQU 

COMOLU (6) 

“COMOLU" 

N340 0 065 

0 0 0 7 

EQU 

NEWMLU (7) 

"NEWMLU" new MM LU 

N3400066 

0 0 C 8 

EQU 

PROGl (8 ) 

"PROGl" 

N3400 067 

0 0 09 

EQU 

PROG2 (9) 

"PROG2" 

N34Q0068 

00 DA 

EQU 

BITFLG(IO) 

"BITFLG" 

N3400 069 

00 OB 

EQU 

BUFCNT(ll) 

"BUFCNT" 

N3h0 0070 

00 DC 

EQU 

FIELD (12) 

"FIELD" 

N340 0071 

0 010 

EQU 

SLASHF( 16) 

"SLASHF" 

N3400072 

00 11 

EQU 

BUFEMT (17) 

"BUFEMT" 

N34B0 073 

0012 

EQU 

9UFFER(18) 

"BUFFER" 

N3400 074 

-¥■ 


SUBROUTINE "EQU" POINTERS 

N 340 0 076 

00 02 

EQU 

GETFLD( 2) 

"GETFLD" 

N34Q 0 077 

0 0 03 

EQU 

ASCHEXt 3) 

"ASCHEX" 

N340 0 078 

00 05 

EQU 

ASCDEC(5) 

"ASCDEC" 

N340 0 079 

0 0 09 

EQU 

FETMM (9 ) 

"FETMM" GET MM ADDRESS 

N3400 080 

00 OB 

EQU 

MA30T (11) 

"MASOT"— print mm DATA WITH OIFF. FORMATS 

N3400 081 







N340Q 033 

^ ^ V- ^ ^ 

PROGRAM 

START 


N3‘40 0 084 
N34Q0Q35 


OMHREa 


PAGE 3 


DATE: 01/27/99 


00 87 

PO 0 0 0 

6 8 54 

DMHREQ 

STA^ 

BASE 

0088 


0 000 P 


EQU 

DMAREQ(OMHREQ ) 

0089 


0 0 00 P 


EQU 

DMIREQC DMHREQ ) 

0090 

POOGi 

60FF 


STA- 

I 

0091 

P00G2 

ClQl 


LDA- 

HANDLE, I 

009 2 

PD0D3 

68 52 


STA» 

EXTHAN 

00 93 

POOGi^ 

C1D2 


COA- 

MSG, I 

0094 

POODS 

6851 


STAL 

EXTMS G 

0095 

P00 06 

C 107 


COA- 

NEWMLU, I 

0096 

P000 7 

6851 


STAL 

DMHLQC 

0097 

P00C8 

6821 


STA^ 

OTLU 

0098 

P0G09 

C109 


LDA- 

PR0G2 , I 

0099 

POOGA 

Q9D2 


INA 

-COMDMH 

0100 

poaoD 

684C 


STA» 

PROTYP 

0102 



if- 


GET MM 

0103 

POQOC 

0A09 


ENA 

FETMM 

0104 

POOGD 

OCOl 


ENQ 

1 

0105 

PDOOE 

5C47 


RTJ- 

{EXTHAN ) 

010 6 

PG OOF 

0 0 49 


ADC 

DMHLQC-^ 

0107 

POOlO 

Cl OC 


LDA- 

FIELD , I 

0108 

POOH 

0 9D3 


INA 

-COMMA 

0109 

pool 2 

0116 


SAN 

DMH3 

0110 

P0D13 

0 A 02 


ENA 

GETFLD 

0111 

PO 014 

0C04 


ENQ 

4 

0112 

P0015 

5C40 


RTJ’^ 

(EXTHAN ) 

0113 

POO 16 

Clli 


LDA- 

BUFEMT, I 

0114 

P0017 

8012 


EOR- 

LPMSK+16 

Oil 5 

P0018 

G 102 


SAZ 

DMH6 

0116 






0117 

PGQ19 

GC04 

DMH3 

ENQ 

4 

0118 

PQOIA 

1C3C 


JMP^ 

(EXTMSG) 

0119 






0120 

POQIB 

0 A 03 

DHH6 

ENA 

ASCHEX 

0121 

POOIC 

5C39 


RTJ^- 

(EXTHAN ) 

0122 

PO OID 

00 0 0 

NW 

NUM 

0 

0124 






0125 



W if- 


INPUT 

0126 






012 7 

POOIF 

0A60 

0HH9 

ENA 

N096 

0128 

PQOIF 

680B 


STA^ 

OH HZ 

0129 

P0 0 20 

683E 


STA^ 

SIZE 

0130 

P0021 

C837 


LDA^ 

OMHLOC 

0131 

P0022 

68 OA 


STA^ 

DHHM 

0132 

PC023 

C8 36 


LOA^ 

OMHLOC + 1 

0133 

P0 0 2 4 

68 09 


STA^ 

OMHL 

0134 

P0025 

54F4 


RTJ- 

(AMONI) 

0135 

P0 026 

03 07 

OMHCD 

AOC 

B30Q + CHRSLV 

013 6 

PO 027 

0 0 09 


AOC 

OMHRT-OMHCD 

0137 

P0D28 

GO 00 


NUM 

0 


GET AND SAVE "HANDLG" 

FETCH AND STORE "MSG" 

GET MM LU 

GENERATE PROGRAM TYPE, 0=HEX. , 1=DECIMAL 
AND 2=ASCII DUMP 

ADD R£ SS 

GET MM ADDRESS WITH INPUT MM ADD. DATA SAVE 


MAKE SURE FORMAT OK 

NO. OF WORDS 
MAKE SURE NO MORE DATA 


ERROR, SKIP 
GET NEXT FIELD 


FORMAT ERROR 
CONVERT TO HEX. 


DATA IN, TO READ OVER MM DATA 


SET UP MM ADD. 


READ 

RETURN 

THREAD 


N340GG87 
N34a0086 
N 340 0 089 
N3400 090 
N3-+0 0 09 1 
N340 0092 
N3400 095 
N340 0094 
N3400 095 
N3400 096 
N34Q0Q9r 
N3400Q98 
N3400099 
N3400 100 

N34QU102 
N34D0i03 
N34Q 0104 
N3400105 
N340Q10& 
N3400 107 
N340G108 
N3h30109 
N3400110 
N34fl0111 
N340Q 112 
N3400113 
N340011 4 
N 34 0 0 115 
N34J 0 116 
N340 0117 
N3400118 
N34G0119 
N3 hC0 12G 
N3400121 
N340C122 


N3400124 
N340012 5 
M 34 0 012 6 
N3400127 
N 340 0128 
N34D0129 
N34C0130 
N34D0131 
N3400 132 
N3400133 
N34Q0134 
N3400135 
N 340 013 6 
N340C137 


DHHRFQ 


PAGE 


DATE! 01/27/99 


0133 

PO 029 

0 Q DO 

OTLU 

MUM 

0 

0139 

P002A 

00 60 

DMHZ 

ADC 

N095 

0140 

P0 02B 

0 0 39 


ADC 

HMDAT-DMHCO 

0141 

PQ Q2C 

0 0 00 

OMHM 

NUM 

0 

0142 

P0 02D 

0 0 00 

DMHL 

NUM 

0 

0143 

P0 02F 

14EA 


JMP- 

(AOISP) 

0145 



■V. 



0146 

PQ02F 

01 63 

OMHRT 

SQP 

OMH20 

0147 

P0030 

E824 


LDO^^ 

BASE 

0148 

P0Q31 

E2 04 


LDQ- 

IOERR,Q 

0149 

P0 032 

1622 


JMP- 

(ZERO),Q 

0150 



=f- 



0151 

P0 033 

0 AGO 

DMH20 

ENA 

Q 

0152 

PG034 

6829 


STA^ 

DONE 

0153 

P 0 0 3 5 

C8E7 


LDA^ 

NW 

0154 

P0036 

98F3 


SUB^ 

DMHZ 

0155 

P0037 

09FE 


INA 

-1 

015 e 

P0038 

0123 


SAP 

DMH22 

015 7 

P0039 

0824 


RAO'-^ 

DONE 

015 8 

P003A 

C8E2 


LDA^ 

NW 

0159 

P003B 

6823 


STA^ 

SIZE 

0160 

P003C 

OAGB 

OMH22 

ENA 

MA30T 

0161 

PC03D 

E81A 


LDQ^ 

PROTYP 

0162 

P003E 

5C17 


RTJ^ 

iEXTHAN ) 

0163 

P003F 

OOIB 


ADC 

DMHL0C+2-* 

0164 

P0D40 

OOIE 


ABC 

SIZE-'^ 

0165 

PO 041 

OOlE 


ADC 

MMDAT-^ 

0166 






0167 

PD042 

C81B 


LDA^ 

DONE 

0168 

PO 043 

0 103 


SAZ 

DMH30 

0169 

P0044 

E810 


LOQ» 

BASE 

0170 

P0045 

E2 03 


LDQ- 

SOMMOR, Q 

0171 

P0046 

1622 


JMP- 

(ZERO ) , Q 

0172 





UPOA 

0173 

P0047 

C8D5 

DMH30 

LDA^ 

NW 

0174 

P0048 

98E1 


SUB^ 

DMHZ 

0175 

PQ049 

6803 


STA^ 

NW 

017 6 

PC04A 

C8 OF 


LOA^ 

DMHLDC+1 

0177 

PO 04B 

88DE 


AOD^ 

DMHZ 

0178 

P004C 

0122 


SAP 

DMH31 

0179 

PQ04D 

AOll 


ANO- 

LPMSK+15 

0180 

P004E 

0 8 QA 


RAO» 

OMHLOC 

0181 

P004F 

680A 

DMH31 

STA^ 

OMHLOC-H 

0182 

P005G 

C80C 


LDA^ 

DMHLOCf 4 

0103 

PD051 

88D8 


ADO^ 

DMHZ 

018^* 

P0052 

6 8 OA 


STA^ 

OMHLOC+4 

0185 

P0053 

18CA 


JMP^ 

DMH9 

0187 





S T 

0168 

P005 4 

00 00 

BASE 

NUM 

0 

0189 

P0C55 

0 000 

EXT HAN 

NUM 

0 

0190 

P0056 

0 GOO 

EXTMSG 

NUM 

0 


LU (TO BE FILLED) 
NO. OF WORDS 
BUFFER 

MSB (TO BE FILLED) 
LSB 


I/O ERROR 


CHECK IF MORE DATA THAN REQUIRED 


SET DONE 
SET UP SIZE 

TO ASSEMBLE MM ADO. /DATA AND PRINT 
ACCORDING TO PROGRAM TYPE 


CHECK IF ALL DATA BEEN PRINT 
NO, SKIP TO UPDATE POINTERS 

EXIT TO ‘’SOMMOR” 

POINTERS AND REPEAT 


ADJUST MM ADD. 


UPDATE WORD POSITION 


N340 0 138 
N3A00139 
NiAQulLO 
N3400141 
N340 0 142 
N3400143 

N3400145 

N3400146 

N 34 0 Q l4? 

N3400148 

N340Q149 

N340 Q150 

N3h00151 

N34D0152 

N34Q0153 

N340 0154 

N34Q015 5 

N3400156 

N34DQ157 

N3400158 

N3hQ 0159 

NShOO 160 

N34Q 0161 

N3400162 

N340G153 

N340Q164 

N34G0165 

N34Q0156 

N3400167 

N3400158 

N3400169 

N340 0170 

N3400171 

N340C172 

N 34-0 017 3 

N34Q 0174 

N3400175 

N3400176 

N340G177 

N34Q 0176 

N3400179 

N34Q0 180 

N3h0G181 

N340G182 

N34GQ183 

N3400184 

N3400185 

N3400187 

N340Q188 

N3400189 

N34D0190 


DMHREQ 
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DATE! 01/27/99 


0191 

P0057 

GOOD 

PROTYP 

NUM 

0 PROGRAM TYPE 

N340G191 

0192 

P0058 

00 05 

OMHLOC 

BZS 

DMHL0C151 

N3400192 

0193 

P005D 

0 0 00 

DONE 

NUM 

0 

N 340 019 3 

019A 

PO 05E 

0 0 0 0 

SIZE 

NUM 

3 

N34D0194 

0195 

P0 05F 

00 60 

MMOAT 

BZS 

MMDAT(N095) 

N3400195 


0197 





N34D0197 

0198 


OQOl P 

EQU 

SA45 {^/96> 

N3400198 

0199 


0 0 02 P 

EQU 

SP45( SA45+1) 

N340 0199 

020 0 


OQCO P 

EQU 

OB45(SP45-'96) 

N34002CG 

020 1 
0202 

POOBF 

0 0 01 

BSS 

END 

(DB45-^ ) 

N34Q0201 

N34G0202 

PGM = 

OOCO 

I 192 ) 

COM = i 

OQOO { 0 ) OAT = uuOG ( 0 ) 




OMHREQ 


date: 01/27/gg 


•w* 

E Q. U I V 

A L E M 

C E S 




o 

DEF.LINE 

name 

VALUE 


REFERENCED AT LINE NUMBER 

o 


0 0 0 0 

I 

GOFF 

{000255) 

0 0 90 



0 047 

AMONI 

0OF4 

1 00 0244) 

0134 



0 Q47 

AOISP 

GQEA 

(0QC234) 

0143 


O 

0 047 

LPMSK 

0002 

<000002) 

01 l4, 0179 



0 047 

NZERO 

0012 

(000018) 




0 0 47 

ZROBIT 

00 33 

(D00Q51) 


o 

o 

0 048 

FIVE 

00 43 

(000067) 


0 0^+8 

SIX 

0044 

(0 00 068) 




0 0^8 

ZERO 

00 22 

(000034) 

0149» 0171 



0 0 48 

ONEBIT 

QQ23 

( 000035) 




oe<^B 

SIXTEN 

0027 

(000039) 




0 049 

COMMA 

002C 

(000044) 

0108 



0 049 

SLASH 

C02F 

( 000047) 




00 49 

ASTPIC 

0 02A 

(000042) 




0 050 

EIGHT 

0G2 6 

( 000038) 



i ) 

0 050 

NINE 

0045 

(0 QDD69) 




0 050 

THREF 

000 4 

( 0 0 G 0 0 4 ) 




0050 

ONE 

000 3 

(000003) 




0 050 

TWO 

0024 

( 00Q036) 



'.J 

0051 

TEN 

0046 

(000070) 




0 0 52 

MASK 

00 0 3 

(0Q00Q3) 




0 054 

CHRSLV 

000 7 

(000007) 

0135 

1 • 

o 

0 0 55 

ASMOD 

1000 

(004096) 



0 05 6 

N096 

0060 

(000096) 

0127, 0139, 0195 



0 0 5 7 

COMOMH 

00 20 

1000045) 

0 099 



0 060 

HANDLE 

QOOl 

(000001) 

0 0 91 

'*‘^1 


0061 

MSG 

0 0 0 2 

( QQDQ02) 

0 0 93 


■■-y 

0 062 

SOMMOR 

000 3 

(000003) 

0 170 



0 063 

lOERR 

00 0 4 

(000004) 

0 148 



0 a 64 

LISTLU 

0 0 0 5 

( 000Q05) 


: o 


0 065 

COMOLU 

00 0 6 

(000006) 


u 

0 06 6 

NEWMLU 

00 0 7 

( 0 00007 ) 

0 0 95 



0 0 6 7 

PROGl 

000 8 

(000008) 




0 068 

PROG2 

000 9 

( 0Q0C09) 

0 0 98 

. O 


0 0 69 

8ITFLG 

00 0 A 

( OOOOIQ) 


u 

0 070 

3UFCNT 

OOOB 

(000011) 




0071 

FIELD 

GOOC 

(000012) 

0 107 



0 0 72 

SLASHF 

0010 

(000016) 




O 



ONHREQ 
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0 073 

BUFEMT 

0011 

( 000017) 

0 113 

0074 

BUFFER 

0012 

1 000018) 


0 0 7 7 

GETFLD 

0002 

(QOGQ02) 

0110 

0 0 78 

ASCHEX 

00 0 3 

(000003) 

0 120 

0 0 79 

A SCOEC 

0 0 0 5 

( 0 0 000 5) 


0 0 80 

FETMM 

0 00 9 

(000009) 

0103 

0 0 81 

MASOT 

OOOB 

(000011) 

0 160 


date; 01/27/99 



o 

o 

o 

o 

o 


o 


DHHREO PAGE 8 DATE: C1/E7/99 

o 

S Y H B 0 L S 


o 

DEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 



0042 

OMHREQ 

DO 0 0 

0 0 42 t 

0 088, 

0 089 



0 043 

DMAREQ 

GOOD 

0 0 43 





0 044 

OMIREQ 

OOQQ 

0 044 




u 

0117 

DMH3 

0019 

0 109 





0 120 

0MH6 

ODIB 

0115 


0173, 0175 



D122 

NW 

OOID 

0153, 

0158, 




012 7 

DMH9 

JOIE 

0 185 

0 140 




0135 

DMHGD 

002 6 

0136, 




0138 

OTLU 

0029 

0 097 


0174, 0 177, 

0183 


0139 

DMH7 

0G2A 

0128, 

0 154, 


0141 

OMHh 

002C 

0131 





0142 

DMHL 

002D 

0133 





0 146 

OMHRT 

002F 

0136 





0151 

OMH2 0 

0033 

0146 




o 

0 16G 

0MH22 

003C 

0156 




0173 

DMH3G 

00 4 7 

0168 





0181 

0HH31 

004F 

0178 

0147 , 

0159 



0188 

BASE 

Q054 

0 0 87 , 

0162 

o 

0189 

EXTHAN 

0 05 5 

0 092 , 

G105, 

0112, 0121, 

0190 

EXT MSG 

0056 

0 3 94, 

0118 




0191 

PROTYP 

0 057 

0 100, 

C161 

0130, 0132, 

0163, 0176 


0192 

OMHLOC 

00 58 

0 0 96, 

0106, 


0193 

DONE 

00 5D 

0152, 

0157, 

0167 


'J 

0194 

SIZE 

005E 

0129 , 

0159, 

0164 



0195 

HMD AT 

GQ5F 

0 140 , 

016 5 




0198 

SA45 

0001 

0199 




o 

0199 

SP45 

00 0 2 

0 200 




0 20 0 

DB45 

OGCO 

0201 





o 


o 

o 

o 


o 


O 


, O 

o 

o 

o 

o 

f^\ 

o 

OiaOf 0l8lt G182, 0184 

: o 

; O 

o 

: O 

c 

: o 

n 


o 



D 

MHREQ 


PAG 

E 9 


DATE: 01/27/99 









A L 

P H A 

B £ T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 











ADI SP 

BUFEMT 

DMH22 

DMHM 

F£TMM 

MASK 

ONE 

SIZE 

0047 
0073 
016 0 
0141 
0080 
0052 
0050 
019 4 

AMONI 

BUFFER 

OMH3 

OMHREQ 

FIELD 

MASOT 

ONEBIT 

SLASH 

0 047 
0 0 74 
0 117 
0 042 
0071 
0 081 
0 048 
0 049 

ASCDEC 

CHRSLV 

OMH30 

DMHRT 

FIVE 

MMDAT 

OTLU 

SLASHF 

0 079 
0 0 54 
0173 
0146 
0 048 
0195 
0138 
0 072 

ASCHEX 

COHDMH ■ 

0MH31 

OMHZ 

GETFLD 

MSG 

PROGl 

SOMMOR 

0078 

0057 

0181 

0139 

0077 

0061 

0067 

0062 

ASMOO 

COMMA 

0MH6 

DHIREQ 

HANDLE 

NEWMLU 

PR0G2 

SP45 

005 5 
0049 
0120 
0 0^4 

006 0 
0066 
0068 
0199 

ASTRIC 

COMOLU 

DMH9 

DONE 

I 

NINE 

PROTYP 

TEN 

0 049 
0065 
0127 
019 3 
000 0 

0050 
0191 

0051 

BASE 

0B45 

DHHCD 

EIGHT 

lOERR 

N096 

SA45 

THREE 

0188 
020 0 
013 5 
0 05 0 
0063 
0 0 5 6 
0198 
005 0 

BITFLG 

DMAREQ 

OFHL 

EXTHAN 

LISTLU 

NW 

SIX 

TWO 

0 069 
0 Q43 
0142 
0189 
0 064 
0122 
0 048 
0050 

BUFGNT 

DMH20 

DMHLOC 

EXTMSG 

LPMSK 

NZERO 

SIXTEN 

ZERO 

GC7G 

0151 

0192 

0190 

0047 

0047 

0048 
0 0 48 

ZROBIT 

0047 


















SMNRFQ 
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date; 01/27/99 


000 1 


NAH SMNREQ DECK 

-ID N35 MSOS 5.0 


SUMHARY- 

11 ^ 

000 2 


MASS STORAGE OPERATING 

SYSTEM VERSION 5.0 



N3500Q02 

00 03 


SMALL SYSTEMS DIVISION, 

LA JOLLA, CALIFORNIA 



N3500003 

000 4 

V- 

COPYRIGHT CONTROL DATA 

CORPORATION 1976 



N35Q 0 00 4 

000 5 

-V- 





N3500Q05 

00 0 6 






N35GQu06 

000 7 


K- K’ if. if. if. if. if. if. if. V- ^ ^ ^ ^ ^ ^ ^ ^ if- ^ 


it. if. if. 

N35G0Q07 

0008 






N35D0 0G8 

000 9 

■V 

♦ THIS PROCESSOR SEARCHES MASS MEMORY FOR 


N353 0 0G9 

0010 



PATTERN 



N35Q OGIG 

0011 






N3500 011 

0012 



N3500C12 

0013 






N3500 013 

0014 

•V 





N3500014 

0015 


INPUT FORMAT ! 



N350 0Q15 

0016 






N3500ai5 

0017 


SMN,SSMS8,SSLSB,SW 

,NW,N,M,I 



N353 0 G17 

0018 

if. 





N350D018 

0019 






N3500G19 

0020 


WHERE SSMSB = START SECTOR (HEX) 

MSB 


N35Q 0 020 

0021 

if. 

SSLSB = START SECTOR (HEX) 

LSB 


N35Q 0 021 

0022 


SW 

= START WORD (HEX) 



N3500 022 

0023 


NW 

= NO. OF WORDS (HEX 



N3500 023 

0024 


N 

= NUMBER FOR SEARCH 

(HEX) 


N3500024 

0025 


M 

= BIT MASK FOR MATCH 

(HEX) 


N3500025 

002 6 

•V 

I 

= INCREMENT 



N3500026 

0027 






N350u 027 

0028 

-r 

DEFAULT "I" 

(INCREMENT) = 1 



N352G028 

0029 






N 350 0 02 9 

0030 






N35a 0 030 

0032 


ENTRY 

NAME 



N350 0032 

0033 


ENT SMNREQ 




N35D0Q33 

003 5 


EXTERN 

A L S 



N35G 0035 

0036 


EXT CHRSFG 




N3500a36 

0037 


EXT OFF 




N350 0 037 

003 6 


EXT HANDLE 




N35Q0038 


DQ40 

0041 


0042 


0 0F4 
OOEA 
0 0 02 
0 012 
0 0 33 
0 0 43 
Q 0 44 
0022 
C 023 
0 027 


'EQU' TABLE 

EQU AHOMI ($F4) , ADISP ($E A ) , LPM S K C 2 ) ,NZER0($12) ,ZROBIT ($33) 


FQU FIVE ($43 ), SIX ($44) ,ZERO ($22) ,0NEBIT($23) ,SIXTEN($27) 


N35u 0 04C 
N3500041 


N350G 042 


0043 


0044 


00 4 5 
004b 

004B 
0049 
005 0 

0052 

0053 
005 4 
0055 
005 6 


0058 
0G59 
005 0 
0061 
0062 
005 3 
0 0 6 
0 06 5 
0066 
00 67 
005 8 
0 0 6 9 
0070 
00 7 1 

0072 

0073 


007 5 

0076 

0077 


00 79 
00 80 
0081 
008 2 
0083 
00 8 4 
0085 


SMMREQ 


PAGE 


date: 01/27/99 


0 0 2C 
Q02F 
0 02A 
0 0 25 
0 0 45 
0 0 0 4 
0 0 03 
0 024 
0 0 46 
0 3 03 

0 0 07 
1000 
0 0 60 


0 0 02 
0 0 03 
00 05 
00 09 


EQU 

CO'IMA ($20 

,SLASH($2F) ,ASTRIC ($2A) 

N350G 043 

EQU 

EIGHT ($26) 

,NINE($45) , THREE (4) ,0NE (3) , TWO ($24) 

N350fl0-t4 

EQU 

EQU 

TEN ($46) 
MASK (3) 

ONE BIT MASK 

^^MSOS4.Q’-*N35aO 045 
N35G 0 046 

EQU 

EQU 

EQU 

CHRSLV(7) LEVEL OF THIS PROGRAM 

ASMOO($10QQ) OUTPUT ASC MODE 
0NESTR(96) 

116^4 36 0»'’^^'‘’-’^^^^- 
N3500049 
N350QQ50 

EQU 

EQU 

EQU 

EQU 

SUBROUTINE “EQU" POINTERS 
GETFLO(21 "GETFLD'' 

ASCHEX(3) "ASCHEX'* 

ASCDEC(5) "ASCDEC" 

FETMM(9) "FFTMM’' FETCH MM ADDRESS 

N3500052 

N3500D53 

N35G0054 

N3500055 

N35Q0056 


DOGl 
0 0 02 
0 0 03 
0 0 04 
00 05 
0 0 06 
0 0 07 
00Q8 
0 0 09 
OOOA 
0 0 GB 
OOOC 
0 010 
00 11 
0012 


EQU BHAN(15 
EQU MSG (2) 

EQU S0MM0R(3) 
EQU I0ERR(4) 
EQU LISTLU(5) 
EQU C0M0LU{6) 
EQU NEWMLU(7) 
EQU PROGK8) 
EQU PR0G2(9) 
EQU BITFLGdO) 
EQU BUFCNTdl) 
EQU FIEL0(12) 
EQU SLASHF(16) 
EQU BUFEMT(17) 
EQU 8UFFER(18) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE* 

*'MSG*‘ ENTRY 

"SOMMGR’* ENTRY 

"lOERR” ENTRY 

LIST OUTPUT — - "LISTUU' 

■•COMOLU" 

••NEWMLU” NEW MM LU 

••PROGI" 

••PR0G2" 

■•BITFLG*’ 

"BUFCNT” 

"FIELD" 

"SLASHF" 

"8UFEMT" 

"BUFFER" 


N350 0 058 
N350 0 059 
N3500060 
N35Q0 061 
N3bGu062 
N3500 063 
N35Q G Q64 
N3500065 
N35GUU&6 
N3500 067 
N350 0 068 
N35QQ 069 
N350 0 070 
N3500u71 
N35Q0072 
N3500 073 


♦ 




PROGRAM 


START 




N3500Q75 

N3500076 

N35U0077 


POO 00 68 64 
POOOl 60FF 
P00G2 ClOl 
POO 0 3 6 8 62 
POO 0 4 C102 
P0005 6861 
P0Q06 C107 


SNNREQ STA» BASE 
STA- I 
LDA- BHANfl 
STA^ EXTHAN 
LDA- MSG, I 
STA^ EXTMSG 
LOA- NEWMLU, I 


FETCH "HANDLE" ADD. 
GET "MSG" LOCATION 
GET MM LU 


N 350 0 0 79 
N350 0080 
N35u00ei 
N35Q0082 
N3500083 
N3500Q84 
N3500 085 


SMNRFQ 
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DATE: Gl/27/99 



o 


N35D 0086 
N350 0 067 
N35Q0088 
N35GQ089 
N35u009G 


N3500 092 
N3500093 
N350Q 094 
N35C0095 
N35Q 0 096 
N350 0 097 
N35D0 098 
N3500099 
N35G 0 1C 0 
N3500101 
H35Q0102 
N35GQ 103 
N 35 3 0 10 4 
N 350 0 1 0 5 
N3500106 
N350 0107 
N3500108 
N350 0109 
N 350 0 110 
N3500111 
N3500112 
N350G113 
N 350 0 11 H 
N3500 115 
N350Q116 
N3500117 
N35G0118 
N3500119 
N350Q 120 
N3500121 
N3500122 
N3500123 
N35; 0124 
N35G0125 
N3500126 
N35D0127 
N35G0128 
N35C 0129 
N35G0130 
N350G131 
N350G132 
N35Q0133 
N350Q134 


C 

O 

o 

l'~'l 

C' 

o 

o 

o 

o 

o 

o 

o 

o 

r\ 

\ 


N35D 0 13b 


SMNREQ. 
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OATE: 01/27/99 


P0033 

Clll 

SMN20 

LDA- 

BUFEMT,! 

SKIP I 

"I" unoef; 

P0034 

B012 


EOR- 

LPM3K+16 



P0035 

0107 


SAZ 

SMN22 

GET “I” 

FIELD 

PQ 036 

0A02 

SMN21 

ENA 

GETFLD 

P0 037 

OC04 


ENQ 

4 



P0038 

5C2D 


RTJ» 

(EXTHAM) 


TO BINARY 

PQ039 

0A05 


ENA 

ASCDEC 

CONVERT 

P003A 

5C2B 


RTJ^ 

lEXTHAN ) 



P003B 

6830 


STA-'‘ 

SMNVAL + 3 



P003C 

0111 


SAN 

SMN25 


DEFAULT = 1 

PQ03D 

D82E 

SMN22 

RAO^ 

SHNVAL + 3 

SET TO 



READ OVER DATA 

(1 SECTOR) 

P0 03E 

OA 00 

SHN25 

ENA 

0 



P003F 

6820 


STA^ 

COUNT 



P0040 

68 6C 


STA^ 

HEADIG 



P0041 

C828 


LDA^‘ 

SMNVAL+1 



P0G42 

A328 


AND^ 

SMNVAL+2 



P0043 

68 6A 


STA^ 

BAMASK 



P0Q44 

54F4 

SMN26 

RTJ- 

{AMONI ) 



POO^+B 

0307 

SMNCAL 

ADC 

$30 0 +CHRSLV 



PD046 

0 0 09 


ADC 

SMNIOE-SMNCAL 

EXIT 


P0 0 47 

0 0 00 


NUM 

0 

THREAD 

BE FILLED) 

P0 048 

0 0 00 

OTLU 

NUM 

0 

LU (TO 

P0049 

0060 


ADC 

ONESTR 

SIZE (96 WORDS) 

PO 04A 

OOBl 


ADC 

MMOATA-SMNCAL 

BUFFER 

LSB 

P004B 

0 0 0 0 

SHNLOC 

NUM 

0,0 

MSB AMD 

P004C 

0 0 00 






P004D 

14EA 


JMP- 

(ADISF) 




N3500137 
N35u015B 
N3500139 
N350014Q 
N35D0141 
N3500142 
N 350 0 iH 3 
N35G0i44 
N 350 014 5 
N 35 D 0 1 4 6 
N35Q 0147 
N35G0148 
N3500149 
N350 015 G 
N3500 151 
N3500152 
N 359 015 3 
N350 0 15 4 


N 350 0 156 
N350 0 157 
N350C158 
N359 0 159 
N353 fll&O 
N3500161 
N 350 016 2 
N3500163 

N3500164 


P0Q4F 0162 
P004F 0C02 
P0050 1C16 

P0Q51 C817 
P0052 0122 
P0053 0C07 
P0054 1C12 


P0Q55 
P0G56 
PO 057 
P0058 
P0Q59 
P0Q5A 
P005B 


E817 
CAOO 
0 0 9F 
A812 
B854 
0101 
1839 


018 3 

0184 PD05C E85G 

0185 P005D DFAl 


SHNI3E SQP SMN33 
SHNEM ENQ 2 

JMP^ (EXTMSG) 


SHN33 

SMN34 


SMN36 


SHN40 


LOA^ SMNVAL 
SAP SMN36 
ENQ 7 

JMP» {EXTMSG) 

LOQ^ COUNT 
LDA MMDAIA,G 

AND» SMNVAL+2 
EOR» BAMASK 
SAZ SHN40 
JMP» SMN50 


I/O ERROR, PRINT MESSAGE 

CHECK IF ANY WORD LEFT TO 3E SEARCHED 
OUTPUT SEARCH FINISH MESSAGE AND EXIT 


LOQ^ HEADIG 
QLS 1 


TO BUMP POINTERS 
ASSEMBLE DATA 


N 3:>D 0 16 6 
N3500167 
N35Q0168 
N 350 016 9 
N3500170 
N3500171 
N350C172 
N350G 173 
N350 0174 
N350 0 175 
N3500176 
N3500177 

N35GQ178 
N3500179 
N35D0180 
N 350 0 181 

N3500183 
N3500184 
N35Q 018 5 


o 


SMNREQ 
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DATE: Gl/27/99 



N353G186 
N350Q187 
N35Q0188 
N3500189 
N350C 19C 
N350019i 


N3500193 
N350 0 194 
N3500195 
N3500196 
N350 0197 
N350 0 198 


N35G 0199 
N350 02CQ 


N35002Q2 
N3500 203 
N 350 0 20 4 
N350 0205 
N350 0 206 
N35a02G7 
N350 0208 
N350 0209 
N 550 0 21 G 
N35C 0211 
N3500212 
N35QU213 
N350 Q 214 
N350 0 215 
N3500216 
N35Q 021 7 
N35Q0 218 
N35CD219 
N 350 G22G 
N3500221 
N350G222 
N350D223 
N350 0 224 
N350Q225 
N3500226 
N350 0 227 
N3500228 
N35Q0229 
N350 Q 230 

N35Q0231 

N3500232 


O 

o 

o 

c 

C'’ 

o 

o 

o 

o 

o 

o 

c 

o 

o 


o 


o 


SMNREQ 


PAGE 6 


DATES 01/27/99 


c 

o 

o 

o 

' 

o 

o 

o 

‘■J 

o 

o 

o 

o 


0233 PGC8A 9805 

Q23A P003B E8D8 

0235 P008C 8201 

0236 P008D 0822 

0237 P008E 1622 

0238 P008F 7FFF X 0TB 

0239 P0090 7FFF X 

0240 P0091 0152 SMN49 

0241 P0Q92 D81A 

0242 P0093 18C8 

0244 * 

0245 P0094 C8D3 SMN50 

0246 P0095 9805 

0247 P0096 68D1 

0248 P0G97 E892 

0249 PG098 F8D2 

0250 P0099 4890 

0251 P0G9A 0101 

0252 P009B 0121 

0253 P009C 1886 SMN51 

0254 P009O CSCE SMN53 

0255 PC09E 88CC 

0256 P009F 68CC 

0257 PDOAO 099F 

0258 POOAl 0121 

0259 P0OA2 13B2 

0260 ^ 

0261 P0QA3 68C8 SMN55 

0262 P0QA4 C8A7 

0263 PQ0A5 0960 

0264 P00A6 68A5 

0265 POOA7 0123 

0266 P00A8 08A2 

0267 P0QA9 AOll 

0268 POOAA 68A1 

0269 POOAR 1398 SMN55 


SUB^ 0TB 
LDQ» BASE 
ADD- BHAN,Q 
TRA Q 

JMP- (ZERO),Q EXIT TO "OFF" 

ADC HANDLE 0. “HANDLE" ENTRY 

ADC OFF 1. “OFF" ENTRY 

SQN SMN50 SKIP IF NOT PRINT HEADING 

RAO^ HEADIG SET NO HEADING FLAG 

JHP^ SMN40 

UPDATE POINTERS 

LDA» SMNVAL 
SUB^ SMNVAL+3 
STA^- SMNVAL 
LDQ^ HMINP+4 
AOQ3'- SMNVAL+3 
STQ» HMINP+4 
SAZ SMN51 

SAP SMN53 

JMP^ SMN34 ALL DONE 

LOA^ COUNT UPDATE CORE BUFFER 

ADD=^ SMMVAL + 3 

STA+ COUNT 

INA -96 

SAP SMN55 

JMP+ SMN36 

CORE BUFFER EXHAUSTED, UP DATE MH ADD, 

STA+ COUNT 

LOA+ SMNLOC+1 UPDATE LS8 

INA ONE5TR 

STA+ SMNLOC+1 
SAP SMN56 

PAO+ SMNLOC BUMP MSB WHEN LS8 OVER 32K 

AND- LPMSK+15 
STA+ SMNLOC+1 

JMP+ SMN26 TO READ OVER DATA FROM HM 


0271 POOAC 0000 HEADIG NUM 0 

0272 PQOAD 0000 BAMASK NUM 0 

0273 + MESSAGE 

0274 POOAE 0036 MESTBL ADC MESl-SHNPNT 

0275 POQAF 0008 ADC LMESl 

0276 POOBO 003E ADC MES2-SHNPNT 

0277 PGOBl OOOF ADC LMES2 

0278 + 

0279 P00B2 CAOD HESl NUM $A0D 

0280 P00B3 4345 ALF 6, CELL CONTENT 

PQ0B4 4C4C 

POOB5 2043 
PO0B6 4F4E 
P00B7 5445 
P00B8 4E54 



N35QC236 
N350 0 234 
N 350 0235 
N35Q0236 
N350 0 237 
N350 0238 
N350 0239 
N35GU 240 
N3500241 
N35DQ242 

N35G0244 
N350 0245 
N350 0 246 
N3500247 
N35B0 246 
N350 0 249 
N350025G 
N350G251 
N35G0252 
N350Q 253 
N350025^ 
N3500255 
N3500256 
N3500257 
N3500253 
N3500259 
N3500250 
N35Q0251 
N3500262 
N35Q 0 253 
N350 0264 
N35G C 25 5 
N350 0255 
N35G0267 
N350Q268 
N35G0269 

N35Q0271 
N3500272 
N350G273 
N3500274 
N350 0275 
M35G0 276 
N3500277 
N35Q0278 
N35CD279 
N35CC 280 


(' 

O 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

c 

o 

o 

D 


o 


o 


o 

o 


o 


o 




SMNRFQ 


' PAGE 7 

OATEJ 01/27/99 

0281 

PD0B9 

OAOD 

NUM 

SAOD 


0282 


0 0 08 

EQU 

LMESl (^-MESl) 


0283 


GDBA P MES2 

EQU 

MES2 


028 4 

POOBA 

20 20 MES21 

ALF 

2, 

MSB LOCATION 


POOBB 

20 20 




0285 

PDOBC 

2020 

ALF 

!♦ 


0286 

PO OBD 

2020 MES22 

ALF 

2, 

LS8 LOCATION 


PO QBE 

20 20 




028 7 

PO OEF 

2020 

ALF 

1. 


0288 

POOCO 

2020 MES23 

ALF 

2, 

WORD LOCATION 


PO OCl 

20 20 




0289 

P00C2 

20 20 

ALF 

3» { 



P00C3 

2020 





P0QC4 

2028 




0290 

PC0C5 

2020 MES24 

ALF 

2, 

DATA 


P00C6 

20 20 




0291 

PGQC7 

2920 

ALF 

1, ) 


C292 

PO 0C8 

OAOD 

NUM 

$A0O 


0293 


OOOF 

EQU 

LMES2 (^-MES2) 



N350Q281 

N350G282 

N3500283 

N350C284 

N3500285 
N35Q 028b 

N3500287 

N3500288 

N3500 289 


N350 0 29 0 

N35GG291 
N 3500292 
N3500293 


u 


O 

O 


o 

o 

o 

o 


0295 






029 6 




029 7 






0299 






030 0 



^ ^ ^ 


A 

0301 






0302 

PO 0C9 

oeoo 

ASMASC 

NOP 

0 

0303 

POOCA 

68 07 


STA^ 

AO 

0304 

PQOCB 

ECFD 


LDQ^ 

{ASMASC ) 

030 5 

POOCC 

F3FC 


ADQ^ 

ASMASC 

0306 

POOCD 

48 0 5 


STQ» 

A1 

Q3Q 7 

PO OCE 

58 05 


RTJ^ 

TW 

030 8 

POOCF 

D8F9 


RAO^ 

ASMASC 

0309 

POODG 

1CF8 


JMP^ 

{ASMASC ) 

G311 






0312 

POOOl 

0 0 00 

AO 

NUM 

0 

031 3 

P00D2 

0 0 0 0 

A1 

NUM 

0 

0315 






0316 

P00D3 

OBGO 

TW 

NOP 

0 

0 31 7 

P00D4 

OCOQ 


ENQ 

0 

0318 

PG0D5 

4811 


STQ*^ 

TWl 

0319 

P0QD6 

0FE4 

TWO 

LLS 


0320 

PGGD7 

6810 


STA^ 

TW2 

0321 

PO 0D8 

OOF5 


INQ 

-10 


ASSEMBLE LOCATION AND CONTENT INTO ASCII 
ENTRY 

SAVE LOCATION 


SAVE DATA CONTENT ADD. 
ASSEMBLE INTO ASCII 
SET EXIT 
EXIT 


ENTRY 

ZERO COUNT 
EXTRACT 4-8IT BYTE 

ASSEf^BLE INTO ASCII ACCORDING TO NO. OR A-F 


N350G295 
1350 029b 
N3500297 

N3500 299 
N35003DG 
N 35 0 0 301 
N3500302 
N350030 3 
N35003Qi- 
N3500305 
N350 0 306 
N35QG307 
N350 C3D8 
N35Q 0 309 


N350 0 311 
N350 0 312 
N3500 313 


N35G0 315 
N 350 0 316 
N35QG317 
N350Q318 
N 350 0 319 
N360 0 320 
N350D 321 


O 

C> 

O 

O 

o 

o 

o 

o 

© 

© 

o 

o 

o 

o 

o 

o 


o 


G 

SMNREQ PAGE 8 DATE: 01/27/99 



0322 

P00D9 

01 71 



SQM 

TWX 


N35Q 0 322 


0323 

POODA 

00 07 



INQ 

7 


N35Q0323 

o 

032 A 

POODB 

0O3A 


TWX 

INQ 

$3A 


N350 0 324 

0325 

POODC 

u FFD 



LLS 

16 

TO A-REG. 

N3500325 


0326 

POODO 

E3 09 



LDQ^ 

TWl 


N3500326 


0327 

PO ODE 

6A OA 



STA^'^ 

TW3,Q 

SAVE ACCORDINGLY 

N3500327 

o 

0328 

POODF 

OOOl 



INQ 

1 


N35C 0 328 

0329 

POGEO 

48 0 6 



STQ^‘ 

TWl 


N3500329 


033 0 

P 0 0 E 1 

OOFB 



INQ 

■“ 4 


N350 0330 


0331 

P 0 0 E 2 

01 49 



SQZ 

TWAS 

DONE, ALL 4 BYTE BEEN PROCESSED 

N350Q 331 

o 

0332 

P0GE3 

C804 



LDA^ 

TW2 


N3500 33? 

0333 

P0GE4 

OCOO 



ENQ 

0 


N3500333 


0334 

P00E5 

18F0 



JMP» 

TWO 


N3500334 


0335 




V- 




N350 0 33 5 

o 

0336 

PO 0E6 

0 0 00 


TWl 

NUN 

0 


N3500336 

0337 

P0QE7 

0 0 00 


TW2 

NUM 

0 


N35u 0 337 


0338 

P00E8 

0 0 04 


TW3 

BZS 

TW3 (4) 


N3500338 


0339 

PDOEC 

£8 E5 


TWAS 

LDQ+ 

Ai 

ASSEMBLE INTO 2-WORO AND SAVE 

N353Q339 

o 

0340 

POOED 

C8FA 



LDA^ 

TW3 


N3500 340 

0341 

PflOEE 

0FC8 



ALS 

8 


N350G341 


0342 

POOEF 

88F9 



ADO^ 

TW3 + 1 


N350D 342 


0343 

POOFO 

6622 



STA- 

(ZERO) , Q 


N35Q0343 


0 344 

POOFl 

G8F8 



LDA^ 

TW3+2 


N3500344 

0345 

PO 0F2 

0FC8 



ALS 

3 


N35G0345 


0346 

P00F3 

88F7 



ADO^ 

TW3 + 3 


N35QQ346 


0347 

POOFh 

6201 



STA- 

1,Q 


N350 0 347 

C') 

0348 

P00F5 

ICOO 



JMP^ 

(TW) 

RETURN 

N350 0348 


0350 








N350D 350 

0 

0351 

P00F6 

0 0 60 


MMOATA 

BZS 

HMDATA (963 


N3500351 

■' '] 

0353 








N35Q0353 


0354 


0 0 03 

P 


EQU 

SA53 (^/96) 


N350 0 35 4 


0355 


0 0 04 

P 


EQU 

SP53(SA53+-1) 


N350 0355 


0356 


0 180 

P 


EQU 

O053CSP53«^96) 


N350Q356 


0357 

P015b 

0 0 2A 



BSS 

(DB53-’^ 3 


N350 0357 


0358 





END 



N350 0 358 


PGM= 0180 ( 38P) COM - 0000 ( 0) DAT = 0000 ( 0) 


o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




SMNRFQ 
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C; 

DATE! 01/27/99 







o 

o 

E a u I V 

A L E N 

C E S 










o 

o 

DEF .LINE 
G GOO 

NAME 

VALUE 


REFERENCED AT LINE 

NUMBER ^ 


I 

OOFF 

(000255) 

0 0 80 


G OLl 

AMONI 

00F4 

(000244) 

0156, 0218 


D 

0 0 41 

ADISP 

GO EA 

(000234) 

0164, 0225 



0041 

LPMSK 

000 2 

(000002) 

0138, 0267 

o 


0 041 

NZERO 

0012 

(000018) 


0041 

ZRORIT 

0033 

( 0 00051) 



o 

0 0 42 

FIVE 

G043 

(000067) 


' o 

D042 

SIX 

0044 

(000068) 



0 042 

ZERO 

0022 

(000034) 

0237, 0343 


0 0 42 

ON EBIT 

0023 

(0G0035) 



l'~") 

0 0 42 

SIXTEN 

0027 

(000039) 


o 


0043 

COMMA 

002C 

(000044) 

0 116 


0 043 

SLASH 

u02F 

( 000047) 


0 0 43 

ASTRIC 

002 A 

(000042) 



0 

0 044 

EIGHT 

0026 

(000038) 



0 044 

NINE 

00h5 

(000069) 


o 


0044 

THREE 

000 4 

(000004) 




0 0i*4 

ONE 

000 3 

(000003) 



l'') 

0044 

TWO 

002h 

(000036) 




0 045 

TEN 

0046 

( 0 00 070 


- ;■ 1 


0046 

MASK 

00 03 

(000003) 




0 0 48 

CHRSLV 

0007 

(000007) 

0157, 0219 


o 

0 049 

ASMOD 

100 0 

(004096) 

0197 



0 0 50 

ONESTR 

0060 

( QOOQ96) 

0161, 0263 

o 


0053 

GETFLD 

000 2 

(0 D00 02) 

0108, 0140 


0 054 

ASCHEX 

000 3 

(000003) 

0111 


o 

0C55 

ASCDEC 

00 0 5 

(000005) 

0 143 


0 0 5 6 

FETMM 

0009 

(000009) 

0 0 93 

: O 


0 059 

BHAN 

0001 

( 0 000 01) 

0081, 0235 


0 060 

MSG 

00 0 2 

(000002) 

0 0 83 


0 

0 061 

SGMMOR 

00 0 3 

(000003) 


0 0 62 

lOERR 

00 0 4 

(00 0 00 4) 


C 


0 063 

LISTLU 

00 0 5 

(000035) 

G 0 88 


0 064 

COMOLU 

000 6 

(0QQQ06) 



o 

0065 

NEWMLU 

00 0 7 

( Q00Q07) 

0 085 

o 

006 6 

PROGl 

000 8 

( COQ008) 


0067 

PR0G2 

000 9 

(000009) 


o 

0068 

0ITFLG 

000 A 

(OQQOIQ) 


o 

r^ 













o 

O 






o 

{ i 






o 

' 

■ " - — 

" — • 

— - 

— 



_ _ _ . . . . 
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DATEl 01/27/99 


0 069 

BUFCNT 

OODB 

i OOGOll) 


0070 

FIELD 

OOOC 

1 000012) 

0 114 

0071 

SLASHF 

0010 

(000016) 


0072 

BUFEMT 

0011 

( 000017) 

0137 

0 0 73 

BUFFER 

0012 

(000018) 


0282 

LMESl 

000 8 

(000008) 

0275 

0 293 

LMES2 

OOCF 

( 0Q0G15) 

0277 


SMNREQ 


PAGE 11 


DATE: 01/27/99 


o 

S Y M R 0 

L S 


o 

DEE. LINE 

name 

ADDRESS 


0 033 

SMNREQ 

GOOO 


0108 

SMN7 

0017 

o 

0 113 

SMNXXX 

OOlC 

0124 

HMINP 

0026 


0126 

SHNIO 

002B 


0137 

SMN20 

0033 

o 

0 140 

SMM21 

0036 

0147 

SMN22 

Q03D 


0149 

SMN25 

0C3E 


0156 

SMN26 

0044 

o 

015 7 

SMNGAL 

0 0 45 

0 160 

OTLU 

0048 


0163 

SMNLOC 

0 0 4B 


0167 

SMNIOE 

004E 


0168 

smnem 

004F 


0171 

SMN33 

0051 


0173 

SMN34 

00 53 


0176 

SMN76 

00 5 5 

n 

0 18 A 

SMN40 

Q05C 


0194 

BASE 

006 4 


0195 

EXTHAN 

0 0 65 


0 196 

EXTMSG 

0 06 6 

O 

0197 

MODE 

0067 

0198 

SHNVAL 

0068 


0199 

COUNT 

006C 


0 200 

TEMP 

0 06D 

o 

0 20 4 

SMN43 

006E 

0218 

SMN45 

G07B 


0 219 

SMNPNT 

00 7G 


0222 

0TLU2 

0Q7F 

o 

0223 

MESSIZ 

0080 

0224 

MESLOC 

0081 


0227 

SMNPX 

0083 


0229 

SMN48 

0085 

o 

0238 

0TB 

00 8F 

0 240 

SMN49 

0091 


0245 

SMN5G 

0094 


0253 

SMN51 

009C 

o 

0 2 54 

SMN53 

009D 

0261 

SMN55 

00A3 


0269 

SMN56 

0 0 A B 


o 


referenced at line number 

0 033 
0133 
0127 

0086, 0096, 0097, 0099, 

0115, 0117, 0120 

0132 

0 139 
0146 
0269 

0158, 0162 
0 087 


0098, 
0 158 
0228 

0 100 , 

0262, 

0 264, 

0266, 

0 26 8 

0167 
0253 
0 172, 

0259 





0180 , 

0242 





0 079 , 

0234 





0 0 82 , 

0 09 5, 

0110 , 

0112, 

0142 , 

0144 

0 084, 
0 089 

0123, 

0169, 

0174 



0 1 G 3 , 

0128, 

0145, 

014 7, 

0152, 

0 153 

0102, 

0118, 

0126 , 

0130, 

0150, 

0176 

0190 
0 191 
0220 , 

0274 , 

0276 





0 090 
0189 
0187 
Q 2 20 
0 2 27 

0232, 0233 
0 231 

3181, 0240 
0 2 51 
0 252 
0 2 58 
0265 


o 

0210, 0248, 0250 O 

o 

o 

o 

o 

2245, 0246, 0247, 0249, 0255 O 

0213, 0254, 0256, 0261 

: O 

o 

O 

. O 
n 

O 

o 


i 







f’ ’ 

; 
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date: 

01/27/99 

0 

0 271 

HEADIG 

OOAC 

0151, 

0184, 

G229, 0 241 

u 


0272 

8AMASK 

00 AD 

0154 , 

0179 


o 

o 

0 274 

MESTBL 

00 AE 

0186, 

0188 


0279 

MESl 

0QB2 

0274, 

0282 



0 283 

MES2 

QOBA 

0 276 , 

0293 




0 2 84 

MES21 

OOBA 

0 206 




o 

0286 

MES22 

OOBD 

0 209 



0288 

MES23 

uGCO 

0212 




0 29 0 

l-1ES24 

Q0C5 

0 215 



0304, 0305, 0308, 0309 


0 302 

ASHASC 

00C9 

0205, 

0 20 8, 

0211, 0215, 

o 

0 312 

AO 

OODl 

G 303 



0 

0313 

A1 

00D2 

0306, 

0339 




0316 

TW 

0 0D3 

0 307 , 

0348 




0319 

TWO 

0006 

0334 



o 

iD 

0324 

TWX 

GODB 

0 322 

0326, 

0329 

0336 

TWl 

00E6 

0 318 , 


0337 

TW2 

00E7 

0320 , 

0332 


0 346 


0333 

TW3 

DOES 

0327, 

0 340 , 

0342, 0344, 


0 339 

T W A S 

OOEC 

0 3 31 

0 177, 

Q21v 

c 

1 1 

0 551 

MMDATA 

00F6 

0 162, 



0 354 

SA53 

000 3 

0 355 





0355 

SP53 

00 0 4 

0 356 



o ^ 


0356 

DB53 

0 130 

0 357 



o 







Q) 

o 







0 








1 

C 

















o 







■ c 

o 







u 

o 







o 

o 







c 

i"" ') 







o 





... ... 





— — - - -- ... . - — — 


SMNRFQ 


PAGE 13 


date: 01/27/99 


X T E R 

N A L S 



DEF . LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 036 

CHRSFG 

0 0 8 7 

0230 

003 7 

OFF 

0090 

0239 

0 038 

HANDLE 

008F 

0238 


date: 01/27/99 


SYMBOLS 


AMONI 0041 ASCOEC 0055 
BITFLG 0C63 BUFCNT 0069 
DB53 0356 EIGHT 0044 
HEAOIG 0271 I 0000 

MES2 0283 MES21 0284 
MMINP 012^ MODE 0197 
ONESTR 0050 0TB 0238 

SLASH 0C43 SLASHF 0071 
SMN34 0173 SMN36 0176 
SMN53 0254 SMN55 0261 
SMNPX 0227 SMNREQ 0033 
TW 0316 TWO 0319 

ZROBIT 0041 


o 


o 


o 


u 


o 


o 


o 


C) 


SMNREQ PAGE 14 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

AO 

0 312 

Ai 

0 313 

ADISP 

0 0 Hi 

BAHASK 

0272 

BASE 

0194 

BHAN 

0 059 

COMMA 

0043 

COMOLU 

0 064 

COUNT 

0199 

FIVE 

G042 

GETFLD 

0 053 

HANDLE 

0 038 

LPHSK 

0041 

MASK 

0 046 

MESl 

0279 

MESSIZ 

0 22 3 

MESTBL 

0274 

MMDATA 

0351 

OFF 

0 03 7 

ONE 

0 044 

ONEBIT 

0 0 42 

SA53 

0 35 4 

SIX 

GO 42 

SIXTEN 

QQ42 

SMN2 5 

0149 

SMN26 

0156 

SMN35 

0171 

SMN49 

0 24 0 

SMN50 

0245 

SMN51 

0253 

SHNIOE 

0167 

SMNLOC 

0163 

SMNPNT 

0219 

TEMP 

0 20 0 

TEN 

0 0 45 

THREE 

0 0 44 

TWO 

0044 

TWX 

0 324 

ZERO 

0 0 42 


ASCHEX 

005 4 

ASMASC 

030 2 

ASMOD 

0049 

ASTRIC 

0043 

: O 

BUFEMT 

0072 

BUFFER 

0073 

CHRSFG 

0 03 6 

CHRSLV 

0048 


EXTHAN 

019 5 

EXTMSG 

019b 

FETMM 

,0056 

FIELD 

0070 


lOERR 

0062 

LISTLU 

0 063 

LMESl 

0282 

LHES2 

0293 


MES2 2 

028 6 

MES23 

0288 

MES24 

0290 

MESLOC 

0224 


MSG 

0060 

NEWMLU 

0 0 6 5 

NINE 

0044 

NZERO 

0041 


OTLU 

0 160 

OTLU2 

0222 

PROGl 

0 066 

PROG2 

0 0 67 


SMNIO 

0126 

SMN2G 

013 7 

SMN21 

0 140 

SMN22 

0147 


SMN40 

0184 

SMN43 

Q2G 4 

SMN45 

0218 

SHN48 

0229 

i. / 

SMN5 6 

0269 

SMN7 

0108 

SHNCAL 

015 7 

SMNEM 

0168 


SMNVAL 

0198 

SMNXXX 

0113 

SOMMOR 

0061 

SP53 

0 35 5 


T Hi 

0336 

TW2 

0337 

TW3 

0 33 8 

TWAS 

0339 

' ri 


o 

c 

o 

o 

o 


o 

o 


SMPREQ 


PAGE 


1 


date: 01/27/99 


o 


000 1 
0002 
00 0 3 
000 4 
00 0 5 
000 6 
0 0 0 7 
00 0 8 
000 9 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
002 0 
0021 
0022 
0023 
002 4 
0025 


* 

¥ 

¥ 

¥ 

* 

V- 

H- 

♦ 

V- 

* 

¥ 

Jf- 

* 

V- 

V- 


NAM SMPREQ DECK-ID N36 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 ■ 

SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11 


if. ^ 

THIS PROCESS SETS MASS MEMORY TO PATTERN ^ 

* * 


INPUT FORMAT : 
SMP,SSMSB,SSLSB,SW,NW,P (CR) 


WHERE SSMSB 
SSLS8 
SW 
NW 
P 


START SECTOR (HEX . ) MSB 
START SECTOR (HEX.) LSB 
START WORD (HEX.) 

NO. OF WORDS (HEX.) 
PATTERN (HEX.) 


N36DOU02 
N3 60 0 U 0 3 
N3600004 
N360 OQO 5 
N360 0 0 0fo 
N3600007 
N36G 0 006 
N360G009 
N3600010 
NS&GGull 
N36u0 012 
N36Q0013 
N36D 0 Qli* 
N 360 C 0 1 5 
N36Q 0016 
N36Q 0017 
N3600016 
N36Q0019 
N360 0 02e 
N3600 021 
N3600 022 
N 36 0 0 0 2 3 
N3600G24 
N36C0 025 


0 02 7 
002 8 


ENTRY 

ENT SMPREQ 


NAME 


N36G0027 

N360G02e 


O 

C:- 

O 

O 

o 


* 


o 


0Q3Q 


0031 

O0F4 
DOEA 
0 0 02 
0012 
0 0 33 

EQU 

0032 

0 0 43 
0 0 44 
0 0 22 
00 23 
0 0 27 

EQU 

00 33 

G 02C 
E 0 2F 
0 0 2A 

EQU 

0034 

0 0 26 
0 0 45 
0 0 04 
00G3 
0 024 

EQU 

00 35 

0 0 46 

EQU 


»EQU' TABLE N 36 00030 

AMONI (SF4) , ADISP(iEA) ,LPMSK(2) ,NZER0($12) ,ZROBIT (S3 3) N 360 0 031 

FIVE ($43) , SIX ($44) , ZERO ( $2 2 ) , ON EB I T ($ 23 ) , SI XT EN ($27) N3600032 


COMMA ($20 .SLASH($2F>, ASTRIC ($2A) N360 0Q3 3 

EIGHT ($26) , NINE ($45) .THREE (4) ,0NE(3) , TWO ($24) N3dU0034 


TEN ($46) 


^^MSOSA.O'^^NSBOODSS 


i ) 


O 

o 

o 


o 


n 


O 


SMPREQ 


PAGE 2 


DATES 01/27/99 


003 6 

0 0 03 


EQU 

MASK C3) 

ONE BIT MASK 

003 8 

00 07 


EQU 

CHR5LV( 7) 

LEVEL OF THIS PROGRAM 

0039 

iOCO 


EQU 

ASMOD ($1000) 

OUTPUT ASC MODE 

0040 

00 eo 


EQU 

N096(96) 

SIZE OF DATA (PATTERN) BUFFER 

0042 




SUBROUTINE "EQU" POINTERS 

0043 

0 0 02 


EQU 

GETFLUf 2) 

"GETFLD" 

0044 

0 0 03 


EQU 

ASCHEX( 3) 

"ASCHEX" 

0 0 4 5 

0 0 05 


EQU 

ASG0EC(5) 

"ASCDEC" 

0046 

0 0 09 


EQU 

FEIMM(9) 

"FETMM" FETCH MM ADDRESS 

0048 




PARAMFTER LOCATION {OFFSET FROM BASE) 

0049 

DO 01 


EQU 

HANDLE ( 1) 

"HANDLE" 

0050 

0 0 02 


EQU 

MSG (2) 

"MSG" ENTRY 

QQ51 

0 0 03 


EQU 

SOMMOR (3) 

"SOMMOR" ENTRY 

005 2 

00 04 


EQU 

IOERR(4 ) 

"lOERR" ENTRY 

0053 

0 0 05 


EQU 

LISTLU (5) 

LIST OUTPUT "LISTLU" 

0054 

0 0 06 


EQU 

C0M0LU(6) 

"COMOLU" 

005 5 

0 0 07 


EQU 

NEWMLU (7 ) 

"MENMLU" NEW MM LU 

005 6 

0 0 08 


EQU 

PROGKS ) 

"PROGl" 

005 7 

0 0 09 


EQU 

PROG2 (9 ) 

"PROG2" 

0058 

COOA 


EQU 

BITFLG(IG) 

"BITFLG" 

0059 

OOOB 


EQU 

BUFCNT (11) 

"BUFCNT" 

0050 

00 OC 


EQU 

FIELD (12) 

"FIELD" 

0051 

0010 


EQU 

SLASHF ( 16) 

"SLASHF" 

0062 

0011 


EQU 

QUFEMK 17) 

"BUFEMT" 

0063 

0012 


EQU 

BUFFER (18) 

"BUFFER" 


006 5 









006 6 





JMMMm 

P 

R 0 G R A M S 

J J 

0067 









0069 

POQQ 0 

68 53 

SHPREQ 

STA» 

BASE 




0070 

POGCl 

5QFF 


STA- 

I 




0071 

POO 02 

ClCl 


LDA- 

HANDLE^ I 




0072 

P00G3 

6852 


STA^ 

EXTHAM 




0073 

POOO 4 

Cl 02 


LDA- 

MSG, I 




007 4 

POOO 5 

684F 


STA^ 

EXTMSG 




0075 

POOO 6 

Cl 07 


LDA- 

NEWMLU, I 


SET UP LU 


0076 

PQGC7 

6833 


STA^ 

0 TLU 




0077 

P0008 

6835 


STA^ 

SMPLQC 




0079 





GET 

MM 

ADDRESS AND CHECK 


0080 

PG009 

OCOO 


ENQ 

0 




0081 

POOOA 

0A09 


ENA 

FETMM 




0082 

PO OOB 

5C4A 


RTJ^ 

(EXTHAM ) 




0083 

POOOC 

0 031 


ADC 

SMPLOC-- 




0084 

POOOO 

0A02 


ENA 

GETFLD 


GET NEXT FIELD — 

- NO. OF WORDS 


N36Q0036 

116 -^ 4360 ^^^'“ 

N353Qu39 

N36GGu4C 

N 360 G 0 -t 2 
N360Q 045 
N3600G44 
N3600 045 
N360 0 U40 


N36G 0046 
N3600Q49 
N360au5Q 
N3600G51 
N3600052 
N36GG 053 
N360 0 a5 4 
M 360 Q 0 5 5 
N36G 0056 
N36Q 0 05 7 
N36Q0058 
N3600059 
N36G0Q60 
N3600061 
N360U 062 
N360G063 


N3600065 
N3600066 
N3600 067 


N3600069 
N36QQQ7Q 
N38G3071 
N3600072 
N360Q073 
N3600074 
N360 0 075 
N3600076 
N350Qa77 

N3600079 
N36G0080 
N36Q0U81 
N 360 0082 
N3600083 
N36C0084 


SMPRFQ 


PAGE 


3 


DATES Gl/27/99 


c 


0085 

PC GOE 

QC 04 


ENQ 

4 

0086 

POODF 

5C46 


RTJ^ 

<EXTHAN ) 

0087 

POO 10 

CIOC 


LDA- 

FIELD, I 

00 88 

POQll 

09D3 


INA 

-COMMA 

0089 

P0012 

0116 


SAM 

SMP4 

009 0 

P0013 

0 AQ3 


ENA 

ASCHEX 

0091 

PDQ14 

5C41 


RTJ* 

(EXTHAN ) 

0092 

P0015 

0 0 0 0 

SMPVAL 

NUM 

0 

0093 

P0016 

C8FE 


LDA* 

SMPVAL 

0094 

P0017 

0101 


SAZ 

SMP4 

009 5 

P0018 

0122 


SAP 

SMP6 

0096 

PO 019 

0 C04 

SMP4 

ENQ 

4 

0097 

0098 

POOIA 

1C3A 


JHP* 

{EXTMSG ) 

0099 

POQIB 

CiOC 

SMP6 

LDA- 

FIELD, I 

010 0 

PGOIC 

09D3 


INA 

-COMMA 

0101 

PO OID 

0116 


SAN 

SMP8 

0102 

POOIF 

GA 02 


ENA 

GETFLD 

0103 

PGOIF 

0C04 


ENQ 

4 

010 4 

P0020 

5C35 


RTJ* 

lEXTHAN ) 

010 5 

P0021 

Cl 11 


LDA- 

BUFEMT, I 

010 6 

P0 022 

B012 


EOR- 

LPMSK+16 

0107 

P0025 

0101 


SAZ 

SMPIO 

010 8 

P0024 

18F4 

SMP8 

JMP* 

SMP4 

0109 



¥ 



0110 

PC 025 

0 A 03 

SMPIQ 

ENA 

ASCHEX 

0111 

P0D26 

5C2F 


RTJ* 

(EXTHAN ) 

0112 

PD027 

0 0 0 0 

PATTEN 

NUM 

0 


MAKE SURE FORMAT OK 
CONVERT TO HEX. 

MAKE SURE VALUE IS POSITIVE 
FORMAT ERROR 

GET NEXT FIELD PATTERN 

MAKE SURE BUFFER EMPTY 

CONVERT PATTERN TO HEX. 


O 

0 

o 

o 

o 

o 


0114 

0115 

0116 
Oil 7 

0118 P0D28 OCOQ 

0119 PC029 C8FO 

0120 P002A 6A2C 

0121 P002B ODOl 

0122 P002C 0814 

0123 P0Q2D 099E 

0124 P002E 0101 

0125 P002F 18F9 

0126 P0030 0A60 

0127 P0031 680A 

0128 P0Q32 98E2 

0129 P0033 0132 
013 0 POO 3 4 C8EG 

0131 P0035 6806 

0132 P0036 54F4 

0133 P0037 0507 

0134 PGQ38 0009 

0135 P0039 0000 


ALL INPUT IN 


END 0 SET BUFFER FOR PATTERN 

SMP20 LDA'^ PATTEN 

STA» OATBUF, Q 
INQ 1 

TRQ A 

INA -N096-1 

SAZ SMP22 

JMP-'^ SMP2Q 

SMP22 ENA N09& SET UP SIZE 

STA» SMPSIZ 
SU8» SMPVAL 
SAM SMP26 

LOA^ SMPVAL 
STA^^ SMPSIZ 
SMP26 RTJ- (AMONI) 

SMPCO ADC S50 0-I-CH RSLV WRITE REQUEST 

ADC SMPRET-SMPCD RETURN 

NUM 0 THREAD 



o 


N3600D35 
N36C0086 
N36G0 087 
N3600 038 
N36u0089 
N350 G09D 
N36G0091 
N36GU 092 
N3600093 
N3600u94 
N36G 0 095 
N360 3 096 
N36C 0 097 
N360 0098 
N36Q0099 
N36G 0100 
N36G01D1 
N36001G2 
N36DG103 
N360010 4 
N 36 0 0 1 0 5 
N360 0106 
N36001G7 
N3600108 
N 360 0109 
N 36 0 0 110 
N36a0111 
N360G112 


N36Q0114 
N3600115 
N3bQ i3 116 
N 3600117 
N36Q0118 
N36G0 119 
N360Q12G 
N36C0121 
N3600122 
N3600123 
N36a0124 
N360 012 5 
N36Q0126 
N360 0 127 
N3600128 
N3600129 
N3600130 
N360 0 131 
N3600 132 
N3600133 
N360O134 
N36G 0135 


O 

C 

o 

o 

o 

o 

C' 

o 

o 

o 

C) 

o 

o 



o 


o 


N3600136 

N3600137 

N36D0136 

N3600159 

N360 01«40 
N360 0141 
N36g0l42 
N 360 0 143 
N3600144 
N360Q145 
N360C146 
N3600147 
N360 0148 
N 360 0149 
N36GG150 
N360 0151 
N36Q0 152 
N36G0153 
N36a0154 
N360D155 
N 360 015 b 
N3600157 
N3600158 
N3600159 
N360Q160 
N3600161 
N 36 00 16 2 
N360G163 

N36D015 5 
N3600166 
N3600167 
N 360 0 15 8 
N3600169 


N3600171 
N3&Q0172 
N360G173 
N3600174 
N3600 175 
N363Q176 


o 

o 

o 

c 

o 

C) 

o 

o 

c 

o 

o 

o 

o 


o 


SMPRFQ 


5 


OATES 01/27/99 


PAGE 


o 

E Q U I V 

A L E N 

C E S 




■ O 

Q 

DEF .LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER q 


OGOO 

I 

OOFF 

(000255) 

0070 




0031 

AMONI 

Q0F4 

(000244) 

Q 132 



o 

0 0 31 

AOISP 

OQEA 

(000234) 

Q 140 



0 031 

LPNSK 

0002 

{ 000002) 

0106, 

0 160 



0 031 

NZERO 

0012 

(000018) 





0 031 

ZROBIT 

0 0 33 

(0000511 




o. 

0032 

FIVE 

0043 

(000067) 



■ o 

0 032 

SIX 

0044 

( 0 00 06 3) 




0032 

ZERO 

0022 

(000034) 

0145, 

0154 



0 0 32 

ONEBIT 

0023 

(000035) 




o 

00 32 

SIXTEN 

0027 

(QQ0039) 



(■“'l 

0033 

COMMA 

002C 

(000044) 

0 0 88, 

0 100 


0 033 

SLASH 

002F 

(000047) 





0 0 33 

ASTRIC 

0 02A 

(0Q0 0-+2) 




C) 

0 03 4 

EIGHT 

0026 

(000038) 




0 05 

NINE 

0045 

(000069) 



' U 


0 03 A 

THREE 

000 4 

(0 C0004) 





0 03 A 

ONE 

00 0 3 

(000003) 




o 

0034 

TWO 

0024 

(000036) 



o 

0 03 5 

TEN 

0046 

(OQ0070) 




0036 

MASK 

00 0 3 

(0 00003) 





0 0 38 

CHRSLV 

00 07 

(000007) 

Q 133 




0 039 

ASMOD 

1000 

(004096) 



0137 ■ O 


0 040 

N096 

0060 

(000096) 

0123, 

0126, 


0043 

Gf TFLD 

QQ02 

(000002) 

00 8 4, 

0102 



0 044 

ASCHEX 

G0Q3 

(0G00Q3) 

0 0 9 Q , 

Q 110 


0 

0 045 

ASCDEC 

OQO 5 

( Q 0 0 0 0 5) 




0 0 4 6 

FETHM 

000 9 

(000009) 

0 0 81 




0049 

HANDLE 

OOQl 

(oaoooi) 

a 0 71 




0050 

MSG 

00 0 2 

(000002) 

0 0 73 



o 

0 051 

SGMMOR 

000 3 

(0 00Q03) 

0153 


r'\ 

0 052 

lOERR 

00 0 4 

(QO0OO4) 

0144 




0053 

LISTLU 

000 5 

(00Q0Q5) 





G 054 

COMOLU 

aCQ 6 

(000006) 




o 

0 055 

NEWMLU 

00 0 7 

(000007) 

0 0 75 


O 

0 05 6 

PROGl 

0006 

(000008) 




005 7 

PR0G2 

00 09 

(000009) 





0 0 58 

BITFLG 

OOQ A 

tOOOQlQ) 











, 0 








o 







o 


O 


O 


SMPREQ 


PAGE 


6 


DATE; 01/27/99 


o 

0 0 59 
0060 

8UFCNT 

FIELD 

OOQB 

GOOC 

(000011) 

(Q00012) 

0 j 87 

o 

D061 

SLASHF 

0010 

(000016) 


00 62 

BUFFMT 

0011 

( 0 0 001 7) 

0105 

(D 

0 063 

BUFFER 

0012 

(000018) 


0 099 


o 

o 


o 


o 


( ) 


o 


o 



: I 


(J 




o 

o 

o 

o 

o 

o 

r 'i 


o 

o 

o 

o 

o 

o 

C' 


u 


/ 'l 


SMPRFQ 


PAGE 


7 


date: 01/27/99 


o 


o 


o 

S Y M 8 0 

L S 






r ') 

DEF.LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

o 


0 G 28 

SMPP.EQ 

00 0 0 

0 028 

0128, 

0130, 0147, 

0149 


0092 

SMPVAL 

0015 

0093t 

o 

0 09 6 

SMP4 

0019 

0 089, 

0 094, 

0108 

C.-' 

00 99 

SMP6 

OOIB 

0 095 





0108 

SMP8 

0024 

0101 





0 110 

SMPIO 

0025 

0107 



O 


0 112 

PATTEN 

0027 

0 119 




0119 

SMP20 

0029 

0125 

0163 




0126 

SMP22 

0030 

0 124, 




0132 

SHP26 

0 03 6 

0129 

0 138 




0133 

SMPCD 

0 037 

0134, 


/ ‘i 

's^‘ 

0136 

OTLU 

003A 

0 076 


0148, 0158 



0137 

SMPSIZ 

e03B 

0127, 

0131, 

016 2 


0139 

SMPLOC 

GQ3D 

0 077, 

0 083, 

0157, 0161, 

o 

0 192 

SHPRET 

0040 

3134 



( ' 

0147 

SMP32 

0044 

0142 





0152 

SMP36 

00 49 

0150 





0157 

SMP40 

ao4C 

0151 




o 

0 162 

SMP^^? 

0051 

0159 

0143, 

0152 


016 6 

BASE 

00 53 

0 069, 


016 7 

EXTMSG 

00 54 

0 0 74, 

0 097 

0086, 0091, 

0 ID 4, 0111 


0168 

EXTHAN 

0 0 55 

0 0 72, 

0 082, 

o 

0 169 

OATBUF 

0056 

0120 , 

0138 


017? 

SA42 

0 0 0 1 

0 173 





0 173 

SP4? 

00 0 2 

0174 




o 

0174 

DB4? 

oeco 

0175 



C’ 

o 







c 








o 

o 







o 







o 

C) 







o 

o 







c 


SMPREQ 


PAGE 


8 


¥ ft L 

P H A 

B E T I 

CAL 

SORT 

0 F 

ADTSP 

0031 

AMONI 

0 031 

ASCDEC 

0 0 45 

BUFEMT 

0 06 2 

BUFFER 

0063 

CHRSLV 

0 038 

EXTMSG 

016 7 

FETMM 

0 0 46 

FIELD 

0 060 

LPMSK 

0031 

MASK 

0 036 

MSG 

0050 

OTLU 

0136 

PATTEN 

0112 

PROGl 

0056 

SMPIO 

0110 

SMP2 0 

0119 

SMP22 

0125 

SMP6 

0099 

SHP8 

0108 

SMPCD 

0133 

SP42 

017 3 

TEN 

00 35 

THREE 

0 034 


date: 01/27/99 


S Y M B 

0 L S 





ASCHEX 

0044 

ASMOD 

0039 

ASTRIC 

0033 

COMMA 

0033 

COMOLU 

0054 

DATBUF 

0169 

FIVE 

0032 

GETFLD 

0 0 43 

HANDLE 

0 049 

NEWHLU 

0055 

NINE 

0034 

N096 

0040 

PR0G2 

0057 

SA42 

0172 

0147 

SIX 

0032 

SMP26 

0132 

SMP32 

SMP36 

0152 

SFPLOC 

0139 

SMPREQ 

0028 

SMPRET 

0142 

THO 

0034 

ZERO 

0032 

ZROBIT 

0 031 


BASE 

0166 

BITFLG 

0058 

BUFCNT 

0059 

0E42 

017, 

EIGHT 

0 034 

EXTHAN 

0168 

I 

00 0 0 

lOERR 

0052 

LISTLU 

0 053 

NZERO 

flu31 

ONE 

0 03 4 

ONEBIT 

0032 

SIXTEN 

00 32 

SLASH 

0 03 3 

SLASHF 

0061 

SMP4 

0 0 96 

SMP40 

015 7 

SMP42 

0162 

SMPSIZ 

0137 

SHP VAL 

0092 

SOM MOP 

0051 


1 


LSPREQ 

PAGE 

1 DATE: 01/27/99 



w 

0001 

NAM LSPREQ 

DECK-IO N37 MSOS 5.0 

SUMMARY- 



000 2 

» MASS STORAGE 

OPERATING SYSTEM VERSION 5.0 


N370G002 

o 

00 03 

^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 


N370 0 003 

00 0 4 

* COPYRIGHT CONTROL DATA CORPORATION 1975 


N3700004 


00 0 5 





N37DOOO 5 


000 6 





N 37 0 0 a 0 6 

o 

00 0 7 

¥ 

if. tf. ififif.f:f.:fif.^if!f:^^ififif:f;(.:fifif^:f.:fif:^jf 

N370 0 00 7 

000 8 

At 

At 


At 

N370 0 006 


00 0 9 


At 

THIS PROCESSOR LOAD SINGLE PRECISION 

At 

N3700009 


0010 


At 

VALUE (S) FROM INPUT COMMENT MEDIUM 

At 

N3700010 


GOll 

At 

At 

INTO CORE 

At 

N370G011 


0012 


At 



N37G0012 


0013 

At 

^ If If. .f If ^ If If if ^ ^ If If If. If If If ^ If If ^ If If If If If If :if Jf If If If If If ^ If If If If if If If If If If If 9-^ 

N3700Gi3 


0014 





N37Q 0014 


0015 

At 




N370Q015 

N37Q0016 


0016 

At At At 


INPUT FORMAT : 



0017 

At 




N37Q0Q17 


0 01 e 

At 


LSP,CORE LOG. , BASE/DATA 


N3700 016 

o 

0019 

At 




N3700G19 

00 2 0 

At 


WHERE DATA = S IGNEO/UN SIGN ED 7 DIGITS VALUE 

N370002D 


0021 

•<t 


WITH/WITHOUT DECIMAL 

POINT 

N3700021 


0022 

At 




N3700022 

u 

0023 
002 4 

At 


COMMA IS USED TO SEPARATE 2 

VALUES 

N370 0 023 

At 




N370 0 Q2- 


002 5 

At 


DATA = SIGNED FLOATING POINT 

VALUE 

N37G0025 


002 6 

At 




N370GQ26 

O 

0027 

Jt 




N570 0 027 

0028 

At 




N3700a28 


0030 

At 


ENTRY NAME 


N370 0 03Q 

0 

0031 

ENT LSPREQ 



N370 0 031 


0053 

At 


EXTERNALS 


N3700 033 


0 0 3 4 

EXT ECONV 

E- OR F-FORMAT CONVERSION -- SINGLE 

N370 0 0 34 

n 

CQ35 

EXT HMADOR 



N 37u Q 0 3 5 

003 6 

EXT HSG 



N3700 036 


0037 

At 


1 CARO DELETED 


N37Q Q 037 




o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 


0039 


if. 


'EQU' TABLE 

N 370 0 03 9 

0040 

a 0F4 
ODEA 
0Q02 
0 012 
0 0 33 


EQU 

AMONI ($F4} ,A0ISP{SEA) ,LPHSK(2J ,NZEROI$12) ,ZR0BIT{$33} 

N370O 040 

0041 

0 0 43 
a 0 44 
0Q22 
0 0 23 
0 0 27 


EQU 

FIVE($43),SIX ($44) , ZERO ($ 2 2 ) , ONEB I T ($ 23 ) , SI X T EN ( $27 ) 

N370Q 341 


o 


o 

c 

o 

o 


o 


LSPREQ. 


PAGE 


date: 01 / 27 /qg 


0042 

0 0 2C 
0 0 2F 
0 0 2A 

0043 

0 0 26 
0 0 45 
0 0 04 
0 0 03 
C 0 24 

0044 

a 0 46 

0045 

08C2 

0046 

0 0 07 

00 4 7 

00E9 


EQU C0MMA($2C) ,SLASH($2F) ,ASTRIC(S2A) N3700G42 

EQU EIGHT{S26) ,NlNEt$45) ,THREE(A) ,0NE(3), TW0I$24) N370G043 


EQU 

EQU 

EQU 

EQU 


TEN ($46) 

MASSLU ( $8C2) 

CHRSLV(7) LEVEL OF THIS PROGRAM 

EXTBV4( $E9) 


^*^MSOS4.0^^N37D 0 044 
N370Q045 

N37 0 0 047 


0049 
0Q50 
DD51 
005 2 
0 0 53 
0054 


>(■ 


Q002 
GO 03 
00 08 
GOOD 
0708 


N37Q 0 049 

GETFLD" ---'get FIELD SUBROUTINE N370005U 

ASCHFC* ASCTOHEX, N 3 700051 

GETINT" GET SINGLE/OOUBLE PRECISION VALUEN3 7 00 05 2 

FLCVSG" PRINT VALUE AND CONFIRM N3700053 


SUBR0UTINE_P0INTER (FOR REQUEST) 
EQU GETFLO( 2) ' " " 

EQiU ASCHEX(3) 

EQU GETiNTCa) 

EQU FLCVSG(13) 

EQU FLOATZ( 180 0 ) 


SIZE OF FLOATING POINT PACKAGE 


N37Q 0 054 


0 0 5 6 
0057 

005 8 
0059 

006 0 
0061 
0062 

0063 

0064 
0 0 5 5 
0066 

0067 

0068 
0069 
007 0 
0071 




0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
0 0 06 
0 0 07 
0 0 08 
0 0 09 
00 OA 
QOOB 
0 Q OC 
00 10 
00 11 
0012 


EQU 

EQU 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


HANDL£( 1) 
BMSGC 2) 
S0HM0R(3) 
lOERR (4 ) 
LISTLU (5) 
COMOLU( 6) 
NEWHLU (7) 
PROGl (8 ) 
PR0G2(9) 
BITFLG( 10) 
BUFCNT (11) 
FIELD (12) 
SLASHF (165 
BUFEMK 17) 
BUFFER( 18) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE* 

"MSG" ENTRY 
"SOMMOR" ENTRY 
“lOERR" ENTRY 

LIST OUTPUT "LISTLU' 

"COMOLU" 

"NEWMLU" NEW MM LU 

"PROGl" 

"PR0G2" 

"BITFLG" 

"BUFCNT" 

"FIELD" 

"SLASHF" 

"BUFEMT" 

"BUFFER" 


N370 0 056 
N3700057 
N3700058 
N370 0 059 
N 3 70 0 06 0 
N3700 061 
N3700Q62 
N370Q 063 
N37L0064 
N37Q 0065 
N370 0 066 
N37u 0 367 
N3700068 
N37QQ 069 
N 370 0 0 70 
N370Q071 


0073 
007 4 
0075 


V- 




PROGRAM 


START 


N3700973 

N37C0Q74 

N3700075 


0077 PQOOG 

0078 POOfll 

0079 P0002 

0080 P0G03 

0081 P0004 

0082 P0Q05 


686A LSPREQ 

60FF 

ClOl 

6868 

C102 

6867 


STA^ BASE 
STA- I 

LDA- HANDLE, 
STA^ EXTHAN 
LDA- BHSG,I 
STA» EXTHSG 


FETCH "MSG" ADDRESS 


N 370 0077 
N37Qa078 
N 3700079 
N370Q080 
N37u0081 
N3700082 




LSPRFQ 
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DATE.* 01/27/99 


008 4 

PO 0 D D 

0 C04 


ENQ 

4 

SET 4 CHAR. MAX. 

N370 0 Q8h 

008 5 

POOG7 

OA 02 


ENA 

GETFLO 

GET STARTING LOC. 

N3700085 

008b 

P000 8 

5 C63 


RTJ^ 

tEXTHAN) 


N370 0 086 

0087 

PO 009 

0 A03 


ENA 

ASCHEX 

CONVERT TO HEX 

N370 Q 087 

00 88 

P 0 0 0 A 

5C61 


RTJv 

iEXTHAN ) 


N370'J088 

0089 

POOOB 

OOCG 

LSPL3C 

NUM 

0 


N3700 089 

0090 





CHECK 

IF BASE ADDRESS USED. 

N37Q 0 u9G 

0091 





CONTROL CHAR. = SLASH, BASE IS UNUSED 

N370 D 091 

0 0 92 

POQOC 

CIOC 


LDA- 

FIELD , I 

IS CONTROL CHAR. = SLASH 

N370 0 092 

009 3 

POOGD 

0 900 


INA 

-SLASH 


N3700 095 

009 4 

POOOE 

0111 


SAN 

LSP2 

NO, GET BASE 

N37D 0 G94 

00 9 5 

POOOF 

180F 


JMP^ 

LSPiO 


N370Q095 

0 09 6 







N170 0 096 

0097 

POOlO 

OA02 

LSP2 

ENA 

GETFLO 

GET BASE 

N370 0 097 

0098 

POOH 

C C04 


ENQ 



N37Q 0 098 

00 99 

PQ012 

5C59 


RTj» 

(EXTHAN ) 


N370 0 099 

010 0 

P0013 

0 A03 


ENA 

ASCHEX 

CONVERT TO HEX. 

N370 0 10 0 

010 1 

P 0 Q 1 4 

5C57 


RTJ» 

(EXTHAN) 


N3700101 

0182 

P0015 

0 0 00 

LSPBAS 

NUM 

0 


N370 D 10 2 

0103 

P0016 

C8FE 


LDA^ 

LSPBAS 

ADDRESS = START LOC. + BASE 

N3700105 

0104 

P0017 

88F3 


ADO^ 

LSPLOC 


N 37 0 0 1 0 

010 5 

P 0 3 1 8 

68F2 


STA'*^ 

LSPLOC 


N370010 5 

0107 



V 


CHECK 

FOR FORMAT CONTROL CHAR = SLASH 

N37Q0107 

010 8 

POG 19 

CIQC 


LDA- 

FIELD, I 

IS CONTROL CHAR. = SLASH 

N3700108 

0109 

POOIA 

0900 


INA 

-SLASH 


N3700109 

0110 

POOIB 

0102 


SAZ 

LSPIO 


N37 00 110 

Oil 1 

PGOIC 

0C04 

LER 

ENQ 

4 

TO PRINT FORMAT INCORRECT MESSAGE 

N3700111 

0112 

PO 0 ID 

1 C4F 


JMP^' 

(EXTMSG ) 


N 370 Oil 2 

0114 



«■ 




N37 0011H 

0115 





TO OBTAIN SINGLE PRECISION VALUE 

N37G Oil 5 

0116 



V- 




N 370 0 11 6 

0117 

POQIE 

6110 

LSPIO 

STA- 

SLASHF, I 


N3700117 

0118 

POOIF 

684E 


SIA V 

COUNT 


N3700 118 

0119 

P0G2Q 

C0F5 


LDA- 

?F5 

HIGHEST CORE LOCATION USED BY SYSTEM 

N370G119 

0120 

P0021 

6840 


STA^ 

MAX 


N 37 0 0 12 0 

0121 

P0022 

C8E3 


LOA^ 

LSPLOC 

TO CHECK CORE ADD. 

N3700121 

0122 

P0023 

6857 


STA^ 

CORLOC 


N3700122 

0123 

P0024 

5800 


RTJ 

GORADK 

TO CHECK IF CORE LOC. WITHIN LIMIT 

N3700123 


PO 025 

0 0 7C 






0124 

PQ026 

18F5 


JMP^ 

LER 

ERROR, GO 

N370 012 4 

0125 

P0Q27 

0C07 

LSPll 

ENQ 

7 

SET FOR 7 DIGIT MAX 

N370 0125 

0126 

PO 028 

0A08 


EM A 

GETINT 

GET DECODE SINGLE/OOUEL E PRECISION 

N3700126 

012 7 

P0029 

5C42 


RTJ^^ 

( EXTHAM ) 


N37 0 0 127 

0128 

PO 02A 

0 0 54 


ADC 

VALUE-^ 


N3700123 

0130 



V- 




N370Q 130 

0131 





REQUEST SPACE TO BRING IN FLOATING POINT PACKAGE 

N370 0 131 

0132 

P0Q2B 

5 4F4 

LSP12 

RTJ- 

(A:MONI) 


N370 0 132 

0133 

P002C 

15 47 

LSPCAL 

ADC 

$1540 43HRSLV 


N370C133 


■ 

C) 



LSPREQ 
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date: 01/27/99 


C'! 


013i* 

PD02D 

G 0 06 



ADC 

LSPACE-LSPCAL 


N373 0134 



0135 

P002F 

00 00 



NUM 

0 


N370G135 


o 

013 6 

PQQ2F 

0 GOO 


LSP13 

NUM 

0 

CORE LOCATION OF REQUESTED SPACE 

N370 CI136 


0137 

P0030 

0708 



ADC 

FLOATZ 


N 370 0137 



0138 

P0031 

14EA 



JMP- 

(ADISP) 


N 37 0 0 13 8 



0139 








N37D0139 


o 

0140 

P0032 

0161 


LSPACE 

SQF 

LSP15 

SPACE BE GRANTED, DO SOMETHING 

N370 0 140 

■ r"'. 

0141 

P0Q33 

1822 



JMP^ 

LSP32 

TO ERROR (I/O ERROR) 

N370ul41 



0142 






N 37 CO 142 



0143 

P0034 

4816 


LSP15 

STD- 

LSP25 

SFT LOG. WHERE PROGRAM TO BE READ 

N3700143 


o 

0144 

P0D35 

461F 



STQ^ 

LSP31 


N3700144 

. (■■■‘I 

0145 

P0036 

4827 



STQ^ 

LSP40 


N3700145 



0146 

P0037 

5801 



RTJ’ 

SELF 

GENERATE RETURN ADD. 

N 370 0 14b 



0147 

P0038 

0 BOO 


SELF 

NOP 

0 


N37QQ 147 



0148 

poo3g 

C8FE 

0919 



LDA + 

SELF 


N37001h8 



0149 

P003A 



INA 

LSP3Q-SELF 


N 3700 149 



0150 

PQ03P 

68 0B 



STA^ 

LSP24 


N37 0 0 15 0 



0151 

P003C 

C812 



LDA^ 

OFTB 

GENERATE "MMAODR" LOCATION 

N370G151 



0152 

P003D 

9812 



SU8^ 

OFTB+1 


N3700152 

' O 


015 3 

P003E 

8el2E 



AOD^ 

EXT MSG 


N3700153 


015 4 

PO 03F 

0 8 22 



TRA 

Q 


N370Q154 ■ ■ 



0155 

P004Q 

C81Q 



LDA» 

FLTADD 

GET FLOAT PACKAGE SECTOR ADD. 

N37G0155 



0155 

P0041 

5522 



RTJ- 

(ZERO) ,Q 

TO "MMAODR" FOR MM ADD. CONVERSION 

N3700156 



0157 

P0042 

6 8 0 A 



STA- 

LSP26 

SAVE LSB 

N37a015 7 



0158 

P00 43 

48 08 



STG» 

LSP26-1 


N37D0158 



0159 

P 0 0 44 

54F4 



RTJ- 

lAMONI) 


N370 0 159 



016 0 

PQ045 

0 8 07 


LSP20 

ADC 

$80Q + CHRSLV 


N37G016D 

O 

o 

0161 

P0046 

0 000 


LSP24 

MUH 

0 

RETURN (TO BE FILLED) 

N3700161 


0162 

P0047 

0 0 0 0 



NUM 

0 

THREAD 

N37D0152 



0163 

P0048 

6 8 02 



ADC 

HASSLU 


N37CU163 


o 

0164 

P0 049 

0708 



ADC 

FLOATZ 


N 370 0 16 4 

o 

0165 

P004A 

0 0 0 0 


LSP25 

NUM 

0 

FLOAT PACKAGE ADD, (TO BE FILLED) 

N3700165 


0166 

P0G4e 

G 0 00 



NUM 

0 


N37Q 0166 



0167 

P004C 

0 0 00 


LSP26 

NUM 

0 

SECTOR ADD. (TO BF FILLED) 

N37Q0167 


o 

0168 

P004D 

14EA 



JMP- 

(ADISP) 


N370 0 15 8 

c 


0170 








N37Q0 170 



0171 

PO D^F 

7FFF 

X 

OFTB 

ADC 

mmaoor 

0. ••MMADDR” 

N370 0171 


r''\ 

0172 

P004F 

7FFF 

X 


ADC 

MSG 

1. "MSG" 

N370G 172 

n 


0173 

POO 5 0 

7FFF 

X 

FLT ADO 

ADC 

ECONV 

E- OR F-FORMAT CONVERSION — SINGLE 

N3700173 



017 5 








N37DQ175 

O 


0176 

PQ051 

0156 


LSP30 

SQP 

LSP35 

MM TRANSFER OK, SKIP 

N3700176 


0177 

PQ052 

54F4 



RTJ- 

CAMONI) 

RPLEASE CORE DUE TO ERROR 

N37Q 0177 



0178 

P0053 

1800 



NUM 

S18 0Q 


N37Q0178 



0179 

P0054 

eOGO 


LSP31 

NUM 

0 

CORE ADD. TO BE FILLED 

N3700179 

■ T'' 


0180 

PO 0 55 

E815 


LSP32 

LDQ* 

BASE 


N370D18G 



0181 

P0056 

F204 



LDQ- 

IOERR,Q 

EXIT TO "lOERR" 

■N3700181 



0182 

P.Q057 

1622 



JMP- 

(ZERO ), Q 


N370C182 


o 

0183 




* 



N370G183 

o 

0184 






FLOAT 

PACKAGE IS IN CORE, CONVERT NO. 

N3700184 


0185 








N3700185 


o 










c 

1 












LSPRFQ 


PAGE 
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OATEi 01/27/99 


0186 

PG058 

OCOO 

LSP35 

ENO 

0 

018 7 

P0059 

5C05 


RTJ» 

(LSPl 

0188 

P005A 

0024 


ADC 

VALUE 

0189 

P0058 

54F4 

LSP37 

RTJ- 

(AMON 

0190 

P005C 

1800 


NUH 

$1800 

0191 

PQ 050 

0 0 00 

LSP40 

NUM 

0 

0192 

P005E 

E8 OF 


LDO^ 

COUNT 

0193 

P0Q5F 

C82C 


LDA^ 

VALUE 

0194 

P0060 

6A2D 


STA^^ 

TEMP, 

0195 

PQ061 

C82B 


LOA’f 

VALUE 

0196 

PD062 

6 A2C 


STA» 

TEMP + 

0197 

P0063 

D80A 


RAO^ 

COUNT 

0198 

P0064 

D809 


RAO^ 

COUNT 

0199 





0200 

P0065 

C8 05 


LDA^ 

BASE 

0201 

P0066 

60FF 


SIA- 

I 

0202 

P0067 

cm 


LDA- 

8UFEM 

0203 

PC 068 

0136 


SAM 

LSP50 

020 4 

PD069 

18 BD 


JMP» 

LSPll 

020 5 





020 6 

P006A 

0 0 00 

BASE 

NUM 

0 

020 7 

PO Q6B 

GOOD 

EXTRA N 

NUM 

0 

0208 

PQ06C 

0 00 0 

EXTflSG 

NUM 

0 

0209 

P0G6D 

0 0 00 

COUNT 

NUM 

0 

0210 

P0 06E 

00 00 

MAX 

NUM 

0 

0212 






0213 






0214 







RELEASE CORE 

ADD. (TO 8E FILLED) 

SAVE FLOATING VALUE IN TEMPORARY STORAGE 


UPDATE STORAGE COUNT EY 2 
CHECK IF ALL INPUT TEXT BEED PROCESSED 


DONE, SKIP 
TO REPEAT 

CONSTANTS OR STORAGE LOC . 

PARAMETER BASE ADO. 
"HANDLE" ADO. 

"MSG" ADD. 

NO. OF INPUT VALUES 


0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

022 7 
0228 
0229 

023 0 


P006F 
P0070 
P0071 
P00 72 
P0 073 
P0074 
P0075 
P0 076 
P00 77 
P0076 
P007g 
PO 07A 


E8FD 
OAOO 
5CF9 
OOIB 
00 07 
F8 F8 
DDFE 
0164 
F8F2 
F203 
1622 
0 0 00 


P007B CA12 
P007C 6EFD 
PG07O 18F7 


0232 PQ07E OOOF 

0233 P008D 0014 


LSP50 LDQ^ COUNT 
ENA FLCVSG 
RTJ» (EXTHAN) 
ADC TEMP-^ 

ADC CORLOC-'^ 
LOQ^ COUNT 
LSP51 INQ -1 

SOP LSP55 
LSP53 LDQ^ BASE 

LDQ- SOMMOR, Q 
JMP- (ZERO),Q 

CORLOC NUH 0 
* 

LSP55 LDA^ TEMPtQ 

STA^ IC0RLCC),Q 
JMP^ LSP51 

VALUE BZS VALUE(i5) 
TEMP BZS TEMP(2Q) 


INPUT TEXT EXHAUSTED, REQUEST CONFIRMATION 

TO PRINT DATA AND REQUEST CONFIRMATION 


MOVE TO REQUESTED CORE LOCATION 


EXIT TO "SOMMOR" 


FLOATING VALUE TEMPORARY STORAGE 


N 37 0 0 18 6 
N3700187 
N370 0188 
N37GQ189 
N3700190 
N370ai91 
N37a0192 
N3700193 
N3700194 
N370Q195 
N3700196 
N3700197 
N3700198 
N370 0199 
N370 020 0 
N37Q0201 
N37002Q2 
N370Q2D3 
N370 0204 
N370C205 
N370G206 
N370 0207 
N370 0208 
N3700209 
N37Q 0210 


N37Q0212 
N370G213 
N370Q21H 
N37(3Q 215 
N37Q0216 
N37Q0217 
N3700218 
N3700219 
N3700220 
N370G 221 
N3700222 
N3700223 
N3700224 
N37Q0225 
N37D0226 
N37Q0227 
N3700228 
N370 0 22 9 
N370 0230 

N37Q0232 

N370G233 



o 

o 

o 

o 

o 

o 




N37QQ 235 
N37t) 0236 

LI 

N37Q 0 237 


N 370 0 236 
N370 0 239 
N370C 240 

N3700241 

o. 

N37Q0242 
N37DQ 243 
N3700244 

L.- 

N370Q 245 

N 370 0 247 
N3700 248 

O 

N3700249 

C'- 

N 370 0 250 
N3700 251 
N3700252 


N37Q0 253 

Q 

N37D025W 

N370 0 256 
N37G 0257 
N370 0 258 
N37Q 0 259 

o 

N37i3Q 260 

; C) 

N37Q0261 


o 


C‘ 

o 

c 

o 

o 

C) 

‘‘w' 


LSPREa 
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DATES 01/27/99 


PAGE 


EOUIVALENCES 


DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

0 0 00 

I 

OOFF 

(003255) 

0 0 7 8, 

0 201 


0 OAO 

AMONI 

00F4 

(D00244) 

0132, 

0159, 

0177, 0189 

0 C40 

ADISP 

OQEA 

(000234) 

0138, 

0168 


D 0 AQ 

LPMSK 

C0Q2 

(000002) 




0 040 

NZERO 

0012 

(000018) 




0 040 

ZROEIT 

0033 

(0 00051) 




GO Ai 

FIVE 

0043 

(003087) 




0 041 

SIX 

0 044 

(000063) 




0 0 41 

ZERO 

0022 

(000034) 

0156, 

0182, 

0225, 0259 

0 0 41 

ONEBIT 

Q023 

(00GG35) 




0041 

SIX TEN 

0027 

(000039) 




0042 

COMMA 

002C 

(000044) 




00 A2 

SLASH 

uQ2F 

(000047) 

Q093, 

0109 


0042 

ASTRIC 

0G2A 

(0 00042) 




0 043 

EIGHT 

0026 

(000038) 




0043 

NINE 

0045 

(000069) 




0043 

THREE 

000 4 

( 0C000 4) 




0043 

ONE 

000 3 

(000003) 




0 0 43 

TWO 

0024 

(000036) 




0044 

TEN 

0046 

(OOOD70) 




0045 

MASSLU 

08C2 

( 0022-+2) 

0163 



0 04b 

CHPSLV 

000 7 

(003007) 

0133, 

0 160 


0 047 

EXTBV4 

00E9 

(000233) 

0 238 



0 0 50 

GETFLO 

00 0 2 

( 0 0QQ02) 

0 085 , 

0 097 


0 051 

ASC HEX 

0003 

( 0 00003) 

0 0 87, 

010 0 


0 0 52 

GETINT 

0QQ8 

(0000081 

0 126 



0053 

FLCVSG 

0000 

(000013) 

0 216 



0 0 5 4 

FLCATZ 

070 3 

(001800) 

0137, 

016 4 


0 05 7 

HANDLE 

0 001 

lOOOflOl) 

0 079 



0 058 

BHSG 

000 2 

(0000021 

0 0 81 



0 0 59 

SOMMOR 

00 03 

{ 0CQ0Q3) 

0224 



0060 

lOERR 

000 4 

( 000004) 

0181 



0061 

LISTLU 

0005 

(000005) 




0 0 62 

COMOLU 

0 00 6 

(OOOQQ6) 




0 063 

NEWMLU 

000 7 

( 00G007) 




0 064 

PROGl 

00 0 8 

(000008) 




0065 

PR0G2 

GO 0 9 

(0 GG009) 




0 0 66 

BITFLG 

000 A 

( 000010 ) 






LSPRFO. 


PAGE 

8 

0 067 

8UFGNT 

0 ODD 

(000011) 


0 068 

FIELD 

OOuC 

( 000012) 

0 0 92, 

0 069 

SLASHF 

0010 

(000016) 

0 117 

D070 

BUFFMT 

0011 

(000017) 

0 2 02 

0 0 71 

BUFFER 

0Q12 

(000018) 



0108 


DATES 


ul/27/99 




LSPREa 

PAGE 9 


DATE: 

01/ 27/99 

c 

O 

• 1 

S Y M B 0 

L S 





: C> 

DEF, LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 



0 031 

LSPREQ 

00 0 0 

0 0 31 

0105, 




0 0 89 

LSPLOC 

flOOB 

0104, 

0121 



0 09 7 

LSP2 

0010 

0 094 



o 


8102 

LSPBAS 

0015 

01Q3 





0111 

LER 

OOlC 

0124 





0117 

LSPIO 

OOiE 

0095, 

0 110 


o 

o 

0 12 5 

LSPil 

0 027 

0 20 4 



G 132 

LSP12 

002B 

0134 




0133 

LSPGAL 

0Q2C 





0136 

LSP13 

Q02F 

0 187 





0 luo 

LSPACE 

0 032 

0134 



o 


0143 

LSP15 

00 34 

0 140 

0148, 

0149 



014 7 

SELF 

0038 

0146, 



0 16 G 

LSP20 

0Gh5 

0 150 




o 

0161 

LSP24 

0046 




0165 

LSP25 

004A 

0143 

0158 




0167 

LSP26 

G04C 

0157 , 




0171 

OFTB 

G04F 

0151, 

0152 



o 

0173 

FLTADD 

0050 

0155 




0176 

LSP3D 

0051 

0149 





0179 

LSP31 

0G54 

0 144 





0 18 0 

LSP32 

005 5 

0141 





0186 

LSP35 

0058 

0176 



; O 


0189 

LSP37 

Q05B 

0145 




0191 

LSP40 

0050 


0200, 0223 



0 20 6 

BAS E 

Q06A 

0077, 

0 180, 

0101, 0127, 0217 . Q 

'D 

0 20 7 

exthan 

0 06B 

0 0 8 0 , 

0 0 8 6, 

0088, 0099, 

0 2 08 

EXTMSG 

006C 

Q 082, 

0112, 

0153 

0215, 0220 


0 209 

COUNT 

0060 

0118, 

019 2, 

0197, 0198, 


Q 210 

MAX 

006E 

0120, 

0242, 

0 2 49 

■ O 

rt-^ 

u 

C 215 

LSP50 

006F 

0 203 



0 221 

LSP51 

007 5 

0 230 





0223 

LSP53 

0077 


0219, 

0229 



0226 

CORLOC 

007A 

0122, 

: O 

0 

0228 

LSP55 

0 07B 

0222 


0193, 0195 

0232 

VALUE 

007E 

0128, 

0188, 


0 233 

TEMP 

0080 

0194, 

0196, 

0218, 0228 



0?37 

CORAOK 

QQAl 

0123, 

8245, 

0253, 0254 

o 

p'l 

0245 

AD32EX 

0 0 A 9 

0241 , 

0252 


0248 

AD65 

00 AA 

0240 


0248, 0250, 

0 251 


0253 

AD65EX 

OOAF 

0 243 , 

0244, 

o 







O 

o 







: O 

o 
















_ _ 
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DATE! 01/27/99 


0 257 

0258 

0259 


SA36 

SP36 

DB36 


00 0 1 
Q002 

ooco 


0 258 
0259 
0 260 


V-'’ 


LSPREQ PAGE 11 DATE: 01/27/99 


o 

E X T E R 

N A L S 


o 

DEE. LINE 

NAME 

VALUE 


0 03 L 

ECONV 

0050 


Q035 

MMADDR 

Q04E 

o 

0 03 6 

MSG 

004F 

o 





REFERENCED AT LINE NUMBER 

0173 

0171 

Q172 


o 

o 

o 


o 

Q 

o 

o 

C) 


G 

o 

o 

o 

r. 

O 

o 

o 

o 

o 

C' 

o 

r'\ 

■v^.< 

o 

o 

o 





LSPREQ 


PAGE 

12 


0 

ATE; 01/27/99 









A L 

P H A 

E E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 

Sf.lf.lf. 










AD32EX 

0245 

A065 

0248 

AD65EX 

0253 

ADISP 

GG40 

AMONI 

0040 

ASCHEX 

0051 

ASTRIC 

C 0 f2 

BASE 

0 20 6 

BITFLG 

0 0 66 

BHSG 

0 058 

BUFCNT 

0 067 

BUFEMT 

0 070 

BUFFER 

00 71 

CHRSLV 

0046 

COMMA 

0042 

COMOLU 

GG62 

CORAOK 

0237 

CORLOC 

0 2 2 6 

COUNT 

0209 

DB3 6 

0259 

ECONV 

0 034 

EIGHT 

0043 

EXT8V4 

0047 

EXTHAN 

0207 

EXT MSG 

02 0 8 

FIELD 

0068 

FIVE 

0041 

FLCVSG 

0053 

FLOATZ 

0 054 

FLTAQQ 

0173 

GETFLO 

0050 

GETINT 

0052 

HANDLE 

0057 

I 

00 0 0 

lOERR 

0C6 0 

LER 

0111 

LISTLU 

0061 

LPMSK 

0 040 

LSPIO 

0117 

LSPll 

0125 

LSP12 

0132 

LSP13 

0136 

LSP15 

ii 1 4 3 

LSP2 

0 097 

LSP2Q 

C 160 

LSP24 

0161 

LSP25 

0165 

LSP26 

0 167 

LSP30 

0176 

LSP31 

0179 

LSP32 

0180 

LSP35 

0186 

LSP57 

U 189 

LSP4C 

C191 

LSP50 

0 215 

LSF51 

0 221 

LSP53 

0 223 

LSP55 

0228 

LSPACE 

014 0 

LSPBAS 

0102 

LSPCAL 

0133 

LSPLOC 

0 089 

LS P RED 

0 031 

MASSLU 

0045 

MAX 

0 210 

MMADDR 

0 035 

MSG 

0036 

NENHLU 

0 0 6 3 

NINE 

0 043 

NZERO 

GDUO 

OFTB 

0171 

ONE 

0043 

ONEBTT 

0041 

PROGl 

0 064 

PROG2 

GO 65 

SA36 

0257 

SELF 

0147 

SIX 

0041 

SIXTEN 

00 4 1 

SLASH 

0042 

SLA SHF 

0 0 69 

SOMMOR 

0 05 9 

SP36 

0258 

TEMP 

0 233 

TEN 

00A4 

THREE 

0043 

TWO 

0043 

VALUE 

0232 

ZERO 

0 041 

ZROBIT 

0 C 40 


c 


c 

c 

o 

o 


o 


o 

o 

o 


o 


o 


o 

o 


OODl 
00 0 2 
00 0 3 
000 4 
00 0 5 
00 0 6 
00 0 7 

oooa 
00 09 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
002-4 
Q025 
0026 

0028 

0029 

0031 

0032 

0033 
003 4 

0035 

0036 

0037 
0036 


0040 

0041 


0042 


DSPRFQ 


par7E 


date: 01/27/99 


* 

4 - 

^ . 

¥ 

■¥■ 

H- 

V 

* 

* 

* 

if- 


NAM DSPREQ DECK-ID N38 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197b 


if ^ 

if 

If 

if 


THIS PROCESSOR DUMPS CORE VALUE IN 
SINGLE PRECISION FORMAT 


¥ 

if- 


INPUT FORMAT : 

DSP, STARTING CORE, END CORE, BASE 


SUMMARY- 116 ^’^^^^^^^ 
N3800002 
N38C0003 
N380 0a0 4 
N380 0005 
N38Q 0 0 0 6 
N38 j 0007 
N380 0 00 8 
N38D 0 009 
N3800 010 
N36D00ii 
N38Q0Q12 
N38Q 0013 
N380 0 014 
N 380 0 015 
N38Q0016 
N380CO17 
N38Q 0 018 
N380 0 019 


OUTPUT FORMAT : 

N380 0 U?1 

A TOTAL OF 4 VALUES ARE INSERTED IN A LINE N380Q022 

N38G0023 


LLLL 4-.NMNNNNNE + NNN - . NNNHNNN E-NNN 


N3800 024 
N 38 0 0 0 2 5 
N 380 Q 02 6 




ENTRY NAME 

ENT DSPREQ 


N38b 0 028 
N38GQ029 


if 


' if 


EXT ECONV E- OR^F-FORMAT CONVERSION FOR SINGLE 

EXT HMADDR 
EXT MSG 

1 CARD DELETED 

EXT OFF 
EXT HANDLE 
EXT CHRSFG 


N380 0 031 
N3800Q32 
N3800033 
N3800Q34 
N38QQ035 
N3800036 
N3800Q37 
N38G0038 


if- 


00F4 
GOEA 
C 002 
C 012 
CO 33 
0 C 43 
0 0 44 
0 0 22 
0 0 23 
0 0 27 


'EQU' TABLE_ 

EQU AMONI (SF4) , AD ISP (SEA ) ,LPMS l< (2 ) , NZ tRO ( $1 2) ,ZROBIT($33) 
EQU FIVE ( $43) , SIX ($44) , ZERO ( $ 22 ) , ON EBI T ( $ 23 ) , SI X T EN ($27 ) 


N380D04Q 
N380 u U4l 


N38G0042 



DSPRFQ 


PAGE 2 

date: Gl/27/99 


0043 

C 0 2C 

EQU 

COMMA (3 20 t SLASH ($2 F) , A ST RIG ($2 A ) 

N38Q 0 04 3 


u02F 
0 0 2A 





0044 

Q026 
0 0 ii5 
0 0 04 

EQU 

EIGHT (3 26) , NINE ($45 ), THREE { 4) , ONE ( 3 ) , TWO ( $24 ) 

N38QG 044 






0 0 03 
0 0 24 

004 5 

0 0U6 

EQU 

TEN ($46 ) 


»^MSOS4.G»^N3800 0-t5 

004 6 

Q 0 03 

EQU 

HASKt3) 

ONE BIT MASK 

N 380 0 0 46 

00 48 

0 0 07 

EQU 

CHRSLV(7J 

LEVEL OF THIS PROGRAM 


0049 

0 0E9 

EQU 

EXTBV4($E9) 


N380 0 G‘+9 

00 5 0 

0 024 

EQU 

LNW036(36) 

36W0R0S/LINE 

N380005Q 

0051 

1000 

EQU 

ASMOD (SIOOO ) 

ASC OUTPUT MODE 

N380 i)051 

0052 

03C2 

EQU 

HA3SLU($8C2) 

MASS MEMORY LU 

N3800052 

005 3 

0 708 

EQU 

FLOATZ( 1800) 

SIZE OF FLOATING POINT PACKAGE 

N3800053 

005 4 

0 0 03 

EQU 

WRDLN (3 ) 

NO. OF data per line 

N38j GQ5^ 

005 6 

* 


SUBROUTINE "EQU“ POINTERS 

N380QG56 

005 7 

0 0 02 

EQU 

GETFLD( 2) 

"GETFLD” 

N38u 0 O?? 

0058 

0 0 03 

EQU 

A SCHEXC 3 ) 

"ASCHEX" 

N380Q 056 

0059 

0 0 05 

EQU 

ASCDEC(5) 

"ASCDEC" 

N380 Q059 

005 0 

0 D2E 

EQU 

KARPER($2E) 

CHARACTER = . 

N3800060 

0061 

OQi^S 

EQU 

KARE ( $45) 


N38 Q G 06 1 

0063 

V- 


PARAMETER LOCATION (OFFSET FROM BASE) 

N380Q063 

006i^ 

G Q 01 

EQU 

BHANU) 

”HA NOLE" 

N 38 0 G 0 6 4 

005 5 

0 0 0 2 

EQU 

BMSG(2) 

"MSG" ENTRY 

N38Q 0 G6 5 

0066 

0 0 03 

EQU 

SOMMOR { 3 ) 

"SOHMOR" ENTRY 

N380 Q 06o 

0067 

OQ Om- 

EQU 

I0ERR(4 ) 

"lOERR" ENTRY 

N 38 0 0 05 7 

005 8 

0 0 05 

EQU 

LISTLUi 5) 

LIST OUTPUT "LISTLU" 

N38D 0 068 

006 9 

OQ C6 

EQU 

C0M0LU(6 ) 

"COMOLU" 

N 38 j G 0 5 9 

D070 

0 0 07 

EQU 

NEWMLU(7) 

"NEWMLU" NEW MM LU 

N380 0 Q7D 

0071 

00 08 

EQU 

'^ROGl (8 ) 

"PROGl" 

N3800U71 

007 9 

0 0 09 

FQU 

PROG2 (9) 

"PROG2" 

N38D0 0 72 

0 0 7 3 

DC oa 

EQU 

BITFLG( 10) 

"BITFLG" 

N38juQ73 

007 4 

00 OB 

EQU 

BUFCNT (11) 

"BUFCNT" 

N380 0 07iT 

0075 

00 oc 

EQU 

FIELD (12) 

"FIELD" 

N380U 075 

007 6 

0010 

EQU 

SLASHF ( 16) 

“SLASHF" 

N38Q 0 0 76 

QG7 7 

0011 

EQU 

BUFEMK 17) 

"8UFEHT" 

N380 J 077 

0078 

0012 

EQU 

BUFFER( 18) 

"BUFFER" 

N38Q0Q78 


00 8 0 
0081 
0082 



^ if. ^ if. 



PROGRAM 

START 


N38DiJ 080 
N3800081 
N38Q0Q82 

008 4 
0Q85 

POQOO 

PflOGl 

6874 

60FF 

OSPREQ 

STA^ 

STA- 

BASE 

I 




N38Q0084 
N383 0 085 


(""'1 



OSPRFQ 


PAGE 3 

DATE; 01/27/99 




0086 

P0 00 2 

8112 


ADD- 

BUFFER, I 

CALCULATE “BUFFER" ADD. 

N38G 0 086 



008 7 

P0 003 

6800 


STA 

BUFAOD 


N380 0 087 


o 


PO 00 4 

0 0 no 






0 0 88 

PG005 

666B 


STA^ 

DATLOC 


N389G 088 

Cj 


0089 

P00D6 

ClOl 


LDA- 

BHAN, I 

GET "HANDLE" ADO. 

N3800Q69 



0090 

P0 0 07 

6868 


STA^ 

EXTHAN 


N380 0090 


o 

0091 

P00 08 

C1G2 


LDA- 

BMSG, I 

FETCH "MSG" ADDRESS 

N3800 091 

O 

CD9? 

P00 09 

6368 


STA^ 

EXTMSG 

N38G0092 


0093 

PO OOA 

C105 


LDA- 

LISTLU, I 


N 38 DO 09 3 



009 4 

POOOB 

8813 


AOD^ 

MODE 


N3800094 


o 

0095 

POOOC 

6800 


STA 

OTLU 


N38D0095 

: O 


PO OOQ 

0 0C5 






009 6 

PO OOF 

C0F5 


LDA- 

$F5 

HTGHEST CORE LOCATION USED BY SYSTEM 

N38G 0 096 


o 

0097 

POGOF 

68 66 


STA^ 

MAX 


N380Q 097 


0099 





GET ALL CORE ADDRESSES 

N380 0 099 

©■ 


010 0 

POOlO 

OAOO 


ENA 

0 


N38Q G 100 



0101 

POOH 

68 62 


STA^ 

COUNT 


N38Q 0101 

G 

! 

0102 

P0012 

0 A02 

DSPl 

ENA 

GETFLD 

GET A FIELD (CORE LOC. ) 

N3800102 


0103 

P0Q13 

0 004 


ENQ 

4 


N 380 010 3 



010 4 

P0014 

5C5E 


RTJ^- 

(EXTHAN ) 


N3800 104 



0105 

P0015 

GIOC 


LDA- 

FIELD, I 

CHECK IF EMPTY 

N380 0 10 3 

O 


010 6 

P0G16 

0108 


SAZ 

QSP5 


N380Q106 


010 7 

P0017 

90 0 A 


SU8- 

LPMSK+3 

IS END OF TEXT 

N38G010 7 



0108 

P0018 

0106 


SAZ 

DSP5 


N380 0 10 8 


o 

0109 

P0019 

8 GOA 


ADD- 

LPMSK+8 


N 380 0 10 9 


0110 

POOIA 

09D3 


INA 

-COMMA 

IS COMMA 

N38D0110 

■ o 


0111 

POOIB 

0103 


SAZ 

DSP5 


N380 0111 



0112 







N380G 112 


o 

0113 

POOIC 

0C04 

DSP3 

ENQ 

4 

INCORRECT FORMAT, 

N 3800 113 



0114 

POOID 

1C54 


JMP^ 

(EXTMSG ) 


N380Q114 

1 / 


0115 

POOIE 

10 00 

MODE 

AOC 

A SHOD 

ASC OUTPUT MODE 

N380011 5 



Oil 6 

POQIF 

DA 03 

DSP5 

ENA 

A SC HEX 

CONVERT TO HEX 

N380Q116 


© 

0117 

P0020 

5C 52 


RTJ^ 

(EXTHAN) 


N38GG 117 

• o 

0118 

P0 021 

0 0 00 

DSPVA 

NUM 

0 


N38G0118 


0119 

P0022 

E8 51 


LDQ» 

COUNT 


N3800119 



0120 

P0G23 

C8 FO 


LDA» 

OSPVA 

STORE LOCATION ACCORDINGLY 

N 380 0 12 0 


o 

0121 

P0024 

6A7F 


STA^ 

DSPLOC, Q 


N380Q 121 


■■J 

0122 

PG 0 2 5 

D84F 


RAO^ 

COUNT 


N38Q 0122 

L- 


0123 

P0026 

5800 


RTJ 

CORADK 

TO CHECK IF CORE LOC. WITHIN LIMIT 

N3800123 




PD 027 

00C7 






o 

0124 

P0028 

18F3 


JMP-» 

DSP3 

ERROR, GO 

N380 0 12h 

O 

0125 

P0029 

E84A 


LDQ^ 

COUNT 


N3800125 


0126 

P0Q2A 

OOFC 


INQ 

-3 

CHECK IF done 

N380 0 12 6 



0127 

P002B 

0141 


SQZ 

DSPIO 


N38QG127 


o 

0128 

P002C 

18E5 


JMP^^ 

OSPl 

NO, REPEAT 

N3800128 

; C 

0130 







N3800130 


0131 



JMf. 


ADJUST 

ADDRESSES IF NEEDED 

N380Q131 


o 

0132 





3UFEMT, I 


N380C132 

; O 

0133 

P002D 

cm 

DSPIO 

LDA- 

MAKE SURE IS EMPTY 

N38Q 0 133 


013 

P002E 

BO 12 


£0R- 

LPMSK+1 6 


N380Q134 



o o 


o 


o 





DSPREQ 


PAGE 4 

date: 01/27/99 

0135 

PO 02F 

0 101 


SAZ 

DSPll 

N 380 0 13 5 

0136 

P0030 

18EB 


JMP^ 

DSP3 

N380 G13b 

0137 

P0031 

C8 73 

DSPll 

LDA- 

DSPLOC+1 

MAKE SURE “END" LARGER THE “BEGIN" N38QG137 

0138 

PQ032 

9 8 71 


SUB^ 

DSPLOC 

N3800138 

0139 

P0Q33 

0121 


SAP 

DSP12 

N383 0159 

0140 

P0034 

18E7 


JMP^ 

DSP3 

N380G140 

0141 






N38Q0141 

0142 

P0035 

C86E 

DSP12 

LDA» 

DSPLOC 

N 38 0 0 142 

0143 

P00 36 

386F 


AOD^ 

DSPLOC+2 

N38Q 0143 

0144 

P0Q37 

6 8 6C 


STA* 

DSPLOC 

N38Q 0144 

0145 

P0038 

C8 6C 


LDA^ 

DSPLOC+l 

N380Q145 

0146 

P00 39 

8 8 6C 


A0D4 

0SPL0C+-2 

N 3 8 0 014 6 

0147 

P0 03A 

68 6A 


STA^ 

DSPLOC+1 

N38Q0147 

014 8 



if. 


INSERT 

DATA N380 0 i':*8 

0149 

P0C3B 

0 8 44 

DSP19 

CL R 

A 

No600l49 

0150 

P00 3C 

6 8 37 


STA^^ 

COUNT 

N3800 15 G 

0152 





FILL LINE KITH SPACE N3800152 

0153 

P0 03D 

GOOD 


LDA 

= A 

N3800153 


PQ 03E 

2020 





0154 

PQ 03F 

0C23 


ENQ 

35 

N 380 015 4 

015 5 

P004Q 

5ECC 

DSP20 

STA 

(BUFADD ) ,Q 

N383 015 5 


PO 041 

0 0 93 





0156 

PC042 

QDFE 


INQ 

-1 

N380 0 15 6 

0157 

PC043 

0171 


SQN 

DSP22 

N383 0 15 7 

0158 

P0Qh4 

18FB 


JMP- 

DSP20 

N3800158 

0159 



¥ 


INSERT 

CORE LOCATION TAG N38G0159 

016 0 






N3800160 

016 1 

P0045 

CP5E 

DSP22 

LDA^ 

DSPLOC 

ASSEMBLE HI-2-DIGIT OF LOG. N38G0161 

0162 

PO 046 

QF4C 


ARS 

12 

N 38 0 0 1 5 2 

0163 

PQ0h7 

5822 


RTJ^ 

CONASC 

N380Q163 

0164 

PO 048 

£8 22 


TRA 

Q 

N38Q0164 

015 5 

PG 049 

OF A8 


QLS 

3 

N 38 0 0 Id 5 

016 6 

P00 4A 

C859 


LDA^ 

DSPLOC 

N380 0 16 6 

0167 

PQ04B 

OF 48 


ARS 

8 

N3800167 

0158 

P004C 

581D 


RTJ^ 

CONASC 

N38G0168 

0169 

PO 040 

08 74 


FAQ 

A 

N380Qlb9 

0170 

P0 04E 

6C22 


STA^ 

(DATLOC ) 

SAVE HI-2-DIGIT N38Q0170 

0171 

P004F 

C854 


LDA* 

DSPLOC 

CONVERT LO-2-DIGIT OF LOG. N380017i 

0172 

P0Q5Q 

0 F 44 


ARS 

4 

N380Q172 

0173 

PC051 

5818 


RTJ* 

CONASC 

N380D173 

0174 

PDQ52 

0 822 


TRA 

Q 

N380G174 

017 5 

PO 053 

GFA8 


QLS 

8 

N380 017 5 

0176 

P005 4 

C84F 


LDA* 

DSPLOC 

N330 0176 

0177 

PG055 

5814 


RTJ* 

CONASC 

N3800177 

0178 

P0056 

0 8 74 


FAQ 

A 

N380Q178 

0179 

P0057 

OCOl 


ENQ 

1 

N38Q 0179 

018 0 

P0058 

6E18 


STA* 

iOATLOC) ,Q 

N38C 0180 

ClSl 






INCREMENT DATA LOG. TO VALUE N380ai81 

0182 

P0 059 

0 AD3 


ENA 

WRDLN 

INCREMENT LOCATION COUNT FOR NEXT N38QG1S2 

0183 

P0 05A 

8816 


ADO* 

DATLOG 

N380 0183 

0184 

P005B 

6315 


STA* 

DATLOC 

N380 0184 




OSPREQ 


PAGE 5 


date: 

01/27/99 


018 6 









N3600186 

018 7 





GET AMD 

ASSEMBLE VALUE 


N3 80 0 18 7 

018 8 









N380 0 188 

0189 

P005C 

CC47 

OSR26 

LDA^ 

(DSPLOC ) 

MOVE 

floating point value into calling par. 

N38D 0189 

019C 

P005D 

68 49 


STA^ 

VALUE 


array 


N380 0190 

0191 

PP05E 

D845 


RAO^ 

DSPLOC 




N3800191 

0192 

P005F 

CC44 


LDA-^ 

iDSPLOC) 




N38D0192 

0193 

P00 60 

6 8 47 


STA^ 

VALUE+1 




N3800193 

0194 

P0061 

0842 


RAO^ 

DSPLOC 




N3800194 

019 6 



if. 






N3800196 

019 7 



^ ^ ^ ^ 


REQUEST 

SPAC 

E TO BRING 

IN FLOATING POINT PACKAGE 

N3800197 

0198 

P0062 

54F4 

LSP12 

RTJ- 

(AMONI) 




N380G198 

0199 

P0G63 

1547 

LSPGAL 

ADC 

$1540+CHRStV 




N380G 199 

020 0 

P 0 0 6 4 

0 013 


ADC 

LSPACE-LSPCAL 




N380 Q20Q 

0201 

P0 065 

0 0 0 0 


NUM 

0 




N33e0201 

0202 

P0065 

00 00 

LSP13 

NUM 

0 

CORE 

location OF 

REQUESTED SPACE 

N3800202 

0203 

PO 067 

07 08 


ADC 

FLOATZ 




N380 0 203 

020 4 

P0068 

14EA 


JMP- 

f AOISP) 




N3800 204 


020 6 



V- 




N38D02C6 

020 7 





SUBROUTINE FOR ASSEMBLE ASCII 

N380 02Q7 

0208 







N3800206 

020 9 

P0069 

Q BOO 

CONASC 

NOP 

0 

ENTRY 

N38QG2C9 

0 21 0 

P006A 

A006 


AND- 

MA3KF3 

EXTRACT 4 BITS 

N3800 210 

0211 

PCQ6B 

09F5 


INA 

-10 

CHECK FOR NUMBER 

N38G0211 

0212 

P006C 

0131 


SAM 

DASNO 


N33au 212 

0213 

P006D 

0 907 


INA 

7 

SET FOR A-F 

N380 U 213 

0214 

PO 06E 

093A 

DASNO 

INA 

$3A 


N38C0214 

0215 

P0 06F 

1CF9 


JMP4 

(CONASC) 

EXIT 

N 380 0 21 5 

0217 



=(■ 




N 38u 0 217 

0218 

P0 0 70 

GOOD 

DAT LOG 

NUM 

0 


N38G Q 218 

0219 

PO 071 

GOOD 

EXT MSG 

NUH 

G 

■'MSG" ADD. 

N 38 0 0 219 

C22o 

P0u72 

0 0 0 0 

EXTRA N 

NUN 

0 

"HAMOLE’* ADD. 

N 38 00 220 

0221 

PQ 0 73 

0 0 0 0 

COUNT 

NUM 

0 


N36JU221 

n?2 2 

PO 0 74 

0 0 Ou 

BASE 

NUH 

0 

P ARAM':' TER ADO. 

N33:lC222 

022 3 

PO 075 

GOOD 

MAX 

NUM 

0 


N38U Q 22 3 

0 22 5 







N380 0 225 

022 6 

PO C 76 

0 161 

LSPACE 

SQP 

LSP15 

SPACE BE GRANTED, DO SOMETHING 

M38QG22 6 

0227 

P0Q77 

1822 

JM 

DSPEIO 

TO FRPOR (I/O ERROR) 

N38QQ 227 

022 8 



'V- 




N380G 228 

0 22 9 

P0078 

i.816 

LSP15 

STO’^ 

LSP25 

SET LOG. WHERE PROGRAM TO BE READ 

N3B0 D 22 9 

0 23 0 

PO 079 

h81F 


STQ^^ 

LSP31 


N38Q 0 23C 

0231 

POO 7A 

4827 


STO^ 

LSP40 


N380Q231 

C2 3 2 

P00 7R 

5801 


PTU^*^ 

SELF 

GENERATE RETURN ADD, 

N38G 0232 


G 


O 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


•0 

o 


DSPRFQ 


PAGE 


DATE! ul/27/99 


0233 

PO Q7C 

bBOO 


SELF 

NOP 

0 

02 3 4 

p 0 0 7 n 

C3FE 



LDA^^ 

SELF 

0235 

PO C7E 

0919 



INA 

LSP30-SFLF 

023 6 

P0G7F 

68QD 



STA-" 

LSP2L 

C23 7 

P0Q80 

C312 



LDA^ 

OFTB 

0238 

P0081 

9812 



SUB- 

OFTB+1 

0239 

P0 082 

88EE 



ADD4 

EXTMSG 

0240 

PO 083 

0 3 22 



IRA 

Q 

0241 

PO 084 

C810 



LDA^'- 

FLTADD 

0?42 

P0085 

5622 



RTJ- 

{ZERO) ,Q 

0243 

P 0 0 8 6 

68 OA 



STA-^ 

LSP26 

02‘+ 4 

P 0 0 8 7 

48 G8 



STQ-“ 

LSP25-1 

0245 

PC088 

54F4 



RTJ- 

(ANONI) 

0 24 6 

p 0 0 a 9 

0 807 


LSP20 

ADC 

$80 0 + CHRSLV 

0 2 4 7 

PQ08A 

0 0 0 0 


LSP24 

NUM 

0 

0248 

PO 08B 

C OOQ 



NUN 

0 

0249 

P0 08C 

0 8 02 



ADC 

MASSLU 

0 25 0 

PO 080 

0 708 



ADC 

FLOATZ 

0251 

PO 08E 

GO 0 Q 


LSP25 

NUM 

0 

0252 

P0 08F 

GOOD 



MUM 

9 

C253 

PO D9Q 

C 0 0 0 


LSP25 

NUM 

3 

0 E 5 ^ 

PG091 

li-EA 



JM.P- 

(ADISP) 

025 b 







025 7 

P009? 

7FFF 

X 

OFTF 

AOC 

MMADDR 

02 5 8 

PDQ93 

7FFF 

X 


ADC 

MSG 

025 9 

P0 09 4 

7FFF 

X 

FLTAOD 

ADC 

ECOMV 

0261 







u 26 2 

PO 095 

0 166 


LSP30 

SQP 

LSP35 

025 3 

PG096 

5 4F 4 



RTJ- 

(AMOMI ) 

0 2 5 4. 

P0 097 

1800 



NUM 

$ 18 0 0 

0 2 6 5 

PO Q98 

QG GO 


LSP31 

NUM 

0 

0266 

P0Q99 

E8DA 


DSPFIO 

LDQ^ 

BASF 

0267 

P0Q9A 

E2 04 



LDQ- 

lOERRiO 

0268 
0 26 9 

P009P 

1622 



JHP- 

(ZERO ) , q 

0 27 0 




^ Jj. Ij. If. 


FLOAT 

0271 




'V 



C?7 

PC'0 9C 

OCGl 


LSP35 

FNQ 

1 

0 27 3 

P009D 

5CC8 



RTJ^ 

(LSP13) 

027 -t 

PQ 09E 

GO 08 



ADC 

VALUF--^ 

0275 

P009F 

54F-, 


LSP37 

RT J- 

( AMONI) 

02 7 5 

POOAO 

18DG 



NUM 

$18 0 0 
0 

0277 

PO OAl 

0 P n 0 


LSP40 

NUM 

0278 

P00A2 

1814 



JHP- 

DSPIO 0 


GENERATE "MMADDR" LOUATION 


GET FLOAT PACKAGE SECTOR ADD. 

TO 'MHADOR^ FOR HM ADD. CONVERSION 
SAVE LSD 


RETURN (TO BE FILLED) 
THREAD 


FLOAT PACKAGE ADD. (TO BE FILLED) 
SrCTOR ADD. (TO Bt FILLFD) 


0. "MMAOOR" 

1. “MSG" 

F- OR F-FORrAT conversion FOR SINGL- 


NH TRANSFER OK, SKIP 
RELP'ASE CORE 


EXIT TO "lOERR” 
EXIT TO "lOERR" 


PAGKAGF Iii IN COPE, CONVERT NO. 


RELEASE CORE 

AOO. (TO BE PILLED) 


3 b G C 2 3 5 
N 3 B 0 0 2 3 H 
N38G G 23 = 
N38:> G 23 b 
N38J 0 23 7 
N38.0238 
N38Q 0239 
N3B0 G2i-0 
N38D 0 2“+! 
N38G u2a2 
N 36 G 0 2a3 
N380 C 2Lh 
N 38C'G2A2 
N38u 0 24 d 
N380 0 247 
N380 G 248 
N38C0 2‘49 
N38G025G 
N38GG2E1 
N38G Q 25 2 
N380 j 253 
M3^-uG2:?4 

N36G G 25:, 
N38 j G 25 7 
M 3d u G 2 5 8 
N 5 b G 0 25 9 


N 3H U u 25 1 
N38j 0 262 
N 56 0 0 265 
N 38 G 0 26 V 
N 360 G 265 
N380 Q 266 
N 38 0 0 26 7 
N 38G 0 2b 8 
N 3 8 C 0 2 6 9 
M38C 0 27G 
N 38 u : 27 1 
N 38,G G 27 2 
N38uu273 
N.380 0 27- 
N 380 0 275 
N58 j 0 27o 
N38Q 0277 
N380Q278 


O 

O 

O 

O 

O 

o 


O 


o 

o 

o 

o 

c 


o 


028 0 

0281 POOAo 0003 


^ STORAGE AND/OR CONSTANTS 

OSPLOC EZS DSPL0C(3) 


N 380 U 28G 
N3BC 0 231 


O 


O 


O 


DSPREQ 


PAGE 7 


DATE! 01/27/99 


0282 


Q28i^ 
0285 
028 6 
(12 8 7 
02 88 
028 9 
0290 
0 291 
0292 
0 2 9 3 
0299 
0295 
0 2 9 6 

0297 

0298 

0299 


0 30 1 
0302 
Q3G3 
030 4 
u 3C D 
03 0 6 
G3G 7 
030 8 
Q3C9 
G31 0 


0312 
Q 513 

0314 

0315 
031 6 
031 7 

0318 

0319 
C 3 2 G 
D321 
0 322 
0323 
0 32 4 
0 3 2 5 


03 2 7 


P0QA6 OGIO 


VALUE BZS VALUE(16) 


N38Q0282 


If. ^ If. Sf. >1. 


PQ 0E6 

DCOO 

DSPiO 0 

ENQ 

0 

PC 0B7 

CAFQ 

OSDIG 1 

LOA^ 

VALUE + 2 ,0. 

PO 0B8 

0FC8. 


ALS 

8 

PO 0B9 

8A FF 


AOC^ 

VALUE +3 , Q 

p 0 n PA 

6C B5 


S TA- 

(QATLOO ) 

PO OBB 

na R4 


RA 0^- 

DATLOC 

POO BC 

G n C 2 


INQ 

2 

PO OBD 

0 814 


TRQ 

A 

POGPE 

G9F1 


INA 

-14 

PO GBF 

0121 


SAP 

DSP102 

POQCO 

1 8F6 


JHP^ 

□SPIGI 

POOCl 

nSAF 

DSPIO 2 

RAO^ 

OATLOC 

PC0C2 

08 AD 


RAO^ 

OATLOC 





CH 

P0GC3 

08 AF 


RAO^ 

COUNT 

PQ0C4 

C8 AE 


LDA» 

COUNT 

P00C5 

0 9FC 


INA 

-WRDLN 

PQ0C6 

0 1 Q4 


SA7 

nSPlQ 5 





GH 

P0 0C7 

cane 


LO A ^ 

0SPL0C4-1 

P0QC8 

98nA 


SUB^ 

OSPLOC 

PO 0C9 

0131 


SAM 

DSPIQ 5 

POOCA 

18 91 


J H P - 

DSP2& 


INSERT integer INTO OUTPUT FORMAT 

ASSEM3LE 2-DIGIT INTO ONE WORD (INTF.Gt'R) 


BUMP NO. OF INTEGhF IN E-FORHAT 
CHECK IF HONE 


BUMP POINTER TO NEXT VALUE 


data exhausted, tu print 


N580 0 284 
N 38 3 0 28 5 
N 5 8 0 0 2 8 o 
N 3 6 0 2 8 7 
N 3 8 0 C 2 8 8 
N363 0 28 9 
N36 3 C 29 3 
N 38 u 0 29 1 
N 3 8 0 !. 29 2 
N38Q0293 
N 380 029^ 
N 38 V u 29 ri 
N58u G296 
N 38 Q 0 29 7 
N3800298 
N3 8G 0 29 9 


N38uu 3G1 
N380 0 3G2 
N 38 0 u 30 3 
M 36 J 0 3u ^ 
N38CG 3C5 
N 3 8 C G 3 C b 
N36G 0 3C-7 
N 36 J G 3C 8 
N3BG C 309 
N3«G ii 31 L 


¥ 


PRINT DATA 


POQCP 

C8BQ 

DSP105 

LDA^ 

SELF 

POQCC 

095A 


INA 

DSPRET-SELF 

POQCO 

6803 


STA^ 

OSPX 

P 0 OC E 

54 F 4 


RT J- 

(AMONI) 

POOCF 

0CD7 


ADC 

$C00 + CH RSLV 

PQOUO 

0 G 0 0 

OSPX 

NUH 

0 

PC oni 

0 0 G G 


HUH 

n 

PGQD2 

D Q QQ 

OTLLl 

MUM 

Q 

f^QQD3 

C 0 2i* 


ADC 

LNND36 

P 0 u D 4 

0 0 0 0 

BUF Ann 

NUM 

0 

PQ n d5 

1 4FA 


JHP- 

(AOISF) 


CALL MONITOR 
EXIT (TO BE FILLED) 
LU (TO BE FILLED) 
••BUFFER" AOO. 


N36 0 L, 312 
N 380 0 313 
N38C Q 314 
N38C0315 
N380 C 316 
N3 80 0 31 7 
N .38 GO 318 
N3SQ0319 
N36u 0 32 0 
N38G 0 321 
N38C G 32 2 
N38G C 32 3 

N 38 0 0 32 4 
N 36 0 0 32 5 




PETIJPN FROM OUTPUT 


N 38 J 0 32 7 


nSPRFQ 


PAGE 


DATE? Gl/27/99 


POOOb G161 
P0007 IftCi 


P0GD8 
PCQD9 
PO ODA 
POOD8 
POOOC 
POODD 
POOOP 
PQODF 
POOEO 
P 0 0 E 1 
PCQE2 

P 0 0 E 3 
P 0 G E 4 
POOE5 
POOE6 
POOE7 
POOE3 
P09 E9 
PC OEA 
POOEB 
PODEC 
POOED 


C400 
7EFF 
0111 
13 OR 
C8C7 
98C5 
Q134 
C3F4 
68 8F 
13 0 0 
FF 58 

E890 
E 2 Co 
16?2 
£8 8D 
C806 
9 3 04 
82 01 
0822 
1522 
7FFF 
7FFF 


OSPPET SOP 
JflP^ 

V- 

X DSPOK LOA 
X 

SAN 
JHP’^ 
DSPREP LDA^ 
SUB^- 
SAM 
LDA^ 
ST 
JHP 


DS°OK 
DSP El 0 

CHRSFG 

DSPREP 

GONE 

DSPLOC+1 

DSPLOC 

DSPOON 

BUFADD 

DATLOG 

DSP19 


DOM 

DSPGOM LDQ- BASF 

LOO- SOHHOR,G 
JHP- (ZFRO),Q 
GONE LOQ^ BASE 
LOA^ OTB+1 
SUe^ 0TB 
ADD- 3HAN,Q 
TRA Q 

JHP- (ZERO),Q 
X DTE ADC HANDLE 
X ADC OFF 


TO ‘’lOERR” ERROR EXIT 

CHECK IF "OX" 

NO, SKIP 
YES, TO EXIT 

CHECK IF ALL DATA EXHAUSTED 
RESTORE BUFFER ADD. AMD REPEAT 


E X I T 

EXIT TO "SOMMOR" 


GENERATE "OFF" ADDRESS 


TO "OFF" 

0. "HANDLE" ENTRY 

1. "OFF" ENTRY 


CHECK ADDRESSES TO E; 


WITHIN 


PO OFF 
POOEF 
P U 0 F 0 
POOFl 
PGGF2 
P00F3 
PQ0F4 
PC0F5 
PDQF6 


P00F7 
PO 0 F8 
PG0F9 
PGOFA 
PO OFB 
POOFC 
POOFD 

POOFE 


OPOO CORAOK NOP 
EOPg LDQ- 

F622 LOQ- 

0155 SQN 

0133 SAM 

9d81 SUn^ 

0138 SAM 

"10 7 S A 

1CF7 AD32FX JmN 


0125 AD65 SAP 

9800 SUR 

FF78 

D132 SAM 

0101 SAZ 

18F9 JHP- 

D8F0 AD65FX RAO^ 

1 C E F J M P ^ 


EXTRV u 
tZEPO ) , 0 
A055 
A032EX 
MAX 

AD65EX 
AD65EX 
(CORAOK ) 


A065EX 

MAX 


GHFCK 


AD65EX 
AD65EX 
AD32EX 
CORADK 
(CORAOK ) 


ENTRY 

GET 32K/65K FLAG (32K--^G, 65«=1) 

SKIP ON 65K 
ERROR, over 32K 


RETURN 

TO RE WITHIN 55 K OR LESS 
SKIP FOR 32K OR SO 


OK, SKIP 
OK, SKIP 
ERROR, GO 
SET NORMAL EXIT 
NORMAL RETURN 


M 3 0 j G 32 8 
N 38 GC 329 
N380 0 33 ; 
M38G0 331 

N380 0 332 
N 38 0 0 33 5 
N 380 0 334 
N38 j 0 33 5 
N 38 0 G 33 6 
N38u 0 33 7 
N 380 0 33 6 
N 38^ 0 33 9 

N 3 8 0 0 3 4 G 
N 5 8 0 0 3 1 
N 5 8 3 j 3 ^ 2 
N ?6u C 343 
N 330 0 3ti4 
N38 0 034-5 
N380 0345 
N380 0 3 h 7 
N 38 U 0 3-+ 8 
N38Q 03t^9 
N 380 0350 
N38G0351 


N 38 0 0 35 3 
N 38 u u 35 4 
N38 0 0 35 5 
N 3 8 0 G .3 3 b 
N 3 8 G 0-357 
N 5 8 u 0 35 8 
M-38j G-359 
N-36G0-i&0 
N38GU 361 
M38u G 362 
M-38D 0 3o3 

Ml ^80 0 365 
N38QQ366 
N38Q 0 36 7 

N3800368 
N3800359 
N380Q370 
N.180Q 371 
M38u 0 372 


C' 

O 

c 

o 

o 

c 

o 

c 

o 

o 

o 

o 

o 

o 

o 


PAGF 


q 


DATF: 01/27/99 


0SP9FQ 


03 7 4 





M380 C 37-r 

0i75 


GO 02 P 

FQU 

SA37 ( ■'!-/^ q ) 

N38CC375 

3376 


u L 0 3 P 

EQU 

SP37 (SA37+1 ) 

N i 8 u 0 0 7 r 

077 7 


0120 P 

EQU 

0837 (SP37^-95) 

N38G 0 377 

0578 

PO OFF 

0 0 21 

BSS 

(DB37-^ ) 

N 36 0 0 3 7 6 

037° 



END 


N38G 0 37 9 

PGM = 

0 12 0 

( 268 ) 

O 

II 

UGOO ( 0) DAT == OjjD ( C) 




'0 ' 

£ Q U I V 

A L E N 

C E S 





C) 

OFF . LINE 

N A H ^ 

VALUE 


REFtRENCED AT 

LINE NUMBER 


0 DCO 

I 

QQFF 

( DG0255) 

0 0 85 




0 0^1 

4M0NI 

uCFt^ 

( 0 00 244) 

0198 , 

0245, 

0253, 0275, 

o 

0 C 

AOISP 

00 EA 

(000234) 

0 204, 

0254, 

0325 

Q 0 41 

LPMSK 

COO 2 

(000002) 

01C7 , 

010 9, 

0134 


0 041 

NZERO 

0012 

(000018) 





0 0 41 

ZRO BIT 

00 33 
0 0 43 

( 0 00051) 




r’''' 

0 0 42 

FIVE 

(DOC 067) 





0 0 42 

SIX 

0 0 4 4 

'( QQG068) 





0 0 42 

ZERO 

GO 22 

(000034) 

0 242, 

0268, 

0343, 0349, 


0 G42 

ONEBIT 

ec>2^ 

(000G35) 




o 

0 •] i-2 

SIX TEN 

0 0 2 7 

(000039) 





0 0U3 

COMMA 

0Q2C 

(000044) 

0 110 




0 0 43 

SLASH 

G0 2F 

( OGG047) 





0 0 

ASTPIC 

G 0 2 A 

(000042) 




o 

0 G 4L 

E IGHT 

002 6 

(000038) 




0 0 4 

NINE 

G 0 45 

(0GQ069) 





0 0-^ 

THREE 

OOQi* 

( 00 30 04) 





Q y L* Lh 

ONE 

GGO 5 

(0 3 0 0 0 5 ) 




o 

0 Q ^ 

TWO 

uO 2 A 

(000036) 




0 0 45 

TEN 

U Q c 

(000070) 





0 n u fi 

MASK 

0 0 0 3 

( 0 G 3 0 0 3 ) 

0 210 




0 0 48 

CHRSLV 

00G7 

(000037) 

0 199 , 

0 246, 

Q 319 

o 

Qquq 

EXTRV4 

Q0E9 

(000233) 

0 356 



0 0 50 

LNW036 

002 4 

( 000036) 

0 3 23 




0 051 

ASHOD 

10 0 0 

(004096) 

0 115 




f* 0 5 ? 

MASSLU 

88C2 

(002242) 

0 249 



n 

0 D53 

FLOATZ 

070 8 

(001800) 

0203 , 

0 250 


0 0 54 

WROLN 

G 0 Q 3 

( 0 G -J 0 G 3 ) 

0 182, 

0 3 0 4 



0 0 5 7 

GETFLD 

00 0 2 

(Q0G002) 

0102 




0G5« 

ASCHEX 

0 0 Q 3 

{ Q00003) 

0 116 



O 

0 0 59 

ASCOEC 

OG 05 

( Q0G00 5) 




0 C 60 

KARPER 

OOZE 

(000045) 





0 0 61 

KA RF 

0 0 4 5 

( 000069) 





0 0 64 

6HAN 

0 0 Q 1 

(OOGuUl) 

u u 89 , 

n 3 4 7 


o 

0C65 

BHSG 

G002 

(000002) 

Q 0 91 



0 0 66 

SQMMOR 

0 0 0 3 

( 0 G 0 0 G 3 ) 

0 342 




0 0 6 7 

IQPpR 

U G 0 4 

(000034) 

0267 




D G 6 8 

LTSTLU 

OCO 5 

( 0 0 j G y 5 ) 

Q 0 93 




0 318 


0 35 7 


O 

O 


O 



O 

o 

o 

o 

o 

o 

o 

Q 

O 

O 

O 

O 


DSPRFQ PAGE 11 OATE'J 


D G 69 

COMOLU 

CGO 6 

( 0 0 0 0 0 6) 


■0 G70 

NEWMLU 

Gu0 7 

(000007) 


0 G71 

PROGl 

GO oa 

( Q 0 0 0 0 8 ) 


C C 72 

PP.OG2 

0 0 0 9 

(000009) 


DC73 

3ITFLG 

QCQA 

( 0 0 0 u 1 0 ) 


0 C 7 A 

BUFCNT 

G 0 G f3 

< OOOCll) 


0 e 75 

FIELD 

uOOC 

(000012) 

0 10 5 

0 C 76 

SLASHF 

0010 

(000016) 


0 0 77 

BUFEMT 

0 U 1 1 

{ 0 0 0 01 7) 

0133 

0 0 7 P 

BUFFER 

0Q12 

( 0 u 0 n 1 8 ) 

0 0 86 


Ql/27/qP 


DSPREQ 


PAGE 12 


DATE 


S Y '1 B 0 L S 


o 

DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 


0 029 

DSPREQ 

00 0 0 

0 0 29 





C1G2 

OSPl 

G012 

0123 





0113 

osp-^ 

OOlC 

0 124, 

013 e. 

0 14C 



0115 

MODE 

QOIE 

0 094 





0 116 

DSP5 

OQIF 

0106, 

0108, 

0111 



0116 

OSPVA 

QG 21 

0 120 




o 

C 133 

OSPiO 

0 0 2D 

0 127 




0 13 7 

GSPll 

0 0 31 

0135 





G li-? 

0SP12 

00 3 5 

0 139 





Q 1 wP 

QSP19 

0 0 3P 

0 3 39 





0 15 5 

DSP 2 0 

u 0 4 C 

0 158 





Cl 61 

DSP22 

w 0 4 

0 157 





G 1 3 9 

DSP?b 

CG5C 

: 310 





0198 

LSPl? 

0 0 6? 





o 

0 199 

LSPCAL 

U 0 6 0 

0 200 




0 202 

LSP13 

0 0 6 6 

0 273 





D?09 

CONASC 

0 059 

0163, 

0168, 

0173 , 

Cl 77, 


0 21ii 

DASNO 

0 0 6 E 

0 212 




p. 

0 218 

DA TLOC 

Q07C 

0 088 , 

0 17Q , 

018u, 

0 18 3, 


0 219 

EXTMSG 

0 07 1 

0 092, 

0114, 

0239 



0 220 

EXTHAN 

00 72 

0 0 90 , 

OlOi., 

0117 



0 221 

COUNT 

0 0 73 

0101, 

0119, 

0122, 

0125, 


0222 

BASF 

MAX 

0 07 4 

0 0 84, 

0266, 

Q3*+l, 

0 3 44 


D 223 

0 0 7 5 

0 0 97 , 

0 250 , 

0367 



D 2 2 6 

LSPACE 

0 0 7 6 

0 200 





0 229 

L S P 1 5 

0 0 78 

0 ? ? 6 





Q 2 33 

self' 

00 7C 

0 232 , 

023- , 

0 2 3 ■;> , 

0315, 


C 2A& 

LSP23 

0 0 39 






C 2u7 

LSP2- 

0 08A 

C 23 6 





0 261 

L s D b 5 

0 Q 8 E 

0 2 29 




■D 

0 253 

LSP26 

0 0 90 

0 2U.3 , 

0 2 4 “*• 



G 2F 7 

OETO 

0 092 

0 237, 

Q 2 3 8 




0 259 

FLT ADD 

009 E 

0 2 41 





C ? 2 

LSP3Q 

0 0 9 5 

0 235 





0 265 

LSP31 

0 0 98 

ij 2 30 





0 266 

DSP FIO 

0 099 

Q 227 , 

9329 




G 27? 

LS°55 

0 D9C 

0 2 62 





G 275 

LSP37 

009F 






0 2 77 

LSPAO 

QOAl 

0 2 31 




'sj 

0 281 

DSPLOC 

00 A3 

0 121, 

G 13 7, 

0138, 

GIhZ, 





3 194, 

0 31) 7, 

3 308 , 

03 3-t , 


o 


o 

o 


01/27/99 


0215 

0 Iftu , Q 291 , 0292, 0298, 0299, 0338 
G15u, C3u2, 0303 

ij .51 o 


l.1h5, 01^^, 01^5, CIh-d, 
0 33 5 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Cl --7, 0161, Gloo, 0171, 0176, 0189, 019 j. , 019. 2 



OSPRFf 

] 

PAGE 13 


bate: 01/27/99 

C28? 

VALUE 

00A6 

0 19G , 

0193, 

027-, 0288, 029Q 

0 287 

DSPIOQ 

Q0B6 

0 278 



Q288 

DSPlOl 

0QB7 

G 297 



0298 

DSPlo2 

GOCl 

0 296 



0 715 

DSP105 

OOCB 

0 3 05 , 

0 30 9 


0 220 

Dspy 

GOOD 

0 317 



0 .32 2 

0 TLU 

0 002 

0 0 95 



0 32i. 

BUF ADD 

0 00 4 

0 0 87 , 

015 5, 

033 7 

0-32 8 

nSPPFT 

0006 

0 316 



0 331 

OSPOK 

0008 

0 328 



0 3 3^ 

OSPPFP 

0 ODC 

0 332 



0 3i^l 

OSFDON 

00E3 

0 3 36 



0 344 

GONE 

00E6 

0 3 33 



0 35Q 

0TB 

GO EC 

0 3 45, 

0 346 


0 35 5 

COPADK 

OGEE 

3 123, 

0 363, 

0371, 037? 

0 3 63 

AD32FX 

OOF 6 

0359 , 

Q 37 0 


0 3 66 

An&5 

J0F7 

0 3 5 8 



C 371 

AD&5FX 

iJOFD 

0 361 , 

0 3 62 , 

0366, 0568, 0369 

0 3 75 

■SA3 7 

CC02 

0 3 76 



0 3 7 6 

SP3 7 

0 0 03 

0 3 7^ 



0 3 7 7 

083 7 

0 12 0 

0 3 7 8 




o 


L.> 

o 

C) 


L-' 


C’5 


nSPREQ 


date: 01/27/99 


PAGE 14 


X T E R 

M A L S 



DEF .LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 0 32 

ECONV 

00 9 4 

0 259 

0 0 3 3 

MM A DDR 

00 9? 

n 25? 

GO 3 4 

I1SG 

G093 

0 258 

G 0 36 

OFF 

GO ED 

0 351 

0 G 3 

HANDLE 

0 OEC 

0 350 

0 C38 

CHRSFG 

Q0D9 

a 7 1 



nSP??'^Q PAGP I"? DATF! Jl/27/9g 

O 



A L 

P H A 

R E T I 

C A L 

SORT 

0 F 

S Y P. 

0 L S 

'r 


o 

AD32FX 

C36o 

AD65 

0 3 66 

AD65EX 

■1 371 

ADISP 

g;-i 

A'*0NI 

G -3 4 1 


BASF 

0 22 2 

RHAN 

u u 5 ^ 

BITFLG 

0 0 73 

EMSG 

■J G 0 5 

LUFADD 

G32l- 


CHPSLV 

t. ' Li *4 8 

COMMA 

0 043 

COHOLU 

0 0 69 

CONASn 

0209 

COKAUK 

ij 3 5 b 

o 

DSPi 

G1Q2 

DSPiO 

0133 

DSPlOu 

0 2 87 

DSPIQI 

028 8 

DSP1G2 

j29 8 

D3P2G 

015 5 

DSP22 

0161 

DSP26 

3 189 

DSP? 

0113 

0SP5 

Oil 6 


DSPREP 

03a A 

DSPREQ 

0 029 

DSPRET 

0 328 

DSPVA 

0118 

DSPX 

0 32 0 


EXT MSG 

C219 

FIELD 

0 0 75 

FIVE 

0 0 42 

FLOAT? 

0 0 5 3 

FLTAOO 

0259 

o 

IQPPP 

0 06 7 

KAPE 

0 061 

KARPER 

0 0 60 

LTSTLU 

0 0 6 3 

LNWD36 

0C5 0 

LSP20 

Q2A6 

LSP24 

0247 

LSP25 

0 251 

LSP26 

0253 

LSP3G 

0262 


LSPACF 

Q226 

LSPCAL 

0199 

MASK 

0 0 4b 

MASSLU 

005 2 

MAX 

0 22 3 


NINE 

0044 

MZERO 

Q Oi-1 

OFF 

0 0 36 

OFTB 

0257 

UNE 

0 044 


PR0G2 

G072 

SA37 

0 375 

SELF 

0 233 

SIX 

Q0h2 

SIXTEM 

0Q42 
n05 4 


TEM 

0 04 5 

THREE 

Q 0 4«- 

TWO 

0 044 

VALUE 

0282 

WRDLN 


O 

O 

o 

0 


o 

o 

o 

D 




o 


A SC DEC 

C 0 5 9 

ASCHI X 

0 3 5 8 

A SHOD 

0 -j 5 1 

ASTPIC 

u G - 3 

BUFCNT 

0 0 7 ** 

oUFz.'U 

Gu7^ 

bUFFEiv; 

0 3 7 b 

CHRSFG 

D -3a 

COUNT 

G 221 

DASHO 

G 21 ** 

DATLOC 

0 21H 

DB3 7 

0 37 7 

DSP105 

C 315 

DSPll 

C 137 

DSP12 

0 142 

QS019 

0149 

0 SPDON 

0 34-1 

DSPEIO 

0 26 6 

DSPLOC 

G 28 1 

9SPOK 

0331 

ECONV 

0 0 32 

EIGHT 

0 0 -T 

EXTBV- 

0 04 9 

EXTHAN 

0 22 0 

GETFLD 

G 05 7 

GONE 

0 3 4 4 

HANDLE 

0 037 

I 

G L 0 L 

LPMSK 

U 04l 

LSP12 

ci9a 

LSP13 

0 20 2 

LSP15 

0229 

LSP31 

C 26 5 

LSP35 

0272 

LSP37 

0 275 

LSP-tC 

0 277 

M MAD OR 

0 0 53 

MODE 

0115 

MSG 

0 u3 - 

NEWHLU 

0 0 7C 

ONFRIT 

0042 

0T8 

C35Q 

OTLU 

Q 322 

PROGl 

Gu7i 

SLASH 

0043 

SLASHF 

00 76 

SOMHOR 

0 06 6 

SP3 7 

0 3 7 6 

ZERO 

0 042 

ZROBIT 

00 41 






(D 

O 

r, 

•w* 

o 

o 

c 

o 

o 

o 

o 

o 



DMSRFQ 


PAGE 1 date; 01/27/99 




000 1 


NAM 

OMSREQ DECK-ID N39 HSOS 5.0 

SUMMARY- 

1. i C ^ T- -v- V- 

00 0 2 


MASS 

STORAGE OPERATING SYSTEM VERSION 5.0 



N39G0002 

00 03 


SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 



N39C 0 0 0 3 

00 0 4 


COPYRIGHT CONTROL DATA CORPORATION 1976 



N390 0 00 4 

00 0 5 






N390 0 J 0 5 

0 0 0 6 

-V- 





N3qo 0 JGo 

Ou 0 7 



^ ^ ^ ^ ^ 'i' 4r ^ ^ ^ ^ ^ ^ ^ ^ -V ^ ^ "V 'iT '.*■ V' ^ ^ V V ^ -V -r 

V- V- ^ 4 -T- 


N 3 9 ij 0 0 C 7 

0 0 G 3 

V- 


*r 


'7- 

M 39 0 0 0 u 8 

0GQ9 



THIS PROCESSOR DUMP MASS MEMORY DATfl IN 


*r 

M 3 9 j Q u G 9 

0 0 1 0 



^ SINGLE PRECISION FORMAT 


if. 

N39C G ilG 

0011 

■V- 


V- 


~r 

N 3 9 0 0 J 1 1 

0 C12 



if. if.if.if. if. if. if. if. if. ^ if if. Sf. if. ifif. if. if, ifSf. if, if 

*v ^ 4 V ^ 


N 390 0012 

0013 






N39G G 015 

0014 



INPUT FORMAT : 



N39G 0 ul 4 

0015 






N390 0 0 1 5 

0016 






N 390 0 u 15 

0017 

•V- 


DMS ,SSMSR,SSLSB,SW,NW 



N39G Qul7 

0018 






N 390 0018 

OG 1 9 



WHERE SSMS8 = START SECTOR (HEX.) MSB 



N 39 0 G G 1 9 

0 0 2 0 



SSLSB = START SECTOR (HEX.) LS3 



N39G 0u2G 

0G21 



SW = START WORD (HEX.) 



N39G 0 G21 

0 022 



MW = NO. OF WORDS TO BE DUMPED 

(HEX 

. } 

N39GCG22 

0 0 2 3 






N39G G 02 5 

0 02 4 






N590 0 G24 

0 02 5 

if. Sf. fj. if. if. 


OUTPUT FORMAT ; 



M39. G 02 5 

002 6 

K- 





N 390 G G2 5 

00 2 7 



TOTAL OF 4 VALUES ARE INSERTED 

IN A 

LIN=-" 

N59iJ G j2 7 

00 2 8 






M 3 9 0 u G 2 6 

00 29 

if. 


HMLLLL/WWWW +0 . NNNNNNNr, + NM -0 . MNNf4NNN 

F-NN 


N59C G G29 

00 3 0 

3f. 





N 39 ■: 0 G 3 C 

QC31 






N39J uG51 

0 G 3 3 

V 


F N T R Y NAME 



M 3 9 G u G 5 5 

00 5 4 


ENT 

OHS REQ 



N 6 9 G G G " -*■ 

093 6 



EXTERNALS 



N 39 G G j 3 o 

00 3 7 


FXT 

ECONV E- OR F-FORMAT CONVERSION FOR SINGLE 


N390 0 G37 

0D3 8 


EXT 

MM AD DR 



N390 0 038 

0039 


EXT 

MSG 



N 390 0 039 

0Q4Q 



1 CARO DELETED 



N 39 C 0 G 4 0 

Q041 


FXT 

CHRSFG 



N3900U41 

00 42 


FXT 

OFF 



N39G G 042 

0043 


EXT 

HANDLE 



N39C C 045 


o 

o 

o 

o 


o 


o 


o 


o 

o 

o 

o 

o 







■ O 

0045 

QQ46 

0 0F4 
GOFA 
0 0 02 


'EQU' TABLE 

EQU AMONI ($F4) , ADIS P( SEA) ,L PM SK ( 2 ) , NZ ERO ( S12) ,ZROBIT($33) 

N39l] u 045 
N39C 0 046 

o 


GO 12 
0 0 33 


O 


u 

C’> 

004 ? 

DMSREQ 
0 0 43 

EQU 

PAGE 2 

FIVE(i43),SIX 

DATES Ql/27/99 

($94) ,ZERO ($22) t ON EBIT ($23) ,SIXTEN ($27) N39QQ0 47 

l' 

‘W 

0048 

G 0 

0 0 22 
C 0 23 
0 0 27 
0 0 2C 

Eau 

GOHMA {5 20 ,SLASH($2F) ,ASTRIG {$2A) 

N390 0 Q 48 

o 

0049 

C0 2F 
002A 
0 0 26 

EQU 

EIGHT ($26) , NINE ($45) , THREE (4) , ONE ( 3 ) , TWO ( $2 4 ) 

N 3 9 j u 0 4 9 

o 

0 

0050 

0051 

C 0 45 
GCD4 
0 0 03 
0 0 24 
0 0 46 
OQ 03 

EQU 

EQU 

TEN ($45) 
H AS K ( 3 ) 

ONE BIT MASK 

^^MSOS4.0’^^N390Q050 
N3900 j51 


00 5 3 

0 0 07 

EQU 

CHRSLV(7) 

LEVEL OF THIS PROGRAM 

116^936 


0 0 5 4 
00 5 5 

00 F9 
0 0 24 

EQU 

EQU 

EXT8V4 ($E9) 
LNW036( 36) 

36WORDS/LINE 

N39Gu354 
N390 0 055 

' \ 

0056 

10 CO 

EQU 

ASMODCSIQOO) 

ASC OUTPUT MODE 

N39 0 u 05 b 


0057 

0 8C2 

EQU 

MASSLU( S 6C2 ) 

MASS MEMORY LU 

N390 0 057 


0058 

0708 

EQU 

FLOATZdeO 0) 

SIZE OF FLOATING POINT PACKAGE 

N390 0 058 


0059 

0 0 28 

EQU 

NO40 (40) 

BUFFER SIZE 

N390 0 05 9 


0050 

0 0 03 

EQU 

WRDLN (3) 

NO« OF DATA PER LINE 

N39Qn06Q 


0062 

0 0 2 E 

EQU 

KARP£R($2E) 

CHARACTER = . 

N3900 062 

o 

0063 

0 0 45 

EQU 

KARE($45) 


N 39Q 0 06 3 

o 

006 5 
0066 

!<■ 

0 0 01 

EQU 

PARAMETER LOCATION (OFFSET FROM BASE) 
BHAN(l) "HANDLE" 

N390 0 0 6 5 
N390 0 066 

0067 

DO 02 

EQU 

BMSG<2) 

"MSG" ENTRY 

N390u 067 


006 8 

0 0 03 

EQU 

SOMMOR (3 ) 

"SOMHOR" ENTRY 

N39G 0 0 5 8 


0069 

0 0 04 

EQU 

I0ERR(4) 

"lOERR" ENTRY 

N390 0 05 9 

o 

00 70 

0 0 05 

EQU 

LISTLU( 5) 

LIST OUTPUT "LISTLU" 

N390007C 

0071 

0 0 06 

EQU 

C0M0LU(6) 

"COHOLU" 

N 39 0 0 0 7 1 


0072 

0 0 07 

EQU 

NEWMLU (7) 

"NEWMLU" NEW MM LU 

N390 0 072 


0 07 3 

0 0 08 

EQU 

PROGl ( 8 ) 

"PROGl" 

N39Q 0 073 


007 4 

0 0 09 

EQU 

PROG2 (9) 

"PROG2" 

N 390 0 0 7 9 

0075 

0 C OA 

EQU 

BITFLG( IG) 

"BITFLG" 

N393 0 07 5 


00 76 

00 OB 

EQU 

BUFCNT (11) 

"BUFCNT" 

N 390 0 0 76 


0077 

0 Q OC 

EQU 

FIELD(12) 

"FIELD" 

N 3 9 0 u 0 7 ? 


0 07 8 

0 0 10 

EQU 

SLASHF (16) 

"SLASHF" 

N 390 0 0 78 


0079 

00 11 

EQU 

3UFEMT ( 17) 

"BUFEMT" 

N 39 0 0 0 7 9 


00 3 0 

0 0 12 

EQU 

BUFFER( 18) 

"BUFFER" 

N 390 0 0 8 0 

o 

008 1 
0 0 82 

C 0 02 

EQU 

SUBROUTINE "EQU" POINTERS 
GETFLD(2) "GETFLD" 

N390Li'j81 

N3900082 

00 33 

0 0 03 

EQU 

ASCHEX(3 ) 

"ASCHEX" 

N39G C 08 3 


00 8 4 

CO 05 

EQU 

ASCDEC( 5) 

"ASCDEC" 

N39GQ 089 


008 5 

0 0 09 

EQU 

FETMM (9 ) 

'FETMM' GET MM ADD. 

N390 0 0 8 p 


o 


o 

o 

o 

o 

o 

o 

o 

u 

o 

o 


o 


o 

o 

o 

o 



o 


C'\ 



DMSREQ 


PAGE 


DATE: 01/27/99 


0087 








N390 0 387 

0088 



if. If. if. af 


if. If. If. If. 

PROGRAM START 


N39Q 0 088 

0089 








N3900 039 

0091 

POOOO 

68 77 

DMSREQ 

STA-’ 

BASE 



N3900091 

0092 

POOOl 

60FF 

STA- 

I 



N39GU092 

0093 

P0 002 

8112 


ADD- 

DUFFER, I 

CALCULATE "BUFFER" ADD. 


N3900G95 

009 4 

P00 03 

68 00 


STA 

BUFADD 



N390 0 3 94 


PG004 

OOFS 






N390 0 395 

0095 

P00 0 5 

6S6E 


STA^ 

DATLOC 



0096 

P0G06 

Cl 01 


COA- 

3HAN,I 

GET "HANDLE" ADD. 


N390 0 096 

009 7 

POOD? 

68 6E 


STAL 

EXTHAN 



N3900097 

0098 

POO 08 

Cl 02 


LDA- 

BMSG, I 

FETCH "MSG" ADDRESS 


N393 0 098 

00 99 

P00 0 9 

686R 


STA^‘ 

EXT MSG 



N39C 0 099 

0100 

POOOA 

0105 


LOA- 

LISTLU, I 



N390 0 10 C 

010 1 

POOOB 

8815 


ADD* 

MODE 



N390 0101 

0102 

POOOC 

6800 


STA 

OTLU 



N390Q102 

OlO 3 

POOOO 

POOOE 

0 0 ED 
Cl 07 


LOA- 

NEWMLU, I 

SET UP MM LU 


N59G 0103 

0104 

POCOF 

631F 


STA* 

DMSLU 



N393 C1Q4 

010 5 

POOIQ 

6836 


STA* 

DMSLOC 



N 390 0 10 5 

QIC? 





GET 

ALL CORE ADDRESSES 


N 399 0107 


0109 



¥ 




N 390 0 10 9 

0110 



if if if ^3f 


DUMP 

MASS MEMORY SINGLE PRECISION 

N390Q 110 

0111 







N3900111 

0112 

PDOll 

OA 09 

DMSENT 

ENA 

FETMM 

GET MM ADD. 

N3900 112 

0113 

PQQ12 

OCOl 


END 

i 

RETURN WITH INPUT ADO. DATA 

N39Q C 113 

0114 

PQ013 

5C62 


RTJ* 

(EXTHAN) 


N39Q C 11 

0115 

P0014 

0 0 32 


ADC 

DM3LOC-* 


N393 0il5 

0116 

P0015 

C A 02 


ENA 

GETFLO 

GET NEXT FIELD NO. OF WORDS 

N390G 116 

0117 

PCQ16 

CC04 


ENQ 

4 


N39G 0 117 

0118 

P0Q17 

5C5E 


RTJ* 

(EXTHAN ) 


N390Q118 

0119 

P0018 

Q A03 


ENA 

ASCHEX 

CONVERT TO HEX 

N3900119 

012 Q 

P0019 

5C5C 


RTJ* 

(EXTHAN ) 


N390G 120 

0121 

POOIA 

0 000 

NW 

NUN 

Q 


N390Q121 

0122 

POOIB 

cm 


LDA- 

eUFEMT, I 

MAKE SURE IS EMPTY 

N3900122 

0123 

POOIC 

B012 


EOR- 

LPHSK+16 


N39Q0123 

012 4 

POOID 

0103 


SAZ 

DMS5 


N39C0124 

012 5 







N39G 0125 

0126 

POOIE 

0C04 

DSP3 

ENQ 

H 

INCORRECT FORMAT, 

N39D0126 

012 7 

PQOIF 

1C55 


JMP* 

(EXTMSG ) 


N3930127 

012 8 

P0Q20 

1000 

MODE 

ADC 

ASMOD 

ASC OUTPUT MODE 

N3900128 

0129 







N390 Q 129 

0130 

P0021 

6851 

0HS5 

STA* 

INDEX 


N39G Q130 

0131 

P0022 

C824 


LDA* 

D M5LOC 

SET UP MSB AND LSB 

N390 0131 

0132 

P0023 

68 0E 


STA* 

OH3M 


N3900132 

013 3 

P0024 

CB23 


LDA* 

OMSLOC+1 


N 399 013 3 





DMSREQ 


PAGE 4 

date: 01/27/99 



o 

0134 

P0Q25 

68 00 

0MS5R 

STA^ 

OMSL 


N3900134 

■ O 


0135 

PO 026 

0A28 


ENA 

N040 

NO, OF WORDS TO BE XFER 

N39Q0135 


o 

0136 

P0 027 

6808 


STA^ 

DMSZ 


N390 0 13 6 

C) 

0137 

P0028 

68 0 0 


STA 

HOBF 


N3900157 



PO 029 

0 0 FD 








0138 

P002A 

54F4 


RTJ- 

( AMONI) 

READ OVER DATA 

N3900138 


o 

0139 

P0 02G 

03 0 7 

0MSC3 

ADC 

$300 + CH RSLV 


N3900139 

^ O 

0140 

P00 2C 

0 0 09 


ADC 

DMSRT-DMSCD 


N3900 140 


0141 

PO 020 

0 000 


NUM 

0 


N390 0 Is-i 



0142 

PO 02F 

0 0 00 

DMSLU 

NUM 

0 

LU (FILLED) 

N3900 142 


o 

0143 

P0D2F 

0 0 0 0 

DMSZ 

NUM 

0 

SIZE (FILLED) 

N390Q143 


0144 

PGQ3G 

0105 


ADC 

OHSBUF-DMSCD 


N390 01‘t4 



0145 

P0 031 

0 0 0 0 

DMSM 

NUM 

0 

MSB (FILLED) 

N390 0 i‘+5 



0146 

P0032 

0 0 0 0 

OMSL 

NUM 

0 

LSB (FILLED) 

N39G014O 


o 

0147 

P0033 

14EA 


JMP- 

(ADIS F) 


N39Q 01h7 

■ O 

0148 







N39C 0 148 


0149 

P0 034 

0162 

DMSRT 

SQP 

OMSIO 


N390 0149 


'D 

0150 

P00 35 
P0036 

1800 

0084 


JMP 

OSPEIO 


N39GQ15G 

n 

0151 






N39GG151 



0152 

P0037 

08 44 

OMSiO 

CLR 

A 


N3900 152 



0153 

P0 038 

683E 


STA^ 

COUNT 


N3900153 


o 









C 


0155 





FILL LINE WITH SPACE 

N 390 015 5 



0156 







N3900156 


o 

0157 

P0039 

C8 00 

0MS13 

LDA 

BUFAOD 


N39CG157 

(—'i 


P003A 

0 0C2 





N39D0158 



0158 

PO 03B 

09FE 


INA 

-1 




0159 

P003C 

60FF 


STA- 

I 


N3900159 


o 

0160 

PD03D 

OCOO 


ENQ 

0 

FILL BUFFER WITH SPACE 

N390 u 16 Q 

o 

0151 

PO 03E 

CO 00 

MAI 2 

LDA 

= A 


N3900161 



P0 03F 

2020 





N 39 6 016 2 



0162 

P0040 

6301 


STA- 

1,B 




0163 

P0041 

ODOl 


INS 

1 


N 39 0 C 16 3 

: O 


016 4 

P0042 

0814 


TRO 

A 


N3900164 


0165 

PO 043 

ogne 


INA 

-36 


N39C0165 



0166 

P0 044 

0106 


SAZ 

MA14 


N390 C 16 fa 


o 

016 7 

P0045 

13F8 


jHP=»- 

MA12 


N390 0 16 7 


0168 

PO 046 

0 0 05 

DMS LOG 

BZS 

OMSLOC(5) 

CORE LOCATION TAG 

N3gQG168 



0169 



* 


INSERT 

N3900169 



0170 







N39D0170 



0171 

P004B 

C8 FC 

MA14 

LDA^ 

DMSLOC+2 

CONVERT MSB TO ASC 

N39Gfll7i 

o 


0172 

P004C 

582G 


RTJ^ 

CV4A 


N393 0 172 


0173 

P004D 

6101 


STA- 

l.I 


N3900173 



0174 

P004E 

C8FA 


LDA* 

0M3L0C4-3 

GET LSB AND CONVERT TO ASC 

N39G0174 


o 

0175 

POO-rF 

5829 


RTJ^ 

CV4A 


N390 0175 

• o 

017 6 

P0050 

4102 


STO- 

2,1 


N390 0 i76 



0177 

P0051 

6103 


STA- 

3,1 


N390 0177 



0178 

PDQ52 

C8F7 


LDA^ 

DM3L0C + 4 

GET WORD 

N 39 00 17 8 


o 

0179 

P0053 

5025 


RTJ^ 

C\/4A 


N39Q0179 

■ o 

0180 

P005H 

68 24 


STA^^ 

CV4A 


N390 0 180 


0181 

PQ055 

0814 


IRQ 

A 


N390 0181 



o o 


o 


DMSREQ PAGE 5 DATE: Gl/27/99 


o 

0182 

F0056 

0C2F 


ENQ 

SLASH 

INSERT '/» BETWEEN SECTOR AND WORD 

N39GC182 

O 


0183 

PO 057 

0FE8 


LLS 

8 


N390Q183 


o 

018^* 

P0058 

4104 


STQ- 

4tl 


N390G184 

r\ 

0185 

P0059 

E3 IF 


LDQ^ 

CV4A 


N39Q0185 



0186 

PC05A 

0FC8 


ALS 

8 


N3900136 



018 7 

PO 058 

OFFS 


LLS 

24 


N3900187 


o 

0188 

P005C 

0920 


INA 

$20 


N39G 0188 

O 

0189 

P005D 

6106 


STA- 

6»I 


N39C0189 


0190 

PO Q5E 

41 05 


STQ- 

5^ 


N3900190 



0191 



■lA 




N390 0191 


o 

0192 






INCREMENT DATA LOC. TO VALUE 

N39Q 0192 


0193 

P0 05F 

0A07 


ENA 

7 


N39aC193 

L-' 


019A 

P0060 

8813 


ADO’f 

DATLOC 


N3900194 


r'l 

0195 

P0061 

6812 


STA^ 

DATLOC 


N3900195 



0197 







N390 0197 



0198 





GET ANO 

ASSEMBLE VALUE 

N3900196 


O 

0199 







N39QDi99 

' o 

020 0 

P0062 

E8 10 

DMS22 

LOQ’^ 

INDEX 

SET UP INDEX ANO HOVE FLOATING POINT VALUE 

N39Q0 2G0 


0201 

P0063 

CA 00 


LDA 

DMSBUF, Q 

INTO CALLING PARAMETER LOCATION 

N390 0 201 




PQ 064 

0 OCC 







o 

0202 

P0 065 

685F 


STA^ 

VALUE 


N390D202 

o 

0205 

P0066 

CA 00 


LOA 

DMSBUF + 1 ,Q 


N39002C3 



P0067 

0 OCA 








020 A 

P0068 

685D 


STA-'^ 

VALUE+1 


N390020W 


o 

0205 

P0 069 

QD02 


INQ 

2 


N 390 0 20 5 

o 

020 6 

P006A 

4808 


STQ=^ 

INDEX 


N390 0206 


020 8 







N39002C8 



0209 





REQUEST 

■ SPACE TO BRING IN FLCATING POINT PACKAGE 

N39G 0209 



0210 

PO OBB 

54F4 

LSP12 

RTJ- 

(AMONI) 


N39G0 210 



0211 

P006C 

1547 

LSPCAL 

ADC 

$1540+GHRSLV 


M39D0 211 


o 

0212 

P0060 

0 0 2B 


ADC 

LSPACE-LSPCAL 


N 39 00 21 2 


0213 

P006E 

GO GO 


NUH 

0 


N390D 213 

’ ! 


021^ 

PDQ6F 

0 0 00 

LSP13 

NUM 

0 

CORE LOCATION OF REQUESTED SPACE 

N39Q0 214 



0215 

P0070 

0 7 08 


ADC 

FLOATZ 

N3900215 


o 

0216 

P0071 

14EA 


JMP- 

(AD ISP) 


N3900216 

; O 

0217 

PQ072 

0 000 

INDEX 

NUH 

0 


N39G 0217 


0219 







N39Q0219 


o 

0220 

P0073 

GOOD 

DATLOC 

NUH 

0 


N390 0 220 

: O 

0221 

P0074 

DO 00 

EXTMSG 

NUM 

0 

"MSG" ADD. 

N3900221 


0222 

P0 075 

0 0 GO 

EXTHA N 

NUM 

0 

"HANDLE" ADD. 

N39QD222 



0223 

PO 076 

0 0 0 0 

COUNT 

NUM 

0 


N 39 00 22 3 


o 

0224 

PGQ77 

0 0 0 0 

BASE 

NUM 

0 

PARAMETER ADD. 

N39U0224 

■ o 


0226 







N39QG226 


o 

022 7 





ROUTINE 

TO CONVERT TO I-WORD ASCII 

N39C 0 227 

c 

0228 







N3900228 


0229 

PO 078 

QBOO 

CV4A 

NOP 

0 

ENTRY 

N3900229 



o 


o 
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023 0 

P0079 

OCOO 


ENQ 

0 


N 390 0 23 0 

0231 

P007A 

4815 


STQ» 

Cl 

SET UP INOEX 

N39ii0231 

0232 

P007B 

OFEC 

Cl 

LLS 

12 

EXTRACT 4-BIT TO A-REG. 

N3900232 

0233 

P007C 

0FC4 


ALS 

4 


N39D0233 

0234 

P007D 

48 00 


STQ^ 

CT 

SAVE REMAINDER 

N391J0 23 4 

0235 

P00 7E 

09F5 


INA 

-10 

SET UP CHAR. AS NO. OR A-F 

N39Q0235 

0236 

P0 07F 

0131 


SAH 

NOAFl 


N390 0 236 

0237 

P0 080 

09 07 


INA 

f 


N 39 00 23 7 

0238 

P0081 

093A 

NOAFl 

INA 

$3A 


N390 0 238 

0239 

P0 082 

F8 OO 


LDQ^ 

GI 

RECALL INDEX TO SAVE CHAR. 

N3900239 

0240 

P0 083 

6A08 


STA» 

CU,Q 


N39Q 0 24u 

0241 

P0Q84 

GDFC 


INO 

-3 

CHECK IF DONE 

N3900 241 

0242 

PQ 085 

01 4A 


SQZ 

CE 

SKIP WHEN DONE 

N39CG242 

0243 

P0086 

08 09 


RAO^ 

Cl 


N3900243 

0244 

P0 087 

OCOO 


ENQ 

0 


N390 02h4 

0245 

P0088 

C802 


LDA» 

CT 

TO PROCESS ANOTHER ONE 

N3900245 

0246 

P0089 

18F1 


JMP* 

Cl 


N390 0246 

02 47 



■V 




N39Q0247 

0248 

PD03A 

00 00 

CT 

NUM 

0 


N39u 0243 

0249 

PQ08B 

0 0 04 

CU 

EZ3 

CU(4) 


N3900249 

0250 

P0 08F 

OCOO 

Cl 

NUM 

0 


N3900 25Q 

0251 



V- 




N390Q251 

0252 

PQ090 

E8FD 

CE 

LOQ^ 

CU + 3 


N 39 0 0 2 5 2 

0253 

PO 091 

0FA8 


QLS 

3 

ASSEMBLE INTO 2-GHAR. WORD 

N39G0255 

0254 

poog? 

F8FA 


AOQ-*^ 

CU+-2 


N 39 0 0 25 4 

0255 

P0093 

C8F8 


LOA^ 

CU + 1 


N39Q 0 255 

0256 

P0Q94 

0FC8 


ALS 

3 


N390 0 256 

0257 

P0095 

88F5 


AOO^ 

CU 


N39C0257 

0258 

P0 096 

ICEl 


JMP^ 

(Cy4A ) 

RETURN 

N39Q0258 

0260 







N39G 0 260 

C261 

P0097 

0161 

LSPAOE 

SQP 

LSP15 

SPACE BE GRANTED, 00 SOMETHING 

M3900261 

0262 

P0Q98 

1822 


JMP^^ 

OSPEIO 

TO ERROR (I/O ERROR) 

N3900262 

0263 







N390 0 263 

0264 

P0 099 

4816 

LSP15 

STQ* 

LSP25 

SET LOG. WHERE PROGRAM TO BE READ 

N390Q264 

0265 

P009A 

481F 


STQ^ 

LSP31 


N39G 0 265 

0266 

P0u9B 

4827 


STQ» 

LSP40 


N3900266 

0267 

P009C 

5RQ1 


RTJ^ 

SELF 

GENERATE RETURN ADD. 

N 3930 267 

0268 

PC09D 

OBOO 

SELF 

NOP 

0 


N393 0 268 

0269 

P009E 

C3FE 


LBA^ 

SELF 


N39Q 0269 

0270 

P009F 

0919 


INA 

LSP30-SELF 


N390027Q 

0271 

POOAO 

68 0B 


STA» 

LSP24 


N390G271 

0272 

PGOAl 

C812 


LOA^^ 

OFTB 

GENERATE "MHAODR" LOCATION 

N39QC272 

0273 

PDQA2 

9 312 


SUB» 

OFTB+1 


N39Q 0273 

0274 

F0QA3 

8800 


AOO^ 

EXTMSG 


N 39 0 0 27 4 

0275 

P00A4 

0 822 


TRA 

Q 


N 390 0 27 5 

0276 

PQ0A5 

C810 


LOA^ 

FLTAOO 

GET FLOAT PACKAGE SECTOR ADO. 

N3900276 

0277 

PQ0A6 

5622 


RTJ- 

(ZERO) , Q 

TO "HMADOR' FOR HM ADO. CONVERSION 

N3900277 

0278 

P00A7 

68QA 


STA^ 

LSP26 

SAVE LSB 

N39QQ278 

0279 

P0 0A8 

4808 


STQ''^ 

LSP26-1 


N39Q 0279 

0 28 0 

P00A9 

54F4 


RTJ- 

{AHOND 


N3900 280 

0281 

POOAA 

08 07 

LSP20 

ADC 

$80 0«-CHRSLV 


N39002S1 
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0282 

POOAB 

0 0 0 0 


LSP24 

NUM 

0 

RETURN (TO BE FILLED) 



N390C282 

o 


0283 

POOAC 

0 0 0 0 



NUM 

0 

THREAD 



N3900 283 


O 

028 4 

PO OAD 

G8C2 



AOC 

MASSLU 




N390 0 284 

: O 

0285 

PQOAE 

0 708 



ADC 

FLOATZ 




N3900285 


0286 

PO OAF 

0 0 00 


LSP25 

NUM 

0 

FLOAT PACKAGE ADO. (TO BE 

FILLED) 

N390 0 286 



028 7 

POOBC 

GOOD 



NUM 

0 




N39UQ287 


C'\ 

0288 

PO oei 

0 0 0 0 


LSP26 

NUM 

0 

SECTOR ADD. (TO BE FILLED) 



N39Q0288 


0289 

P00B2 

14FA 



JMP- 

{ADIS F) 




N3900289 

' U 


0291 










N39QQ291 



0292 

P00B3 

7FFF 

X 

OFTB 

ADC 

MMADDR 

0. "MMADDR" 



N3900292 

o 


0293 

PD0B4 

7FFF 

X 


ADC 

MSG 

1. "MSG" 



N39GG293 


029^ 

P00B5 

7FFF 

X 

FLTADO 

AOC 

ECONV 

E- OR F-FORMAT CONVERSION 

FOR 

SINGLE 

N390 0294 


o 

0295 










N390 0296 

c 


029 7 

P00B6 

0166 


LSP30 

SQP 

LSP35 

MM TRANSFER OK, SKIP 



N390Q297 



0298 

P00B7 

54F4 



RTJ- 

(AMONI) 

RELEASE CORE 



N39U 0 298 


0 

0299 

PO 0B8 

1800 



NUM 

S18O0 




N390 0299 

• o 

0300 

P00B9 

00 00 


LSP31 

NUM 

0 




N39u G3Qu 


0301 

POOBA 

E8BC 


OSPEIO 

LDQ-'^ 

BASE 

EXIT TO "lOERP" 



N39Q03G1 



030 2 

POOBB 

F2 04 



LDQ- 

lOERRfQ 

EXIT TO "lOERR" 



N390G 302 



0303 

POOBC 

1622 



JMP- 

(ZERO),Q 




N39003U3 

o 


030 4 










N390 0 304 


030 5 




^ !f. If. 


FLOAT 

PACKAGE IS IN CORE, CONVERT 

NO. 


N3900 30 5 



0306 




¥ 






N390 0306 


o 

0307 

POOBD 

OCOl 


LSP35 

ENQ 

1 




N39G 0 30 7 


030 8 

PQOBE 

5CB0 



RTJ^ 

(LSP13) 




N3900308 



0309 

POORE 

0 0 05 



ADC 

VALUE-^ 




N390 0309 



031Q 

POOCQ 

54 F4 


LSP37 

RTJ- 

(AMONI) 

RELEASE CORE 



N390G31G 


o 

0311 

POOCl 

1800 



NUM 

$18 0 0 




N3900311 


0312 

PO 0C2 

UU DO 


LSPhO 

NUM 

0 

ADD. (TO BE FILLED) 



N3900 312 


0 

031 3 

P0QC3 

1811 



JMP^ 

ospiao 




N390G313 

o 

0315 




¥ 


STORAGE AND/OR CONSTANTS 



N 390 u 315 


0316 

PQ 0C4 

QG 10 


VALUE 

BZS 

VALUE (16) 




N3900316 

C- 

o 

0318 




¥ 






N3900 318 

c 


0319 




¥¥¥¥¥ 


INSERT 

INTEGER INTO OUTPUT FORMAT 


N39G 0319 


o 

0320 




¥ 






N390 0 320 


0321 

PQ 00 4 

OCGO 


DSPIO 0 

ENQ 

0 




N3900321 



0322 

P0 005 

CAFO 


OSPIQI 

LOA^ 

VALUE+2 , Q 

ASSEMBLE 2-DIGIT INTO ONE 

WORD 

(INTEGER) 

N 390 0 32 2 



0323 

PQ0O6 

0FC8 



ALS 

3 




N39QQ323 


o 

0324- 

P00D7 

8AEF 



AOD^ 

VALUE+3 ,Q 




N39Q 0 324 

o 

0325 

P0008 

6C9A 



STA^ 

(DATLOC ) 




N3900325 


0326 

P00D9 

0899 



RAO^ 

DATLOC 




N39Q 0 326 


o 












o 

o 












i '■ 
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PAGE 
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0327 

POODA 

0D02 



INQ 

2 

BUMP NO. OF INTEGER IN E-FORMAT 

N39J0327 

0328 

P00D8 

0 814 



TRQ 

A 


N39Q 0 328 

0329 

POODC 

0 9 FI 



INA 

-14 

CHECK IF DONE 

N 39 0 0 32 9 

0330 

POODD 

0121 



SAP 

DSP102 


N390 0 330 

0331 

FOODE 

13F6 



JMP» 

OSPlOl 


N3 9 0 0 331 

0332 

POO DF 

D8 93 


OSP102 

RAO^ 

OATLOC 


N39U 0 332 

0333 

POOEO 

0892 



RAO» 

OATLOC 

BUMP POINTER TO NEXT VALUE 

N390G333 

0335 




V- 


CHECK 

IF LINE EXHAUSTED 

N3900335 

0336 

POQEl 

D894 



RAO» 

COUNT 


N390 0 35 6 

D337 

P00E2 

E 8 44 



LDQ^ 

WDBF 

ADJUST NO. OF WORDS IN BUFFER 

N390 0 33 7 

0338 

P00E3 

ODFD 



INQ 

-2 


N390 0 338 

0339 

P00E4 

4 8 42 



SIQ* 

WDBF 


N39G0 339 

0340 

P00E5 

G890 



LDA^ 

COUNT 


N3900340 

0341 

P00E6 

09FC 



INA 

- WRDLN 


N390 0 341 

03:^2 

P00E7 

0108 



SAZ 

OSP105 


N3900 342 

0343 

P00E8 

C800 



LDA 

NW 

CHECK IF UATA EXHAUSTED 

N 39 0 0 34 3 


P00E9 

FF30 







0344 

POOEA 

09FD 



INA 

-2 


N39003h4 

0345 

POOEB 

680 0 



STA 

NW 


N 390 0345 


DOOEC 

FF2D 







0346 

PO OED 

0105 



SAZ 

DSP105 


N 390 0 346 

0 34 7 

POOEE 

0134 



SAM 

DSP105 


N3900347 

0348 

POOEF 

0151 



SQN 

0MS171 

BUFFER NOT YET EMPTY 

N 39 0 0 34 8 

0349 

PQOFO 

182B 



JMP» 

DMS2Q1 

BUFFER EMPTY, TO UPDATE MM AND GET DATA 

N39Q0349 

D35Q 

POOFl 

18 00 


DMS171 

JMP 

0MS22 


N 390 0 350 


P00F2 

FF6F 







0352 








N3900352 

0353 






PRINT 

DATA 

N3900353 

0354 








N390G354 

0355 

P00F3 

C3A9 


DSPIQ 5 

LOA* 

SELF 


N390Q 355 

0356 

P00F4 

0961 



INA 

DSPRET-SELF 


N 39 0 0 35 6 

035 7 

POOFS 

6803 



STA^ 

DSPX 


N 390 0 35 7 

0358 

P00F6 

5 4 F4 



RTJ- 

{ AMONI) 

CALL MONITOR 

N3900358 

0359 

PDQF7 

0CG7 



ADC 

SCOO + CH RSL V 


N3900 359 

0360 

POOF8 

QGOO 


DSPX 

NUN 

Q 

EXIT (TO BE FILLED) 

N3900360 

0361 

P00F9 

0 0 00 



NUN 

0 


N390 0 361 

0362 

PQOFA 

0 0 00 


OTLU 

MUM 

0 

LU (TO BE FILLED) 

N3900 362 

0363 

POOFE 

0024 



ADC 

LNW036 


N3900363 

0364 

POOFC 

C QGO 


BUFADD 

NUM 

0 

"BUFFER" ADD. 

N 390 0 36 4 

0365 

PQOFD 

14EA 



JMP- 

(AOISF) 


N390 0 365 

0367 






RETURN 

FROM OUTPUT 

N3900367 

0368 

POOFE 

0161 


DSPRET 

SQP 

DSPOK 


N39Q0368 

0369 

POOFF 

18BA 



JMP» 

OSPEIO 

TO "lOERR" ERROR EXIT 

N39Q0369 

Q370 








N39CG370 

0371 

POIGO 

C400 

X 

OSPOK 

LOA 

CHRSFG 

CHECK IF "OX" 

N3900371 


POlOl 

7FFF 

X 






0 37 2 

P0102 

Q 111 



SAN 

DSPREP 

NO, SKIP 

N390 0 372 


OMSREQ 


PAGE 


9 


OATES 01/27/99 


0377 

P010 3 

1824 


JHP^ 

GONE 

YES, TO EXIT 

N3900373 

037i^ 

POlO 4 

C8G Q 

DSPREP 

LOA 

NW 

CHECK IF ALL DATA EXHAUSTED 

N39 0 0 37 4 


POIG 5 

FF14 






037 5 

P01Q6 

09FD 


INA 

-2 


N 390 0 37 5 

037 6 

poia 7 

6800 


STA 

NW 


N 39D 0 37 6 


P0108 

FFll 






037 7 

PQ 109 

OlOD 


SAZ 

OSPDON 


N 390 0 37 7 

0378 

PO lOA 

013C 


SAH 

OSPDON 


N 3 9 0 0 3 7 8 

0379 

PO lOB 

C8FQ 


LDA^ 

BUFAnO 

RESTORE BUFFER ADD. AND REPEAT 

N 390 0 37 9 

038 0 

POlflC 

6800 


STA 

OATLOC 


N 39 0 Q 3 8 0 

0381 

P u 1 u U 
POIGE 

r r bt? 

caoo 


LDA 

DMSLOCi-4 

UP DATA LOCATION COUNT 

N39 J 0 331 


POIOF 

FF3A 






0382 

PO 11 Q 

0906 


INA 

6 


N3900382 

038 3 

PQlll 

68 00 


STA 

DM3L0C+4 


N3y 00383 


P0112 

FF37 






038 4 

PQ113 

F813 


LDQ--" 

WOBF 

CHECK IF BUFFER EMPTY 

N '59U U 38 4 

038 5 

P0114 

01 46 


SQZ 

OHS 201 

YES, SKIP 

N 390 0 33 5 

0386 

P0115 

1800 


JMP 

OHS 10 


N39 0 G 38b 


P0116 

FF20 






0387 





DON 

E EXIT 

N390 0 387 

0388 

POll 7 

F800 

OSPDON 

LDQ 

BASE 


N390 0338 

0389 

PO llo 
PQ119 

^ r be 
E203 


LOQ- 

SOMMOR, Q 

EXIT TO "SOMMOR" 

N3900 389 

039 0 

POllA 

1622 


JMP- 

(ZERO) ,Q 


N39Li (j 39 U 


0392 




V- 


BUFFER 

EMPTY, UP DATE MM ADD. AND GET DATA 

N39Q 0 392 

0393 

POllB 

480D 

c tr c CT 


DMS2G1 

STO 

INDEX 


N39Q 0393 

0394 

PO 1 1 c 
POllD 

r r b b 
C800 



LOA 

DMSL 

UPDATE LSB 

N3900394 


PO HE 

FF13 







0395 

POUF 

G928 



INA 

N04Q 


N 390 0 39 5 

0396 

P0120 

0123 



SAP 

DMS207 


N390 0 396 

0397 

P0121 

08 00 



RAO 

OHSM 


N39G 0 397 


P0122 

FFOE 







0398 

P0123 

ADll 



AND- 

LPMSK+15 


N3900398 

0399 

PQ124 

1800 


DMS2e7 

JMP 

OMS5R 

TO GET DATA, ETC. 

N 39 u 0 399 


P0125 

FEFF 







040 0 

P0126 

0 0 00 


WOBF 

NUM 

0 


N 390 0 40 0 

040 2 








N390 D 402 

0403 

P0127 

F8G0 


GONE 

LDQ 

BASE 


N3900403 


P0128 

FF4E 







040 4 

P0129 

C8 06 



LDA^ 

OTB+1 

GENERATE "OFF" ADDRESS 

N39 0 0 40 4 

0405 

P012A 

98 04 



SUB^- 

0TB 


N 390 0 40 5 

04G6 

PQ12B 

82 01 



A 0 0— 

8HAN,Q 


N39D 0 40 6 

0407 

P012C 

0822 



TRA 

Q 


N 390 0 40 7 

040 8 

P0120 

1622 



JMP- 

(ZERO) ,Q 

TO "OFF" 

N3900 408 

0409 

P012E 

7FFF 

X 

0TB 

ADC 

HANDLE 

0. "HANDLE" ENTRY 

N390 0 40 9 

0410 

P012F 

7FFF 

X 


ADC 

OFF 

1. "OFF" ENTRY 

N390 0 4l 0 


OMSRFQ 
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DATE? 01/27/99 


0 41 2 ^ 

0413 P0130 0 028 OMSBUF BZS DMSBUF(40) 


U 0415 » 

0416 0003 P EQU SA48(^/96) 

0417 0004 P EQU SP48(SA48+1) 

041 8 0180 P EQU DB4 8 ( SP 4 8^ 96 ) 

0419 P0 158 0 028 BSS <DB48-’^) 

0420 END 


PGM= 0180 ( 384) COM = 0 30 0 ( 0 ) DAT = OGOO ( 0) 


o 

o 

© 


o 

o 

o 

o 


o 


o 


N 39 a 0 41 2 
N390Q413 


N390 0 h 15 
N3900 Hlc 
N3900 h17 
N3920418 
N390D h19 
N39D0420 


O 

O 

Q 

O 

O 

o 

o 

o 

© 

O 

o 

o 

o 


OMSREQ PAGE 11 DATE.* 01/27/99 

EQUIVALENCES 


DEE. LINE 

NAME 

VALUE 


referenced AT 

LINE NUMBER 

0 0 0 0 

I 

OOFF 

(000255) 

0 0 92, 

0159 


0 0 46 

AHONI 

00F4 

(000244) 

0138 , 

0 210, 

0280, 0298, 0310, 0358 

0 046 

AOISP 

OOEA 

(000234) 

0147, 

0216, 

0289, 0365 

0 046 

LPMSK 

00 0 2 

(0 000021 

0123, 

0398 


0 04 6 

NZERO 

0Q12 

(000018) 




0 046 

ZROBIT 

00 33 

(000051) 




0 047 

FIVE 

0043 

(00C067) 




0047 

SIX 

0044 

(000068) 




0 047 

ZERO 

0022 

(000034) 

0 277 , 

0303, 

039u» Oh08 

0047 

ONEBIT 

0023 

(000035) 




0 04 7 

SIXTEN 

0 0 27 

(000039) 




0 0 48 

COMMA 

G02C 

(OOQ044) 




00 48 

SLASH 

U02F 

(000047) 

0182 



0 048 

ASTRIC 

002A 

(000042) 




0 049 

EIGHT 

002 6 

(000038) 




0049 

NINE 

0045 

( 00Q069) 




0 Q 49 

THREE 

000 4 

(00 0004) 




0 049 

ONE 

00 0 3 

C 0 Q Q 0 0 3 ) 




0 0U9 

TWO 

0024 

( 0 00 036) 




0050 

TEN 

0046 

(000070) 




0 051 

MASK 

000 3 

(000303) 




0 0 53 

CHRSLV 

D0Q7 

C000D07) 

0139, 

0211, 

0281, 0359 

0 054 

EXTBV4 

00E9 

(000233) 




00 55 

L N W D3 6 

002 4 

(000036) 

0363 



0 056 

A SHOD 

1000 

(004096) 

0128 



0057 

MASSLU 

08C2 

(002242) 

0284 



0058 

FLOATZ 

0 708 

( 0 01800 ) 

0 215 , 

0285 


0059 

NO40 

0028 

( G QDQ40) 

0 135, 

0395 


0 060 

WRDLN 

000 3 

( 0 0 D 0 3 3 ) 

0 341 



0062 

KARPER 

0026 

(000046) 




0 063 

KARE 

0045 

(000069) 




0 066 

RHAN 

0001 

(OOuOOl) 

0 0 96, 

0 406 


0067 

BMS G 

000 2 

(00QQQ2) 

0 0 98 



0 068 

SOMMOR 

00 0 3 

C 000003) 

0 389 



0 069 

lOERR 

000 4 

C 000004) 

0 3 02 



0 070 

LISTLU 

00 0 5 

(00000 5) 

0100 



00 71 

COMOLU 

000 6 

(000006) 




0072 

NEHMLU 

0007 

(00Q007) 

Q103 





DMSRFQ PAGE 12 DATEJ 


0 0 73 

PPOGl 

0 00 8 

(000008) 


00 74 

PROG2 

0009 

(OOOOQ9) 


0 075 

BITFLG 

000 A 

iOOQQlO) 


QQ76 

BUFCNT 

OOOB 

(000011) 


0 077 

FIELD 

000 c 

(000012) 


0078 

SLASHF 

0010 

(000015) 


0079 

BUFEMT 

0011 

( 000017) 

0122 

0080 

BUFFER 

0012 

(000013 ) 

0 093 

0 0 82 

GETFLO 

00 0 2 

(000002) 

0 116 

00 83 

ASCHEX 

0003 

(000003) 

0 119 

0 084 

ASCDEC 

00 0 5 

(000005) 


0985 

FETMM 

000 9 

(000009) 

0 112 


01/27/99 


OMSREQ 


o 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

C\ 


PAGE 13 


date: 01/27/99 


S Y M B 0 L S 


O' 


C' 


DEF.LINE 

NAME 

ADDRESS 

REFERE 

0 03 A 

DM3REQ 

00 00 

0 034 

0112 

DMSENT 

0011 


0121 

NW 

OOIA 

0 3 4o 

0125 

DSP3 

OOIE 


0128 

MODE 

0020 

0 101 

0 130 

DMS5 

0021 

0124 

013A 

0MS5R 

0 0 2 5 

0 399 

0139 

DMSCD 

Q02B 

0140 

01A2 

D MS LU 

COZE 

0104 

0143 

DMS Z 

0Q2F 

0136 

0145 

DMSM 

0031 

0 132 

0146 

DMSL 

0032 

0134 

0149 

OMSRT 

0034 

0140 

0 152 

OMSIO 

0037 

0 149 

015 7 

DMS13 

0 0 39 


0161 

MA12 

003E 

0167 

0168 

OMSLOC 

0046 

0105 

0171 

MAI 4 

0046 

0156 

0 200 

DMS22 

0062 

0 350 

0 210 

LSP12 

006B 


0211 

LSPCAL 

006C 

0212 

0214 

LSP13 

006F 

0 308 

0 217 

INDEX 

00 72 

0 130 

0 220 

DATLOC 

0073 

0095- 

0 221 

EXT MSG 

0074 

0 0 99 

0222 

EXTHAN 

00 75 

0 0 97. 

0 223 

COUNT 

00 76 

Q 153. 

0224 

BASE 

0 07 7 

0 091 

0229 

CV4A 

0 0 78 

0172. 

0 232 

Cl 

G07B 

0 245 

0238 

NOAFl 

0081 

0236 

0248 

CT 

008A 

0 234- 

0249 

GU 

00 8B 

0 240 . 

0250 

Cl 

G08F 

0 231. 

0252 

CE 

0090 

0 2 42 

0 261 

LSPACE 

0 097 

0212 

0264 

LSP15 

0 099 

0261 

0268 

SELF 

0090 

0267, 

0 281 

LSP20 

00 AA 


0282 

LSP24 

OOAB 

0 271 

0 286 

LSP25 

00 AF 

0264 


O, 


0376 


c: 

c 

n 


0178t 0381, 0383 


0 20 0 , 

0206, 

0393 


0194, 

0195, 

0325, 

0326 

0127, 

0274 



0 114, 

0118, 

0 120 


0336, 

0340 



0 301, 

0388, 

0403 


017 5, 

0179, 

0180, 

0185 

0245 

0252, 

0254, 

0 2 55, 

025 7 

0239, 

0243 



0269, 

0 270 , 

0355, 

0356 


0 38 0 


( ■) 


( ; 


r'; 


O 

O 

n 

O 





DMSREQ 
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DATE; 

01/27/99 









O 

0 288 

LSP26 

GOBI 

0278i 

0279 




D292 

OFTB 

00B3 

0 272, 

0273 




0294 

FLTAOD 

00B5 

0276 




o 

0297 

LSP3 0 

00B6 

0270 





0 300 

LSP31 

00B9 

0265 





0 301 

DSPEIQ 

0Q8A 

0150, 

0262, 

0369 



0 30 7 

LSP35 

QGBD 

0297 





0310 

LSP37 

OOCO 





■V,.* 

0 312 

LSP40 

0002 

0 266 





0315 

VALUE 

Q0C4 

3 202 , 

0204, 

0309, 0 322, 

0324 


0 321 

DSPlOO 

OOD 4 

0 313 




o 

0 322 

DSPlOl 

ODD 5 

0331 




0 332 

OSP102 

OODF 

0330 





0 350 

DMS171 

OOFl 

0 348 





0355 

DSP105 

00F3 

0 3 42 , 

0 3 4 6, 

0347 


T'i 

0 360 

DSPX 

00F8 

0357 





0362 

OTLU 

OOFA 

0 102 





0 364 

BUFAOD 

OOFC 

0 0 94, 

015 7, 

0379 



0368 

DSPRET 

OQFE 

0356 




o 

0 371 

DSPOK 

DIOQ 

D368 




0374 

OSPREP 

0104 

0372 





0 388 

DSP DON 

Oil 7 

0 377 , 

0378 




0393 

DMS201 

OllB 

0349 , 

0385 



C) 

0399 

DMS2G7 

0124 

0396 





0 40 0 

WOBF 

0126 

0 137, 

0337, 

0339, 0384 



0 40 3 

GONE 

0127 

0 3 73 





0 409 

0TB 

Q12E 

0 40 4, 

0 40 5 



Q 

0 413 

QMS EUF 

0130 

0 144 , 

0 20 1, 

0203 



0 416 

SA48 

00 0 3 

0 417 





0 417 

SP48 

00 0 4 

0 418 





0418 

DB48 

0 180 

0 419 




o 


OMSRFQ 
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DATE! 01/27/99 


U 

('■) EXTERNALS 


o 

DEF . LINE 

NAME 

VALUE 


0 057 

ECONV 

0085 


0 038 

MM A DDR 

0 0Q3 

o 

0 0 39 

MSG 

00 84 

0 0 41 

CHRSFG 

0101 


0 0 42 

OFF 

Q12F 

o 

0 0 43 

HANDLE 

012E 


O 

'W 

o 

o 

o 

o 

o 

o 

o 

o 

o 


REFERENCED AT LINE NUMBER 

0294 
0 292 
0 293 
0371 
0 410 
0 40 9 


o 

o 

o 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 


date: 01/27/99 




DMSREQ 


PAGE 

16 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

ADISP 

C0A6 

AMONI 

0 046 

ASCDEO 

0 084 

BMSG 

0067 

BUFADD 

0364 

BUFCNT 

0 0 76 

Cl 

0 25 0 

COMMA 

0 0 48 

GOMOLU 

0 0 71 

DMSiG 

0152 

DMS13 

0157 

DMS171 

0 350 

DMSCD 

0139 

DMSENT 

0112 

DMSL 

0146 

DSPIOG 

0 321 

DSPlOl 

0 322 

OSP102 

0532 

OSPRET 

0 36 8 

DSPX 

0360 

ECONV 

0 037 

FIVE 

0047 

FLOATZ 

0 058 

FLTAOO 

0294 

KARE 

0 063 

KARPER 

0 062 

LISTLU 

0C70 

LSP24 

0282 

LSP25 

0286 

LSP26 

0 288 

LSPCAL 

0211 

MA12 

0161 

MA14 

0 171 

NINE 

0049 

NOUO 

0 059 

NOAFl 

0238 

0TB 

0 40 9 

OTLU 

0 362 

PROGl 

0 0 73 

SLASHF 

0078 

SOMMOR 

0 0 68 

SP48 

0 417 

ZERO 

0047 

ZROBIT 

0046 




S Y M B 

0 L S 





ASCHEX 

0083 

ASHGD 

0056 

ASTRIC 

0 048 

BUFEHT 

0079 

BUFFER 

00 80 

Cl 

0232 

CCUNT 

0223 

CT 

0248 

CU 

0249 

DMS2Q1 

0393 

DMS20 7 

0399 

D MS 2 2 

0 20 0 

OMSLOC 

0168 

DMSLU 

0142 

DMSH 

0145 

DSP105 

0355 

DSP3 

0126 

D SPOON 

0388 

EIGHT 

0049 

EXT8V4 

005 4 

eXTHAN 

0222 

GETFLD 

0082 

GONE 

0 40 3 

HANDLE 

0043 

LNWD36 

Q05-J 

LPMSK 

0046 

LSP12 

0 210 

LSP30 

0297 

LSP31 

030 0 

LSP35 

030 7 

MASK 

0051 

MASSLU 

0057 

MMAOOR 

0038 

NW 

0121 

NZERO 

0046 

OFF 

0042 

PROG2 

0074 

SA48 

0 416 

SELF 

0268 

TEN 

0050 

THREE 

0049 

TWO 

0 049 


BASE 

0224 

BHAN 

0066 

BITFLG 

0 075 

CE 

0252 

CHRSFG 

0 041 

CHRSLV 

G 0 53 

CV4A 

0229 

DATLOC 

0 22 0 

DB48 

0418 

DMS5 

013 0 

DMS5R 

0134 

DMSeUF 

0413 

DMSREQ 

0G3h 

DHSRT 

0149 

DMSZ 

0143 

DSPEIO 

030 1 

DSPOK 

0 371 

DSPREP 

0 574 

EXTMSG 

C221 

FETMH 

0085 

FIELD 

0077 

I 

00 0 0 

INDEX 

0 217 

lOERR 

0069 

LSP13 

021h 

LSP15 

0264 

LSP20 

0281 

LSP37 

0310 

LSP40 

0 312 

LSPACE 

0261 

MODE 

0128 

MSG 

0039 

NEWMLU 

0072 

OFTB 

0292 

ONE 

0049 

ONEBIT 

0047 

SIX 

CO 47 

SIXTEN 

0 047 

SLASH 

0048 

VALUE 

L 3 1 6 

WDBF 

0 40 0 

WROLN 

0D6Q 


LSOREQ 


PAGE 


1 


DATEt 01/27/99 


f ) 



0 00 1 
00 0 2 

0 0 

0 0 03 

0 0 0 4 
00 0 5 
C0C6 
0 0 0 7 

00 0 8 
00 0 9 
0010 

0 

0011 

0012 

0013 

0014 

0 

0015 

0016 

0017 

0018 

0 

0019 


0020 
002 1 
0022 

i'^\ 

0023 


002 4 
0025 
00 26 

0 

0027 

0028 
0029 
0Q3Q 

0 

0031 

0032 

0033 
003 4 

r\ 

0035 


0036 
003 7 
0038 

0 

0 

0039 

0D40 

0041 

0042 


0044 
00 45 
0046 

0 

0048 

0049 
005 0 

0 

0051 

0052 


V* 

■f 

jf 

* 

V- 

V- 

^ ^ ^ ^ Jf, 
-¥■ 

^ 

»f. 

^3f 3f. 

Jf 

¥ 

if- 

if 

if 

if 

if 

if 

if 

if 

if 

if 

if 

if 


NAM LSOREQ OECK-ID N-^0 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMM ARY-116-»^^-^»^^^ 
N -f 0 jOQ02 
N4QQ 00G5 
N4 0 Q 0 0 0 4 
N4000D05 


* If. 

^ THIS PROCESSOR LOAD SINGLE PRECISION -^- 

VALUE (S) FROM INPUT COMMENT MEDIUM - 

INTO CORE 


INPUT FORMATS : 

(1) MODIFY ORDINAL "LSO" 


N-+ G 0 0 0 0 6 
N400 0 0 0 7 
N 4 OO 0 0 0 8 
Nh-OC C 00 9 
N400 0 010 
N400 0 Oil 
N40Q0G12 
N4000013 
N‘+C0 0 01 4 
N4000015 
N4000G16 
N400Q017 
N-^00 0 018 


LSO,0, L, E/DATA 

(2) MODIFY MH "LSM" 

LSM,SSMSe,SSLSB,SW/OATA 

WHERE DATA = SIGNEO/UMSIGNED 7 DIGITS VALUE 
WITH/WITHOUT DECIMAL POINT 


NhOO 0 019 
N4000fl20 
N4Q0 0 021 
N4000Q22 
N4000023 
N40G0024 
N4000025 
N4G 0 0 026 
N4 0 0 0 0 2 7 


0 =0RDINAL MO. (DECIMAL) 

L = LOCATION IN MODULE (HEX) 

B = BASE (HEX) (DEFAULT = 0) 


N400002e 
N 400 0 029 
N4000030 
N4G0 0 031 


SSMSB = START SECTOR MSB (HEX) 

SSLSB = START SECTOR LSB (HEX) 

SU = START WORD (HEX) 

COMMA IS USED TO SEPARATE 2 VALUES 

DATA = SIGNED FLOATING POINT VALUE 


N4000032 
N4Q0O 033 
N4 0u 0 G 34 
N4Q0O 035 
N4000036 
N400 0 037 
N4000 038 
N4Q0 0 039 
N4uQ 0 04 0 
N4000O41 
NhO0QO42 


ENTRY 

EMT LSOREQ 
ENT LSMREQ 


NAMES 


N4OOOO44 
N4 00 0 0 4 5 
N 4 COQ 046 


EXT ERNALS 

EXT ECONV E- OR F-FORMAT CONVERSION -- SINGLE 

EXT MMADDR 
EXT MSG 

1 CARO DELETED 


N4000048 
N4C 00049 
N 4 OO G 050 
N4G00 051 
N400Q 052 


O 

O 

c 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 


o 

n 


o 


0 Q 5 4 
0055 


0056 


0057 


005 6 


0059 
006 0 
0061 
0062 
0063 
0 0 5 4 
0 06 5 
0 0 5 6 


0Q68 
0G69 
00 70 
0071 
007? 
0073 
00 7 4 
0075 


0077 

0078 

0079 
00 80 
0051 
008 2 
0083 
00 8 4 
0 0 8 5 
0 0 8 6 
0087 


LSOREQ 


PAGE 


DATEI 01/27/99 


0 0F4 
OOEA 
0 0 02 
0012 
0 0 33 
0 0 43 
0 0 44 
0 0 22 
0 023 
0 027 
0 0 2C 
0Q2F 
00?A 
G 0 26 
0 0 45 
00 04 
0 0 03 
0024 


EQU 


'EQU' TABLE 

AMONI {$F4) , ADISPISEA) ,LPMSK{2) tNZER0($121 ,ZROBIT($33) 


T A B L 


EQU FlVEi$43 ) , SIX ($44) , ZERO ($2 2 ) , ONES I T ($ 23 ) , SI XTEN ( $27 ) 

EQU COMMA (320 ,SLASH($2F) , ASTRIC ($2 A) 

EQU EIGHT ($26) ,MINE ($45 ) , THREE! 4) ,ONE ( 3) , TWO ($24 ) 


N40Q0054 

N40a0055 


N40Q 0 056 

N40C 0 057 
N4G 0 0 05 8 


0 0 46 


EQU 

TEN ($46) 

0 8 C 2 


EQU 

MASSLU( $ 8 C 2 ) 

0 0 07 


EQU 

CHRSLV! 7) 

0 0 E 6 


EQU 

CSYLEN($E 6 ) 

00E7 


EQU 

GSY0IR($E7) 

0 0 E9 


EQU 

EXTBV4 ($E9) 

0 0 EB 


EQU 

OIRTRY ($EB) 

0 0 3C 


EQU 

LSD (50 1 


4 


SUBRO 

OD 02 


EQU 

GETFLO! 2) 

0 0 03 


EQU 

ASCHEX (3 ) 

0 0 0 5 


EQU 

ASG0EC(5) 

00 08 


EQU 

GETIMTC 8 J 

0 0 09 


EQU 

FETMM (9 ) 

GOOD 


EQU 

FLCVSG ( 13) 

0703 


EQU 

FLOATZ(1800) 




PARAH 

0 0 01 


EQU 

HANDLE! 1 ) 

00 02 


EQU 

BHSG!2) 

0 0 03 


EQU 

SOMMOR !3) 

0 0 04 


EQU 

I0ERR(4) 

0 0 05 


EQU 

LISTLU! 5) 

0 0 06 


EQU 

G0M0LU!6) 

0 0 07 


EQU 

NEWMLUC7) 

0 0 08 


EQU 

PROGl (8 ) 

0 0 09 


EQU 

PR0G2 ! 9 ) 

00 OA 


EQU 

8ITFLG!10) 


N4qg0 059 

LEVEL OF THIS PROGRAM i i 4 3 i 3 ^ El 

LENGTH OF S'rSTEM DIRECTORY (IN THIS LOC.) N^{jDGG62 

INDEX OF FIRST MM DIRECTORY Nh-00 0 063 

SYSTEM DIRECTORY CORE LOCATION N4000Q&5 

COMMAND "LSO" INDEX N^000066 


SUBROUTINE POINTER !FOR REQUEST) 

"GETFLO” GET FIELD SUBROUTINE 

••ASCHEC” — - ASC TO HEX. 

AS€ TO DEC. 

"GfTINT" -“-GET SINGLE/DOUBLE PRECISION 

FLTMM FETGH/CON VERT MM ADD, 

"FLCVSG" PRINT VALUE AND CONFIRM 

SIZE OF FLOATING POINT PACKAGE 


fER LOCATION (OFFSET FROM BASE) 
"HANDLE" 

"MSG" ENTRY 
"SOMMOR” ENTRY 
"lOERR" ENTRY 

LIST OUTPUT "LISTLU" 

"COMOLU" 

"NEWMLU" NEW MM LU 

"PROGl" 

"PROG2" 

"BITFLG" 


N 4 OQ 0 Q68 
N4p0Gb9 
N 4 0 o 0 0 7 Q 
N400Q071 
VALUEN4000072 
N4OOOO73 
N4000 074 
N4G00075 


N4000077 
N4000078 
N4000Q79 
N400 0 08G 
N4Q00a81 
N4000 082 
N4Q0Q 383 
N 4 OO 0 084 
N40U 0 08 5 
N4003 086 
NhOOQ 087 









o 



LSOREO, 


PAGE 3 


0088 


00 OB 

EQU 

BUFCNT(ll) 

"BUFCNT' 


0089 


00 OC 

EQU 

FIELD (12) 

“FIELD" 


009 0 


0 0 10 

EQU 

SLA3HF (16) 

“SLASHF 


0091 


00 11 

EQU 

BUFEMT(17) 

“BUFEMT 


0092 


0012 

EQU 

3UFFER(18) 

“BUFFER' 

o 

0094 





P R 0 G R 


009 5 




if. If. If. )/■ 

o 

0096 







0098 

P 0 0 Q 0 

687C LSORED 

STA^ 

BASE 



0099 


0 0 0 0 P 

EQU 

LSMREQdSOR 

EO) 


0100 

POOOl 

60FF 

STA- 

I 



0101 

P0002 

8112 

ADO- 

SUFFER, I 



D102 

P00Q3 

6800 

STA 

0AT8UF 




P0 0 04 

0 0 B1 

STA 

BUFAOD 


010.3 

POOD 5 

6800 



o 




u 

o 

o 

o 

o 

o 

o 


DATEi 01/27/99 


START 


>(■ 


0104 
010 5 

0106 

0107 

0108 

0109 

0110 


0112 


P0006 0099 
P0007 ClOl 
P0008 6800 
P0009 0087 
POOOA C102 
PO 0GB 6800 
POOOC 0083 
PCOOD G1Q9 
POOGE G9C3 
POGGF OlOC 


LDA- HANDLE, I 
STA EXTHAN 

LOA- 3M3G,I 
STA EXTMSG 

LDA- °R0G2,I 
INA -LSO 
SAZ LSOl 


FETCH "MSG” ADDRESS 

GET PROGRAM TYPE 
SKIP ON “LSO" 


>/■ 


GET 


0115 

P 0 0 1 0 

OCOO 

LSM 

ENQ 

0 

0116 

POOll 

C107 


LDA- 

NEWMLU, I 

0117 

PQ012 

6800 


STA 

MSB 


PO 013 

OODA 



COUNT-1 

0118 

P0014 

68QQ 


STA 


PQ015 

00 88 




Q119 

P0016 

6800 


STA 

XF2WD-1 


P0017 

0 098 



FETHM 

0120 

P0018 

0 A09 


ENA 

0121 

P0019 

5C77 


RTJ^ 

lEXTHAN) 

0122 

POOIA 

0 QD3 


ADC 

MSB-» 

0123 

POOIB 

1828 


JMP^ 

LSOM 


’LSM* 


GET 


DATA 


•- MM ADDRESSES 


N400Q088 
N4000089 
N400G 090 
N4000a91 
NhGC 0 092 


N40G0094 
N40D0095 
Ni-00 0 096 


N4Q00Q98 
N^+OD 0 099 
N^aOOlGO 
N^OGQlOi 
N40001D2 

N40C U 10 5 

N4C00104 
N4GQ 0105 

N4 00 0 106 
N^0Q0107 

N4 000108 
N^OO 0109 
N400G 110 


LU 

FOR 


HM 


N^G00112 
N4QQ0 113 
N4000114 
N40001i 5 
N4000116 

SIZE CHECK INCONJUNCTION WITH ADD.N4GD0117 

N4000118 

N409Q119 

N4G00120 

N4000121 

N4QQ0122 

N^+ODOiZS 


0125 

0126 

0127 

0128 POOiC 0A02 


LSOl ENA 


MODIFY ORDINAL, GET (1) ORDINAL, LOG., AND BASE 
GETFLO GET ORDINAL 


N-fOQO 12 5 
N40C0126 
N4 DO 0 12 7 
N40Q 0 128 


J 


o 

o 

o 

o 

o 

o 


V--- 


o 


r-\ 

o 

o 

c 

o 

o 


o 




LSOREQ 


PAGE 4 

DATES 01/27/99 


0129 

PGQID 

0C03 


ENQ 

3 


N400Q129 

0130 

POOIE 

5C72 


RTJ^‘ 

{EXTHAN ) 


N400013G 

0131 

POOIF 

0A05 


ENA 

ASCOEC 

CONVERT TO DEC. 

N4 G 0 0 13 1 

0132 

PG020 

5C70 


RTJ» 

tEXTHAN ) 


N-+00G132 

0133 

PO 021 

0101 


SAZ 

LER 


N4-00 G 153 

0134 

PCQ22 

0122 


SAP 

LS02 


N-tOO 0134 

013 5 

P0023 

OC04 

LER 

ENQ 

4 

TO PRINT FORMAT ERROR 

Nh-O i3 013 5 

0136 

P002h 

1C 6B 


JMP’^ 

(EXTMSG) 


N4000136 

013 7 







N^DD 0137 

0138 

POO 25 

58Q0 

LS02 

RTJ 

ORDCHK 

TO CHECK IF ORDINAL WITHIN LIMIT/GET ADDRESS 

N4000138 


PO 026 

OOCl 






0139 

PQ027 

0C04 


ENQ 

4 


N40G 0 139 

0140 

P0 028 

0 A 02 


ENA 

GETFLD 

GET LOG. 

N40 Q 0 140 

0141 

PGQ29 

5C67 


RTJ^ 

(EXTHAN ) 


N4C0Q141 

0142 

PQ02A 

0 A 03 


ENA 

ASCHEX 

CONVERT TO HEX. 

N4C00 142 

0143 

P002B 

5C65 


RTJ» 

(EXTHAN ) 


N400G 143 

0144 

P0 02C 

0 0 00 

LSPLOG 

NUM 

0 


N4 00 0 1 44 

0145 





GET 

BASE ADDRESS 

N40Q 0145 

0146 

P002D 

CIOC 


LDA- 

FIELD , I 


N‘+00Qlii6 

0147 

P002F 

Q9D3 


INA 

-COMMA 

CHECK FOR COMMA (GET EASE) 

N400 0 14? 

0148 

P002F 

0116 


SAN 

LS04 


N 4 OQOI 48 

0149 

P0Q30 

OC04 


ENQ 

4 

SET FOR M. CHAR. MAX. 

N400 0149 

0150 

P0031 

D A 02 


ENA 

GETFLD 


N 4 OQ U 15 G 

0151 

P0032 

5C5E 


RTJ^ 

(EXTHAN ) 

GET BASE ADDRESS 

N4000 151 

0152 

PD033 

0A03 


ENA 

ASCHEX 

CONVERT TO HEX. 

N4 0 0 0 152 

0153 

P0034 

5C5C 


RTJ^ 

(EXTHAN ) 


N40Q 0153 

0154 

P0035 

OQOO 

LSOB 

NUM 

0 


N4 0 0 0 15 4 

0155 


0036 P 

LS04 

EQU 

LS04(^) 


N-+0 0 0 15 5 

015 6 

P0Q36 

C8FE 


LDA^ 

LSOB 

ASSEMBLE ADDRESS = BASE + L 

Nh-GOOISo 

015 7 

P0037 

88F4 


AOD^ 

LSPLOC 


N 4 GOOI 57 

0158 

P0038 

68 F3 


STA^ 

LSPLOC 


N4CQ0156 

0159 

P0G39 

6 300 


STA 

MS8+2 


N4DC0159 


P003A 

0 0 B5 






0160 

P003B 

C856 


LDA^ 

MAXL 


N4G001bG 

0161 

P0 03G 

C112 


SAN 

LS05 

SKIP IF ORDINAL LENGTH NON-ZERO 

N400 0161 

0162 

PG03D 

ococ 


ENQ 

12 


N4 00 0 16 2 

0163 

Pu Q3E 

1C51 


JMP=^ 

(EXTMSG) 

ERROR - ZERO LENGTH 

NGOG 0 163 

0164 

PQQ3F 

0A09 

LS05 

ENA 

FETMM 

CONVERT TO WORD ADDRESSING 

N409Q164 

0165 

P0040 

OC02 


ENQ 

2 


N 4 D 0 D 16 5 

0166 

P0041 

5C4F 


RTJ^ 

(EXTHAN ) 


N4 0 0 0 16 6 

0167 

P0Q42 

Q 0 A8 


ADC 

MSB-^ 


N4CQ 0 167 

0169 



* 


CHECK FOR FORMAT CONTROL CHAR = SLASH 

M4G00169 

017 0 

P 00 43 

CIOC 

LSOM 

LDA- 

FIELD, I 

IS CONTROL CHAR. = SLASH 

NwflOGirO 

0171 

P0044 

0900 


INA 

-SLASH 


N4 0 0 0 171 

0172 

PGD45 

0 101 


SAZ 

LSPIO 


N4000172 

0173 

P0046 

18DC 


JMP^ 

LER 

TO PRINT FORMAT ERROR 

N40 0 0 173 

0175 



>(■ 




N4GQ 0175 

017 6 





TO 

OBTAIN SINGLE PRECISION VALUE 

N40G0176 

017 7 



jf. 




N400 0177 

0178 

P0047 

6110 

LSPIO 

STA- 

SLASHF, I 


N 4 DOO 173 
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o 


0179 

PQ048 

6856 



STA^ 

COUNT 


N^D00179 


0180 

P0049 

0C07 


LSPll 

ENQ 

7 

SET FOR 7 DIGIT MAX 

N4000180 


r 

0181 

P004A 

0 A08 



ENA 

GETINT 

GET DECODE SINGLF/DOUELE PRECISION 

N400G 181 

o 

w' 

0182 

P004B 

5C45 



RTJ^ 

(EXTHAN ) 


N4C0I] 132 


0183 

P004C 

0 0 78 



ADC 

VALUE-’^ 


N4 00 0135 


r") 

0185 








N40Q0185 

o 


0186 




^■v 


REQUEST SPACE TO BRING IN FLOATING POINT PACKAGE 

N.+ 00 0 186 



0187 

P004H 

54F4 


LSP12 

RTJ- 

fAHONI) 


N4000187 



0188 

POOhE 

15 47 


LSPCAL 

AOC 

$1540+CHRSLV 


N40G0188 



0189 

PO 04F 

0 0 06 



ADC 

LSPACE-LSPCAL 


N4D00189 



0190 

P0050 

0 00 0 



NUM 

0 


N400019Q 



0191 

PO 051 

0 0 00 


LSP13 

NUM 

0 

CORE LOCATION OF REQUESTED SPACE 

N4000191 


O 

0192 

P0052 

0 7 08 



AOC 

FLOATZ 


N4G00192 

o 

0193 

P0053 

14EA 



JMP- 

{ ADISP) 


N4000193 


0194 







N40Q 0194 



0195 

P0054 

01 61 


LSPACE 

SQP 

LSP15 

SPACE BE GRANTED, DO SOMETHING 

N400G195 


i ') 

0196 

P0Q55 

1824 



JMP» 

LSP32 

TO ERROR (I/O ERROR) 

N4C00196 

Q 


0197 








N4Q00197 



0198 

PO 0 5 6 

4 818 


LSP15 

ST0» 

LSP25 

SET LOG. WHERE PROGRAM TO BE READ 

N400C198 



0199 

PQ057 

4821 



STQ^ 

LSP31 


N40G0199 


o 

D2SG 

PQ058 

h82A 



STQ^ 

LSP40 


N4Q0 0 20G 

^ o 

020 1 

PQQ59 

5801 



RTJ^f 

SELF 

GENERATE RETURN ADD. 

N400e20i 


020 2 

PO 05A 

QBOO 


SELF 

NOP 

0 


N4u0Q202 



020 3 

PG05B 

C8FE 



LOA^ 

SELF 


N4000203 



0204 

P0Q5C 

091B 



INA 

LSP30-SFLF 


N4e00204 

C '] 

o 

020 5 

P 0 0 50 

6800 



STA* 

LSP24 


N400 0 20 5 



020 6 

PO 05E 

0 9 2F 



INA 

XFRORT-LSP30 


N403 0 20 6 



0207 

P005F 

68 3C 



STA« 

XFROAD 


N-, 00 0 207 



020 8 

P0060 

C8 12 



LDA^ 

OFTB 

GENERATE ”MMA0DR“ LOCATION 

N40u U 208 

n 

o 

0209 

P0061 

9812 



SUB» 

OFTB+1 


N400 02G9 



0210 

P0062 

8820 



ADD^ 

EXT MSG 


N40C02iU 



0211 

P0063 

0822 



TRA 

Q 


N400 0 21 1 



0212 

P0064 

C810 



LDA^ 

FLTAQD 

GET FLOAT PACKAGE SECTOR AOO. 

N4G0G212 

: O 

0213 

P0065 

5622 



RTJ- 

(ZERO) »a 

TO "HMAODR" FOR HM ADD. CONVERSION 

N^000213 


0214 

P0066 

680A 



STA^ 

LSP26 

SAVE LSB 

N4G0Q214 



0215 

P00 6 7 

4808 



ST0» 

LSP26-1 


N40Q 0 215 


,-*‘N 

L 

0216 

P0Q68 

54F4 



RTJ- 

(AM ON I) 


N4fl0a216 

. o 

I 

■W* 

021 7 

P0069 

0 807 


LSP2Q 

AOC 

$800 + CHRSLV 


N400Q217 


0218 

F0 06A 

GuOG 


LSP24 ' 

NUH 

0 

RETURN (TO BE FILLED) 

N400 0218 



0219 

P006B 

OOQQ 



NUM 

0 

THREAD 

N400'J219 


o 

0220 

POObC 

08G2 



ADC 

MASSLU 


N400 0 220 

■ O 

0221 

P006D 

0708 



ADC 

FLOATZ 


N4D0 0221 


0222 

P006E 

0 0 00 


LSP25 

NUM 

0 

FLOAT PACKAGE ADO. (TO BE FILLED) 

N400 0222 



0223 

P006F 

0 OGO 



NUM 

0 


N4GG0223 


o 

0224 

P0Q7Q 

0 0 0 0 


LSP26 

NUM 

0 

SECTOR ADO. (TO BE FILLED) 

N4000224 

■ C) 

0225 

PQ071 

14EA 



JMP- 

(ADISP) 


N400 C225 



0227 








N-+00G227 


o 

0228 

P0072 

7FFF 

X 

OFTB 

ADC 

MMADDR 

0. "HMAODR" 

N4000 228 

: O 

0229 

P00 73 

7FFF 

X 


ADC 

MSG 

1. "MSG" 

N4000229 

o 

0230 

P0074 

7FFF 

X 

FIT AOO 

ADC 

ECONV 

E- OR F-FORMAT CONVERSION — SINGLE 

N4000230 

^ O 

o 

‘*v,X 










O 

_ . 



. . 





_ _ . ... — 

_ - - .... 



o 
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o 

0232 







N4GG0232 

0233 

PCQ75 

0167 

LSP30 

SQP 

LSP3 5 

MH TRANSFER OK, SKIP 

N4000233 


0234 

P0 0 76 

54F4 


RTJ- 

{AMOND 

RELEASE CORE DUE TO ERROR 

N‘+G0 0 234 


0235 

P0077 

1800 


NUM 

$1800 


N4D00235 

o 

0236 

PO 0 78 

0 0 00 

LSP31 

NUM 

0 

CORE ADD. TO BE FILLED 

N4000236 

0237 

P0079 

E8 03 

LSP32 

LDQ» 

BASE 


N4000237 


0238 

P007A 

E2 04 


LDQ- 

IOERR,Q 

EXIT TO "lOERR" 

N4000238 


0239 

P007R 

1622 


JMP- 

(ZERO ), Q 


N4000239 

o 

0240 







N4C00 240 

0241 





FLOAT 

PACKAGE IS IN CORE, CONVERT NO. 

N4D00241 


0242 



•V 




N4000242 


0243 

P0Q7C 

0 0 0 0 

BASE 

NUM 

0 

PARAMETER BASE ADD. 

N4000243 


0244 

POQ70 

ocoo 

LSP35 

ENQ 

0 


N40G 0 244 


0245 

P007E 

5CD2 


RTJ» 

ILSP13) 


N400 0 245 


0246 

PQ07F 

0 0 45 


AOC 

VALUE-^ 


N4013 0246 


0247 

P0Q80 

54F4 

LSP37 

RTJ- 

(AMONI) 

RELEASE CORE 

N4000247 

C3 

0248 

P0081 

1800 


NUH 

$18 0 0 


N-,000 2h8 

0249 

P0082 

00 00 

LSP40 

NUH 

0 

ADD. (TO BE FILLED) 

N4000249 


0250 

P0083 

E81B 


LOQ» 

COUNT 


N40Q025Q 


0251 

PQQ8 4 

C8 4D 


LDA» 

VALUE+13 

SAVE FLOATING VALUE IN TEMPORARY STORAGE 

N400 0251 


0252 

P0Q85 

6A4E 


STA» 

TEHP,Q 


N40Q0252 


0253 

P 0 0 8 6 

C84C 


LDA- 

VALUE+14 


N4000253 


0254 

P00 87 

6A4D 


STA»f 

TEMP+1, Q 


N4000254 


0255 

P0Q88 

0816 


RAO^ 

COUNT 

UPDATE STORAGE COUNT BY 2 

N400 0255 


0256 

P00 89 

0815 


RAO» 

COUNT 


N4 0 0 0 25 6 

s--' 

0257 



V 


CHECK 

IF ALL INPUT TEXT BEED PROCESSED 

N4CaQ257 


025 8 

P008A 

C8F1 


LDA» 

BASE 


N 4 OO 0 258 


0259 

P00 8B 

60FF 


STA- 

I 


N4C0 0 259 


0260 

P008C 

Gill 


LDA- 

BUFEMT, I 


N 40 j 0 26 0 


0261 

P0 080 

0134 


SAM 

LS0113 

DONE, SKIP 

N 4 OO 0261 


0262 

P0Q8E 

13 BA 


JiMP* 

LSPll 

TO REPEAT 

N-+D0Q262 


0263 



V- 


CONSTANTS OR STORAGE LOG. 

N4000263 

O 

0264 

P0 08F 

ooco 

EXTMSG 

NUM 

0 

"MSG" ADD. 

N-+0 0 0264 

026 5 

P0090 

ocoo 

EXTHAN 

NUM 

0 

"HANDLE" ADD. 

N 4 OO 0 265 


0266 

P0091 

0 0 0 0 

MAXL 

NUM 

0 

LENGTH OF ORDINAL 

N 4 OG 0266 


o 



0268 










N-+D0 0 268 


0269 





GET 

HASS MEMORY 

DATA ACCORDING TO 

REQUEST TYPE 

NHQa0269 

Q 

0270 










N 4 O 0 u 27 0 


0271 










N400Q271 


0272 

P0092 

C800 

LS0113 

LOA 

MSB 

GET 

WORD 

ADDRESSING MSB AND 

SET UP FOR READ/ 

N40QO 272 



PQQ93 

C05A 









/■"'i 

0273 

P0094 

68 OC 


STA^‘ 

XFMSBl 


WRITE 

OPERATION 


N4G 0 0 273 


0274 

P0095 

6810 


STA^ 

XFMS82 





N40Q0274 


0275 

P0096 

C858 


LDA^ 

LSB 

GET 

Lse 



N40D 0 275 


0276 

P0097 

680A 


STA^ 

XFLSBl 





N40G0276 


0277 

P0098 

681S 


STA^ 

XFLSB 2 





N40aG277 


0278 

P0G99 

54F4 


RTJ- 

(AMONI) 





N+OG 0278 


0279 

PQ09A 

0207 

XFROCO 

ADC 

$20 0 + CHRSLV 

READ 




N4D0 0 279 


o 


o 


o 

o 

C] 

o 

o 

o 

o 

' j 

r 

O 

c 

o 

c 
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028 0 

P0Q9B 

D DOO 

XFRDAO 

NUM 

a 

0281 

P009C 

00 00 


NUM 

0 

0282 

PO 090 

D8C2 


ADC 

MASSLU 

0283 

PO 09E 

0000 

COUNT 

NUM 

0 

0284 

P0 09F 

0 0 00 

BUFADD 

NUM 

0 

0285 

POOAO 

0 0 00 

XFHSBl 

NUM 

0 

0286 

POOAl 

0 0 00 

XFLSBl 

NUM 

0 

028 7 
0288 

PG0A2 

14EA 

4 

JMP- 

C ADISP) 

0289 

P0QA3 

0 1 61 

XFRDRT 

SQP 

XFOR 

0 29 0 

P00A4 

18D4 



LSP32 


0292 

0293 

0294 



4 

4 


MM 

0295 

P00A5 

E8F8 

XFOR 

LOQ» 

COUNT 

0296 

POO A6 

480A 


STQ^ 

XF2WD 

0297 

P00A7 

0 ADD 


ENA 

FLCVSG 

0298 

PGQA8 

5CE7 


RTJ’^ 

(EXTHAN ) 

0299 

P00A9 

0 02A 


ADC 

TEMP-^ 

0300 

0301 

POOAA 

00 OB 

4 

ADC 

DATBUF-^ 

DATA 

03G2 

POOAP 

5nF4 


RTJ- 

{ AMONI) 

030 3 

POQAC 

0 5 07 

XF2CD 

ADC 

$50Q4CHRSLV 

030 4 

POOAD 

COOA 

COMBK 

ADC 

FINRT-XF2CD 

0305 

PO OAE 

0000 


NUM 

0 

030 6 

POOAF 

08C2 


ADC 

MASSLU 

030 7 

POOBO 

aooo 

XF2W0 

NUM 

0 

030 8 

PO OBI 

0 0 27 


ADC 

TEMP-XF 2CD 

030 9 

POOB2 

0 0 00 

XFMSB2 

NUM 

0 

0310 

P00B3 

0 0 00 

XFLSB2 

NUM 

0 

0311 

POOB4 

14EA 


JMP- 

(AOISP) 

0312 

0313 

POOB5 

0 0 00 

DATBUF 

4 

NUM 

0 

0314 

POOB6 

C853 

FINRT 

LDA^ 

CORLSe 

0315 

0316 

P00B7 

0109 

4 

SAZ 

GETOUT 

0317 

PQ0B8 

60 FF 


STA- 

I 

0 31 8 

PO 0B9 

OCOO 


ENQ 

0 

0319 

POOBA 

CA19 

TGCORE 

LDA’^ 

TEMP,Q 

0320 

POQBB 

6722 


STA- 

(ZERO ) , B 

0321 

POOBC 

0001 


INQ 

1 

0322 

POOBO 

0 814 


T RQ 

A 

0323 

POOBC 

98DF 


SUB^ 

COUNT 

0324 

POOBF 

0101 


SAZ 

GETOUT 

0325 

0326 

PQOCa 

18F9 

4 

JMP’i^ 

TOCORE 

032 7 

POQGl 

E8BA 

GET OUT 

LOQ^ 

BASE 

0328 

P0QC2 

E2 03 


LDQ- 

SOMMOR, Q 

0329 

0330 

P0QC3 

1622 

4 

JMP- 

(ZERO) , Q 


RETURN (FILLED) 
THREAD 

NO OF WORDS 
BUFFER ADO. (FILLED) 
MSB (FILLED) 

LS8 


TO I/O ERROR 


DATA IN CORE, GET CONFIRHATION 


TO PRINT DATA AND REQUEST CONFIRMATION 


CONFIRMED, SAVE 


WRITE 

RETURN 

THREAD 


NO. OF WORDS 
BUFFER 

MSB (FILLED) 
LSB (FILLED) 


(FILLED) 


BUFFER (FILLED) 


CHECK IF CORE ORDINAL 
NO, SKIP 


SET INDEX WITH CORE LOCATION 
MOVE DATA TO CORE ORDINAL LOCATION 


CHECK IF ALL DATA BEEN MOVED 

YES, DONE 
NO, TO REPEAT 

EXIT TO "SOMMOR” 


N40Cfl280 
N40DQ 281 
N4G0 0282 
N4000283 
N4C0C28h 
N40GG285 
N4GQ G 286 
N4Q00287 
N4000288 
N400 0289 
N4QQ0290 


N40Q 0292 
N400Q293 
N4CQ 0294 
N40D0295 
N4i) G 0 29 6 
N-t000 29? 
N4000298 
N400Q299 
N403 0 30 0 
N4000301 
N4G003Q2 
N40Q03Q3 
N40C 0 304 
N4 00 0 30 5 
N400 0 30 b 
N42G 0 30 7 
N40G03Q6 
N400G309 
N400 0 31 0 
N4eC 0 311 
N 4 OOO 312 
N40QQ 313 
N 4 000314 
N40Q0315 
N4 00 0 316 
N4 0 0G 317 
N400Q318 
N40G0319 
N4000320 
N4QQ0 321 
N 4 QOO 322 
N4000323 
N4000324 
N400 0 325 
N4000326 
N4Q0Q327 
N 4 OOO 328 
N400 0 329 
N400 0 330 
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0332 

PQ QC4 00 OF 

VALUE 

BZS 

VALUE (15) 


N** 0 U u 33 2 

0333 

PG0D3 0014 

TEMP 

BZS 

TEMP (20) 

FLOATING VALUE TEMPORARY STORAGE 

N4Q0G 333 


0335 







N-t0D0335 

0336 





SYSTEM DIRECTORY ORDINAL CHECK 

N4000 336 

0337 



Jf. 




N 4 OG 0 337 

0338 

P00E7 

OBOO 

ORDCHK 

NOP 

0 

ENTRY 

N4C00338 

0339 

P0QE8 

6820 


STA'^ 

ORDID 

SAVE ORDINAL NO. 

N4000339 

0340 

P00E9 

OCOO 


ENQ 

0 

ZERO OUT CORE ORDINAL FLAG 

N4C0 Q340 

0341 

POOEA 

4820 


STQ^ 

CORDIR 


N40G0341 

0342 

PO OEB 

48 02 


STQ^ 

MSB 


N400C342 

0343 

PO DEC 

1806 


JMP«- 

ORDM 


N4 0 0 0 3 43 

034i- 

POOED 

0 0 05 

MSB 

BZS 

MSB (5) 


N'4 00 0 344 

0345 


GOEE P 


EQU 

LSB (MSB +1) 


N4 00 0 3i,5 

0347 







N400G347 

0343 





FOR 

HM DIRECTORY PROCESSING 

N 4 OQ 0348 

0349 







N4D00349 

0350 

P00F2 

CQE6 

ORO K 

LDA- 

CSYLEN 

GET DIRECTORY LENGTH AND SUBTRACT CORE 

DIRECT .N400Q 350 

0351 

POOF3 

90 E7 


SUB- 

CSYOIR 

LENGTH 

N4000351 

0352 

PO QF4 

30 05 


DVI- 

LPMSK + 3 

CONVERT TO NO. OF MM DIRECTORY NO. 

N400 0 352 

0353 

P0QF5 

9813 


SUB^ 

ORDIQ 

CHECK IF OVER SYSTEM MAX. 

N400 0353 

0354 

PO 0F6 

£ 122 


SAP 

ORDM2 

NO, SKIP 

N-^000 354 

0355 

POOF7 

OCOB 


ENQ 

11 

TO PRINT ORDINAL NO. ERROR (OVER MAX.) 

N40Q0355 

0356 

P00F8 

1C96 


JMP’f 

(EXTMSG ) 


Nh-00 0356 

0357 



¥ 




N400C357 

0358 

P00F9 

C8 OF 

0R0H2 

LDA^*^ 

ORDIQ 


N400 0 35 8 

0359 

POOFA 

09FE 


INA 

-1 


N40Q0359 

0360 

POOFB 

20 05 


MU I- 

LPM3K+3 

^7 

N400u360 

0361 

PQGFC 

8 OEB 


ADD- 

DIRTRY 


N40Q 0 361 

0362 

POOFD 

80E7 


ADD- 

CSYDIR 

CORF DIRECTORY OFF-SET, IF ANY 

N4G00362 

0363 

POQFE 

0822 


TRA 

Q 


N40Q0363 

0364 

POOFF 

C2Q6 


LDA- 

6 » Q 

GET LSB 

N40Q0 364 

0365 

POlOO 

68E0 


STA^ 

LSB 


N4Q0 0 365 

0366 

POlOl 

C205 


LDA- 

5,Q 

GET AND SAVE MSB 

N4000 366 

0367 

POlO? 

68EA 


STA^ 

MSB 


N4GQ 0 367 

0368 

P0103 

C204 


LDA- 

45 0 , 


N 4 0 0 0 36 8 

0369 

P0104 

68 8C 


STA^ 

MAXL 

SAVE LENGTH OF ORDINAL 

N4000 3o9 

0370 

P0105 

OAOO 


ENA 

0 


N40a0370 

0371 

POlO 6 

63E8 


STA- 

MSB + 2 


N4000371 

0372 

P0107 

ICDF 


JHP-> 

(ORDCHK ) 

RETURN 

N4Q0 0 372 

0373 



¥ 




N4000373 

0374 

P0108 

0 0 90 

OROlO 

NUM 

0 


N40Q 0 37 4 

0375 

P0109 

0 0 00 

CORLSB 

NUM 

0 


N4000 375 

0376 

POlOA 

OQDO 

CORDIR 

NUM 

0 


N40Q0376 

0377 

POICB 

0 060 

N096ST 

NUM 

96 


N4O0 0 377 

0379 



if- 




N-t00 0 379 
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038 0 


00 02 P 

EQU 

SA50 {"-/9o) 

N4uu 0 38u 

0381 


0 0 03 P 

EQU 

SP60(SA60 + 1) 

N4D00381 

0382 


0120 F 

Eau 

□ 860 (SP60^96) 

N40C 0 382 

0383 

POIQC 

GO 14 

BSS 

(0660-^ ) 

N4000383 

0384 



END 


N=+C0 0 384 

PGM = 

0120 

( 288) 

COM = 

0000 ( 0) DAT = 0000 ( 0) 
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o 

E Q U I V 

A L E N 

C E S 


o 

DEE. LINE 

' NAME 

VALUE 


0 0 0 0 

I 

OOFF 

(000255) 


0 05 5 

AMONI 

00F4 

{ 00 02«,4) 


0 055 

AD ISP 

OOEA 

(000234) 

u 

0 05 5 

LPMSK 

00 0 2 

1 0 0 000 2) 


005 5 

NZERO 

0012 

(000018) 


0 0 55 

ZROBIT 

0033 

• ( 0 QQQ51) 

o 

0 056 

FIVE 

0043 

( 0 00Q67) 

0 0 5 6 

SIX 

0 0 4 4 

( 000068) 


0 0 56 

ZERO 

0022 

( Q0Q034) 


0056 

ONFBIT 

0023 

(000035) 


0 05 6 

SIXTEN 

0027 

(000039) 

'-■J 

0 05 7 

COMMA 

002C 

(000044) 


0 05 7 

SLASH 

0 02F 

( 000047) 


0 057 

ASTRIC 

002A 

1 000042) 


0058 

EIGHT 

0026 

( 000038) 

0058 

NINE 

0045 

{ 00QQ69) 


0 0 58 

THREE 

00 0 4 

( 000004) 


0 0 58 

ONE 

00 03 

( 0 00003) 

o 

0058 

TWO 

002 4 

(000036) 

0 059 

TEN 

0046 

(Q00070) 


0060 

MASSLU 

Q3C2 

(002242) 


C Q61 

CHRSLV 

0007 

(000007) 


0 062 

CSYLEN 

00E6 

(00G23Q) 

. 1 

0 063 

CSYDIR 

00 E7 

(000231) 


0 064 

EXTBV4 

0QE9 

(000233) 


0 065 

DIRTRY 

OO'EB 

(000235) 

o 

0066 

LSO 

Q03C 

(000050) 

0 069 

GETFLD 

00 02 

(000002) 


0070 

ASCHEX 

00 03 

( 0 0Q003) 


0 0 71 

ASCDEC 

000 5 

C D000Q5) 

o 

0 0 72 

GETINT 

00 0 8 

(D000Q8) 

0 0 73 

FETHM 

00 09 

(000009) 


0 074 

FLCVSG 

GOOD 

(000013) 


0 07 5 

FLOATZ 

0 70 8 

(001800) 

o 

0 078 

HANDLE 

0 00 1 

(000001) 

0 0 79 

OMSG 

0 0 0 2 

(000002) 


0 080 

SOMMOR 

00 03 

(000003) 


0 081 

lOERR 

00 0 4 

(000004) 


o 


REFERENCED AT LINE NUMBER 
QlOO, 0259, 0317 

0 187, 0216, Q23-*, 02A7, 0 278 , 0 30 2 
0193, 0225, 0287, 0311 
0352, 0360 


0213, 0239, 032J, 0329 


0147 
0 171 


0220, 0282, 0306 
0188, 0217, 0279, 0303 
0 350 

0351, 0362 

3 3 61 
0 109 

0128, 0140, 0150 
0142, 0152 
0131 
0181 

0120, 0164 
0 297 

0192, 0221 
0104 
0106 
0 3 28 
0 238 


O 

O 


c 

o 

o 

r''-, 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LSOREQ PAGE 11 DATE.* 


0 0 82 

LISTLU 

0 0 0 5 

(000005) 


0 Q 83 

COMOLU 

00 0 6 

(000006) 


0C6h 

NEWMLU 

00 0 7 

( Q00Q07) 

0 116 

0 0 85 

PP.OGl 

00 0 8 

( 0 00008) 


0 0 8 6 

PROG2 

00 0 9 

(00Q0Q9) 

0108 

0 0 87 

BITFLG 

OOOA 

(000010) 


0 0 88 

8UFCNT 

QOOB 

( 000011) 


0 009 

FIELD 

OOOC 

(000012) 

0146» 0170 

0 090 

SLASHF 

OOiC 

(000016) 

0 178 

0 091 

8UFEMT 

0011 

(000017) 

0260 

0 092 

BUFFER 

0012 

(000018) 

0101 


01/27/99 


, I . . ■ ,V' 


■ J 

V ■ ‘ ■ 


LSORFO 


PAGE 12 


uMic_* uj./ V ^ 




:V4 


■•J-H ■ 


'ir f 



'.s Y M; ,Q/„ 

' , ' U\' , 

■i\ . 


l' 



o 

'vplF.LINE.'.vrNAME ’ 

‘1 , ’■' ' -\l: 



‘j:t,,LsaREa" 

Ft.4v;llPpRE9' 

o 

fl'll 5 -y 

0128 

LSOl 


0135 

LER 


0138 

LS02 

o 

0144 

LSPLOC 

0154 

Lsoe 


0 15 5 

LS04 


0164 

LS05 

0 

0 170 

LSOM 

0178 

LSPIQ 


0 180 

LSPll 


018 7 

LSP12 

o 

0188 

LSPCAL 

0 191 

LSP13 


0195 

LSPACE 


0198 

LSP15 

o 

0 202 

SELF 

0 217 

LSP20 


0 218 

LSP24 


0 2 22 

LSP25 

o 

0224 

LSP26 

0228 

OFTB 


O 


U 


r', 


O 

O 


U 


.y. i ^,-,v f V.f-/ •' '»V;, 


‘ '^ ’.V, 




ADDf^SS 


;■• ■'■>„■ ■'/,■’’•''%■ , ' •" y '■. : .t.i ,'i's’’='‘’ 

; REEEREnIeDj'' AT lInE ^sIumBER 

j • ’ ' 


I-*. A- ' MJ. 

'■ ''V 

;■ 'a’ffiJt, 


.»S* A ■ 

'.v; 




i , ; 

< ^ v' 


- 


' * ^ » ' / *• 1 *' '' 


'v' 

1*' 1 


" V' V 


‘-"'i ; 










2^-V 


|V.:V ■„•, 

1 ' ■' 


•, 

,’, M'' 



0 230 
Q233 
0 236 

023 7 

0243 

0244 

024 7 
0249 
0264 
0 2 65 
0 266 
0272 
0 279 
0 28 0 
0 283 
0 284 
0 285 


« *— ? 

LSP30 

LSP31 

LSP32 

BASE 

LSP35 

LSP37 

LSP40 

EXTMSG 

EXTHAN 

.iAXL 

LS0113 

XFRDCD 

XFROAD 

COUNT 

8UFADD 

XFMSBi 


0023 

0 133, 

01'73 


‘ .c, ■ - k 1 

0025 

0 134 




002C 

0 157, 

0158 



0035 

0156 




0 0 36 

0 148 




003F 

0 161 




0 0 43 

0 123 




0047 

0172 




0049 

0262 




Q04D 





004E 

0189 




0051 

C2h5 




G 054 

0189 




0056 

0 195 




005A 

0 2 01 , 

020 3 , 

0204 


0069 





0 0 6 A 

0 205 




0 06E 

0198 




0070 

0 214, 

0215 



0072 

0 208 , 

0209 



007 4 

0 212 




00 75 

0 204, 

0206 



00 78 

0199 




0079 

0196, 

0290 



Q07C 

0 0 98 , 

0237, 

0258 , 

0327 

Q07D 

0 233 




0 080 





0082 

0 2CD 




0 0 8F 

0107, 

0136, 

G163, 

0 210 

0090 

.0105, 

0121, 

0130 , 

0132 

0091 

0160, 

0369 



0 0 92 

0261 




009A 





0096 

0 207 




0 09E 

0118, 

0179, 

0250 , 

0255 

009F 

0103 




00 AC 

0 273 





UV i‘ • ‘ I(^ i' 'i'-' A 

, I, .i-i n . M 


; ; ,'4' 

' i •‘‘•r '‘V' ’■^r ^'v 


, '1 ' , 

' ■ h-:'' ••• t'"-' '.v ■' 

■ ■' •■- - '* V'i , . 

'. •,*/ ■ ■ -'4 * ' !■ r ' * . t y 

,■”> ', ’yl ':. \ Ur, j> 


O 

D 


•w’f '''‘- . 'i )\ '■• -i'? V,' 

■‘/p, ' ' ■• 


' ' ’ tyr ■♦ ■ ;■ 'M ' ' .'> t 

iy ,r ) 

'".if, i' ■''■•',} i 




o 

C) 

o 


0 35 6 
0141 , 


0143, 0151, 0153, C166, 0182, 0293 


0256, 0295, 0323 


O 

o 

o 

o 

o 


c 

o 
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DATE; 01/27/99 


0 28 6 

XFLSBl 

QOAl 

0 276 





0 289 

XFRDRT 

Q0A3 

0 206 





0295 

XFOR 

0QA5 

3 289 





0 303 

XF2CD 

00 AC 

0 304, 

0 30 8 




030 4 

COMBK 

GOAD 






030 7 

XF2W0 

ODBO 

0119, 

0296 




0 309 

XFMSB2 

00B2 

0274 





Q 310 

XFLSB2 

0083 

0277 





0 312 

DATBUF 

OOB5 

0 102, 

0 30 0 




0314 

FINRT 

00B6 

0 3 0 4 





0319 

TOCORE 

OOBA 

0 325 





0 527 

GETOUT 

GOCl 

0315, 

0324 




Q 332 

VALUE 

OOC4 

0 183, 

0 246, 

C251, 

0253 


0333 

TEMP 

0003 

3252, 

0254, 

0299, 

0 308, 

0 319 

0 338 

ORDCHK 

0QE7 

0138, 

0372 




0 344 

MSB 

OOEO 

0117, 

Q 122, 

0159, 

0167, 

0272, 0342, C3ht5, 0367, Q371 

0345 

LSB 

OGEE 

0275, 

0365 




0350 

ORD M 

OOF2 

0 3 43 





0358 

ORDM2 

G0F9 

0 3 54 





0374 

ORDIG 

0108 

0 339, 

0 353 , 

0358 



0375 

CORLSB 

0109 

0314 





0376 

CORDIR 

GlOA 

0 341 





0377 ■ 

N096ST 

010 6 






0 38 0 

SA6G 

00 0 2 

Q381 





G 381 

SP6G 

0003 

0382 





0 382 

0660 

0120 

Q 383 







LSOREQ 


PAGE lA 


DATE.: 01/27/99 


EXTERNALS 


DEF.LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 0 49 

ECONV 

0074 

0 230 

00 50 

HMADDR 

0072 

0228 

0 051 

MSG 

0073 

0229 




LSORFQ PAGE 15 DATES 01/27/99 

o 



A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H 3 

0 L S 



C' 

AOISP 

0 055 

AHONI 

Q 055 

ASCDEC 

0 071 

ASCHEX 

0070 

ASTRIC 

005 7 


BUFCMT 

0 088 

8UFEMT 

0091 

BUFFER • 

0092 

CHRSLV 

0061 

COMBK 

030 4 


COUNT 

0 28 3 

CSYDIR 

0 063 

CSYLEN 

0062 

DATBUF 

0 312 

OB60 

0382 

o 

EXTHAN 

0265 

EXTMSG 

0 264 

FETHH 

0 0 75 

FIELD 

0089 

FINRT 

0314 

GETFLO 

0069 

GETINT 

0 072 

GETOUT 

0327 

HANDLE 

0 078 

I 

000 0 


LSB 

03A5 

LSM 

0115 

LSMREQ 

0 0 46 

LSO 

0066 

LSOl 

0128 


L308 

0154 

LSOM 

0 170 

LSORED 

0 045 

LSPiO 

0178 

LSPll 

0180 

/'■>l 

LSP24 

0218 

LSP25 

0 222 

LSP26 

0 224 

LSP30 

0233 

LSP31 

0236 


L3PACE 

019 5 

LSPCAL 

0 188 

LSPLOC 

0144 

MASSLU 

0 06 0 

MAXL 

0266 


NINE 

0 05 8 

N096ST 

0 377 

NZERO 

0 0 55 

OFTB 

0228 

ONE 

005 8 


0RDH2 

0 35 8 

PROGl 

0 085 

PR0G2 

0 086 

SA60 

0380 

SELF 

0202 

/""l 

SOMMOR 

0080 

SP60. 

0 381 

TEHP 

0 333 

TEN 

0059 

THREE 

0058 


XF2WD 

ZERO 

0 30 7 
0 05 6 

XFLSBl 

ZROBIT 

0286 
0 055 

XFLSB2 

0310 

XFMSBl 

0285 

XFMSB2 

0309 




o 

o 

o 

o 

o 

o 

o 

o 


o 

o 


o 


BASE 

0243 

BITFLG 

00 87 

BHSG 

0079 

BUFAOD 

028h 

K 1 

COMMA 

0 05 7 

COMOLU 

00 83 

cordir 

0376 

CORLSB 

0375 


DIRTRY 

0065 

ECONV 

00 4 9 

EIGHT 

0 058 

EXTBV4 

0064 


FIVE 

005 6 

FLGVSG 

0 0 7 4 

FLOATZ 

0075 

FLTADD 

0230 

C) 

lOERR 

0081 

LER 

0135 

LISTLU 

0082 

LPMSK 

0055 


LS0113 

0272 

LS02 

0138 

LS04 

0155 

LS05 

0164 


LSP12 

0187 

LSP13 

0191 

LSP15 

0 198 

LSP20 

0217 


LSP32 

0237 

LSP35 

024t 

LSP37 

024? 

LSP40 

0249 


MMADDR 

0050 

MSB 

0344 

MSG 

0 051 

NEWML'J 

0084 


ONEBIT 

0056 

ORDIO 

0 37h 

ORDCHK 

0 338 

ORDM 

G35C 


SIX 

0056 

SIXTEN 

005b 

SLASH 

0057 

SLASHF 

00 90 


TOCO RE 

0319 

TWO 

00 5 3 

VALUE 

0 332 

XF2CD 

0 30 3 


XFOR 

0295 

xfrdad 

0280 

XFRDCD 

0 27 9 

XFRORT 

0289 



(3 


C:' 

O 

O 


O 

O 

O 

O 

O 


O 



o 

o 

o 


CCCREQ 


PAGE 


date: Oi/27/99 


o 

o 

u 


0 


o 

o 

o 


000 1 
000 2 
00 03 
000 4 
00 0 5 
000 6 
00 0 7 
000 8 

000 9 
0010 
0011 
0012 

001 3 

0014 

0015 
0015 

0017 

0018 
0019 
QQ20 
0021 
0022 

0023 

0024 

0025 
0025 

0027 

0028 

0029 

0030 
003 1 

0032 

0033 
003 4 

0035 

0036 

003 7 

0038 

0039 

0041 

0042 

0044 

0045 
00 46 

004 7 
0048 

QQ50 

0051 

005 2 


4 

* 

* 

>f- 

V- 

-f 

Af- 

4- 

4 

4 

4 44 44 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


4 

4 


NAM CCCREQ OECK-ID Nt^l MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1975 


jjt, ^ 

THIS PROCESSOR COMPARE CORE TO CORE DATA ^ 

4 

444444444444444444 

FORMAT ! 


SUMMARY-116^-^ 


INPUT 

CCD, SC, EC, NSC 
WHERE 


(CR) 

SC 

EC 

NSC 


= BEGINNING CORE LOCATION OF BLOCK 1 
= END CORE LOCATION OF BLOCK 1 (HEX) 
= BEGINNING CORE LOCATION OF BLOCK 2 


OUTPUT FORMAT : 

(1) NO DISCREPANCY ENCOUNTERED 
'DB SEARCH FINISHED' 

(2) DISCREPANCY DETECTED 
'CELL CONTENTS' 

Llll (XXXX) L222(YYVY) 


WHERE 


till 

L222 

XXXX 

YYYY 


BLOCK 

BLOCK 

BLOCK 

BLOCK 


LOCATION 
LOCATION 
DATA 
DA TA 


ENT CCCREQ 


EXT OFF 
EXT HANDLE 
EXT CHRSFG 


ENTRY 


NAME 


EXTERNAL 

1 CARD DELETED 


GO Q2 
0 0 D3 ' 


SUBROUTINE "EQU" POINTERS 
EQU GETFLDtZ) "GETELD" 

EQU ASCHEX(3) "ASCHEX** 


L 4 4 4 

N41GD302 
NAIC j u 0 3 
N410Q0CH 
N-+1UCQ05 
NAlQfl 006 
NhIQ 00D7 
N-+10 0 0G8 
NA1300Q9 
N4100010 
N41D0 Oil 
NA1CQ012 
N4100013 
N4100 014 
N410G015 
{HEX)N^100016 
N410 0 017 
(HEX )N41Q0 u18 
N41G0019 
N4130020 
N4100021 
N4100G22 
N41GaG23 
N4100024 
N4lu0 025 
N41C0026 
N4lj 0027 
N410 0 028 
N4100 Q29 
N4100030 
N410Gu31 
N410Q032 
N41DG 033 
N41Q0Q34 
N4103Q35 
N41C0Q36 
N41D 0 037 
N410 3 038 
N410Q039 

N4100a4i 

N41G0Q42 

Nh1i 3 0 044 
N'4lu 0 0 45 
N410004b 
N4100047 
N 4 IOOO 48 

N410005 G 
N4100051 
N4IOOO52 


o 

o 

o 

0 

o 

o 

o 

n 

o 


,0 


(7^ 

*>.v 

o 

o 

o 




C) 

o 

o 

o 


CCCREQ 


PAGE 


date: Qi/27/99 


0054 

0055 


0056 

0057 
0053 


00F4 
Q 0 EA 
0 0 02 
3 012 
0 033 
0 0 43 
0 0 44 
0 0 22 
G 023 
0 0 27 
U 0 2 C 
■Q Q2F 
C 0 ?A 
0 0 26 
0 0 45 
0 0 0 4 
0 0 03 
0 024 


'EQU' TABLE 

EQU AfiONI {$F4) ,ADISF{$EA) ,LPMSK(2) ,MZERO($12) ,ZR0BIT($3 3) 


EQU FIVE (S43) ,SIX ($ii4) , ZERO ($22) ,ONEBIT ($ 23) ,SIXTEN ($27 ) 


EQU COMMA {$20 ,SLASH($2F) ,ASTRIC($2A) 

EQU EIGHT ($26) , NINE ($45 ) , TH REE ( 4 ) , ONE ( 3 ) , TWO ($2^) 



0059 

0 0 46 


EQU 

TEN ($46 ) 



0060 

0 0 03 


EQU 

MASK ( 3) 

ONE BIT MASK 


005 2 

0 0 0 7 


EQU 

CHRSLV(7) 

LEVEL OF THIS PROGRAM 


0063 

0 0 E9 


EQU 

EXTBV4 ( $E9) 

ADDRESS OF EXTENDED CORE 


006 4 

1000 


EQU 

ASMOO($1000) 

ASCII OUTPUT MODE 

r''\ 

0066 




PARAMETER LOCATION (OFFSET FROM 

U 

0057 

00 01 


EQU 

BHAN (1) 

"HANDLE" 


0068 

OG02 


EQU 

MSG(2) 

"MSG" ENTRY 


0059 

00 03 


EQU 

S0HM0R(3) 

"SOMMOR" ENTRY 


0070 

00 04 


EQU 

I0ERR(4) 

"lOERR" ENTRY 

'U 

0071 

0 0 05 


EQU 

LISTLU'( 5) 

LIST OUTPUT "LI3TLU" 


0072 

0 0 06 


EQU 

COHOLU (6) 

"COMOLU" 


0073 

0 0 07 


EQU 

NEWMLU( 7) 

"NEHMLU" NEW MM LU 


007 4 

0 0 03 


EQU 

PROGl (3 ) 

"PROGl" 


0075 

0 0 09 


EQU 

PR0G2 (9 ) 

"PROG2" 


007 6 

00 OA 


EQU 

aiTFLG (ID) 

"BITFLG" 


0077 

OOQB 


EQU 

BUFCNT(ll) 

"BUFCNT" 


00 7 8 

00 OC 


EQU 

FIELD (12) 

"FIELD" 

0 

0079 

0010 


EQU 

SLASHF ( 16) 

"SLASHF" 


0080 

0011 


EQU 

BUFEMT (17) 

"BUFEMT" 

0 

0081 

L3Q12 


EQU 

BUFFER( 13) 

"SUFFER" 


Q083 







008 4 




p 

ROGRAM STAR 

u 

0085 







BASE) 


N410C054 
N410 0 055 


N4100 056 

NmO 0 05 7 
N^+IO 0 05 8 


♦^MSOS4.0=*‘^N4i0Q059 

N41G0060 

N41G0063 

N4100Q64 


NH100G66 
N4100067 
N4100068 
N4i j 3 069 
N410 0 G7C 
N41GQ071 
Ni+IQQOZZ 
N4100073 

N Alu 0 0 7u 

NHlO 0 075 
NA1Q0G76 
N410 0 077 
N410 Q 078 
N+lOO 079 
N4100080 
N 4 IOOO 8 I 


N4100083 

NaIOGOSa 

N41Q0085 


u 


o 

o 

O' 

o 

o 

o 

o 

o 


u 


/ \ 
v.-' 


c 

o 

c- 

o 

o 


o 


CCCREQ 


PAGE 


DATE? 01/27/39 


i ! 



00 87 

POOOO 

687D 

CCCREQ 

STA^ 

BASE 


0088 

POOGl 

60FF 


STA- 

I 


0089 

P00 02 

ElOl 


LDQ- 

BHAN , I 


0090 

P00D3 

437B 


STQ» 

EXTHAN 


0091 

P0Q04 

C821 


LDA^ 

OOT + 1 


0092 

P00 0 5 

981F 


SUB» 

OOT 


0093 

PQ00& 

08 34 


AAQ 

A 


0094 

P0 0 0 7 

683E 


STA^ 

EXTOFF 


0095 

P 0 008 

C102 


LDA- 

MSG, I 


0096 

P0 0 09 

68 76 


STA» 

EXTMSG 


0097 

POGQ A 

C105 


LOA- 

LI STL U, I 

U 

0093 

PODOB 

8877 


ADD- 

MODE 


0099 

POOOC 

6 8 60 


STA^ 

OTLUl 


0100 

POOOO 

6800 


STA 

OTLU2 



PQ OGE 

00 88 




U 

OlGl 

POOOF 

0 AGO 


ENA 

0 


010? 

PDOlO 

68 70 


STA* 

COUMT 


0103 

POOH 

6870 


STA* 

HEAOIG 


010 4 

P0Q12 

CGF5 


LDA- 

$F5 


010 5 

P0013 

6874 


STA* 

MAX 


0106 



V- 


G 1 


0107 

P0Q14 

0 A02 

GCCl 

ENA 

GETFLO 


0108 

PQQ15 

0C04 


ENQ 

4 


0109 

P0016 

5C68 


RTJ* 

(EXTHAN ) 


0110 

P0017 

CIOC 


LDA- 

FIELD, I 


0111 

P0018 

OlOD 


SAZ 

CCG5 


0112 

P0019 

90 DA 


SUB- 

LPMSK+8 


0113 

POOIA 

0114 


SAN 

CCC2 


0114 

POOIB 

C865 


LDA* 

COUNT 


0115 

POOIG 

0 9FD 


INA 

— 2 


0116 

POOID 

0108 


SAZ 

CCC5 


0117 

PQQIE 

18 04 


JMP* 

GC C 


0118 

POOIF 

8 OOA 

CCC2 

ADD- 

LPMSK + 8 


G119 

P0020 

0903 


INA 

-COMMA 


012Q 

P0 021 

0104 


SAZ 

CGC5 


0121. 







0122 

P0022 

GCOA 

CCC3 

ENQ 

4 


0123 

PQQ23 

1C5C 


JMP* 

(EXTMSG) 

0 

0124 

0125 

P0Q24 

7FFF 

X DOT 

ADC 

HANDLE 


0126 

P0.Q25 

7FFF 

X 

ADC 

OFF 


012 7 







0128 

P0026 

OA 03 

CCC5 

ENA 

ASCHEX 

U 

0129 

PO027 

5C57 


RTJ* 

(EXTHAN ) 


Q130 

P0028 

0 0 0 0 

■ CCCVA 

NUM 

0 


0131 

PQQ29 

E357 


LDQ* 

COUNT 


0132 

P002A 

C8FD 


LDA* 

CCCVA 

u 

0133 

P002B 

6A59 


STA* 

CCCLOC, Q 


0134 

P G 0 2 C 

58'^8 


RTJ* 

CORAOK 


0135 

P002D 

18F4 


JMP* 

CCC3 

/ 

013 6 

P002E 

D852 


RAO* 

COUNT 


0137 

P00?F 

E851 


LDQ* 

COUNT 


0138 

P0030 

ODFC 


INQ 

- 3 


o 


( ■) 


GET "HANDLE" ADDRESS 
CALCULATE "OFF" ADDRESS 

OBTAIN "MSG" LOCATION 
GET LIST LOGICAL UNIT 


HIGHEST CORE LOCATION USED BY SYSTEM 
ADDRESS 

TO "GETFLO" TO FETCH ADO. 

SET 4 CHAR. IS MAX. 

CHECK IF EMPTY 

IS END OF TEXT 

MAKE SURE IS THE THIRD ONE 

ERROR 

CHECK FOR COMMA 

4 CAROS DELETED 
INCORRECT FORMAT 


0. “HANDLE" 

1. "OFF" ENTRY 

CONVERT TO HEX 


SAVE ADDRESS ACCORDING TO COUNTER INDEX 

TO CHECK IF CORE LOG. WITHIN LIMIT 
ADDRESS ERROR, GO 

CHECK IF ALL ADDRESSES ARE IN ^ 

CHECK IF ALL 3 ADDRESSES BEEN EXTRACTED 


N4100 087 
N4100Q88 
N410 0 0 89 
N^ID 009Q 
N4100091 
Ni+i00a92 
N^IO 0 093 
N410 D094 
N-i00095 
Nt*i00 096 
NhIO 0 097 
N4100Q98 
N41Q0099 
N410D100 

N41Q0101 

N41G0102 

N-+iQQlQ3 

N41Q 0104 

N410 010 5 

N 410 0 10 6 

N41QG107 

N4100108 

N4100109 

N4100 110 

N4100111 

N41QQ112 

N410Q 113 

N4100114 

N41Q Oil 5 

N41Q0116 

N4IQOII7 

N410Q118 

N413 0119 

N41Q0 120 

N41Q0121 

N4100 122 

N4ia0 123 

N41Q0124 

N4100125 

N M-IO 0 12 6 

N41Q0127 

N41Q0128 

N4100129 

N4100130 

N410Q131 

N4100132 

N41Q0133 

N4100134 

N 410 0 13 5 

N41C0136 

N41Q 0 13 7 

N410 0138 


O 

o 

o 

o 

o 

o 

o 

o 


Q 

O 

c 

o 

o 

o 


I 


CCCREQ 


r-) 

O 

C't 




0139 P0031 0141 

0140 P0032 13E1 


0142 

01^*3 

0144 

0145 PQG33 cm 

0146 P0054 B012 

0147 P0D35 0101 

0148 P0036 18EB 


♦ 

if. f. if. ii. >f. 

GCCIO 


PAGE 


SQZ CCCIO 
JMP» CCCl 


DATEJ 01/27/99 


LDA- BUFEMT,! 
EOR- LPMSK+16 
SAZ CCCll 
JMP^ CCC3 


SKIP, DONE 


ALL ADDRESSES ARE IN, LEGALITY CHECK 
HAKE SURE INPUT IS EMPTY 


FORMAT ERROR 


0 

0150 








0151 






CHECK 


0152 



V- 





0153 

P0D37 

EDE9 

CCCll 

LDQ- 

EXTBV4 


j 

0154 

P0038 

Co22 


LDA- 

IZERO) , 

Q 


0155 

PO 039 

0 lie 


SAN 

CCC22 



0156 

P003A 

C84B 

CCC15 

LDA^ 

CCCLOC+1 


0157 

P0 0 3B 

9849 


SUB^ 

CCGLOC 



D158 

P0Q3C 

0136 


SAM 

CCC19 



0159 

P003D 

6846 

CCC17 

STA^ 

DIFF 



0160 

PQ 03E 

8848 


ADD^ 

CCCLOC+2 


0161 

P003F 

0133 


SAM 

CCC19 


0 

0162 

POO 40 

9847 


SUB^ 

MAX 



0163 

P0041 

0102 


SAZ 

CCC20 



0164 

PGQ42 

0131 


SAM 

CCC20 



0165 

P0043 

18DE 

CCC19 

JHP^ 

CCC3 



0166 

P0044 

181A 

CCG20 

JMP^ 

CCC45 



0167 



If. 





0168 

PG045 

00 QO 

EXTOFF 

NUM 

0 


0 

0170 






65K 


0171 

P0046 

C83F 

CCC22 

LDA^ 

CCCLOC+1 


0172 

P0047 

E83D 


LDQ^ 

CGCLOC 



0173 

P0048 

0178 


SQM 

CCC32 


■J 

0174 

P0049 

0133 


SAM 

CCC28 



0175 






HERE , 


0176 

P004A 

983A 


SUO» 

CGCLOC 



0177 

P0048 

0129 


SAP 

CCC37 



0178 

P004C 

1805 


UMP'‘ 

GCC3 



0179 






HERE, 


0180 

P004D 

9837 

CCC28 

SUB* 

CGCLOC 



0181 

P004E 

0864 


TCA 

A 



0182 

P004F 

0125 


SAP 

CCC37 



0183 

PD050 

1801 


JMP* 

CCC3 



013 5 






START 

U 

0186 

P0051 

0122 

CCC32 

SAP 

CCC34 



0187 

P0052 

9832 


SUB* 

CCCLOC 



CHECK CORE ADDRESSES C32K OR 65K) 


GET 32K/65K FLAG 
SKIP ON 65K 

CALCULATE DIFFERENT OF END AND START 


"OFF" ADDRESS 

OR LESS, BUT OVER 32-K 
GET END ADO. 

START ADD. 

SKIP FOR START IS 32K AND OVER 
EOTH ARE POSITIVE (32K OR LESS) 


TO SAVE DIFFERENT 
ERROR 

START = 32K OR LESS , END 


ERROR 

ADO. OVER 32K 
ERROR, END LESS/EGUAL 32K 


OVER 32K 




N410 0139 
N4lQ 0140 


N4100 142 
N^1GQ143 
N410Q144 
N4100145 
N4100 146 
N*+100147 
N41Q0148 


N4iO01B0 
N41Q0 151 
N41D0152 
N-+1Q0153 
N 4 IO 0 1^ 4 
N410 0 15 5 
N-,100 156 
N4100157 
Nh 100156 
N-lOO 159 
N41D0 IbO 
N4100161 
N^+iooiez 
N410 0 15 3 
NtlOQ 164 
N410D165 
N4100166 
N410 0167 
N4100168 


N410 017 0 
N4100171 
N41Q0172 
N4100173 
N4100174 
N4100175 
N410C176 
N4100177 
N4100178 
N410 0179 
N4lJ 0 180 
N41Q 0181 
N41QQ 182 
N4100183 

N410Q185 
N41 30186 
N41GG167 



O 

O 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

C) 


CCCRFO PAGE 5 


L’ 

0188 

PO 053 

0 121 


SAP 

CGC3 7 


0189 

P0054 

18CD 

CCC34 

JMF» 

CCC3 

0 

019 0 






0191 

PG055 

682E 

CCC37 

STA- 

OIFF 


0192 

P0 056 

E830 


LDQ^ 

CCCLOC+2 


0193 

P0057 

882F 


AOD^ 

CCCLOC+2 

0 

0194 

P0 058 

0165 


SQP 

CCC45 

0195 

PO 059 

0123 


SAP 

CCC39 


0196 

P005A 

9820 


sue^ 

MAX 


0197 

P0 05B 

0132 


SAH 

CCC45 

0 

0198 

P005C 

0101 


SAZ 

CCC45 

0199 

P005D 

18C4 

CCC39 

JMP’f 

GCC3 


date: 01/27/99 


SAVE DIFF 
BLOCK 2 AOD. 

SKIP IF LESS/EQUAL TO 32K 
ERROR, TOO LARGE 


ERROR, OVER MAX. 


NhIO 0188 
N4100189 
N910ul9Q 
NA100191 
NhIO 0 192 
N4100193 
N410 0194 
N 410 019 5 
N‘+10 0196 
N^^lDOigZ 
NhIO 0198 
N4l0 0199 


O 


o 


o 

o 


o 


0201 
020 2 
020 3 


¥ 


ADDRESSES ARE OK. 


0 

0204 

P0D5E 

E826 

CCC45 

LDQ>f 

CCCLOC 


0205 

P005F 

C327 


LDA» 

CCCLOC+2 


020 6 

P006Q 

60FF 


STA- 

I 


020 7 

PC061 

n 8 ?? 

CCC50 

LOA"^ 

OIFF 

0 

020 8 

P0062 

0122 


SAP 

CCC52 

0209 





DONE 


0210 

P0063 

0C07 


ENQ 

7 


0211 

0212 

P0064 

ICIB 

V- 

JMP» 

lEXTMSG ) 


0213 

P0065 

C622 

CCC52 

LDA- 

(ZERO ) ,Q 


0214 

P0066 

B522 


EOR- 

(ZERO) , I 


0215 

P0067 

0116 


SAN 

GCC5& 

0 

0216 

PD068 

C81B 

CCG54 

LDA^ 

DIFF 

0217 

PC069 

09FE 


INA 

-1 


0218 

P006A 

6819 


STA^ 

DIFF 


0219 

PQ 06B 

DOFF 


RAO- 

I 

0 

0220 

P006C 

0001 


INQ 

1 

0221 

P006O 

18F3 


JMP^ 

CCC50 


0222 





ERROR 


0223 

P006E 

C8 13 

CCC56 

LOA^ 

HEAOIG 

0 

0224 

P006F 

4860 


STQ^ 

CUR81 

0225 

P0Q7fl 

EOFF 


LDQ- 

I 


0225 

P0071 

485F 


STQ4 

CURB2 


022 7 

P0Q72 

0101 


SAZ 

CCC58 

0 

0228 

P0D73 

1319 


JMP» 

CCC66 

0229 



* 


PRINT H 


0230 

PC074 

0 600 

CCC58 

RAO» 

HEADIG 


0231 

P0075 

54F4 


RTJ- 

( AMONI) 

‘0 

0232 

PQC76 

0507 

CCCWTl 

ADC 

$5D0 + CHRSLV 

0233 

P0 077 

GO 12 


ADC 

CCC RTl-CGCHTl 


0234 

P0078 

0 0 00 


NUM 

0 


0235 

PO 079 

0 0 00 

OTLUl 

NUM 

Q 

0 

0236 

PG07A 

00 0 8 


ADC 

CCCEl-CCCHED+1 

0237 

P0G7B 

COSE 


ADC 

CCCHED-CCCWTl 


0238 

P007C 

14EA 


JMP- 

( ADISP) 


SET UP START ADDRESSES OF BLOCKS 1 AND 2 


CHECK IF DONE 


TO PRINT SEARCH DONE 


CHECK IF DATA DIFFERENT 


ADJUST POINTERS 


CHECK IF HEADING BEEN PRINTED 
SAVE CURRENT ADDRESSES 


HEADING 


LU JTO BE FILLED) 


N4100 201 
N 4 IO 0202 
N410 0 20 3 
N4100204 
N410Q205 
N410 0 206 
N410Q207 
N410Q208 
N410 0209 
N410 0210 
N4100211 
N^IO 0 212 
N410G213 

N 4 IQQ 215 
N410Q216 
N4100217 
N410 0 218 
N4ia0219 
N410 022C 
N413G221 
N4100222 
N4100223 
N41QQ224 
N41Q0225 
N4100226 
N41CG 227 
N410 0228 
N410 0229 
N410 0 230 
N410 0231 
N41U 0232 
M 4 IGO 233 
N41QQ234 
N41QQ235 
N410 0236 
N4IOO237 
N410 0 238 


o 

C 

o 

o 

o 

C) 

o 

o 

o 


o 


o 


CCCf?EQ 


PAGE 
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date: 01/27/99 


\ ) 


0240 


o 

0241 

PG07O 

0 0 0 0 

BASE 

HUM 

0 

0242 

PO G7E 

0 0 00 

EXTHAN 

NUM 

0 


0243 

P0Q7F 

0 C GO 

EXTMSG 

NUM 

0 


0244 

P0 08Q 

0 0 0 0 

COUNT 

NUM 

0 

Pt 

0245 

P0C81 

0 0 0 0 

HEADIG 

NUM 

0 

0246 

PD082 

10 00 

MODE 

ADC 

ASMOD 


0247 

P0083 

GOOD 

DIFF 

NUM 

0 


0248 

PO 084 

0 0 03 

CCGLOC 

BZS 

CCCLOCC 3) 

o 

0249 

P0087 

0 0 0 0 

MAX 

NUM 

0 

0250 







0 251 

P0088 

0163 

GCCRTl 

SQP 

CCC66 


0252 

POO 89 

E8F3 

CCCWE 

LOQ^ 

BASE 

o 

0253 

POO 8A 

“2 04 


LDQ- 

lOERR, Q 

0254 

P008B 

1622 


JMP- 

(ZERO ) , a 


0256 



if- 


AS 

■w' 

025 7 



>(■ 9-if- V- if- 



STOREAGE AND/OR CONSTANTS 


MESSAGE HEADING FLAG 


0258 



0259 

P008C 

C843 

CCC65 

LOA^ 

CURBl 


0260 

P0Q8D 

5844 


RTJ’- 

ASMASC 

O 

0 261 

PQ08E 

0 0 32 


ADC 

CCCELl-^ 


0262 

P0G8F 

C841 


LQA* 

CURB2 


0265 

P0090 

5841 


RTJ<-- 

ASMASC 


0264 

PDOgi 

0 037 


ADC 

CCCEL2--'^ 

u 

0265 

P0Q92 

5 4F4 


RTJ- 

(AMONI) 


0266 

P0 093 

0507 

CCCWT2 

ADC 

$5G0 + CHRSLV 


0267 

P0094 

0 0 07 


ADC 

GCCRT2-CCCWT2 


0268 

P0 095 

ooeo 


NUM 

O' 


0269 

P0096 

0 0 00 

0 TLU2 

NUM 

0 


0270 

P0097 

0010 


ADC 

CCCE2-CCC0NT-H 


0271 

PG098 

Q02C 


ADC 

GCCONT-CCCWT2 

’’ 

0272 

P0099 

14EA 


JMP- 

(ADISF) 


0273 



if- 




0274 

P009A 

0 161 

CCCRT2 

SQP 

CCC70 


0275 

P009B 

18ED 


JMP'*^ 

CCCWE 


0276 

P009C 

C4C0 

X CCC70 

LDA 

CHRSFG 

'■-J 


PQ09O 

7FFF 

X 




0277 

P0Q9F 

0111 


SAN 

CCC77 


0278 

P0Q9F 

1CA5 


JMP»- 

(EXTOFF ) 


0279 

POOAO 

C830 

CCC77 

LDA^ 

CURB2 


0280 

POOAl 

60FF 


STA- 

I 


0281 

P00A2 

E82D 


IQQ* 

CURBl 


0282 

P00A3 

18C4 


JMP^^ 

CCC54 


I/O ERROR 


ASSEMBLE DATA WITH LOCATIONS AND OUTPUT 
TO ASSEMBLE BLOCK 1 DATA 

BLOCK 2 DATA 


LU (TO BE FILLED) 


10 ERROR 
CHECK FOR 


■DX‘ 


NO, SKIP 
TO “OFF" 

RESTORE BLOCKS 1 


TO REPEAT 


AND 2 ADDRESS 


,N4lO 0 240 
N410 0241 
N4100242 
N4100243 
N4100 244 
NhIQ 0 245 
N4100246 
N4i0 0 247 
N410Q248 
N41Q0249 
NAIQ U 25 G 
N410 0 251 
N410025'2 
N4ia0253 
N410 0254 


N41Q0256 
NH1QG257 
N410 0258 
N-rl0 0259 
N4l 0 Q 2b 0 
N^IG 0261 
Nh-IG 0 2b2 
N4100263 
N41G 0264 
N4lG02o5 
N',10 0 266 
N41Q 0267 
N4100268 
N4100259 
N4100 270 
N41D0271 
N413 0 27 2 
N4100273 
N-,10 0 27 4 
N',100275 
N4100276 

N4100277 
N410 0278 
N41Q0279 
N41Q0 280 
N410G281 
N41G0282 


O 

O 

O 

C) 

r-, 

O 

o 

n 


u 


O 


L..- 


O 


o 


\ 


0284 

0285 

0286 P00A4 OBOO 


if- 

CORAOK NOP 


CHECK ADDRESSES TO BE WITHIN 32K 
ENTRY 


N410Q284 
N4100285 
NhIC 0286 


O 


O 

c 


o 


CGCREQ 


PAGE 
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DATE: 01/27/99 


o 



L) 

o 

o 

o 

n 


0287 P00A5 EQE9 

0288 P0QA6 E622 

0289 PQQA7 0155 

0290 PQ0A8 0133 

0291 P0DA9 98DD 

0292 POOAA 0137 

0293 POQAB 0106 

0294 POOAC 1CF7 

0296 

0297 POOAO 0124 

0298 PQOAE 98D8 

0299 POOAF 0132 

0300 POQBO 0101 

0301 POQBl 18FA 

0302 P00B2 D8F1 

0303 P00B3 ICFO 


LDQ- EXTBV4 
LDQ- (ZERO),Q 
SQN AD65 
SAM AD32EX 
SUB^ MAX 
SAM AD65EX 
SAZ AD65EX 
AD32EX JMP» ICORADK) 

CHECK 

AD65 SAP AD65EX 
SUB^ MAX 
SAM A065EX 
SAZ AD65EX 
JMP^ AD32EX 
A065EX RAO-*^ CORAOK 

JMP’^ (CORAOK) 


GET 32K/65K FLAG (32K=0, 65K=1) 

SKIP ON 65K 
ERROR, OVER 32K 


RETURN 

TO BE WITHIN 65K OR LESS 
SKIP FOR 32K OR SO 


OK, SKIP 
OK, SKIP 


ERROR, GO 

SET NORMAL EXIT 


NORMAL RETURN 


0305 



* 


SAOO 




0305 

P00B4 

OAOO 

CCCHEO 

NUM 

CONTENTS 



030 7 

P00B5 

202Q 


ALF 

8, CELL 




PO0B6 

4345 








PG0B7 

4C4C 








P00B8 

2 0 43 








P00B9 

4F4E 








POOBA 

5445 








POOBB 

4E54 








POOBC 

5320 



SAOD 




0308 

POOBO 

OA OD 


NUM 




0309 

POOBE 

OAOD 

CCCEl 

NUM 

$A0D 




0310 




ALF 





0311 

P0 0 8F 

20 20 

CCCONT 

1 , 

BLOCK 1 

ADDRESS 


0 312 

POOCO 

0 0 00 

CCCELl 

NUM 

0,0 



POOCl 

OOGO 



1, ( 




0313 

P0QC2 

2028 


ALF 

CONTENT 

OF BLOCK 


0314 

P0 0C3 

00 00 

CCCONi 

NUM 

0,0 

1 


PO 0C4 

0 0 0 0 







0315 

P0QC5 

2920 


ALF 

1, ) 




0316 

PQ0C6 

2020 


ALF 

2, 




P00C7 

20 20 





ADDRESS 


031 7 

P00C8 

00 00 

CCCEL2 

NUM 

0,0 

BLOCK 2 



P0 0C9 

0 0 00 


ALF 

1, { 




0318 

POOCA 

2028 


CONTENT 

OF BLOCK 


0319 

POflCB 

0000 

CCC0N2 

NUM 

0,0 

2 


POOCC 

0 000 


ALF 

1,) 




032 0 

POGCO 

2920 





0321 

POOCE 

OAOO 

CCCE2 

NUM 

SAOD 




0322 

POOCF 

0 0 00 

CURBl 

NUM 

0 




0323 

POQDQ 

0 00 0 

CURB2 

NUM 

0 





o 

o 


o 


N-, 10 0287 
N410Q 288 
N^laQ289 
N410 0290 
N410G291 
N41G0292 
N410G 293 
N41Q 0294 

N4iaC29o 
N^100297 
Nm0C298 
N4i00299 
N4iaQ300 
N410 0 30 1 
N 410 0 30 2 
N4100303 

N41003Q5 
N410 0306 
N-+10 0 30 7 


N410C308 
N^rlQOSQg 
N410Q310 
N410 0 311 
N4100 312 


o 

o 

o 

o 



N 410 0 31 3 
N4100314 


O 


N4100 315 
NhIOO 316 

N410 0 317 



N41Q 0 318 
N41D0 319 


N4100320 
N-+10 0 321 
N4100 322 
N41Q0323 


o 


o 


CCCPEQ 


PAGE 
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DATE: Ql/27/99 


o 


o 


O 

o 

o 


o 


0325 

0326 
032 7 

0329 

0330 

0331 

0332 POODl OBUO 

0333 P0QD2 680C 

0334 P00D3 ECFD 

0335 P00D4 PaPC 

0336 P00D5 480A 

0337 P00D6 580A 

0338 P00D7 C808 

0339 P00D8 0903 

0340 P0009 6806 

0341 POODA CC04 

0342 PGODB 5805 

0343 POQOC D8E4 

0344 POODD 1GF3 


¥ 

■* 


N4l0 0323 


N4100327 


ASHASC NOP 
STA + 
LOQ^ 
AOQ^ 
STQ^^ 
RTJ^ 
LOA-^ 
INA 
STA^ 
LDA^ 
RTJ^ 
RAO*- 
JMP* 


ASSEMBLE LOCATION ANO CONTENT INTO ASCII 


0 

ENTRY 


AO 

(ASMA SC ) 
ASMASC 

SAVE LOCATION 


A1 

SAVE DATA CONTENT ADD 

TW 

ASSEMBLE INTO 

ASCII 

A1 


3 

A1 

(AO) 

SET TO CONTENT 

LOG. 

GET CONTENT 


TW 

ASSEMBLE INTO 

ASCII 

ASMASC 

SET EXIT 

(ASMASC ) 

EXIT 



N41D0329 
N-+1Q 0330 
NhIQ 0 331 
N410 u 332 
N41C 0353 
N41G0 334 
N410 0 33 5 
N410Q536 
N4100337 
NmO 0 338 
N-IOG 339 
N41G034G 
N41D0341 
N410 0 342 
N410 03<+3 
N41Q 0 3-r4 


0 

034 6 
0347 

POODE 

00 00 


0348 

POODF 

0 0 0 0 

0 

0350 

0351 

POOEO 

OBOO 


0352 

POOEl 

0 COO 

0 

0353 

P0QE2 

4811 

0354 

P00E3 

0FE4 


0355 

PO0E4 

6810 


0356 

P00E5 

0DF5 

0 

0357 

P0OE6 

0171 

0358 

P00E7 

0007 


035 9 

P00E8 

GD3A 


0360 

PO0E9 

OFFO 

0 

0361 

POOEA 

F8 09 

0362 

PO uED 

6A OA 


0363 

PDQEC 

ODOl 


0364 

POOEO 

4806 

0 

0365 

POOEE 

0DF8 

0365 

POOEF 

01 49 


0367 

POOEO 

C804 


0368 

POOEl 

OCOO 

0 

U369 

POOF 2 

18F0 

0370 

0371 

P0QF3 

QOOO 


0372 

P00F4 

0 000 

0 

0373 

0374 

POOFS 

00 04 

P00F9 

E8E5 


0 37 5 

POOEA 

C8FA 



AO 

NUN 

0 

A1 

NUM 

0 


TW 

NOP 

0 


ENQ 

0 


STQ* 

TWl 

TWO 

LLS 



STA* 

TW2 


INQ 

-10 


SUM 

TWX 


INO 

7 

TWX 

INQ 

$3A 


LLS 

16 


LDQ* 

TWl 


STA* 

TW3,Q 


INQ 

1 


STO* 

TWl 


INQ 

-4 


SQZ 

TWAS 


LDA* 

TW2 


ENQ 

0 


JMP* 

TWO 


TWl 

NUM 

0 

TW2 

NUM 

0 

TW3 

BZS 

TW3 (4) 

TWAS 

LDQ* 

A1 


LDA* 

TN3 


N 4 IO Q 346 
N410 0347 
N 4 IQ 0 346 


ENTRY 

ZERO COUNT 
EXTRACT 4-BIT BYTE 

ASSEMBLE INTO ASCII ACCORDING TO NO. OR A-F 

TO A -REG. 

SAVE ACCORDINGLY 

DONE, ALL 4 BYTE BEEN PROCESSED 


ASSEMBLE INTO 2-WORD AND SAVE 


N4 10 0 35 0 
N 4 IO 0 351 
Nh 100352 
N 410 035 3 
N4l0 0 354 
N4l0 0 355 
N41Q0356 
N4100357 
N410 0 358 
N 4 IJO 359 
N4100360 
N4l3 0 361 
N4100362 
N4100363 
N41D0364 
N4IGQ355 
N4100 366 
N41Q0367 
N41Q0368 
N41U 0 369 
N41Q0 370 
N 4 1 0 0 3 7 1 
N41Q0372 
N410 0373 
N4IOO374 
N41Q 0 375 



o 


o 

o 



Ni+10 0 376 
N410D377 
N‘410 0378 
N410G379 
N410038D 
Nh 10 0 381 
N4100 382 
N41Q0333 
Nh100384 


N-+10 0 38b 
N410 0387 
N4100338 
N41Q0 389 
N410 0390 
N41G0391 


O 

O 


O 

O 

o 

o 

o 

o 

c 

o 

o 

o 



nnr.PFD 


PAGE 10 


DATE: Gl/27/99 



G 
: O 
. O 
' O 

c 

- o 

0 3 83 Q 

' o 

■ c 

■ o 
. o 

: G 
O 

■ o 
o 


CCCREQ 
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DATE: Cl/27/99 


0 079 
0 080 
0 0 81 


SLASHF OOIG (000015) 

BUFEHT Dull (OG0017) 0145 

BUFFER 0012 (000018) 


CCCREQ 


PAGE 12 


date: 01/27/99 


SYMBOLS 


OEF . LINE 

NAME 

ADDRESS 

0 0 42 

CCCREQ 

00 0 0 

0107 

CCCl 

0014 

0 118 

CCC2 

OOIF 

0122 

CCC3 

00 22 

012 5 

GOT 

002 4 

0128 

CCC5 

0026 

0 130 

CCCVA 

0028 

0145 

CCCIO 

0 033 

0153 

CCCll 

0037 

0156 

CCC15 

003A 

0159 

CCC17 

003D 

0165 

CCC19 

0043 

016 6 

CCC20 

0044 

0168 

EXTOFF 

0045 

0171 

CCC22 

0046 

0 180 

CCC28 

G04D 

0186 

CCC32 

00 51 

016° 

CCC34 

0054 

0191 

CCC37 

0055 

0199 

CCC39 

0050 

0 204 

CCC45 

0 05F 

0 20 7 

CCC50 

0061 

0213 

CCC52 

0065 

0 216 

CCC54 

0068 

0 223 

CCC56 

006E 

0 P30 

cnc58 

007 4 

0232 

CCCWTl 

007 6 

0235 

OTLUl 

00 79 

0 241 

BASE 

007D 

G242 

EXTHAN 

007E 

0243 

EXTMSG 

0G7F 

0 244 

COUNT 

G08D 

0245 

HFADIG 

0081 

0 24 6 

MODE 

0082 

0247 

DIFF 

00 83 

0 248 

CCCLOC 

0084 

0249 

MAX 

008 7 

0 251 

CCCRTl 

0088 

0252 

CCCWE 

G089 

0259 

CCC66 

00 8C 

0266 

CCCWT2 

0093 


referenced at line number 


Q 0 42 
0 140 
0113 
0 117, 





0135, 

0148, 

016 5, 

0178 

0 0 91, 

0092 




Q1 11, 
0 132 
0139 
0147 

0116, 

0120 



0 158, 

0161 




0 163, 

0164 




0 0 94 , 

0155 

0174 

0278 




0173 

0186 





0177, 

0195 

0182, 

0188 

0198 


0166, 
G 2 21 
0 208 
0282 
0 215 
0227 

0194, 

0197, 




0 2 3 3, 
0 0 99 

0 23 7 




0 087 , 

0252 




0 090 , 

0109, 

0129 



0096, 

0123, 

0211 


Q137 

0102, 

0114, 

0131, 

0136, 

0103, 

0223, 

0 23 0 



0 098 
0159 , 

0191, 

0207, 

0216, 

0 218 

0 133, 

0 15 6, 

0157, 

0 160 , 

0171 

0105, 

0233 

0162, 

0196, 

0 291, 

0298 

0275 

0228, 

0 251 




0267, 

0 271 





0183, 0189, 0199 


0172, 0176, 0180, 0187, 0192, 


0193 , 


Q2G4, 



CCCREQ 

PAGE 13 



date: 

01/27/99 

0 269 

0TLU2 

0096 

0100 





0 274 

CCCRT2 

Q09A 

0 267 





0 276 

CCC70 

009C 

0274 





0 279 

CCC77 

00 AO 

0277 





0 286 

CORADK 

C0A4 

0134, 

0294, 

030 2, 

0303 


0 294 

A032EX 

QQAC 

0 290 , 

0 30 1 




0297 

A065 

OOAD 

0 289 





Q30 2 

AD65EX 

00B2 

0292, 

0293, 

0297, 

0299, 

030 0 

C 306 

CCCHEQ 

00B4 

0236 , 

023 7 




0309 

CCCEl 

008E 

0 236 





0 311 

CGCONT 

OQBF 

0 270 , 

0 271 




0 312 

CCCELl 

OCCO 

0 2 61 





0314 

CCCONl 

00C3 






0317 

CCCEL2 

OOC8 

0264 





0 319 

CCC0N2 

OOCB 






0 321 

CCCE2 

OOCE 

0270 





0 322 

CURBl 

OOCF 

0224, 

0259, 

0281 



0 323 

CUR B2 

OODO 

0 226, 

0262, 

0279 



0 33 2 

ASMASC 

OQDl 

0 260 , 

0263, 

0 334, 

0335, 

0 34 3 , 0 344 

0347 

AO 

OODE 

0333, 

0 341 




0 3 48 

A1 

OODF 

0 336, 

0338, 

u 4 ij , 

0 374 


0 351 

TW 

OOEO 

0 337, 

0 342 , 

0384 



0354 

TWO 

G0E3 

0 369 





0 359 

TWX 

GOES 

0 357 





0371 

TWl 

0GF3 

0 353, 

0 361 , 

0 364 



0 372 

TW2 

00F4 

0355, 

0367 




0373 

TW3 

00F5 

3362 , 

0375, 

0377, 

0379, 

0381 

0374 

TKAS 

00F9 

0 366 





0 36 7 

SA43 

00 0 2 

0388 





0388 

SP43 

0003 

0389 





0389 

DB43 

0120 

0 390 






CCCREQ 
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DATE: 01/27/99 


X T E R 

N A L S 



DEF. LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 0 46 

OFF 

002 5 

0126 

0 047 

HANDLE 

0 024 

0125 

0 048 

CHRSFG 

009D 

0 276 


CCCREQ 


DATE: Oi/27/gg 


A L 

P H A 

g E T I 

AG 

0347 

A1 

ASMOD 

0064 

ASTRIC 

CCCIO 

0145 

CCCll 

CCG3 

0122 

CCC32 

CCC5A 

0 216 

CCC56 

CCCEL2 

0 317 

CCCHEO 

CCCVA 

013 0 

CCCWE 

COUNT 

0 24 4 

GURRl 

EXTOFF 

0168 

FIELD 

LPMSK 

0055 

MASK 

ONE 

0058 

ONEBIT 

SIXTEN 

0056 

SLASH 

TWl 

0 371 

TW2 


PAGE 15 


CAL 

SORT 

0 F 

0 348 

AD32EX 

0294 

0 057 

BASE 

0 2 41 

0 153 

CCC15 

0 156 

0 186 

CCC34 

0189 

0223 

CCC55 

0 2 30 

0 306 

CCCLOC 

0 248 

0252 

CCCHTl 

0 232 

0322 

CURB2 

0523 

0 078 

FIVE 

0 0 56 

0 060 

MAX 

0 2 4g 

0 056 

OOT 

0125 

0 057 

SLASHF 

0 079 

D 372 

TW3 

0373 


S Y M B 

0 L S 


A065 

0297 

AD65EX 

RHAN 

0067 

BITFLG 

CCC17 

0159 

CCC19 

CCC37 

0191 

CCC39 

GCC66 

0259 

CCC70 

CCCONl 

0 314 

CCCON2 

CCCWT2 

0265 

CHRSFG 

DB43 

0389 

DIFF 

GETFLD 

Du51 

HANDLE 

MODE 

0246 

MSG 

0 TLUl 

0255 

OTLU2 

SOHMOR 

0069 

SP43 

TWAS 

0374 

TWO 


030 2 

ADISP 

0 05 5 

0076 

8UFCNT 

0077 

0165 

CCC2 

0118 

0199 

CCC45 

0204 

0276 

GCC77 

0279 

0319 

CCCONT 

0311 

0048 

CHRSLV 

0062 

0247 

EIGHT 

0058 

0047 

HEAOIG 

0245 

0068 

NEWMLU 

0073 

0269 

PROGl 

0074 

038 8 

TEH 

0059 

0058 

TWX 

0359 


AHONI 

0 0 55 

ASCHEX 

BUFEMT 

0080 

BUFFER 

CCC2G 

0166 

CCC22 

CCC5 

0128 

CCC5G 

CCCEl 

0 3G 9 

CCCE2 

CCCREQ 

0042 

CCCRTl 

COMMA 

005 7 

COMOLU 

EXT8V4 

0063 

EXTHAN 

I 

00 0 0 

lOERR 

NINE 

005 3 

NZERO 

PROG2 

0075 

SA43 

THREE 

005 8 

TW 

ZERO 

Q05o 

ZROBIT 


0 05 2 

ASHASG 

G 332 

0081 

CCCl 

0107 

0171 

CQC28^ 

0 180 

0 20 7 

CCC52 

0213 

0 321 

CCCELl 

0312 

0 251 

CCCRT2 

0274 

0072 

CORAOK 

0286 

0242 

EXTMSG 

0 243 

Qu7C 

LISTLU 

0 071 

0055 

OFF 

0 0 46 

0387 

SIX 

0056 

0 351 

TWO 

0354 

0055 




CCMREQ 


PAGE 


1 


DATE: ai/27/99 


000 1 
000 2 
000 3 
00 0 4 
00 0 5 
00 0 6 
00 0 7 
00 0 3 
00 0 9 
0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0013 

0019 

0020 
0021 
0022 
0023 

002 4 

0025 

0026 

0027 

0028 
00 2 9 

003 0 

0031 

0032 

0033 
003 4 
0035 
003 6 

0037 

0038 

0039 

0040 

0042 

0043 


0045 

0046 
004 7 

0048 

0049 


V- 

* 


¥ 

If. 

■V-A?- V 

if 

■if- 

if 

if 

if 

if 

if 

if 

if 

if 

if 

if 


NAM CCMREQ DECK-IO N42 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11 6^-^^^^^^ 
N4200002 
N4200a03 
NhEO 0 004 
N42d 000 5 


V- V-V- >1- V-V- ^ V- ^ ^ ^ ^ V- ^ 

^ THIS PROCESSOR COMPARES CORE TO HASS MEMORY ^ 

If. » 


INPUT FORMAT : 

CCM,SC,EC,SSMSB,SSLS8,SW{CR) 

WHERE SC = STARTING CORE (HEX.)' 

EC = ENDING CORE (HEX. ) 

SSMSB = START SECTOR MSB (HEX.) 
SSLSB = START SECTOR LSB (HEX.) 
SW = START WORD (HEX .) 


OUTPUT FORMAT : 
HASS MEMORY DATA 


cccc 

(xxxxy 

MMLLLL/WWWW (YYYY) 

WHERE 

cccc = 

CORE ADD. 


xxxx = 

CORE DATA 


MM = 

START SECTOR MSB 


LLLL = 

START SECTOR LSB 


wwww = 

START WORD 


YYYY = 

MASS MEMORY DATA 


Nh2Q 0006 
Nh2 u 0 0 G 7 
N4200008 
N4200009 
N420 OOlC 
N*420 OGll 
N4200 Q12 
N4200013 
N4200014 
N4200 015 
N42Q 0016 
N-+20 0017 
N420 0018 
N420 0019 
Nh- 200020 
N42Q0Q21 
N42u0022 
N-+2G 0 02 3 
N420Q024 
N~^^0 0 02 5 
N-^20 0 026 
N42GG 027 
N4200028 
N42G0 029 
N42G003G 
N-r2fl0u3i 
N42Q0Q32 
N4200 033 
N-+20 0 034 
N-t2u 0 03 5 
N4200036 
N-420 0 037 
N4200038 
N42G 0 039 
N420 DQ40 


¥ 


E N T R 

ENT CCMREQ 


NAME 


N42Q0042 

N4200043 


¥ 

¥ 


EXT 

EXT 

EXT 


E 


OFF 

HANDLE 

CHRSFG 


XTERNALS 

1 CARD DELETED 


N420 0 045 
N4200 046 
N4200047 
N4200048 
N4200049 



GCMREQ 


PAGE 2 

DATE: 01/27/99 


0051 



' E Q 

U ' TABLE 

N42DDQ51 

0052 

0 0F4 

FQU 

AMOMI($F4) ,ADISP($EA) ,LPHSK(2) »NZER0($12) ,ZROBIT($33) 

N42Q0052 


0Q6A 






G0G2 






DO 12 

n n ”3 37 





00 5 3 

U u ’O ^ 

0 0 43 

EQU 

FIVE'($43) , SIX ($44) .ZERO ($22) , ON EBIT ($23 ) , SI XT EN ($27 ) 

N42Q0 053 


0 0 44 






0 0 22 






0 0 23 

n n o 7 





005 4 

\j U Ci 

0 02C 

EQU 

COMMA ($20 ,SLASH($2F) .ASTRIC ($2A) 

N42QQIJ54 


0 02F 






0 02A 





005 5 

0 0 26 

EQU 

EIGHT ($26) ,NINE($45).THREE(4) , 0 N E ( 3 ) , T WO ( $2 4 ) 

•N42G 0 055 


0 0 45 






0 0 04 






00 03 






0 Q2h 





D 0 5 b 

Q 0 46 

EQU 

TEN ($46) 


N423005b 

0057 

0 0 03 

EQU 

MASK (3) 

ONE BIT MASK 

N t20 0 057 

0059 

0 0 07 

EQU 

CHRSiV(7) 

LEVEL OF THIS PROGRAM 

OO&O 

10 0 0 

EQU 

ASMOD ($1000) 

OUTPUT ASC MODE 

N4200Q60 

0061 

0 060 

EQU 

N096(96) 

BUFFER SIZE 

N -+?y 0 061 

0062 

0 0E9 

EQU 

EXTBV4 ( SE9) 

CORE LOCATION CONTAINS ADD. OF EXTENDED CORE 

N42u0 062 

0064 

V- 


PARAMETER LOCATION (OFFSET FROM BASE) 

N420 0 064 

0065 

0 0 01 

FQU 

BHAM(l) 

"HANDLE" 

N4200Q65 

006 6 

0 0 02 

EQU 

MSG (2) 

"MSG" ENTRY 

N 4 2 0 0 0 6 5 

0067 

0 0 03 

EQU 

SOMHOR(3) 

"SOMMOR" ENTRY 

N42QQ 067 

0068 

OQ 04 

EQU' 

lOEPR (4 ) 

"IDERR" ENTRY 

N 420 0 0 6 8 

0069 

0 0 05 

EQU 

LISTLU (5) 

LIST OUTPUT "LISTLU" 

N42Q0 069 

0070 

0 0 06 

EQU 

C0M0LU(6) 

"COMOLU" 

N4200070 

0071 

0 0 07 

EQU 

NEWMLU (7 ) 

"NEWMLU" NEW MM LU 

N42G0071 

0072 

0 0 08 

EQU 

PROGl (8 ) 

"PROGl" 

N423 0 072 

0073 

00G9 

EQU 

PR0G2 (9 ) 

"PROG?" 

N4200 073 

007 4 

OOOA 

EQU 

BITFLGC 10) 

"BITFLG" 

N420 0 07 4 

0075 

00 OB 

EQU 

BUFCNT (11) 

"BUFCNT" 

N42G 0 0 7 5 

007 6 

OOOC 

EQU 

FIELD (12 ) 

"FIELD" 

N42D 0 076 

007 7 

0 010 

EQU 

SLASHFC 16) 

"SLASHF" 

N420Q 077 

007 8 

00 11 

EQU 

BUFEMT { 17) 

"BUFEMT" 

N420a078 

0079 

0012 

EQU 

BUFFER (18) 

"BUFFER” 

N4200Q79 

0081 

* 


SUBROUTINE "EQU" POINTERS 

N4200 081 

0082 

DO 02 

EQU 

GEIFLOtE) 

"GETFLD" 

N4200082 

0G83 

00 03 

EQU 

ASCHEX(3) 

"ASCHEX" 

N420GQ83 

003 4 

0 0 0 5 

EQU 

ASC3EC( 5 ) 

"ASCOEC" 

N420 0 08 4 

008 5 

00 09 

EQU 

FETMM (9 ) 

«FETMH* GET MM ADDRESS 

N420 0 08 5 

008 6 

OOOA 

EQU 

■PNTHD (10 ) 

“PNTHD" PRINT BOTH CORE AND MH DATA 

N420 0 086 


/ 


o 

o 


o 

o 




o 


o 

o 

0 

o 

o 

o 

o 

o 




CCMREQ 


PAGE 3 

OATES 01/27/99 



0 0 8 8 




* 





N420 0 088 

0089 




jf » 



PROGRAM START 


N42D 0 089 

0090 




* 





N‘+2D 0 090 

0092 

POOOO 

6860 


CCHREQ 

STA^ 

BASE 



N4200092 

0093 

POQOl 

60FF 



STA- 

I 



N 42 0 G 09 3 

0094 

P00 0 2 

ElOl 



LDQ- 

BHAN, I 



N‘+20 0 094 

009 5 

P 00 0 3 

485E 



STQ^ 

EXTHAN 



N-,20 0 0 95 

0 0 9 6 

PO 0 0 4 

caiF 



LDA^ 

OOT + 1 

CALCULATE “OFF" ADDRESS 


N420Q 096 

0097 

PO0Q5 

981D 



SUB^ 

OOT 



N-+200 G97 

0098 

P0 0 06 

0834 



AAQ 

A 



N42 0 0 0 98 

0099 

POO 07 

68 5C 



STA^ 

EXTOFF 



N42Q 0 099 

010 0 

P0008 

C102 



LDA- 

MSG, I 



N420 0 10 0 

0101 

POO 09 

6859 



STA--^ 

EXTMSG 



N420 0 10 1 

010 2 

PQOQ A 

C107 



LDA- 

NEWMLU, I 

GET MM LU AND SAVE 


N420 0 10 2 

0103 

POOOB 

68 38 



STA^^ 

OTLU 



N42 0 0 1 0 3 

010^ 

PQOOC 

6800 



STA 

CCflLOC+2 



Nh200104 


POOCD 

0 0 85 








010 5 

POOOE 

DA 00 



ENA 

0 



N-r20 0 IG 5 

010 6 

POG OF 

687E 



STA* 

COUNT 



N420 0 10 b 

010 7 

POOl 0 

687E 



STA* 

HEAD I G 



N420 Q IG 7 

010 8 

POOH 

CO F5 



LDA- 

$F5 

HIGHEST CORE LOCATION USED BY 

SYSTEM 

N^2D 0108 

0109 

P0Q12 

68 7D 



STA* 

MAX 



N420 fl 10 9 

0111 




* 


GET 

STARTING ANO ENDING CORE LOCATIONS 

N42C0111 

0112 

P0013 

OA 02 


CGH3 

ENA 

GETFLD 

GET FIELD CORE LOG. 


N420C 112 

0113 

PO 014 

0C04 



ENQ 




N420 0 il 3 

0114 

P0015 

5C4C 



RTJ* 

>IEXTHAS1 ) 



N42G fl 11 4 

0115 

PDC16 

OA03 



ENA 

ASCHEX 

CONVERT TO HEX 


N420G115 

0116 

P0017 

5C4A 



RTJ* 

(EXTHAN ) 



N 423 0 11 6 

0117 

P0018 

0 0 CO 


CCHCOR 

NUN 

Q 



N 42 0 0 117 

0118 

P0019 

E874 



LOO* 

COUNT 



N 42 0 0 1 1 8 

0119 

pool A 

C3FD 



LDA* 

CCMCOR 



N420 0119 

0120 

PGOIB 

6A75 



STA* 

CCMLOC,Q 

SAVE CORE LOC. ACCORDINGLY 


N42D0 120 

0121 

POOIC 

587D 



RTJ* 

GORADK 

TO CHECK IF GORE LOC. WITHIN 

LIMIT 

N42Q 0 121 

0122 

POOlO 

180E 



JMP* 

CCMll 

ERROR, GO 


N42Q 0122 

0123 

PODIF 

F86F 



LDQ* 

COUNT 



N42Q0123 

0124 

POOIF 

0154 



SON 

CCM6 

DONE, SKIP 


N42G 0124 

0125 

P0Q20 

08 60 



RAO* 

COUNT 



N420012p 

0126 

P0021 

18F1 



JMP* 

CCH3 



N 420 G 12 5 

0127 

P0 022 

7FFF 

X 

OOT 

ADC 

HANDLE 

0. "HANDLE" ENTRY 


N420 0 127 

0128 

PO 023 

7FFF 

X 


ADC 

OFF 

1. "OFF" ENTRY 


N'-2 0 Q 12 8 

0129 




>)■ 


MAKE 

SURE END LOC. IS LARGER/EQUAL 

TO START 

N42QQ129 

0130 

PQ024 

C86C 


GCM6 

LOA* 

CCMLOC 



N4200130 

0131 

P0G25 

F86C 



LOQ* 

CCMLOC+1 



N4 2 0 0 131 

0132 

P0026 

0136 



SAM 

CCM13 



N420 0132 

0133 

P0027 

0161 



SQP 

CCMIO 



N4200133 

0134 

P0028 

18 09 



JHP* 

GCM20 



N420 0 13 4 

0135 

P0029 

9868 


CCMIO 

SUB* 

CCMLOC+1 



N423 0 13 5 

0136 

P0 02A 

0136 



SAM 

CCM20 



N 42 0 0 13 6 

0137 

P002B 

0CD4 


CCMll 

ENQ 

4 

FORMAT ERROR (END LESS/EQUAL 

TO START) 

N42u 0 13 7 

0138 

P002C 

1C36 



JMP* 

(EXTMSG ) 



N4200138 


o 

o 

o 

o 

c 

o 

o 


C) 

o 

o 


o 

o 

o 


o 


i 


o 


CCHREQ 


PAGE 


4 


DATES 01/27/99 



o 

o 

o 

o 


0139 



¥■ 


START 

OVER 32K, 1 

CHECK END 

0140 

PO 02D 

G 1 62 

CCM13 

SQP 

CCM15 

BOTH OVER 

32K 

0141 

PO 02E 

F862 


ADD* 

CCMLOC 

0142 

P0 02F 

0171 


SQM 

GCM2 0 

TO ERROR 


0143 

P003u 

18FA 

CCM15 

JMP* 

CCMll 


0145 



* 


GET 

MM ADD. 


0146 

P0Q31 

0 A09 

CCM20 

ENA 

FETMM 



0147 

P0032 

0 COl 


ENQ 

1 



0148 

P0Q33 

5C2E 


RTJ* 

(EXTHAN ) 



0149 

0150 

PO 034 
P0035 

0 0 5E 
Clll 


ADC 

LDA- 

CCML0C+2-* 
8UFEMT, I 

MAKE SURE 

FORMAT OK 

0151 

P0036 

B012 


EOR- 

LPMSK-H6 



015-2 

P0037 

0101 


SAZ 

CCM24 



0153 

P0038 

18F2 


JMP* 

CCMll 




o 

o 

o 

o 

o 


0155 

0156 PG039 GABO 

0157 P003A 680A 

0158 PO 038 C857 

0159 P003C 680A 

0160 P003D C856 

0161 P003E 68 09 

0162 P003F 54F4 

0163 P0040 0307 

0164 P0041 0009 

0165 P0042 0000 

0166 P0043 0000 

0167 P0044 0060 

0168 P0 045 0069 

0169 PD046 0000 
P0Q47 0000 

017 0 0 0 47 P 

0171 P0048 14EA 

0172 

0173 P0049 0163 
C174 P004A E816 

0175 PQ04B E204 

0176 P0Q4C 1622 


all INPUT IN, READ HH DATA 


CCM24 

ENA 

N096 


STA* 

CCMZ 


LDA* 

GCMLOC+2 


STA* 

GCMM 


LDA* 

CCHL0C43 


STA* 

CCML 


RTJ- 

(AMONI) 

CCHCD 

ADC 

$30 0 + CH RSLV 


ADC 

CCMRT-CCMCD 


NUH 

0 

OTLU 

NUM 

0 

CCMZ 

ADC 

N096 


ADC 

MMQAT-CCMCD 

CCMM 

NUM 

0,0 


EQU 

CCML ICC HM+1 ) 

if. 

JMP" 

{ ADISP) 

CCMRT 

SQP 

CCM30 


LDQ* 

BASE 


LDQ- 

IOERR,Q 


JMP- 

(ZERO) ,Q 


SET UP SIZE AND MM ADO. 


READ 

RETURN 

THREAD 

LU (TO BE FILLED) 
SIZE (FILLED) 

BUFFER 

MSB AND LSB (FILLED) 


TO “lOEKR" 


o 

o 

o 


0178 ^ 

0179 P004Q C843 CCM30 

0180 P004E 60FF 

0181 P004F OCnO 

0182 PQ050 0522 CCM31 

0183 P0051 8A58 

0184 P0052 0101 

0185 PC053 181F 

0186 00 54 P CCM32 

0187 P0054 COFF 

0188 P0055 983C 

0189 P0056 0106 


LDA^ CCMLOC 
STA- I 
END Q 

LDA- (ZERO), 
EOR^ HMDAT,D 
SAZ CCH32 
JMP^ CCM50 


TO COMPARE DATA 

SET UP CORE LOG. 


I CORE DATA - MM DATA 

SKIP DATA MATCHED 
TO PRINT 


EQU CCM32(^) 
LDA- I 


CHECK IF ALL DONE 


SUB* CCHLOC+1 


SAZ GONE 



o 


o 


N420 0139 


N42Q G 140 


N420C141 

n 

N420Q 142 

V..' 

N-4200 143 


Nh2C0145 

■ O 

N4200146- 

N^2QD147 


N420 0148 


N4200149 

• o 

N420D150 


N42D0151 


N42GQ152 


N4200 153 

o 

N-+20 0 15 5 


N4200156 

o 

N 420 015 7 

N420G158 


N^tZOOlSg 


N42001fa0 

l' '( 

N420 0 161 


N420Q162 


N4200163 


N4200164 

^ o 

1 

N4200165 

N4200166 


N4200167 


N4200168 

o 

N4200159 

N42GU 170 


N420ai71 

o 

N4230172 


N4200173 


N4200174 


Nh20Q 175 

c 

N42Q0176 

N4200178 


N4200179 

; O 

N4200180 

N420Q181 


N4200182 


113*4247******** 

o 

N4290184 

N4200 18 5 


113*4248******** 


N4200 188 

o 

N4200189 

N4200190 



o 


o 


CCMRFQ 


PAGE 


5 


date: 01/27/99 



o 

o 


o 

n 


O 

© 


0190 

P0057 

DOFF 


RAO- 

I 

0191 

P0058 

083E 


RAO^ 

CCMLOC+6 

0192 

P0059 

P005A 

C400 X 
7FFF X 


LDA 

CHRSFG 

0193 

PO 058 

01 18 


SAN 

CCM34 

0194 
019 5 

poaoc 

1C07 

TOFF 

* 

JMP-^ 

(EXTOFF ) 
D 

0195 

PQ05D 

E8 03 

GONE 

LDQ=^ 

BASE 

0197 

P0 05F 

F2 03 


LDQ- 

SOMMOR, Q 

0198 

P005F 

1622 


JHP- 

(ZERO ) , Q 

0199 

P0060 

OQOu 

BASE 

NUM 

0 

0200 

P0061 

0 0 0 0 

EXT HA N 

NUM 

0 

0201 

PQ062 

0 0 0 0 

EXT MSG 

MUM 

0 

0202 
020 3 

P0063 

0 0 0 0 

EXTOFF 

if- 

NUM 

0 

020 4 

P0064 

OOQl 

CCM34 

INQ 

1 

0205 

P0 065 

0814 


TRQ 

A 

020 6 

P0066 

98D0 


SU8» 

CCMZ 

0207 

PQ 067 

0 101 


SAZ 

CCM39 

C2G8 

P0068 

18E7 


JMP’^ 

CCM31 

020 9 

PQQ69 

C82A 

CCM39 

LDA^ 

CCMLOG+3 

0210 

P0D6A 

8809 


AOO^ 

CCMZ 

0211 

PD06B 

0122 


SAP 

GCM42 

0212 

P0Q6C 

AO 11 


ANO- 

LPMSK+1 5 

0213 

POQ60 

0825 


RAO^ 

CCMLOC+2 

0214 

PO 06E 

6825 

CCM42 

STA4 

CCMLOC+3 

0215 

P006F 

COFF 


LOA- 

I 

0216 

P0070 

6820 


STA^ 

CCMLOC 

0217 

P0071 

18C7 


JMP^ 

CCM24 


BUMP CORE LOC. BY 1 

CHECK FOR "OX" 

NO "OX" , SKIP 
TO "OFF" 

E EXIT 


"OFF" ADDRESS (FILLED) 


CHECK IF BUFFER EMPTY 


TO REPEAT 

UP DATE MSB AND LSB 


SAVE CURRENT CORE LOCATION 
TO REPEAT 


© 

o 

o 

o 

o 


0220 PC072 4825 CCM50 

0221 POO 73 COFC" 

0222 P0074 6824 

0223 P0075 C819 

0224 P0076 0114 

0225 P0077 0917 

0226 PQ078 QAOA 

0227 P0079 OCGO 

0228 P007A 5CE5 

0229 P007O OAOA CCH52 

0230 P007C 0C04 
G231 P0G7D 5CE3 

0232 P007E OOIA 

0233 PQ07F BAOA 

0234 PQ08D GC02 

0235 P0081 5CDF 

0236 P0082 0012 

0237 POOaS 0014 

0238 PQ084 0025 

0239 P0085 C4QQ X 
P0086 005A X 


DATA UNMATCHED, SET UP TO PRINT 


STQ^ QIND 
LDA- I 
STA^ ICOR 
LOA^ HEADIG 
SAN CCM52 
RAO» HEADIG 
ENA PNTMO 
ENQ 0 

RTJ’^ (EXTHAN) 
ENA PNTMO 
ENQ 4 

RTJ» (EXTHAN) 
ADC ICOR-^ 

ENA PNTMD 
ENQ 2 

RTJ» (EXTHAN) 
ADC CCMLOCi-4-^ 
ADC giMQ-^ 

ADC MMOAT-^ 

LDA CHRSFG 


CHECK IF HEADING BEEN PRINTED 
SET HEADING FLAG 
TO PRINT HEADING 

SET CORE DATA 

TO INSERT MM DATA AND PRINT 
CHECK FOR "DX" 


o 



113 ^ 4248 »--^»^-"' 
1 is-if 424 * 

N4200191 

N4200192 

NH2G0193 

N420 0 19ir 

N42D0195 

N^+ZG 019 6 

N4200197 

N-+200196 

Nt+2uQ199 

N^20 0 20 0 

N42002G1 

N42Q0202 

N42Q 0203 

N42Q 0204 

N4200205 

N420G 206 

N42Q02Q7 

N4200208 

N42G 0 209 

N4200 210 

N4200 211 

N42 u G 21 2 

N4200213 

N42G0214 

N4200215 

N42CG216 


N420Q218 
N4200219 
N420 G22 0 
N42G0221 
N4200222 
N420Q223 
N420 Q22 4 
N42QQ225 
N420022b 
N420Q227 
N4200228 
N4200229 
N4200230 
N42QG 231 
N4200232 
N4200233 
N42G0234 
N42G0235 
N4200236 
N420 0 237 
N42Q0238 


O 

O 

O 

O 

o 

o 

Q 

O 

© 

o 

o 

o 


o 
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0240 P0087 Gill 

0241 P008R 18D3 

0242 P0D89 C8QF 

0243 P008A 60FF 

0244 P00 8B E8 DC 

0245 P0Q8C 18C7 

0247 

0248 P008D 0000 

0249 PD08F 00 00 

0250 PQQ8F GOQO 

0251 P0090 0007 

0252 P0097 0000 

0253 P0098 0000 


SAN CCM199 
JMP=^ TOFF 
CCM199 LDA» ICOR 
STA- I 
LDQ^ QIND 
JHP^ CCM32 


NO, SKIP 

RESTORE I AND Q-REG . 


COUNT NUM 0 
HEADIG NUM 0 
MAX NUM 0 
GCMLOC BZS GCMLOC{7) 
QIND NUM 0 
ICOR NUM 0 


STORAGE 


0255 

0256 

025 7 

0258 

0259 

0260 
0261 
2262 
G263 

0264 

0265 

026 7 
0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 


P0 099 
PC09A 
P009B 
P009C 
PQ09D 
P009E 
PQ09F 
PflOAO 
PO 0 A1 


POOA 2 
P00A3 
P00A4 
PQ 0A5 
P0DA6 
POO A7 
POQAB 


0 BOO 
E0E9 
E622 

01 55 
0133 
98F0 
0137 
0 106 
1CF7 


0124 

98F8 

0132 

0101 

18FA 

08F1 

ICFO 


P0QA9 0060 


** * CHECK 

CORADK NOP 0 

LDQ- EXT8V4 
LDQ- {ZERO),Q 
SQN AD65 
SAM AD32EX 
SUe^ MAX 
SAM AD65EX 
SAZ AD65EX 

AD32EX JMP’^ (CORADK) 

CHECK 

AD65 SAP A065EX 
SU8^ MAX 
SAM AD65EX 
SAZ A065EX 
JMP» AD32EX 

AD65EX RAO^ CORADK 

JMP*' (CORADK) 

HMDAT BZS MMDAT(96) 


CHECK ADDRESSES TO BE WITHIN 32K 


ENTRY 

GET 32K/65K FLAG (32K=0, 6oK=l) 

SKIP ON 65K 
ERROR, OVER 32K 


RETURN 

TO BE WITHIN 65K OR LESS 
SKIP FOR 32K OR SO 

OK, SKIP 
OK, SKIP 
ERROR, GO 
SET NORMAL EXIT 
NORMAL RETURN 


0278 

0279 0002 P 

0280 0 0 03 P 

0281 0120 P 

0282 PQ1Q9 0017 

0283 


EQU SA51{^/96) 

EQU SP5KSA51+1) 
EQU QB51 (SP51^96) 
BSS CDBSl-'^) 


PGM= 0120 ( 288) 


COM = OQOO ( 


0 ) DAT = 0000 ( 


O 


Nh20 0239 
Nh20 0 240 
N^+EQGZ^l 
N4200242 
N420 0243 
N42G0 244 

N42002^6 
N42QG247 
N4200248 
N-+20C249 
N4-20 0 250 
N42Q0251 
Nh200252 


N-+2D 0 254 
N42y 0255 
N4 20 0 25 6 
N 4200 257 
N42Q 0 258 
N42C0259 
N420Q26G 
N42D0261 
N420G262 
N42G 0263 
N42G0264 

N42 j 0 26 6 
N4200267 
N-,20 0268 
N4200 269 
N+20 0270 
N420Q271 
N4200272 
N420Q273 
N4200 274 
N42Q 0275 


}’ 

o 

o 

o 

o 

Q 

o 

o 

o 

o 

o 

o 


N4200277 
N4E00278 
N420G279 
N42G0 280 
N4200281 
N42Q 0282 


O 

O 
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o 


(j 

E Q U I V 

A L E N 

C E S 


r") 

DEE. LINE 

NAME 

VALUE 



0 00 0 

I 

DOPE 

{ 000255) 


0 052 

AMONI 

O0F4 

(000244) 


00 52 

ADISP 

OOEA 

(000234) 

U 

0 0 5R 

L PMSK 

00 02 

(000002) 


0 0 52 

NZERO 

0012 

(000018) 


0 052 

ZROBIT 

0033 

(000051) 

■D 

0 0 53 

El VE 

0 0 43 

(000057) 

0 0 53 

SIX 

0Qh4 

(000068) 


0 053 

ZERO 

00 22 

(000034) 


0 0 53 

ONEBIT 

0 023 

(000035) 

0 

0 0 53 

SIX TEN 

00 27 

(000039) 

0 0 54 

COMMA 

002C 

( DQQ044) 


0 0 5 4 

SLASH 

Q02F 

( 0 D0047) 


0 0 5 4 

ASTRIC 

0 02A 

(000042) 


0 0 55 

EIGHT 

0026 

( 0 0 Q 0 3 8 ) 


0 0 55 

NINE 

0045 

(000069) 


0 05 5 

THREE 

0 0 0 4 

(000004) 


00 5 5 

ONE 

00 0 3 

(000003) 


0 0 55 

TWO 

0024 

(000 036) 

u 

0 0 56 

TEN 

0046 

(000070) 


0 057 

MASK 

00 0 3 

(000003) 


0059 

CHRSLV 

00 0 7 

(000007) 


0060 

ASMOD 

1000 

(004096) 


0 061 

N096 

0060 

(000096) 


0 062 

EXTBV4 

00E9 

( 0 00233) 


0 0 6 5 

RHA N 

000 1 

(000001) 

O 

0 0 66 

MSG 

0 0 0 2 

(000002) 

0 067 

SOMMOR 

0003 

(000003) 


0 068 

lOERR 

00 0 4 

(000004) 


0 069 

LISTLU 

OQQ 5 

(000005) 


0 070 

COMOLU 

0 0 06 

(OOQ006) 

o 

0 071 

NEWMLU 

00 07 

{ 0 00007) 


00 72 

PROGl 

000 8 

(000008) 


0 0 73 

PROG2 

000 9 

(000009) 


0 0 7 4 

BITFLG 

QOOA 

(000010) 

u 

0 075 

BUFCNT 

OOOB 

(000011) 


0 0 76 

FIELD 

QOOC 

(000012) 


0077 

SL ASHE 

0010 

(000016) 


• \ 


o 


referenced at line number 

GG93, 0180, 0187, 0190, 0215, 0221, 
0 162 
0 171 

3151, 0212 


0176, 0182, 0198, 0259 


0 163 

0156, 0167 
0 258 
0 0 94 
0100 
0197 
0 175 


C102 


o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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DATE 




0 078 

3UFEMT 

OQll 


0G79 

BUFFER 

0012 

o 

0 082 

GETFLD 

00 0 2 

0 08 3 

ASCHEX 

00 0 3 


0 0 84 

ASCDEC 

0 0 05 


0 08 5 

fethm 

u 0 0 9 

o 

00 8 6 

PNTMD 

00 0 A 

o 




o 





o 


(0Q0017) Q150 

(000018) 

(OC0002) 0 110 

(000003) 0115 

(000005) 

(000009) 0146 

(000010) 0226, 0229, 0233 


O 

O 

O 

O 


O 

o 

o 

o 



01/27/99 


C' 

o 

o 

o 

o 

Q 

o 

o 

Q 

Q 

C 

o 

o 

o 


o 


CCMREQ 


date: 01/27/99 


SYMBOLS 


DEF.LINE NAME 


0 0 A3 
0112 
0117 
0127 
0 13Q 
013 5 
013 7 
0 140 
Q 143 
0146 
0 15 6 
0163 
016 6 
016 7 
0 169 
0 170 
D 173 
0179 
018? 
0186 
0194 
0196 
0199 
0 200 
0201 
020 ? 
0 20A 
0209 
0 214 
0 2?Q 
0 229 
0 2 42 
0248 
0 2 49 
0 250 

0251 

0252 
0 253 
0257 
0265 


CCMREQ 

CCM3 

CCMCOR 

OOT 

GCM6 

CCMIO 

CGMll 

CCM13 

CCM15 

CCM20 

CCM2 4 

CCMCD 

OTLU 

CCMZ 

CCMM 

CCML 

C C H RT 

CCM30 

CCM31 

CCM32 

TOFF 

GONE 

BASE 

EXTHAN 

EXT MSG 

EXTOFF 

CCM34 

CCM39 

CCM42 

CCM5Q 

CCM52 

CCM199 

COUNT 

HEA niG 

MAX 

CCMLOC 

QIN D 
ICOR 
CORADK 
AD52EX 


ADDRESS 

00 0 0 
0013 
0018 
0022 
002 4 
3029 
0 02B 
0 0 2D 
0 03 0 
0 031 
00 39 
0040 

0043 

0044 
0 046 
0 0 47 
00 49 
0040 
0 05 0 
0 05 4 
G0 5C 
005D 
0C6G 
0061 
0362 
0063 
0 0 6 4 
GO 69 
006E 
0072 
0G7B 
GQ39 
0 080 
008E 
00 8F 
0090 

0097 
00 98 
0099 
QOAl 


referenced at line number 

0 0 43 
0126 
0119 

0096, 0097 

0124 

0133 

0122, 0143, 0153 
0132 
0 140 

0134, 0136, 0142 
0152, 0217 
0164, 0168 
0103 

0157, 0206, 0210 
0159, 0170 
0 161 
0164 
0 173 
0 208 

0184, 0245 

0241 

0189 

0092, G174, 0196 

nnQc;. n-t-ttx. fl-tuS* 


U X o *5 

0092, G174, 0196 

0095, 0114, 0115, 0148, 0228, 0231, 
0101, 0138 
0099, 0194 
0193 
0 207 
0 211 - 
0 185 
0 224 
0 240 

0106, 0118, G123, 0125 

0107, 0223, 0225 

noco nofiQ 


0235 


0107, 0223, 0225 

oioll Olio,’ 0130, 0131, 0135 , 0141, 0149, 015 8, 0160 , 0179 , 0188, 0191, 0209, 0213, 0214, 0216 
0 236 


0220, 0237, 024^ 

0222, 0232, 0242 
0121, 0265, 0273, 0274 
0261, 027? 


o 


o 
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DATE! 

01/27/99 

0 268 

AD65 

aQA2 

0 260 





0 273 

AD65EX 

OOA7 

0 263t 

026 ir, 

0 268, 

0 270 , 

0 271 

0 27 6 

MHO AT 

00 A9 

0 168 , 

0183, 

0238 



G 279 

SA51 

0 0 0 2 

0 2 80 





0 280 

SP51 

00 03 

G 281 





0 281 

DB51 

0 120 

0 2 82 






o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

0 

1 I 

V.- 

o 

o 

o 

o 

o 

o 

o 

o 


CCMRECl 
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date; Cl/27/99 


X T E R 

N A L S 



DEF .LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

oou? 

OFF 

0 023 

0128 

0 0^6 

HANDLE 

0 022 

0127 

Q0 49 

CHRSFG 

0086 

0192, 0239 


CCMREQ 
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date: Qi/27/99 



C-' 

o 


ALPHA BETI 


AD32EX 

0 26 5 

AD65 

BASE 

0199 

BHAN 

CCM15 

0143 

CCH199 

CCM39 

0209 

CCH42 

CCMM 

0169 

CCMREO 

COUNT 

0248 

DB51 

FIVE 

0 053 

GETFLD 

LPMSK 

0052 

MASK 

OFF 

0 047 

ONE 

SA51 

0279 

SIX 

TOFF 

019 4 

TWO 


CAL 

SORT 

0 F 

0 268 

AD65EX 

0273 

0 065 

8ITFLG 

0 0 74 

0242 

GCM20 

0146 

0214 

CCM50 

0 220 

0 043 

CCMRT 

0173 

0 281 

EIGHT 

0 0 55 

0082 

GONE 

0196 

0 057 

MAX 

0 250 

0055 

0NE8IT 

0 053 

0 0 53 

SIXTEN 

Q0 53 

0 055 

ZERO 

0 053 


S Y M B 

0 L S 


ADISP 

0052 

AHONI 

BUFCNT 

0075 

BUFEMT 

CCH2‘+ 

0156 

CCM3 

CCH52 

0229 

CCM6 

CCMZ 

0167 

CHRSFG 

EXTBV4 

0062 

EXTHAN 

HANDLE 

0 0 43 

HEADIG 

MMOAT 

0276 

MSG 

GOT 

0127 

OTLU 

SLASH 

005 4 

SLASHF 

ZROBIT 

0052 



0078 
0112 
013 0 
0049 
020 0 
0249 
Q 06 & 
0166 
0077 



O 

0 


ASCDEC 0084 
BUFFER 0G79 
CCM3D 0179 
CCMCD . 0163 
CHRSLV 0059 
EXTMSG 0201 
I 0 000 

NEWHLU 0071 
PNTMD 0086 
SOMMOR 0067 


ASCHEX 0083 
CCMIO 0135 
CCM31 0182 
CCMCOR 0117 
COMHA 005- 
EXTOFF 0202 
ICOR 0253 
NINE 0055 
PROGl 0072 
SP51 0280 


A SHOD 0 060 

CCHll 013 7 

CCM3 2 0 18 6 

CCML 0 17Q 

COMOLU 0070 

FETMM 0085 

lOERR 0068 

N096 0061 

PR0G2 0073 

TEN 005b 


ASTRIC CQ5h 
CCM13 0140 
CCM34 0204 
CCMLOC 0251 
CORAOK 0257 
FIELD 0C76 
LISTLU 0069 
NZERO 0052 
QIND 0252 
THREE 0655 


C 


U 



o 

c 

o 

c 


( 'l 

V' 


MMMREQ 
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DATES fll/27/99 


000 1 
000 2 
000 3 
OOO 4 
00 0 5 
000 6 
00 0 7 
00 0 8 

00 0 9 
0010 
00 11 
0012 
OOIT 

0014 

0015 

001 6 
0017 
0013 
00 19 
0020 
0021 
0022 

0023 

0024 

0025 

0026 
0 0 27 
0 0 28 
0029 
003 0 

0031 

0032 

0033 
0 03 4 
00 35 
0036 

0038 

0039 

0041 

0042 

0043 

0044 
00 45 
00 46 


H- 

* 

If- 

¥ 

* 

>(• 

.9- 

* 

V- 

¥• 

V' 

V 
V- 
¥• 
>/■ 

V 
V- 
>(■ 
¥■ 
V- 


NAM HMMREQ DECK- ID N44 MSOS 5.0 

MASS STORAGE • OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 




THIS 


* 


PROCESSOR MOVES HASS MEMORY DATA ^ 

FROM ONE segment TO ANOTHER » 

WORD ADDRESSABLE ^ 

If 


SUMMARY- 116 ^’'»^»**-- 
N440QOQ2 
N44Q0Q03 
N440Q004 
NA-tOOQOS 
N4400006 
N443 u 00 7 
N4400008 
Nt400009 
N440 0 010 
N4 40 0 0 1 1 
N44D0012 
N440 0 013 


INPUT FORMAT 


N44Q 0 014 
N440 0015 
N44G001O 
N440 0 017 


MMM,LU,SSMSB,SSLSB,SW,ESMS8,ESLSB,EW, NLU, NSHSB,NSLSB,NW(CR) 

where LU = LU WHERE DATA TO BE MOVED FROM 
SSMSB = START SECTOR MSB 
SSLS8 = START SECTOR LSB 
SW = START WORD 
ESHSB = END SECTOR HSE 
ESLSB = END SECTOR LSB 
EW = END WORD 

NLU = LU WHERE DATA TO BE MOVE TO 
NSMSB = NEW SECTOR MSB 
NSLSB = NEW SECTOR LSB 
NW = NEW WORD 

IF WORD ADDRESS IS EMPTY, ZERO IS ASSUMED 
(OR) = CARRAGE RETURN 


N4400018 
N44C 0019 
N44DG 020 
N44u0021 
N-+40 0 022 
N4400023 
N440 0 02 4 
N4«t 00 025 
N440 0 02b 
Nh-i-O 0027 
N4 4l 0 02 8 
N-+4Q 0 029 
N440 003 0' 
N440 Q 031 
N44u0032 
N-+400 033 
N44Q0034 
N-+40Q035 
N440 0 03 6 


ENTRY NAME 

ENT MMMREQ 


N4400G38 
N4 40 0 0 3 9 


EXTERNALS 

EXT LOGIA 
EXT NUMLU 
EXT OFF 
EXT HANDLE 
EXT CHRSFG 


N-4 40 0 0 41 
N4400042 
N440a043 
Nh4u 0 0 44 
N44Q 0 045 
N440 0 Q 4b 


o 

o 

o 

o 

o 


o 

o 

c 


o 

o 


00 48 * 

0049 00F4 

OOEA 


'EQU* TABLE 

EQU AMONI ($F4) ,ADISP($EA) , LPMSK ( 2 ) , MZ ERO < $12) ,ZR0eiT($33) 


N44D C 048 
N440 0 049 


O 







--- 


MMHREQ. 


PAGE 2 

date: 01/27/99 


) 

o 


0 0 02 
£012 
0 0 33 






0050 

0 0 43 
0 0 44 
0 022 


EQU 

FIVEf $43 ), 

SIX ($44 3 t ZERO ($22) jOHEBIT ($23 ) ,SIXTEN ($27) 

N4400 050 



/ \ 


0 0 23 






( } 
o 

0051 

0 0 27 
0 0 2C 
0 0 2F 
Q02A 


EQU 

COMMA ($20 

,SLASH($2F) ,ASTRIC (S2A) 

NP40Q051 

0052 

0 026 
0 0 45 
0 0 04 


EQU 

EIGHT ($26) 

,NINE($45),THREE(4) ,0NE(33, TW0($24) 

N440 J052 



o 

005 3 

0 0 03 
0 0 24 
0 0 46 


EQU 

TEN($46) 


N4400053 


0054 

00 03 


EQU 

MASK(3) 

ONE BIT MASK 

N440 0 05P 

0 

03 56 

0 0 07 


EQU 

GHRSLV(7) 

LEVEL OF THIS PROGRAM 116^*436 


0057 

1000 


EQU 

ASMOD($1000) OUTPUT ASC MODE 

NhLQOOST 

o 

0058 

0 020 


EQU 

WDXFER (32) 

SIZE TO BE TRANSFERRED (LIMITED BY BUFFER 

SIZEN4400058 

005 0 




PARAMETER LOCATION (OFFSET FROM BASE) 

N4-40 0 060 


0061 

0 0 01 


EQU 

BHANJ 1) 

"HANDLE" 

N9400061 

o 

0062 

0 0 02 


EQU 

MSG (2) 

"MSG" ENTRY 

N44Q0052 

0063 

0 0 03 


EQU 

SOMMOR (3 ) 

"SOHHOR" ENTRY 

N4hQG063 


0064 

0 0 04 


EQU 

I0ERR(4) 

"lOERR" ENTRY 

N 4 H 0 Q 0 o 4 


006 5 

0 0 05 


EQU 

LI3TLU (53 

■LIST OUTPUT "LISTLU" 

N4400065 


005 6 

0 0 06 


EQU 

COMOLU(65 

"COMOLU" 

N44u 0 0 66 

o 

005 7 

0 0 07 


EQU 

NEWMLU(7) 

"NEHMLU" NEW MM LU 

N44Q0067 


0068 

0 0 08 


EQU 

PROGl (3 ) 

"PROGl" 

N4 4'OOGb8 


0069 

0 0 09 


EQU 

PR0G2 (9 ) 

"PR0G2" 

N940 0 069 


007C 

0 0 OA 


EQU 

BITFLG(IO) 

"8ITFLG" 

N4400Q70 

'V 

0071 

00 03 


EQU 

BUFCNT (11) 

"BUFCNT" 

N44QG 071 


007 ? 

00 OC 


EQU 

FIELD (121 

"FIELD" 

N440a072 


0073 

0010 


EQU 

SLASHFU6) 

"SLASHF" 

N440 0 073 


007 4 

0011 


EQU 

BUFEMT ( 17) 

"BUFEMT" 

N44D 0 074 

o 

007 5 

0012 


EQU 

BUFFER (183 

"BUFFER" 

N-+40 0 Q75 


0077 




SUBROUTINE ENTRY COUNT "EQU" 

N4400a77 

o 

0078 

OQ 02 


EQU 

GETFLD ( 2) 

"GETFLD" SUB. 

N4400078 

0079 

0 0 03 


EQU 

ASCHEX (33 

"ASCHEX" SUB. 

N44Q 0 079 


0 0 8 0 

D0Q5 


EQU 

ASCDEC( 5) 

"ASCDEC" SUB. 

N4400 u80 


0081 

00 nq 


EQU 

FETMM (9 ) 

"FETMM" 

N-+4 0 0 0 81 

o 

0082 

oooc 


EQU 

CONFM (12) 

"CONFM" -- PRINT DATA AND CONFIRM 

N440 0 082 

o 

008 4 






N44uQ 034 

008 5 





PROGRAM START 

N44Q0085 


008 6 






N4430006 


a 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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DATES 01/27/99 


0088 

0Q69 

0090 

0091 

0092 

0093 
0D94 
009 5 
009 6 
0097 

009B 

0099 


POOCQ 
PDOOl 
P0 0 02 
P0003 
P0004 
P00Q5 
P00 06 
P00 07 
P0003 
P0009 
POOOA 
POOOB 
POOOC 
PGOOD 


686F 
60FF 
3112 
6800 
OQFE 
El 01 
436A 
C827 
9825 
0 834 
6800 
OOFS 
C102 
6864 


HMHREQ STA^^ BASE 
STA- I 

ADD- BUFFER, 
STA aUFAOD 


LOQ- BHANjI 
STQ^^ EXTHAN 
LDA» OOT+i 
SUB^ DOT 
AAQ A 
STA EXTOFF 

LOA- MSG, I 
STA^ EXTMSG 


SAVE PARAMETER ADD. 
CALCULATE “BUFFER” ADDRESS 

CALCULATE “OFF" ADDRESS 

FETCH "MSG" ADDRESS 


0101 POflOE OAOO 

0102 POOOF 687B 

0103 POOIQ 6877 


0104 

0105 POOH 5800 
P0012 0085 

0106 P0013 6875 

0107 P0014 687B 




ENA 0 
STA^ COUNT 
STA^ MHMLOC+5 

GET 

RTJ LUEXTR 


LU WHERE DATA TO BE MOVED 
TO GET LU. AND SAVE 


STA-> OLDLU 
STA^ SIZMSB 


N4400C88 
N44G 0 089 
NH40009Q 
N4400091 


N-r4C 0 09 2 
N4400 093 
N4400094 
N4400095 
N4^0 0 096 
N440 0 097 


N4^00a98 
N440 0 099 

N440 0101 
N440G1G2 
N440G1D3 
N^40 0 IQi* 
N44u u 10 5 


N 4h 0 0 1 0 6 
N =1--+ 0 li 1 G 7 


0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 
Oil 7 
0118 

0119 

0120 
0121 
Q122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 
013-4 


P0015 

PQ016 

P0017 

P0018 

P0019 

POOIA 

POOIB 

POOIC 

POOlO 

POOIF 

POOIF 

P0020 

PO 021 

P002? 

P0023 

P0024 

P0025 

PO 026 

P0027 

P0028 

PD029 

P002A 

P002B 

P002C 

P002D 


0 A09 
GCOO 
5C59 

0 0 77 
E8 71 
OFAl 
C8 74 
6A66 
C8 73 
6 A 65 
C869 
666F 
0F21 
ODOl 
4867 
0814 
ODFC 

01 48 
A023 
0113 
586E 
685F 
6 8 64 
18E8 
7FFF X 


¥■ 

MHMl 


HMM3 

DOT 


ENA FETMM 
END 0 

RTJ^ (EXTHAN) 
ADC SIZMSB-^ 
LOQ^ COUNT 


QLS 1 
LDA^ SIZHSe 
STA^^ MMMLOCjQ 
LDA^ SIZHS8+1 
STA» MMMLOC+l,Q, 
LDA* OLDLU 
STA» SIZMSB 
QRS 1 
INQ 1 
STQ^ COUNT 
TRQ A 
INQ “3 
S(JZ MMM6 
AND- ONEBIT 
SAN MMM3 


RTJ'-^ LUEXTR 
STA^ NEWLU 
STA'^ SIZMSB 
JMP» MMMl 
ADC HANDLE 


TO EXTRACT MM ADDRESS AND CHECK 


SAVE MM ADD. ACCORDINGLY 


SET UP LOGICAL UNIT FOR MM ADDRESS CHECK 
INCREMENT COUNT BY 1 AND CHECK IF DONE 


SKIP, IT IS DONE ^ 

CHECK IF IT IS FOR NEW ADD. 

NO, SKIP 

GET NEW LU AND SAVE 

SET UP LOGICAL UNIT FOR MM ADDRESS CHECK 
0. "HANDLE” ENTRY 


N 44 j 0 1 0 9 
N44Q G IIG 
N4400111 
N4400 112 
N4400 113 
N44a0114 
N 440 0 11 5 
N440Gli6 

N440 G 11 7 
N4400118 
N440G 119 
N4400 12G 
N-44 j u 121 
N4400122 
N4400123 
N4400124 
N443Q125 
N440 0 12 6 
N44G0127 
N44CC128 
N44'J 0129 
N440 0 13 0 
N4400131 
N 44 G 0 13 2 
N4h00 133 
N4400134 


0135 


0137 

0133 

0139 

014 0 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

015 0 


0162 

0163 

0164 
015 5 
0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 


0179 
018 0 
0181 
0182 


HMMREO 

P002E 7FFF X 


PAGE 
ADC OFF 


1. "OFF* 


DATE: 01/27/99 
ENTRY 


N-:r4aC135 




P002F 

C840 

MMM6 

LDA* 

BASE 

P 0 0 3 0 

60FF 


STA- 

I 

P0 0 31 

cm 


LDA- 

BUFEMT, I 

P0032 

0012 


EOR- 

LPMSKH6 

P 0033 

.0102 


SAZ 

MMM16 

P0Q34 

0C04 

MHH9 

ENQ 

4 

P0035 

1C3C 


JMP-> 

{EXTMSG ) 

P0036 

C84E 

HMM16 

LDA» 

MMMLOC+2 

P0037 

9840 


SUB» 

MMMLOC 

P00 38 

6857 


STA^ 

SIZMS E 

P0039 

0822 


TRA 

Q 

P003A 

C84B 


LDA^ 

MMMLOC-t-3 

P003B 

9848 


SUB^ 

MMMLOC+-1 

P003C 

6854 


STA^ 

SIZLSG 

P0030 

09FE 


INA 

-1 

PG03E 

0172 


SQM 

MMM19 

P003F 

01 52 


SQN 

MHM30 

P0040 

0128 


SAP 

MMM37 

P0041 

18F2 

MMM19 

JMP^ 

HMM9 




MAKE SURE BUFFER IS EMPTY 
INCORRECT FORMAT, GO 

START LOC. MUST BE LESS OR EQUAL TO END 


MSB IS POSITIVE AND NOT 0 


N44QC137 
NAhOOISB 
N44u0139 
Nh4D 0140 
N44001h1 
N44D0142 
Nh 400143 
N440G144 
N‘+‘t00l45 
M440U146 
N440 0147 
N440 0148 
N4400149 
N4400 150 
N4 h00151 
N440 0 Ip 2 
N44G 0 153 
N440 0 15 <4 
N-f 40 O Ip 5 
N4h0 015 6 
N-440 0157 
N44G 0158 
N-+40 0159 
N4-400 ioO 


* 

V- 


CALCULATE SIZE TO BE MOVED, 3 CASES : 

(1) DIFF. MSB =0, SIZ-E = OIFF. LSB 

(2) DIFF. MSB =+, AND DIFF. LSB =- 


P0042 

0901 

MMM30 

INA 

1 

P0 043 

0101 

MMM32 

SAZ 

MMM34 

PO 04u 

0124 


SAP 

MMM37 

P0045 

8011 

MMM34 

ADD- 

LPMSK+15 

P0046 

684A 


STA- 

SIZLSB 

P0047 

OOFE 


INO 

-1 

P0048 

4847 


STQ^ 

SIZMSB 


*V-**>I- 


N-440 0 162 
N4^ 0 0 16 3 

M4‘4li 0 15 4 

M44G0165 


SIZE = HSa- 1 , AND $7FFFi-LSB (D IFF . ) N 440 0 16 6 

■ N-,4GClb7 

N440 0158 
N440G169 
N440 C 170 
N440C171 
N440D 172 
N4400175 
N44i] 0 17 4 
N44Q0175 
N440 0176 
N440 017 7 


(3) DIFF. MSB ■= + , AND 'OlFF. LSB 

SIZE = MSB, AND LSB CDIFF.) 


CALCULATE LSB SIZE 
DECREMENT OIFF. MSB BY 1 


SPECIAL READ/WRITE SEQUENCE IS USED TO ELIMINATE 
POSSIBLE DATA DESTRUCTION IF THE DIFFERENT BETWEEN i.*4^uuxoi 
THE START AND NEW ADO. ARE LESS THAN THE CORE SUFFER N44QC182 


N4400179 

N4400160 

N4400181 


MMMREQ 
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OATES 01/27/99 




i:.; 


i I 


o 


u 


013 3 
0184 
018 5 
0186 
013 7 
0188 
0189 


* 


SIZE. 

tIETHOD USED 



0191 

PC049 

QAOG 

MMM37 

ENA 

0 


0192 

PCOi^A 

6840 


STA» 

COUNT 

0 

0193 

PQ04B 

6842 


STA» 

WRIT 

0194 

P0 04C 

6842 


STA^ 

DONE 


019 5 

P004D 

684A 


STA^ 

LUEXTR 


0196 

P0Q4E 

63 24 


STA^ 

WORDl 

0 

019 7 

Pu 04F 

0A20 


ENA 

WOXFER 

0198 

P0 0 50 

6872 


STA^ 

XFSZ 


0199 
020 0 

P0 051 

E8 42 


LDQ^ 

BTB 

0 

0201 






020 2 

P0Q52 

C843 

MMM40 

LOA^ 

OTRDWR 


020 3 

P0 053 

53 5C 


RTJ^ 

RDWT48 


020 4 

P0054 

5800 


RTJ 

ENOCK 

0 


PC055 

0 0 82 




020 5 

P005o 

0101 


SAZ 

MMM42 


0206 

P0Q57 

181F 


JHP» 

MMM52 


0207 

P0058 

OAFE 

MMM42 

ENA 

-1 

0 

020 8 
020 9 

P0 059 

6837 


STA» 

SIZLSB 


021 0 

P005A 

C838 - 

MMM 44 

LDA-^ 

STZLAT 


0211 

P005B 

6867 

MMM45 

STA^ 

XFSZ 

0 

0212 

P0Q5C 

C816 


LOA^ 

WORDl 

0213 

PO D5D 

0112 


SAN 

MMM47 


0214 

P005E 

18 00 


JHP 

CONFRM 



P0 05F 

0090 




0 

0215 

P0060 

OAOO 

MMM47 

ENA 

0 

0216 

P0061 

68 36 


STA^ 

LUEXTR 


0217 

POO 62 

E328 


LDQv 

WRIT 


0218 

P0063 

0814 


TRQ 

A 


0219 

PO 064 

EA2F 


LDQ^ 

BTB,Q 

0 

0220 

P0065 

0 901 


INA 

1 


0221 

P0 066 

A 0 23 


AND- 

0NE3IT 


022? 

P0Q67 

6826 


STA^ 

WRIT 

0 

0223 

P0068 

C82E 


LDA* 

OTRDWR4-1 

0224 

P00 69 

5846 


RTJ^ 

RDWT48 


0225 

P006A 

C824 


LDA^ 

DONE 

0 

0226 

P006B 

OlOA 


SAZ 

MMM52 

0228 



>(■ 


D 


0229 

P006C 

C824 


LDA^ 

SIZLSB 

0 

0 23 0 

P0 06D 

0135 


SAM 

HHM48 

0231 

P0Q6E 

18E9 


JMP^ 

MMH42 


BUFFER IS DIVIDED INTO 2 PARTS. 

PART 1 IS THE LAST DATA SET (READY TO 
WRITE WHEN PART 2 DATA IS FILLED) FOR 
WRITE. PART 2 CONTAINS THE NEXT DATA 
SET 


READ DATA TO CORE BUFFER 
TO CHECK IF NO MORE DATA 
DATA EXHAUSTED, SKIP 

SET UP SIZE 

CHECK IF CONFIRMATION BEEN REQUESTED 
Y ES SKIP 

TO REQUEST CONFIRMATION 


RESET WRITE FLAG 

SET UP BUFFER LOCATION ACCORDINGLY 


SET UP BUFFER INDEX 
GET WRITE CODE 
IF ••DONE" SET 

DONE SET, CHECK FOR LAST 

TO PROCESS LAST BUFFER 


N4400163 
Nh 40 0184 
N440G185 
N^40018& 
N4*+ 0 0187 
N440 0 18 8 
N44G0189 
N440 Q19G 
N44Q C191 
N440 0 192 
N440D193 
N44 0 0 19 H 
N440 019 5 
N44Q019b 
N440 0197 
NH40Q198 
N440 0199 
N44u 0 20 0 
N44GG 201 
N440 0 202 
Nh4u G203 
N 440 0 20 4 

N440 0 20 5 
N44O 0 20 5 
N44Q0 207 
N440G208 
N4400209 
N4400210 
N44G 0211 
N4400212 
N+40 0 21 5 
N440Q 214 

N44QD215 
N4400216 
N44Q0217 
N4400 218 
N440G219 
N44OO 22c 
N440 0221 
N4400222 
N 44 OO 223 
N440 0 22 4 
N4^D 0 225 
N4400226 


N4400228 
N-.4G 0229 
N440 0 23 0 
N440 0 231 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


HMNREQ 


PAGE 


6 


date: 01/27/99 


0233 PQ06F 0000 

0234 P0070 0000 

0235 PG071 GODO 

0236 PCG72 0000 

0238 

0239 PG073 E8FB 

0240 PC074 E2 C3 

0241 P0075 1622 


BASE NUM 0 
EXTHAN NUM 0 
EXTH3G NUM 0 
WORDl NUM 0 

^ EXI T 

MMH43 LDQ^ BASE 

LOO- SOMMORtQ 
JMP- (ZERO),Q 


PARAMETER AGO. 
••HANDLE" ADD. 
"MSG" LOG. 


EXIT TO ••SOMMOR' 


N‘+‘+C 0 233 
Nh 4 0 0 23 4 
NtM-0 0 255 
N4400235 

N4400238 
Nh40G 239 
N440 0 240 
N4400241 


0243 

0244 

0245 

0246 

0247 

0248 

0249 
0 250 

0251 

0252 

0253 

0254 

0255 

0256 


P0076 
P0077 
PO 078 
P0079 
P007A 
PO 07B 
P007C 
P007D 
P007E 
PO 07F 
P0 08C 
POO 81 


C321 
0102 
0 A20 
18E1 
C810 
09 01 
A 0 23 
68GD 
D8 19 
0 822 
EA13 
1800 


MMM52 


MMM54 


LDA* LUEXTR 
SAZ MHM54 
ENA HDXFER 
JMP» MMM45 
LDA^ COUNT 
IN A 1 
AND- ONEBIT 
STA* COUNT 
RAO* LUEXTR 
TRA Q 
LOQ* 3TB, Q 
JMP* HMM40 


MORE DATA TO BE TRANSFERRED, UPDATE 

CHECK IF BOTH BUFFER BEEN READ 


SET UP BUFFER 


SET BOTH BUFFER BEEN READ 


NL^O 0 243 
N 44 O G 2^*4 
N 44 O 0 245 
N4hG 0 24b 
M^4Q0247 
N 44 Q 0 243 
N44iJ 0 249 
N44QG25G 
N4400251 
N 44 0 G 25 2 
N4 4U 0 253 
N44Q 0 25 4 
N440 0 25 5 
N h4 0 0 25 D 


0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 
0 26 6 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 


P0 082 
P0083 
PO 089 

PQ08A 
P008B 
P008C 
P008D 
PC08E 
P008F 
PO 090 
P0091 
P0092 
P0093 
POQ94 
P0095 
P0096 


00 06 
0 0 00 
aooo 

0 0 89 
0 0 00 
7FFF 
0 0 60 
OGOO 
00 00 
00 0 0 
0 0 00 
Q 000 
0 0 00 
0 0 57 
0 0 77 
0307 
0 507 


HMMLOC BZS MMHLOC16) 

OLDLU NUM 0,0 

NEHLU EQU NEWLU ( OLOLU+1 ) 
COUNT NUM 0 

MAXLJ AOC NUMLU MA^ 

N096 NUM 96 
WRIT NUM 0 
DONE NUM 0 
SIZMSB NUM 0 
SIZLSB NUM 0 
SIZINT NUM 0 
SIZLAT NUM 0 
BTB ADC OVL YBU-RDWTCD 
ADC OVLYBL-ROWTCD 
OTRDWR ADC CHRSLV4$ 100 +$ 20 0 
ADC CHRSLV+$10Q+$400 


MAX. NO. OF LU 


0. READ 

1. WRITE 


N 44 G 0 25 8 
N4400259 
N440 0 260 

N44Q0261 
N44QQ262 
N4 4 0 0 25 3 
N44O 0 26 ^ 
N 44 J 0 265 
N 44 Q 0 26 6 
N 44 Q 0 26 7 
N440 0268 
N44Q0269 
N44G 0 27 0 
N44fl0 271 
N4400272 
N4400275 
N4400274 






EXTRACT AND CHECK LOGICAL UNIT {MM} 


N44aC276 
N440C277 
N 44 O 0278 
N440 0 279 
N44ii 0 28 0 
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DATE: 01/27/99 


0281 

0282 

P0097 

CBOO 

LUEXTR 

NOP 

0 

0283 

P0Q98 

OA 02 


ENA 

GETFLO 

028 4 

PC 099 

0C02 


ENQ 

2 

0285 

P009A 

5CD5 


RT 

(EXTHAN ) 

0286 

PO 09B 

GA 05 


ENA 

A SCOEC 

023 7 

P009C 

5CD3 


RTJ^ 

(EXTHAN) 

0288 

P009D 

OlOD 


SAZ 

LUER 

0289 

P009E 

68 77 


STA’^ 

OVLYBF 

0290 

P0 09F 

0822 


TRA 

Q 

0291 

POOAG 

9 SEA 


SUB^ 

MAXLU 

0292 

POOAl 

09FE 


INA 

-1 

0293 

P00A2 

0128 


SAP 

LUER 

0294 

P00A3 

E6 00 

X 

LDQ 

LOGIA ,Q 

0295 

P00A4 

P00A5 

7FFF 
01 45 

X 

SQZ 

LUER 

029 6 

P00A6 

C208 


LDA- 

8,Q 

0297 

P0QA7 

0F48 


ARS 

11 

0298 

P00A8 

AG05 


AND- 

MASK+2 

0299 

P00A9 

09FD 


INA 

-2 

0300 

POO AA 

0102 


SAZ 

LUGT 

0301 

POOAB 

0CQ9 

LUER 

ENQ 

9 

0302 

POOAC 

1CC4 


JMP^ 

(EXTMSG) 

030 3 
0304 

POOAD 

G8 68 

LUGT 

LDA^‘ 

OVLYBF 

030 5 

POOAE 

1GE8 


JMP^ 

{ LUEXTR ) 


ENTRY 

GET A FIELD 

TO GET LU 
CONVERT TO BINARY 

LU = 0, ERROR 
SAVE LU 


OVER MAX. 


UNDEFINED, ERROR 
GET UNIT CLASS CODE 

HASS MEHORY GLASS IS 2 
ERROR, TO PRINT 

RECALL LU AND EXIT 


0307 






030 8 




4 


0309 




V- 

NOP 

0310 

PO 

OAF 

GBOO 

RDWT48 

0311 

PO 

080 

680E 


STA^ 

0312 

PO 

oei 

4812 


STQ^ 

0313 

PO 

082 

OF 4A 


ARS 

0314 

PO 

0B3 

A023 


AND- 

0315 

PO 

0B4 

G8 22 


TRA 

031 6 

PO 

0 85 

6821 


STA^ 

0317 

PO 

QB6 

CADI 


LOA^ 

0318 

PO 

0B7 

680A 


STA^ 

0319 

PO 

0B8 

0FA2 


QLS 

0320 

PO 

0B9 

CAC8 


LDA» 

0 321 

PO 

QBA 

68 0A 


STA^ 

0322 

PO 

0B8 

CAC7 


LDA^ 

0323 

PO 

OBC 

68 09 


STA'-f 

0324 

PO 

OBO 

54F4 


RTJ- 

0325 

PO 

QBE 

00 00 

RDWTCD 

NUM 

0326 

PO 

OEF 

0 0 09 


ADC 

0327 

PO 

OCO 

0 0 00 


NUM 

0328 

PO 

OCl 

0 00 0 

XFLU 

HUM 

0329 

PD 

0C2 

0 0 20 

XFSZ 

ADC 

033C 

PO 

0C3 

0 OCO 

BU 

NUM 

0331 

PO 

OCi- 

00 OQ 

RDWTM 

NUM 


ROUTINE TO READ OR WRITE 48 WORDS TO/FROM BUFFER 


0 

RDWTCD 

BU 

10 


8YRW 

oLDLu ,a 

XFLU 

2 

MMMLOC,Q 

RDWTM 

MMHLOCfl,Q 

ROWTL 

(AHONI) 

0 

RDWTRN-RDWTCD 

0 

0 

WDXFER 

0 

0 


ENTRY 

SAVE READ/WRITE REOUEST CODE 

BASE ON REAO/WRITE CODE, 

GFT MM LU AND ADDRESS 


GET MM ADDRESS (MSB AND LSB) 


MONITOR REQUEST 

REQUEST CODE (TO BE FILLED) 


MM LU (TO BE FILLED) 

NO. OF WORDS TO BE TRANSF 
BUFFER RELATIVE ADO. (TO 
MSB WORD ADDRESSING 


ER 

BE FILLED) 


N-,40 0281 
N44Q0282 
N-+4G 0 28 3 
N440 0 23 4 
N44Q 0285 
N440G286 
N44DC287 
N440 0 288 
N4400289 
N440 0 29 0 
N44Q0291 
N44Q0292 
N440 0293 
N44Q0294 

N44Q 0295 
N440 0296 
N440G297 
Nh 400298 
N4400299 
N44Ce300 
N44QG301 
N440 U 30 2 
N44003D3 
N4 h0 0 30 4 
N44D0305 


N440 0 307 
N44DQ 308 
N4400309 
N44Q 0310 
N44Q 0 311 
N4400 312 
N4400313 
N440 0 314 
N44C 0 31 5 
N440 0 316 
N4400 317 
N4403318 
N4400 319 
N440032Q 
Nh 4G0 321 
N440 0 32 2 
N4400323 
N44fl0 324 
N4400325 
N4400 326 
N4400 327 
N44U0328 
N44G0329 
N440 0 33 0 
N44Q0 331 


MMMREQ 
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date; 01/27/99 


P00C5 0000 
PQ0C6 14EA 

P0DC7 0163 
P00C8 E8A6 
P00C9 E204 
PGOCA 1622 


POOCB 

POOCC 

POOCD 

PGCCE 

POOCF 

POODO 

POODl 

P00D2 

P00D3 

P00D4 

P0005 

P00D6 


E8 OB 
0FA2 
CA85 
88F3 
0122 
DABl 
AOll 
6A0O 
C898 
60FF 
1CD9 
0000 


ROWTL NUM 0 

JMP- (ADISP) 

If- 

RDWTRN SQP RDEX 
XFER LDQ-> BASE 

LOQ- IOERR,a 
JMP- {ZERO),Q 


RDEX LDQ^ 
QLS 
LDA^ 
ADD* 
SAP 
RAO^ 
AND- 
NOUPM STA^ 
LOA^ 
STA- 
JHP’^ 

BYRW NUM 


BYRW 

2 

MMML0C+1,Q 
XFSZ 
NOUPM 
MMMLOC, Q 

lpmsk+iB 

MMMLOC+l»a 

BASE 

I 

iRDWT48 ) 

0 


OK, SKIP 
EXIT TO "lOERR' 


REAO/WRITE CODE 

UP DATE MM ADDRESS (LSB) 


BUMP MSB 


RESTORE PARAMETER ADD. BASE 
RETURN 


N44G 0 332 
N44QQ333 
N44Q 0 33 4 
N44D 0 33 5 
N440 0 336 
N440 0337 
N 440 0 33 6 

Nh-4 0 0 340 
N440 0 341 
N4H-G 0 342 
N4400343 
N440 0 344 
N440Q345 
N44Q 0 346 
N440 0 347 
N4400348 
N44Q0349 
N440 0350 
N4400351 
N440 0352 




P0QD7 
POODS 
P00D9 
POODA 
POOOB 
POOOC 
POODD 
PO ODF 
POODF 
POOEO 
POOEl 
PQ0E2 
P0 0E3 

P00E4 

P00E5 

P00E6 

P00E7 

P00E8 


0 BOO 
C40Q X 
7FFF X 
0111 
1C28 
C8B3 
0 lOA 
09DF 
58B0 
0101 
0126 
E8AC 
0155 

08 A9 
48AA 
0920 
68AA 
ICEE 


ENDCK 


SAN 

JMP^ 

LDA^ 

SAZ 

INA 

STA^ 

SAZ 

SAP 

LOQ^ 

SON 

RAO» 

STQ^ 

INA 

STA^ 

JMP» 


ghrsfg 

EO 

(EXTOFF ) 

SIZLSB 

E2 

-wdxfer 

SIZLSB 

El 

E2 

SIZMS8 

E4 


N44 00354 

CHECK FOR SIZE TO BE TRANSFERRED, 

CONDITIONS J 

M) MORE TO GO N4-400357 

(2) DONE --- EXTACTLY "DONE*' SET N-+40 0 3p8 

3) DONE NOT EXACT "DONE" SET, SIZE ADJUS TN^40 0 359 

N440 0 36Q 

IN RETURN A-REGISTER = 0 (DONE) N440C361 

A-REGISTER = 1 OR NON-ZERO (MOR EN440 u 3o 2 

K ( f . f , n j"‘. 7 £L ~2 


ENTRY 

CHECK FOR *DX' 

NO, SKIP 

AOJUST^SIZE AND CHECK IF MORE DATA 


DONE 

SIZLSB 

WDXFER 

SIZLAT 

(ENDCK) 


LSB IS DONE , CHECK IF MSB IS SET 
NO MORE, ADJUST SIZE IS NEEDED 

CALCULATE LAST SIZE TO BE TRANSFER 


N4400 363 
N440 0 364 
N440 0365 

N44ii 0366 
N4400367 
N440 0 368 
N, 40 0 369 
N44 u 0370 
N440 0 371 
N4h0 0 372 
N44G0373 
N440 0374 
N4400375 
N440 0 37 6 
N440 0 377 
N4400379 
N440G379 
N4400380 
N4400 381 


MMMREQ 


PAGE 
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DATEJ 01/27/99 


038? 







0383 

P00E9 

ODFE 

E4 

INQ 

-1 

UP DATE REMAINDER 

0384 

POOEA 

48 Ah 


STQ^ 

SIZHSB 


0385 

PQOEB 

8011 


AOD- 

LPHSK+15 


038 6 

POOEC 

68A3 


STA--" 

SIZLSB 


0387 

POOED 

0 AOl 


ENA 

1 


0388 

PO OEE 

18F9 


JMP^ 

E2 



0390 

0391 





PRINT 

FIRST WORD OF BOTH NEW AND OLD ADD. 

0392 



+ 




0393 

POOEF 

C899 

CONFRM 

LDA^ 

NEWLU 


0394 

POOFO 

63 09 


STA^ 

CONLU 

SET UP LOGICAL UNIT AND READ OVER WORD 1 

0395 

PGOFl 

C894 


LDA^^ 

MMMLOC* 4 

GET MSB AND LSB 

0396 

P00F2 

680A 


STA^ 

CON MSB 


0397 

P00F3 

C8 93 


LDA^ 

MMMLOC+5 


0398 

P00F4 

6809 


STA» 

CONLSB 


0399 

P00F5 

54F4 


RTJ- 

( AMONI) 

TO READ OVER WORD 1 

040 0 

P00F6 

03 07 

CONFCD 

ADC 

S300+CH RSLV 


0401 

P00F7 

00 09 


ADC 

CONFRT-CONFCO 


0 40 2 

POOFS 

COQO 


NUM 

0 


040 3 

P00F9 

0 0 0 0 

CONLU 

HUM 

0 

LOGICAL UNIT (FILLED) 

040 4 

POOFA 

0 0 01 


NUM 

1 

1 WORD 

040 5 

POOFR 

OOOB 


ADC 

CONBF-C ONFCO 

BUFFER 

040 6 

POOFC 

0 00 0 

CONNS B 

NUM 

0 

MSB (FILLED) 

04D7 

POOFO 

0 0 00 

CCNLSB 

NUM 

0 

LSB (FILLED) 

0408 

POOFE 

14EA 


JMP- 

1 AOISP) 


0409 



* 




0410 

PO OFF 

01 64 

CONFRT 

SQP 

CONFMX 

I/O OK, SKIP 

0411 

PQIOG 

18C7 


JMP» 

XFER 

TO ERROR 

0 412 

POlOl 

OOCO 

CONBF 

NUM 

0 


0413 

PQ102 

0 0 00 

BUFADD 

NUM 

0 

"BUFFER” ADDRESS 

0414 

PO 103 

00 00 

EXTOFF 

NUM 

0 

"OFF" ADDRESS (FILLED) 

0415 

P0104 

C8FC 

CONFMX 

LDA^ 

CONBF 

MOVE DATA 

Oh16 

P0105 

6CFC 


STA^ 

(BUFADD) 


041 7 

PG1D6 

OAOC 


ENA 

CONFM 


0418 

POlO 7 

QCOl 


FNQ 

1 

(1 WORD AND HEX. DATA) 

0419 

P0103 

5C00 


RTJ 

(EXTHAN ) 



PQ1D9 

FF66 





042 0 

POlOA 

00 OB 


ADC 

OVLYBF-^ 


0421 

POiOB 

CCF6 


LOA^ 

(BUFADD) 

CHECK IF CONFIRMED 

0422 

POIOC 

0114 


SAM 

NOTCON 

MO, SKIP 

0423 

POIGO 

08 0 0 


RAO 

WORDl 

SET CONFIRMED 


PO lOE 

FF63 





042h 

POlOF 

1800 


JMP 

MMM4? 



POllG 

FF4F 





0 42 5 

POlll 

E800 

NO ICON 

LDQ, 

BASE 



P0112 

FF5C 





0426 

P0113 

E2 03 


LDQ- 

SOMMOR, Q 

EXIT (TO "SOHMOR") 

0427 

P0114 

1622 


JMP- 

(ZERO) , Q 



N-t40 0 382 
N44Q0383 
NAs-O 0 38 h 
N44Q 0 38 
N440 0385 
N4‘+0 0 387 
N44D 0386 


N440 0 390 
N440Q391 
N44D0392 
N4400393 
N44D0394 
N4400395 
N4400396 
N‘+4D 0397 
N44Q 0398 
N440 0399 
N4h00400 
N‘+40 0 401 
N‘+hO 0 hO 2 
0403 
N -t40 0 40 4 
N440 0 -fO 5 
N440 0 4 O 6 
Nh4u 0 40 7 
N440 0 40 8 
N«+40 0 409 
Nm-40 0 410 
N440 0 411 
N-+40 0 412 
N440Q 413 
N 44 D 0 4l4 
N440 Q Hi 5 
Nh4Q 0 416 
N44Q 0 Hi 7 
N4400 418 
Nh4Q 0 h1 9 


Nh43 0 42 0 
N4400 h21 
N4hO 0h22 
N440 O 423 

NH4Q0 42 4 

N440 0 h2 5 


N4hOO 426 
N 44 O 0 42 7 


MMMREO 
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date: 01/27/99 


0429 



0430 

P0 115 00 40 

OVLYBF 

0431 

0115 

P OVLYBU 

0432 

0135 

P OVLYBL 


0434 



V 

0435 


00 03 

P 

0 43 & 


00 04 

P 

0437 


0180 

P 

0438 

0439 

P0155 

0 02B 


PGM = 

0180 

i 

384) 


S T 0 R A G 
BZS 0VLYBF(64) 

EDU OVLYBUC OVLYBF) 

EQU OyLYBLlOVLYBF+32) 


EQU SA‘+m^/96) 

EDU SPi+4 (SA44+1 ) 
EQU DB44(SP44^96) 
BSS (DB44-^) 

END 


= 0000 I 0) DAT 


E AND CON 


0000 ( 0 ) 


T A N T N-+40C429 

N44Q 0 430 
N440 0 431 
N44Q0 432 


N440G 434 
N443 0 435 
N44Q 0 436 
N44D0437 
N440 0 438 
N4400 439 


MMMREQ 


DATE: 01/27/99 


PAGE 11 


Q 


EQUIVALENCES 


DEE. LINE 

NAME 

VALUE 


referenced at 

LINE NUMBER 

OQOO 

I 

OOFF 

1000255) 

0 0 89 , 

0 142, 

0350 

0 0L9 

AMONI 

00F4 

(000244) 

C 324, 

0399 


0 0A9 

A DISP 

GOEA 

( 000234) 

0 333 , 

0408 


0049 

LPM5K 

00 0 2 

(000002) 

014-4, 

0 174, 

0347, 0385 

0 0 49 

NZERO 

0012 

(000018) 




00^9 

ZROBIT 

0033 

( 0 00051) 




00 50 

FIVE 

0043 

(000067) 




0 050 

SIX 

0044 

( 000068) 




0 0 50 

ZERO 

0022 

( 000034) 

0 241, 

0338, 

0427 

0 050 

ONEBIT 

0023 

(000035) 

0128, 

0 221, 

0251, 0314 

0 050 

SIXTEN 

0027 

(000039) 




0051 

C CMMA 

0 0 2G 

(000044) 




0 051 

SLASH 

fl02F 

(000047) 




0 051 

ASTRIC 

002A 

(0 00042) 




0 0 52 

EIGHT 

0026 

(900038) 




0052 

NINE 

0045 

(000069) 




0 052 

THREE 

000 4 

( 00Q0Q4) 




00 52 

ONE 

00 03 

(000003) 




0052 

TWO 

0024 

(000036) 




00 53 

TEN 

00 46 

(000070) 




0054 

MASK 

0003 

(000003) 

0 2 98 



0 05 6 

CHRSLV 

00 07 

(000007) 

0273, 

0274 , 

0400 

0 0 57 

ASMOD 

1000 

(004096) 




0 058 

WOXFER 

0020 

(000032) 

0 197, 

0247, 

0329, 0370, 0379 

0 0 61 

BHAN 

0001 

( GOOOOl) 

0 092 



0 062 

MSG 

0002 

(000002) 

0 0 98 



0063 

SOMMOR 

00 0 3 

(000003) 

0240 , 

0426 


0 06 4 

lOERR 

000 4 

(000004) 

0 337 



0 0 6 5 

LISTLU 

0 00 5 

( 0 00005) 




0G6 6 

SOMOLU 

000 6 

(000006) 




0 067 

NEWMLU 

00 0 7 

(000007) 




0068 

PROGl 

0008 

( 0DQ008) 




0069 

PR0G2 

000 9 

(0 G0309) 




00 70 

8ITFLG 

00 9A 

(000010 ) 




0071 

BUFCNT 

GCOB 

(OQOQll) 




0 072 

FIELD 

00 DC 

( 00 0012) 




0073 

SLASHF 

0010 

(0G0016) 




0 07 4 

8UFEMT 

0011 

( 000017) 

0 143 




o 

o 

o 

o 

o 

C! 

o 

o 

0 

o 

o 



HMMREQ 

PAGE 

12 

DATE: 01/27/99 

Q075 

BUFFER 

0012 

(000018^ 

0 090 


0 078 

GETFLD 

0 00 2 

(000002) 

0 233 


0 0 79 

ASCHEX 

00 03 

(000003) 



0 080 

ASCDEC 

000 5 

(000005) 

0236 


00 81 

FETMM 

00 0 9 

(OQOQ09) 

0 110 


0 082 

CONFH 

DOO C 

(000012) 

Q 417 




MMMREQ 


PAGE 13 


DATE: 01/27/99 


o 


o 

S Y M B 0 

L S 


o 

DEF.LINE 

NAME 

ADDRESS 

0 G39 

MMMREQ 

0 00 0 


0 110 

MM Ml 

DQ15 

o 

0133 

MM M3 

D02C 

0134 

DOT 

002D 


0 141 

MMM6 

002F 


0146 

MMM9 

0034 


0149 

MMM16 

0036 


0 16 0 

MMM19 

0041 


0 171 

MMM30 

0042 


0172 

MHM32 

0043 

o 

0174 

MMM34 

0045 

0191 

MMM37 

0049 


0 202 

MHM40 

0 0 52 


0207 

MMM42 

0058 

o 

0 210 

HMM44 

005A 

0 211 

MHM45 

005B 


0215 

MMM47 

0 0 60 


0233 

BASE 

006F 

o 

0234 

EXTHAN 

0070 

0235 

EXTMSG 

0071 


0 23 6 

WORDl 

0072 


0239 

MMM48 

0073 

o 

0245 

HMM52 

0 076 

0 249 

MMM54 

007A 


0259 

MHMLOG 

0082 


0 26 0 

OLOLU 

00 88 

o 

G 261 

NEWLU 

0089 

0262 

COUNT 

0G8A 


0 263 

MAXLU 

0 08B 


0 264 

N096 

003C 

o 

9265 

WRIT 

0 080 

0266 

DONE 

008E 


0 267 

SIZMSB 

0 0 8F 


0268 

SIZLSB 

0090 

r-\ 

0269 

SIZINT 

0091 


0 27 0 

SIZLAT 

0092 


0 271 

BT8 

0 093 


0273 

OTRDWR 

0095 

o 

0 282 

LUEXTR 

0097 

0 301 

LUER 

OOAB 


030 4 

LUGT 

ODAD 


o 


' o 


referenced at IINE NUMBER 

0 0 39 
0133 
0129 

0094, 0095 
0127 
0160 
0145 

0157 

0158 

0172 

0159, 0173 
0256 

0 2 05 , 0 231 
0248 

0213, 0424 


00 88 , 

0141, 

0239, 

0336, 

0349, 

0 42 5 

0 0 93 , 

0112, 

0285, 

0287, 

0419 


0099, 

0147, 

0 302 



0196, 
0 230 

G212, 

0 42 3 




0206 , 
0246 

0226 





0 103, 

0117, 

0119, 

0149, 

015 0 , 

0 153 

0106, 

0 120, 

0261, 

0317 



0131, 

0 39 3 





0102, 
0 291 

0114, 

0124, 

0192, 

Q2ht9, 

0 252 

0193, 

0217, 

0222 




0194, 

0225, 

0377 




0107, 

0113, 

0116, 

0118, 

0121, 

0132 

0155, 

0175, 

0208, 

0229, 

0368, 

0371 

0 210 , 

0 380 





0199 , 

0219, 

0255 




0 202, 

0223 





0105 , 

0 13 0 , 

0195, 

0216, 

0245, 

0 253 

0 288 , 

0293, 

0295 




0300 


O 


0154, 0320, 0322, 03h3, 0346, 0348, 0395, 0397 

0151, 0177, 0374, 0384 
0378, 0386 

0305 


O 

o 

o 

o 

C"'- 

o 

o 

o 

o 

o 

o 

o 

o 

o 


MMMREQ 


C) 



0 310 

RDWT48 

00 AF 


0 325 

RDWTCD 

GOBE 

o 

0328 

XFLU 

OQCl 

0329 

XFSZ 

00C2 


0 330 

BU 

u0C3 


0331 

RDWTM 

G0C4 


0 332 

RDWTL 

D0C5 


0335 

RDWTRN 

00C7 


0336 

XFER 

00C8 


0 341 

RDEX 

OOCB 


0348 

NOUPM 

0 0D2 

o 

Q 352 

BYRW 

0006 


D 364 

ENDCK 

0007 


0368 

EG 

OODC 

o 

0374 

El 

0 0E2 

0581 

E2 

Q0E8 


0383 

E4 

00E9 


0393 

CONFRM 

OOEF 


0 40 0 

CONFCD 

00F6 


0 40 3 

CONLU 

00F9 


0 4C6 

GONMSB 

QOFC 


0407 

CONLS8 

OOFO 

o 

fl 410 

CONFRT 

GOFF 

0 412 

CON BF 

0101 


0 413 

BUFAOD 

0102 


0414 

EXTOFF 

0103 

o 

0 415 

CONFMX 

010 4 

0 425 

NOTCON 

0111 


0 430 

OV'L YBF 

Oil 5 


0 431 

OV'LYBU 

0115 


0 432 

0 VLYBL 

0135 

o 

0435 

SA44 

00 03 


0436 

SP44 

00 0 4 


0437 

OB44 

0180 


PAGE 14 date: 


0 203 , 

0224, 

0351 

0271, 

0272, 

0311, 0326 

3 318 



D 198, 

0211, 

0 344 

0 312 




0321 
0 323 
0 326 
0 411 
0 335 
0 345 


0316, 

0 541 


0 204, 
0 366 
0 372 

0 381 

0 338 

0369, 

0375 

0214 

0373, 

0 40 1 , 
0394 
0396 
Q 398 
0 401 

0 40 5 


0 405, 

0 415 


0 091, 

0416, 

0421 

0 0 97 , 
0 410 
0 422 

0367 

0420, 0 431 

0 289 , 
0271 
0 2 72 
0 436 
0 437 
0 438 

0304, 


01/27/99 


0 43 2 


NMMREQ 


date: 01/27/99 


PAGE 15 


: X T E R 

N A L S 



DEF. LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 0 42 

LOGIA 

00 A4 

0 294 

0 0 43 

NUMLU 

008 B 

0263 

0 044 

OFF 

0G2E 

0135 

0045 

HANDLE 

G02D 

0154 

0046 

CHRSFG 

00D9 

0365 



o 

o 

o 

o 

o 


ASTRIG 0051 
BUFFER 0075 
CONFMX 0415 
EO 0368 
FETMM 0081 
LPMSK 0049 
HMM3 0133 
MMM47 0215 
NEWLU 0261 
OLDLU 0260 
PROG2 0069 
SIXTEN 0050 
TEN 0053 
ZERO 0050 


O 


o 


o 


o 


o 


o 


o 


BASE 

0233 

BHAN 

0061 

BYRW 

0352 

CHRSFG 

0 046 

CONFRM 

0393 

CONFRT 

0410 

El 

0 37 4 

E2 

0 381 

FIELD 

00 72 

FIVE 

0 050 

LUER 

030 1 

LUEXTR 

0282 

MMH30 

0171 

MMH3 2 

0172 

MHM48 

0239 

MMM52 

NINE 

0 245 

NEWHLU 

0067 

0 052 

ONE 

00 52 

ONESIT 

0050 

RDEX 

0341 

RDWT48 

0 310 

SIZINT 

0269 

SIZLAT 

0 27 0 

THREE 

ZROBIT 

0052 

0049 

TWO 

0052 


BITFLG 

0070 

O 

CHRSLV 

0056 


CONLSB 

D407 


E4 

0383 

, o 

GETFLD 

0G73 

LUGT 

030-t 


MMM34 

0174 


MMM5 4 

0249 

o 

N096 

026 4 

DOT 

0134 


ROWTCO 

0325 


SIZLSB 

0268 

- 

HOXFER’ 

0058 



c 


Lie REQ 


PAGE 


1 


DATE! 01/27/99 


000 1 

NAM LICREQ OECK-IO Nh5 MSOS 5.0 

SUMMARY- 

1 1 

00 02 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 


N4500Q02 

0 0 0 3 

^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 


N450 D003 

000i+ 

^ COPYRIGHT CONTROL DATA CORPORATION 1976 


N450Q004 

00 0 5 




Nt5G 0 005 

000 6 




N450 0 006 

00 0 7 



If. Sf. if. ^ ^ if. ^ if. 

N45D 0 00 7 

00 0 8 



-V- 

N450u008 
N450 0009 

00 0 9 


^ THIS PROCESSOR MODIFIES THE CORE 

IMAGE ^ 

0010 


^ DATA (DECIMAL OR ASCII) 


N45 u 0 010 

0011 




N4513G011 

0012 




N45Q 0 012 

0013 

-V- 



N4500G13 

0014 




N45 0 0 014 

0015 


INPUT FORMAT ! 


Nh5Q 0 015 

0016 




N4500Q16 

0017 

if- 

Lie ,L ,B/D, D, 


N45D 0G17 

0018 




N450 0 018 

0019 

3f. 

LAC,L,B/AAA 


N45Q0019 

0020 




N450002D 

0021 


LHC,L ,B/H, H 


NhBU 0021 

0022 




N45Q0022 

0023 

Jf. 

WHERE L = CORE LOC. (HEX.) 


N450 0 02 3 

002h 


B =BAS£ (HEX.) {DEFAULT=0> 


N450 0 024 

0025 


0 =DECIMAL DATA 


N45D0Q25 

0026 


A =ASCII DATA 


N4500026 

0027 


H = HEX. DATA 


N45Q 0 027 

0028 




N45D0Q28 

0029 




N450 0 029 

003 0 




N450 0030 

0031 




N4500031 

0032 


OUTPUT FORMAT ! 


N4500Q32 

0033 

¥ 



N4500033 

0034 


NEW OLD DATA 


N450 0034 

003 5 




N450 0035 

0036 


XXXXXX YYYYYY 


N45Q 0 036 

0037 




N4500037 

0038 


CONFIRMATION ('OK') IS NEEDED BEFORE CHANGE 

N4500038 

0039 




N450 0 039 

0040 




Nh5 0 0 0 4 0 

00 42 


ENTRY NAMES 


N450 0 042 

0043 

ENT LHCREQ 


N-f5Q 0 043 

0044 

ENT LACREQ 


N 45 0 0 04 4 

0045 

ENT LICREQ 


N45D 0 045 

0 0 47 


2 CARDS DELETED 


N450 0047 

0049 


'EQU' TABLE 


N45Q 0 049 


LICREQ 


PAGE 


2 


date: 01/27/99 



{ '' 



0050 

0 GF4 


EQU 

AHONI (SF4) ,ADTSPl$EA3 ,LPMSK(2) ,NZER0($12> ,ZR0BIT($33) 

N+5 j 0 D 5 0 


o 


OOEA 
0 0 02 
0012 
0 0 33 






O 



0051 

0 0 43 


EQU 

FIVE($43>,SIX ($44) , ZERO ($22 ) , ON EBI T ($ 23 ) , SI XTEN ( $27 ) 

N4500051 




0 0 44 





o 

'■J 


0 0 22 
0 0 23 
D 027 







o 

0052 

0 0 2C 
0Q2F 


EQU 

COMMA ($20 ,SLASH($2F) ,ASTRIC ($2A) 

N45QQ052 

- O 



0 0 2A 








005 3 

0 026 


EQU 

EIGHT ($26) .NINE ($45 ) .THREE (4) .ONE (3) . TWO ($24) 

N45Q 0 053 


o 


0 0 45 
0 0 04 






- r\ 



0 0 03 
0 0 24 







o 

005 4 

B 0 46 


EQU 

TEN ($46) 


N450 0 054 


0055 

0 0 03 


EQU 

MASK(3) 

ONE BIT MASK 

N450 0 05 5 



0 0 5 7 

0 0 0 7 


EQU 

CHRSLV ( 7) 

LEVEL OF THIS PROGRAM 1 16^43 6 Q - 


'^'1 

vj 

0058 

1000 


EQU 

ASMOD ($1 00 0 ) 

OUTPUT ASC MODE 

N450G058 


0059 

0 8C2 


EQU 

MASSLU($8C2) 

LIB. MASS MEMORY LU 

N450 0 059 

i \ 


0060 

0 0E9 


EQU 

EXTBV4($E9) 

CORE LOCATION CONTAINS ADO. OF EXTENDED CORE 

N4500060 



0051 

0 0 28 


EQU 

NO40 ( 40 ) 

LOCAL INPUT BUFFER SIZE 

N460 0 06 1 



006 2 

0016 


EQU 

COMLHC(22) 

COMMAND "LHC" INDEX 

N45G 0 06 2 



00 53 

0 0 38 


EQU 

COMLIC (56) 

COMMAND "LIC" INDEX 

N45000&3 


o 

0065 




PARAMETER LOCATION (OFFSET FROM BASE) 

N45 0 G 06 5 

: o 

0066 

0 0 01 


EQU 

HANDLE( 1) 

"HANDLE" 

N450 0 066 


0067 

00 02 


EQU 

MSG (2) 

"MSG" ENTRY 

N450 3067 



0 0 5 8 

0 0 03 


EQU 

SOMMOR (3) 

"SOMMOR" ENTRY 

N45Q 0 068 



0069 

00 04 


EQU 

lOERR (4 ) 

"lOERR" ENTRY 

N450 U 359 


'•J 

0070 

0 0 05 


EQU 

LISTLU (5) 

LIST OUTPUT "LISTLU" 

N4s 0 0 0 7 0 



0071 

00 06 


EQU 

COMOLU( 6) 

"COMOLU" 

N450 0 071 



0072 

00 07 


EQU 

NEWMLU (7) 

"NEWMLU" NEW MM LU 

N4500072 


0 

0073 

0 0 08 


EQU 

PROGl (8 ) 

"PROGl" 

N4500 073 


007 4 

0 0 09 


EQU 

PR0G2 (9 ) 

"PR0G2" 

N4500074 

i J 


0075 

u 0 0 A 


EQU 

BITFLG( 10) 

"BITFLG" 

N45 0 0 0 7 5 



0076 

00 OB 


EQU 

8UFCNT ( 11) 

"BUFCNT" 

N45G 0 076 


o 

0077 

0 DOC 


EQU 

FIELD (12) 

"FIELD" 

N45J 0 077 


0078 

0010 


EQU 

SLASHF (16) 

"SLASHF" 

N4500078 

; ^ 


0079 

0011 


EQU 

BUFEMT(17) 

"BUFEMT" 

N450U079 


o 

0080 

0 012 


EQU 

BUFFER (18) 

"BUFFER" 

N4500080 


0082 




SUBROUTINE “EQU" POINTERS 

N45ii 0 082 

' C 


0083 

00 02 


EQU 

GETFLD (2) 

"GETFLD" 

N4500 083 



008 4 

00 03 


EQU 

ASCHEX( 3) 

"ASCHEX" 

N45G 0084 


C\ 

008 5 

0 0 05 


EQU 

ASCDEC(5 ) 

“ASCDEC" 

N4500085 

o 


0 0 8 6 

0 0 09 


EQU 

FETHM (9 ) 

"FETHM" CONVERT MH ADD. TO WORD AOORESSINGN45D Q 086 


003 7 

00 OC 


EQU 

CONFM (12) 

'CONFM' PRINT DATA AND REQUEST CONFIRM 

N45Q 0 087 



o 


o 



C ) 


c> 



LICREQ 
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(J 

0089 









N450 0 089 

o 


0090 






Tf. If. If. If. p 

ROGRAM START 


N45CG09U 



0091 




=f- 





N4500091 


C) 

0093 

POOOO 

687D 


LICREQ 

STA^ 

BASE 



Na50 0 093 

o 


0094 


00 00 

P 


EQU 

LHCREQi LICREQ) 



N45D 0 Q 94 


o 

009 5 


0 0 QO 

P 


EQU 

LACREQ( LICREQ) 



N45u 0 095 

o 

0096 

POQOl 

60FF 



STA- 

I 



N45GQ 096 


0097 

P00Q2 

8112 



AOD- 

BUFFER, I 



Ni+50 0 097 



0098 

P00 03 

6800 



STA 

BUFADD 



N4500 098 


o 


POOGu 

00 E3 








c 

0099 

PG005 

ClOl 



LDA- 

HANDLE, I 



N45GG099 


OlOC 

PODO 6 

6 8 7A 



STA^ 

EXTHAN 



N45u01GD 



0101 

POOC7 

C102 



LOA- 

MSG,I 



N45QQ101 


o 

0102 

P0008 

68 79 



STA» 

EXTHSG 



N45GG 102 

o 

0103 

POO 09 

C0F5 



LDA- 

$F5 

HIGHEST CORE LOCATION USED BY SYSTEM 

N45Q0103 


010 4 

POOQA 

68 7B 



STA^ 

MAX 



N45Q 0104 


O ' 

0106 

PO OOB 

QA 00 



ENA 

0 



Nh5j 0 10 6 



010 7 

POCGC 

6873 



STA^ 

LICLOC+1 



N^500107 



G1Q8 

PODOD 

686F 



STA» 

COUNT 



N45001D6 



0109 

POQDE 

GA 02 


LICl 

ENA 

GETFLD 

GET INPUT DATA 


N450Q109 

o 


0110 

POOOF 

0CG4 



ENQ 

4 



N4500110 


0111 

POOlO 

5C70 



RTJ^ 

(EXTHAN ) 



N^SOOlll 



0112 

POOll 

0 A03 



ENA 

A SCHEX 



N450G112 


o 

0113 

P0012 

5G6E 



RTJ^ 

{EXTHAN ) 



N4500113 

o 

0114 

P0013 

0 0 00 


LICVAL 

NUM 

0 



N450Qli4 


0115 

P0014 

E868 



LDQ» 

COUNT 



M45Qail5 



0116 

P0015 

C8F0 



LDA^ 

LICVAL 



N^+sooiie 



0117 

P0016 

6A68 



STA^ 

LICLOC, Q 



N450Q 117 

' o 

’ ] 

QllB 

P0017 

D865 



RAO^ 

COUNT 



N4500118 


Oil 9 

P0Q18 

CIOC 



LDA- 

FIELD, I 



N4500 119 



0120 

P0Q19 

0900 



INA 

-SLASH 



N4500120 


/ '“'n 

0121 

PGOIA 

0107 



SAZ 

LIC6 

SKIP ON SLASH('/» ) 


N4500 121 

• o 

u 

0122 

POOIB 

ODFF 



INQ 

-1 

NOT */S IT FORMAT OK, 


N4500 122 


0123 

POOIC 

0163 



SQP 

LIC4 

NO, ERROR 




0124 

POOID 

0903 



INA 

-COMMA+SLASH 

NOT •/' AND ONLY 1 ENTRY, 

MUST BE COMMA 

N45D0124 


o 

0125 

POQIF 

0111 



SAN 

LIC4 

NOT COMMA, ERROR 


N4500 12 5 

: o 

0126 

POOIF 

i8EE 




LICl 



N4530126 


0127 

P0 02Q 

0C04 


LIC4 

ENQ 

4 

FORMAT ERROR 


Nh500127 



0128 

P0021 

iceo 



JMP-^ 

(EXTHSG ) 



N450Q128 


o 

0129 

P0022 

685A 


LIC6 

STA^ 

COUNT 



N45G0129 

o 

0130 

P0023 

685F 



STA^ 

ASMHIL 



N450 0 130 


0131 

P0024 

6862 



STA^ 

PROTYP 



N450 C 131 



0132 

P0025 

6110 



STA- 

SLASHF,! 

RESET 'SLASH' FLAG 


N45Q0132 


o 

0133 

P0026 

C858 



LDA^ 

LICLOC 

LOCATION + BASE = ACTUAL 

LOCATION 

N4500133 

o 

0134 

P0027 

88 58 



ADD^ 

LICLOC+1 



N450Q134 


0135 

P0028 

6856 



STA^ 

LICLOC 



N45D0135 



o 


i 


o 



o 
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0136 

P0029 

68 00 


STA 

HSB + 2 




PO D2A 

OQEO 




TO CHECK IF CORE LOC. WITHIN LIMIT 

o 

0137 

P002B 

5800 


RTJ 

CORADK 


P002C 

0091 






0138 

P002D 

18F2 


JMP^ 

LIC4 

ERROR, GO 

o 

0140 

P002F 

cm 


LDA- 

BUFEMT, I 

MAKE SURE THERE IS DATA 

0141 

PQ02F 

B012 


EOR- 

LPHSK+1 6 



0142 

P0030 

Dill 


SAN 

LICIO 



0143 

P0031 

18EE 


JHP^ 

LIC4 

NO DATA, ERROR 

o 

0145 

P0D32 

C1G9 

LICIO 

LDA- 

PROG2iI 

CHECK FOR "LHC" 


0146 

P0 033 

09E9 


INA 

-COML HC 



0147 

P0034 

Dili 


SAN 

LICLAC 


o 

0148 

P0035 

18 52 


JMP» 

HEXDAT 

TO PROCESSING HEX. DATA 

0149 

P0036 

0900 

LICLAC 

INA 

-COMLIC + COMLHC CHECK FOR *’LIC” 


015 0 

P0037 

684F 


STA^‘ 

PROTYP 



0151 

P0038 

D84E 


RAO» 

PROTYP 

SET UP DATA TYPE 


0152 

P0 039 

0111 


SAN 

ASCOAT 

SKIP ON "LAC" 


0153 

P003A 

18 2C 


JMP^ 

DECOAT 

FCR "LIC", GO 


0155 



•r 


FOR 

ASCII DATA 

! '» 

•Vw-* 

0156 





o 

0158 





2. ASCII 

DATA PROCESSING 

0159 

P003B 

ElOA 

ASCDAT 

LOQ- 

8ITFLG, I 

GET BYTE POSITION FLAG AND BUFFER POINTER 


0160 

PG03C 

4847 



HILO 



0161 

P003D 

ClOB 


LDA- 

8UFCNT , I 



0162 

P003E 

60FF 


STA- 

I 

SKIP, NO ADVANCE CHARACTER IS NEEDED 

u 

0163 

P003F 

0 142 

AS2 

SQZ 

AS4 


0164 

P004Q 

OCFE 


ENQ 

-1 



0165 

P0Q41 

DOFF 


RAO- 

I 



0166 

P0042 

OOOl 

AS4 

INQ 

1 

GET INPUT TEXT WORD 

o 

015 7 

POO 43 

COOQ 


LOA 

{ BUFADO ) ,I 



P0Q44 

0 0 A3 






0168 

P0045 

483E 


STO^ 

HILO 



0169 

P 0 046 

01 51 


SQN 

ASo 



0170 

P0047 

OF 48 


ARS 

8 



0171 

P0048 

AO OA 

AS6 

AND- 

LPMSK+3 

ISOLATE CHARACTER 


0172 

P0Q49 

6836 


STA^ 

TEMP 

CHECK FOR EOT (END OF TEXT) 

o 

0173 

P004A 

BO OA 


EOR- 

LPMSK+8 

017ii 

PO 04B 

0111 


SAN 

ASS 

NO, SKIP 


0175 
017 6 

PQ04C 

1816 


JMP* 

AS13 

PUT CHARACTER INTO POSITION 

o 

0177 

PG04O 

E835 

ASS 

LOQ-^ 

ASMHIL 

0178 

P004E 

C831 


LDA^ 

TEMP 



0179 

P004F 

0154 


SQN 

ASIO 

PUT CHAR. INTO HI -8-BIT AND INSERT SPACE 


0180 

P0050 

0FC8 


ALS 

8 

o 

0181 

P0051 

0920 


INA 

$20 

LOW-8-BIT 

0182 

P0052 

OCGl 


ENQ 

1 



0183 

P0053 

1805 


JMP» 

AS12 



N45Q Gi3 6 

N^500 13/’ 

H45G 0138 

N45C 0 140 
N450Q141 
H-+50 0 142 
N4500 143 


N450014^ 
N'+BO G 1 46 
M4500147 
Nu5'j 0148 
N-r5G0149 
N45G D150 
M4500151 
N450 0152 
N4500153 


N4500155 
tN4500 156 


Nh50 0 158 
N450 0159 
N450015Q 
N4500161 
N45Q0 162 
N46001&3 
N450 0 16 H 
N4500165 
N4530166 
N4500167 

N4500168 
N4500169 
N450017Q 
N'45u0171 
N450C172 
N450Q173 
N4500174 
N450 0 175 
N4500176 
N45G0177 
N45Q0178 
N45Q 0179 
N45B0180 
N45Q0181 
N4500182 
N45G0183 


C..; 

O 

O 

C") 

r) 

•s,.- 



O 

o 

o 

o 

o 


o 


r\ 



o 
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018 + 

P0054 

C83G 

ASIO 

LDA^- 

0185 

P0055 

B028 


EOR- 

0186 

P0056 

B829 


EOR^ 

0187 

P0 057 

OCOO 


ENQ 

0183 

P0058 

482A 

AS12 

STQ^ 

0189 

P0059 

682B 


STA + 

0190 

P005A 

E822 

AS14 

LDQ^ 

0191 

P005B 

6AC0 


STA 


P0 05C 

OOBC 



0192 

P005D 

E825 


LDQ’^ 

0193 

PO 05E 

G151 


SQN 

0194 

P0 0 5F 

D81D 


RAO» 

0195 

P0Q60 

E823 

AS15 

LDQ^ 

019 6 

P0061 

18D0 


JMP + 

0197 





0198 

PGQ62 

C820 

AS18 

LDA + 

0199 

P0063 

0101 


SAZ 

020 0 

P 0 06 4 

0818 


RAO + 

0201 

P0 065 

1868 

AS20 

JM 

0203 





020 + 

POO 66 

OA02 

OECDAT 

ENA 

0205 

P0067 

0CG6 


ENQ 

0206 

P0063 

5C18 


RTJ’‘ 

020 7 

P0069 

0A05 


ENA 

0208 

PD06A 

5C 16 


RTJ’^ 

0209 

PC-06B 

E811 


LOQ^ 

021 0 

P006C 

6A GO 


STA 


PO 06D 

GO AB 



0211 

PO 06E 

D8 OE 


RAO^ 

0212 

P006F 

E8 OE 


LOQ^ 

0213 

P0070 

C20C 


LDA- 

0214 

P0071 

BO GA 


EOR- 

0215 

P0 072 

0111 


SAN 

0216 

P0G73 

18 5A 


JMP+ 

0217 

P0074 

C20C 

DEC3 

LOA- 

0218 

P0075 

AO OA 


AND- 

0219 

P0076 

0 9D3 


INA 

0220 

P0077 

0101 


SAZ 

0221 

P0078 

13A7 

DEC5 

JMP^ 

0222 

PC079 

18FC 

DEC7 

JMP+ 

0224 





0225 

P007A 

0 0 0 0 

OROINL 

NUM 

022 6 

P0D7B 

0 0 00 

ASTCH 

NUM 

0227 

P0G7C 

0 00 0 

COUNT 

NUM 

0228 

PQ07D 

0 0 00 

BASE 

NUM 

0229 

P007E 

0 0 02 

LICLOC 

BZS 

0230 


0 0 7F 

P 

EQU 

0231 

PQ08 0 

0 0 0 0 

EXTHA N 

NUM 

0232 

P0081 

0 0 00 

EXTH5G 

NUM 

0233 

P0082 

0 0 00 

ASMHIL 

NUM 


CHAR 

ONEBIT+5 

TEMP 

3 

ASHHIL 
CHAR 
COURT 
INPDAT, Q 

ASMHIL 

AS15 

COUNT 

HILO 

AS2 

ASHHIL 

AS20 

COUNT 

CONFRM 


RECALL HI-8-BIT (DELETE SPACE) 

AND INSERT CURRENT CHAR. 

SAVE CHAR. POSITION FLAG (0=HI-8) 

SAVE INPUT TEXT 

CHECK IF UP DATE STORAGE POINTER IS NEEDED 
NO, SKIP 

RECALL INPUT TEXT BYTE POSITION FLAG AND 
REPEAT 

UPDATE INPUT TEXT COUNT IF NEEDED 
TO PRINT DATA AND REOUEST CONFIRM 


1. DECIMAL 
GETFLD 
6 

(EXTHAN ) 

ASCDEC 
(EXTHAN ) 

COUNT 
INPDAT, Q 


DATA 

GET INPUT DATA 


CONVERT TO DEC. 


SAVE INPUT DATA 


COUNT 

BASE 

FIELD, Q 

LPMSK + 8 

DECS 

CONFRM 

FIELD, Q 

LPMSK+8 

-COMMA 

DEC7 

LIC4 

OECOAT 


BUMP STORAGE INDEX BY 1 
CHECK IF END OF TEXT 

NO MORE DATA, TO PRINT 
CHECK FOR COMMA 


FORMAT ERROR, GO 
TO REPEAT 


STORAGE 

ORDINAL NO. 


0 
0 
0 
0 

LIGL0C(2) 

TE.HPC LICLOC + 1 ) 
0 
0 
0 


N450 0184 
N45Q018 5 
N450 0 18 6 
N4500137 
N45Q 0188 
N45Q0189 
N45Q0 190 
N450Q191 

N450 Q 192 
N4500193 
N450 019 + 
N4500195 
N45 0 019 6 
N+500197 
N450Q198 
N450 0 199 
N460 G20Q 
N450G 201 


N450G2Q3 
N4500204 
N45Q0205 
N45DG206 
N450 02G7 
N450 0 208 
N+50 0 2Q9 
N450 0 210 

N4500211 
N45Q0212 
N45UG213 
N450Q21+ 
N45D 0 21 5 
N45 0 G 21 6 
N4500217 
N4500218 
N45D0219 
N450Q 220 
N453 0 221 
N450C222 

N453 0224 
N45G0225 
N45Q0226 
N4500227 
N4500228 
N45j0229 
N450 0 23G 
N45J0231 
N4500232 
N45Q0233 


/* 
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L 


0234 

PO 083 

0 0 0 0 

HILO 

NUM 

0 



N450Q234 


0235 

P0084 

0 0 0 0 

CHAR 

NUM 

0 



N450 0235 


O 

0236 

PG085 

0 0 0 0 

MAX 

NUM 

0 



N^50 0 23b 


0237 

PQ086 

0 0 0 0 

PROTYP 

NUM 

0 

DATA TYPE 


N450 0237 


o 

0239 





0. HEX. 

data 


N4500239 

• 0 

0240 

P0 087 

0 AGO 

HEXDAT 

ENA 

0 


N450024C 



0241 

P0Q88 

68F2 


STA^ 

ASTCH 



N4530241 



0242 

P0 089 

68F5 


STA^ 

TEMP 



N4500242 



0243 

P0 08A 

0 AG2 

HEX 2 

ENA 

GETFLD 

GET INPUT data 


N4500 243 

; 0 

'■sj 

0244 

P008B 

0C04 


ENQ 

4 



N-+5G 0 244 


0245 

P0 08G 

5CF3 


RTJ'^ 

(EXTHAM ) 



N450Q245 



0246 

P008D 

0 A03 


ENA 

ASCHEX 

CONVERT TO HEX. 


N45G 0 2^+6 



0247 

P008E 

5CF1 


RTJ- 

<EXTH AN ) 



N4500247 

■ 0 


0 2 43 

P00 8F 

0000 

HEXNIUM 

NUM 

0 



N4500248 



0249 








N45GD249 



0250 





TERMINATORS CAN BE (1) COMMA. 


N450 0 250 



0251 






(2) ASTERISK 


N45U0 251 


' 1 

0252 






(3) ••NULL" 


N4500252 



0253 



if. 





N4500253 



0254 

PG090 

CIOC 


LDA- 

FIELD. I 

CHECK FOR COMMA 


N-t500254 



0255 

P0091 

0 9D3 


INA 

-COMMA 



N-+5D0255 


; \ 

0256 

P0D92 

0101 


SAZ 

HEX5 

YES, SKIP 


N450025b 



025 7 

PQ093 

181D 


JMP^ 

HEX20 



N4500257 

, 


0258 

P0094 

C3E6 

HEX5 

LOA* 

ASTCH 

IS ASTERISK SET 


N45QQ 258 


o 

0259 

P0 095 

OilA 


SAN 

HEXIO 



N45G0259 


0260 

P0096 

C8F8 


LOA^ 

HEXNUM 

RECALL DATA AND SAVE 


N4500260 



0261 

P0097 

E8E4 

HEX6 

LDQ» 

COUNT 



N4500261 



0262 

P0098 

6A00 


STA 

INPDAT.Q 



N45D 0262 




PO 099 

C 0 7F 






N4500263 


'J 

0263 

P0Q9A 

08E1 


RAO^ 

COUNT 





0264 

P009B 

CIOC 


LDA- 

FIELD .1 

CHECK FOR END OF TEXT 


N'4 5 0 0 26 4 



0265 

P009C 

BO OA 


EOP- 

LPMSK + 8 



N450 0 265 


w' 

0266 

pQogo 

0111 


SAN 

HEX8 



N45a026& 


0267 

P0Q9E 

182F 


JMP» 

CONFRK 

TO PRINT AND REQUEST FOR 

CONFIRMATION 

N450 0267 


0268 

P009F 

18E7 

HEX8 

JMP«^ 

HEXDAT 



N4500Z68 



0269 



JSf.^ if. 


ASTERISK ENCOUNTERED, 2 CASES 

CAN BE HAPPENED 

N4500269 


o 

0270 






(1) HEX. NO. FOLLOWS ASTERISK , OR 

N450G270 

■ 0 

0271 






(2) NO., ’, AND NO. 


N4500271 


0272 



-V 





N4500272 



0273 

PGOAG 

C8DE 

HEXIO 

LDA^ 

TEMP 



N4500273 


o 

0274 

POOAl 

0 114 


SAN 

HEX12 

SKIP ON HEX. PROCEDED ’ 


N45QQ274 

0 

0275 

P00A2 

G8EC 


LDA-^ 

HEXNUM 

FOR •• ’ H£X"= HEX. DATA 

- CURRENT LOG. 

N4500275 


0276 

P00A3 

98DA 


SUB’ 

LICLOC 



N450Q 276 



0277 

POOA4 

9807 


SUB’ 

COUNT 



N450 0 277 



0278 

P00A5 

18F1 


JMP’ 

HEX6 



N4500278 

0 

0 

0279 








N4500279 


028 0 

P00A6 

C8E8 

HEX 12 

LDA’ 

HEXNUM 

GENERATE LAST 8 BITS (ADDRESSING} 

N4500 280 



0281 

P00A7 

9806 


SU8’ 

LICLOC 

HEX. NO. - CURRENT 

LOG 

N45 0 0 231 


0 

0282 

P0QA8 

9803 


SUB’ 

COUNT 



N45Q0282 

0 

0283 

P00A9 

AO OA 


AND- 

LPMSK+3 



N4500233 

0 

0284 

POD AA 

6 8E4 


SIA’ 

HEXNUM 



N450 0284 

0 

Q 










0 


LICREQ 


PAGE 


date; 01/27/99 


0265 

POOA.e 

C8D3 


LDA^f 

0286 

POOAC 

QFC8 


ALS 

028 7 

PGOAO 

AGIA 


AND- 

0288 

POO A£ 

B3E0 


EOR*^ 

0289 

PGOAF 

18E7 


JMP* 

0290 





0291 





0292 





0293 

PGOBG 

0902 

HEX20 

INA 

0294 

PO OBI 

0116 


SAN 

0295 

P0 0B2 

C8 C8 

HEX22 

LDA^ 

0296 

P00B3 

0117 


SAN 

029 7 

P00B4 

08C6 

HEX24 

RAO^ 

0298 

P00B5 

C8D9 


LOA» 

0299 

P00B6 

68C8 


STA^ 

030 0 

P00B7 

18D2 


JMP^ 

0301 

POO B8 

CiOC 

HEX28 

LOA- 

0302 

P00B9 

BO OA 


EOR- 

030 3 

POGBA 

0 101 


SAZ 

0304 

POOBB 

18BC 

HEX29 

JMP'- 

030 5 

POOBC 

1807 

HEX30 

JMP» 


TEMP 

8 

NZERO + 8 

HEXNUH 

HEX6 


GET COMMAND AND SHIP) IT TO H-8-BIT 
INSERT LOCATION 


DELIMITER IS NOT COMMA 
-ASTRIC+COMHA CHECK FOR ASTERISK 


HEX28 
ASTCH 
HEX29 
ASTCH 
HEXNUM 
TEMP 
HEX2 
FIELD, I 
LPHSK+8 
HEX30 
DEC5 
HEX5 


NOT COMMA AND ASTERISK, SKIP 

MAKE SURE IT IS NOT YET ENCOUNTERED 


SAVE OP-CODE 


EOT CHECK 
ERROR, GO 


N4500285 
N450 0286 
N4500 287 
N45QQ288 
N450 0289 
N45G 0 290 
N4500291 
N45G 0292 
N4500293 
N4530294 
N450G295 
N‘^5G 0296 
N45G 0297 
N453 0298 
N450 0299 
N45Q0300 
N4500301 
N4500302 
N45O 0 30 3 
N450C3Q4 
N4600305 


030 7 

0308 

0309 

POOBO 

OBOO 

V- 

CORAOK 

NOP 

CHECK 

0 

0310 

POQBE 

E0E9 


LOQ- 

EXTBV4 

0311 

POOBF 

E622 


LDQ- 

(ZERO) ,Q 

0312 

POOCO 

0155 


SQN 

AD65 

0 313 

POOC 1 

0133 


SAM 

AD3 2EX 

0314 

P00C2 

9 8C2 


SUB^ 

MAX 

0315 

P00C3 

0137 


SAM 

A055EX 

0315 

P00C4 

0 106 


SAZ 

AD&5EX 

0317 

P00C5 

1CF7 

A032EX 

JMP* 

(CORAOK ) 

0319 
0 32 0 

PD0C6 

0124 

AD65 

SAP 

CHECK 

A065EX 

0321 

P00C7 

93 BD 


SUB^ 

MAX 

0322 

POOC 8 

0132 


SAM 

AD65EX 

0323 

P00C9 

0101 


SAZ 

AD65EX 

0324 

POOCA 

18FA 


JMP» 

AD32EX 

032 5 

POOCB 

D8F1 

AD65EX 

RAO^ 

CORAOK 

0326 

POOCC 

ICFO 


JHP^^ 

(CORAOK) 


ADDRESSES TO BE WITHIN 32K 

entry . - . . > 

GET 32K/65K FLAG (32K=0, 63K=1) 

SKIP ON 65K 
ERROR, OVER 32K 


RETURN 


TO BE WITHIN 65K OR LESS 
SKIP FOR 32K OR SO 


OK, SKIP 
OK, SKIP 
ERROR, GO 
SET NORMAL EXIT 
NORMAL RETURN 


N4500 30 7 
N450 0 30 8 
N450 0 309 
N4500310 
N45Q 0311 
N4500 312 
N4500313 
NaE G 0 314 
N4&00315 
N45Q Q 316 
N4500317 


N45u 0 31 9 
N‘+50 0320 
N4500321 
N450 0 322 
N'+50 0 32 3 
N45Q 0324 
N45 0 0 32 5 
N450 0 32 6 


0328 

0329 
033 0 


ALL 

INPUT IN, READ 

OVER OLD DATA FOR 


CONFIRMATION 

CHECK 

0331 

0332 


GET 

CORF IMAGE MM 

ADD. 


N45 0 0 32 8 
N450fl329 
N450 0 330 
N4600 331 
N45Q 033 2 


o 



LICR 

EQ 


PAGE a 

DATE! ei/27/99 



Q333 

POOCD 

0C04 

CONFRH 

END 

4 



N4500333 


0334 

PO OCE 

C6E9 


LOA- 

($E9) ,0 

THE FOURTH WORD OF EXTENDED CORE 

TABLE 

N45Q0 334 


0335 

PGOCF 

683A 


STA^ 

LSB 



N4500335 


0336 

POODO 

OCOO 


ENQ 

0 



N<450 0 336 


0337 

pooni 

4 8 37 


STQ^ 

MSB 



N45Q0337 


0338 

P00D2 

0A09 


ENA 

FETHM 

CONVERT TO WORD ADDRESSING 


N45Q 0 338 


033 9 

P0 003 

QC02 


ENQ 

2 



Nm.50 0 339 

'■u 

0340 

POOD4 

5CAB 



tEXTHAN ) 



N450 0 340 


0341 

PQ 0D5 

G 0 33 


AOC 

MSB-* 



N4500341 


0342 

P00D6 

C832 


LDA^ 

MSB 

SET UP MSB AND LSB, SO THAN OLD 

DATA IS READ 

N450 0 342 

o 

0343 

P00D7 

6811 


STA^ 

LIOM 

OVER FOR CONFIRMATION 


N*+5Q 0 343 

0344 

P00D8 

682B 


STA^ 

LIOSH 



N45 0 0 344 


0345 

Pu 0 D9 

C830 


LDA» 

LSB 



N450 0345 


0346 

POODA 

680F 


STA^ 

LIOL 



N45Q 0 34b 


0347 

POQDB 

6829 


STA» 

LIOSL 



N4500347 

U 

0348 

POODC 

5801 


RTJ^ 

SELF 



N4-5U 0 348 


0349 

poono 

OBOO 

SELF 

NOP 

0 



N450 0 349 


0350 

POODE 

C8FE 


LDA + 

SELF 



N45Q035C 


0351 

PQODF 

090E 


INA 

LIORT-SELF 

GENERATE RETURN ADD. 


N 45 0 0 351 

1 _> 

0352 

POOEQ 

68 03 


STA^ 

LIOE 



N45 0 0 352 


0353 

PQOEl 

54F4 


RTJ- 

CAMONI) 



N45 D 0 353 


0354 

P00E2 

0 207 

LIOCO 

ADC 

$20 0+CHRSLV 

READ 


N4500354 

0 

0355 

P00E3 

0 0 00 

LIOE 

NUN 

0 

RETURN (FILLED) 


N4p3 0 35 5 

0356 

PQ 0E4 

0 0 00 


NUN 

0 

THREAD 


N45D0356 


0357 

P00E5 

0 8C2 


ADC 

MASSLU 

LU (LIB. UNIT) 


N450 0 357 


0358 

PO 0E6 

0 0 28 


ADC 

NO40 

SIZE 


N4500358 

o 

0359 

P00E7 

0 0 0 0 

BUFADD 

NUM 

0 

BUFFER ADD. (FILLED) 


N45Q0359 

0360 

PO 0E8 

0 000 

LI OH 

NUN 

Q 

MSB (FILLED) 


N450 0 360 


0351 

P0QE9 

0 0 0 0 

LIOL 

NUM 

0 

LSB (FILLED) 


N4500 361 


0362 

POOEA 

14EA 


JHP- 

( ADISP) 



N4500362 


0363 








N4500363 


0364 

POOEB 

0163 

LIORI 

SQP 

XFOK 

NO READ error, SKIP 


N4500354 


0365 

POOEC 

E890 

XFER 

LDQ^ 

BASE 

lOERR 


N45Q0365 


0366 

POO ED 

E2 04 


LDO- 

IOERR»Q 



N450 0 366 


0367 

POOEE 

1622 


JMP- 

(ZERO) ,Q 



N4500367 

'.J 

0368 

POGEF 

E88C 

XFOK 

LDQ» 

COUNT 

GET NO. OF WORDS AND INSERT DATA 

TYPE 

N4500368 


0369 

POOFO 

4811 


STO^ 

LIOZ 



N4500369 


0370 

POOFl 

G894 


LDA^ 

PROTYF 



N45C0 370 


0371 

PDGF2 

0FC8 


ALS 

8 



N4 50 0 371 


0372 

P00F3 

0832 


AAQ 

Q 



N4500 372 


0373 

PO 0F4 

0 AOC 


ENA 

CONFH 

TO PRINT DATA FOR CONFIRMATION 


N^500373 


0374 

P00F5 

5C8A 


RTJ'^ 

JEXTHAN ) 



N450 0374 


0375 

P00F6 

0 022 


ADC 

INPDAT-* 



N450 0375 

■J 

0376 

POOF7 

GCFF 


LOA^ 

(BUFADD) 

RETURN FROM CONFIRMATION CHECK 


N453 0 376 


0377 

P00F8 

0103 


SAZ 

LIOSAV 

OK, WRITE (SAVE MM) 


N45u0377 


037 8 

P00F9 

E883 

LIOFX 

LDQ^ 

BASE 

TO "SOMMOR" 


N4500378 

o 

0379 

POOFA 

E2 03 


LOQ- 

SOMMOR, Q 



N4500 379 

0380 

P 0 0 F B 

1622 


JMP- 

(ZERO) ,Q 



N450033C 


0381 

POOFC 

54F4 

LIOSA V 

RTJ- 

(AMONI) 



NhSOO 381 


0382 

POOFO 

05 07 

LI0V3 

ADC 

$500 + CHRSLV 

WRITE 


N4500332 

o 

0383 

PO OFE 

00 09 


ADC 

LIOVX-LIOVD 

RETURN 


N45Q0383 

0 384 

POOFF 

00 00 


NUM 

0 



N45QG384 


038 5 

POIOG 

0 8C2 


ADC 

MASSLU 



N450 0 385 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

o 

o 

o 


U 

o 

o 

o 


f ) 




LICPEQ 



PAGE 9 

date; 01/27/99 

0386 

POlOl 

0 0 0 0 

LIOZ 

NUM 

0 

SIZE (FILLED) 

038 7 

PG1G2 

OOIB 


ADC 

inpdat-liovd 


0388 

P0103 

0 0 00 

LIOSM 

NUM 

0 

MSB (FILLED) 

0389 

P0104 

0 0 00 

LIOSL 

NUM 

0 

LS8 { FILLED ) 

039 0 

POlO 5 

14EA 


JMP- 

(ADIS F) 


0391 

P01G6 

0164 

LIOVX 

SQP 

SAyOK 


0392 

P0107 

18E4 


JMP^ 

XFER 


0393 

P0108 

0 0 03 

MSB 

BZS 

MSB (3) 


0394 


0109 F 


EQU 

LSBCMSB +1) 


0396 
039 7 



¥ 


SAVE 

DATA IN CORE ACCORDING TO ADDRESS 

0398 



V- 




0399 

POlOB 

C8G0 

SA VOK 

LDA 

LICLOC 

SET UP CORE ADDRESS 


POIOC 

FF71 





040 0 

POIOD 

60FF 


STA- 

I 


0 40 1 

POiOE 

ocoo 


ENQ 

0 

INITIALIZE INDEX 

0402 

POlOF 

CA09 

UPGR 

LOA^ 

INPDATtQ 

GET CURRENT INPUT DATA 

0-+G 3 

PO IIQ 

£722 


STA- 

(ZERO),B 

SAVE IN CORE 

040 4 

POlll 

ODOl 


INO 

1 

BUMP INDEX BY 1 AND CHECK IF DONE 

0405 

PO 112 

0814 


IRQ 

A 


0406 

P0113 

9800 


SUB 

COUNT 



P0114 

FF67 





040 7 

PG115 

0101 


SAZ 

DONE 

SKIP ON DONE 

040 8 

P0116 

18F8 


JHP=^ 

UPCR 

TO REPEAT 

0409 

P0117 

18E1 

DONE 

JMP^ 

LIOEX 


0411 







0412 

PG118 

0 028 

INPDA T 

BZS 

INPDAT(NO40) 



0 414 





0415 


00 03 P 

EQU 

SA56( ^/96) 

0416 


00 04 P 

EQU 

SP56{SA56+1) 

0417 


0180 P 

EQU 

OB56 (SP56'^96) 

0418 

P0140 

0 0 40 

BSS 

(DB56-^) 

Q419 



END 


PGM = 

0180 

( 384) 

COM = 

0000 ( 0) DAT = 000 G 


0 ) 


o 

o 


N45G 0 38b 
N4530337 
N45ai33a8 
N4500389 
N453 0 390 
N450039i 
N4500392 
N4500393 
N4500394 

N450 0 396 
N45G0 397 
N4500398 
N4500399 

N4 5 0 0 40 0 
N450 G 401 
N4500 402 
N45G 0 hO 3 
N45Q 0 40 4 
N450 0 HU 5 
Nh5u 0 40 6 

Nh50 0 40 7 
Nh50 0 408 
N45Q 0 409 

N45 0 D 4l 1 
N450 0 412 


NhSu 0 414 
N<+53 G h 1 5 
N45Q0 416 
N4500 417 
N 45 0 0 ‘tl 8 
N4500419 


o 

o 

o 

n 


Q 

o 

o 

C 

o 

o 

o 

o 

o 


o 


o 


LICREQ 


DATEJ 01/27/99 


o 


PAGE 10 


o 

E Q U I V 

A L E N 

C E S 




o 

o 

DEF.LINE 

name 

VALUE 


REFERENCED AT 

LINE NUMBER 

o 

0 0 00 

I 

OOFF 

(000255) 

0096, 0162, 

0165, 0400 



0 050 

AMONI 

0DF4 

C000244) 

0353, 0381 



— 

0 0 50 

AO ISP 

OOEA 

(000234) 

0362, 0390 


(_-■ 

a 

0 050 

LPMSK 

0 0 02 

(000002) 

0141, 0171, 

0173, 0214, 0218, 0265, 0283, 0302 



0 050 

NZERO 

0012 

(000018) 

0 287 




0050 

ZROBIT 

0033 

(000051) 





0 051 

FIVE 

0043 

(000067) 



o 

u 

0 051 

SIX 

0044 

(000068) 





0 051 

ZERO 

00 22 

(000034) 

0311, 0367, 

0380, 0 403 



0 051 

ONERIT 

0023 

(000035) 

0185 


o 


0051 

SIXTEN 

0027 

(000039) 



o 

0 0 52 

COMMA 

G02C 

(000044) 

0124, 0219, 

0255, 0293 



0052 

SLASH 

002F 

(000047) 

0120, 0124 




0 052 

ASTRIC 

Q02A 

(000042) 

0293 


o 


0 0 53 

EIGHT 

0026 

(000038) 



1 

0 053 

NINE 

0045 

(000069) 





00 53 

THREE 

00 0 4 

(0C0004) 





0 0 53 

ONE 

0 0 0 3 

( 003Q03) 



■ c 

o 

0 0 53 

TWO 

0024 

(0D0036) 



0 054 

TFN 

0046 

(000070) 





0 055 

MASK 

000 3 

(000003) 





0 057 

CHRSLV 

0007 

( 000007) 

0354, 0382 




0 058 

ASMOD 

lOQQ 

(004095) 




u 

0 0 59 

MASSLU 

08C2 

(002242) 

0357, 0385 




0 060 

EXTBV4 

D0E9 

(000233) 

0310 




0 061 

NO40 

0028 

(000040) 

0358, 0412 




0 062 

COMLHC 

0016 

(000022) 

0146, 0149 


O 

o 

0 0 63 

COHLIC 

0038 

(000056) 

0149 




0 066 

HANDLE 

000 1 

(000001) 

0 099 




0 067 

MSG 

00 0 2 

( 0 000 0 2) 

0 101 




0 068 

SOMMOR 

00 0 3 

(000003) 

0 3 79 


o 

■•J 

0 069 

lOFRR 

00 0 4 

(000004) 

Q 366 




0 070 

LISTLU 

000 5 

( 00000 5) 





0 0 71 

COMOLU 

000 6 

( 0 00006) 



o 


0 072 

NEWMLU 

00 0 7 

(000007) 



'•J 

0073 

PROGl 

00 0 8 

(003008) 





0074 

PR0G2 

O0Q9 

(000009) 

0145 




0075 

BITFLG 

000 A 

(000010) 

0 159 


0 









o 







o 








o 


; i 


( ) 


O 


LICREQ 


PAGE il 


DATEJ 01/27/99 



— ^ 
o 
o 
o 


0076 BUFCNT 

0077 FIELD 

0078 SLASHF 

0079 SUFEHT 

0080 BUFFER 

0083 GETFLD 

0084 ASCHEX 

0085 ASCDEC 

0086 FETHH 

0087 CONFH 


OOOB (QQOOll) 
OflOC ( 000 012) 
0010 (000016) 

0011 (0Q0Q17) 

0012 (QGQ018) 
0002 ( 000002 ) 
0003 (000003) 
0005 (000005) 
0009 (000009) 
OOOC C000012) 


0 161 

0119, 0213, 0217, 
0 132 
0 140 
0 0 97 

0109, 0204, 0243 
0112 , 0246 
0 207 
0338 
0 3 73 


0254, 0264, 0301 


o 


o 

C) 

o 

o 

o 

o 

o 



L.‘ 

o 


o 

o 

o 


o 


D 


LICREQ 

PAGE 12 


dates 

01/27/99 



iC; 
•>- . 

o 

S Y M B 0 

L S 








o 

u 

DEF.LINE 

NAME 

ADDRESS 

referenced at 

line number 




: O 


0 0^+3 

LHCREQ 

00 0 0 

0 0 43 








0 Q4tt 

LACREQ 

00 0 0 

0 0 44 







O 

0 045 

LICREQ 

GOOD 

0045 , 

0 094, 

0095 





0109 

LI Cl 

OOOE 

0126 








u 114 

Lie VAL 

0013 

3116 








0127 

LIC4 

0020 

0123, 

0125, 

0133, 0143, 

0221 




o 

0129 

LIC6 

0022 

Q 121 






o 

0145 

LICIQ 

0032 

0142 







0149 

LICLAC 

0036 

0 147 








0159 

ASCDAT 

0 0 3B 

0152 








0163 

AS2 

G03F 

0196 






' T) 


0166 

AS4 

00h2 

0163 







0171 

AS6 

0048 

0169 








017 7 

AS8 

004D 

0174 








0184 

ASIO 

0054 

0179 






' O 


0188 

AS12 

0058 

0183 







0 190 

AS14 

005A 









019 5 

AS15 

0060 

0193 







o 

0198 

AS18 

0062 

0175 






■ ri 

0 201 

AS2C 

0065 

0199 








0 20 4 

OECDAT 

0066 

0 153, 

0222 







0217 

DEC3 

007 4 

3 215 







n 

“*w' 

0 221 

0EG5 

00 78 

0304 






O 

0222 

DEC7 

0079 

0 220 







0 225 

OROINL 

0D7A 









0 226 

ASTCH 

007B 

0 2 41 , 

0258, 

0295, 0297 




0211, 0261, 0263, 0277, 0282, 0368, 0406 , q 

0 

0 22 7 

COUNT 

OG7C 

01C8, 

0115, 

0113, 0129, 

0190, 0194, 

0200, 

0209, 

0228 

BASE 

0070 

0093 , 

0212, 

0365, 0378 





0 229 

Lie LOC 

C07E 

0 107, 

0117, 

0133, 013-, 

0135, 0230, 

0276, 

0 281, 

0399 


0 230 

TEMP 

00 7F 

0172, 

0178, 

018b, 0242, 

Q273, 0285, 

0299 


0374 . Q 

o 

0 231 

EXTHAN 

0080 

0100 , 

0111, 

0113, 0206, 

0203, 0245, 

0247, 

0 340, 

0 232 

EXTMSG 

00 81 

0102, 

0128 






0 233 

ASMHIL 

00 82 

0130, 

0177, 

0188, 0192, 

0193 





0 234 

HILO 

G083 

0160 , 

0168, 

0195 





o 

0235 

CHAR 

008 4 

0184, 

0189 





; O 

0 236 

MA X 

00 8 5 

0 104, 

0 314, 

0 321 





Q 237 

PROTYP 

0086 

0131, 

0 15 0, 

G151, 0370 






0 240 

HEXOAT 

00 87 

0 148 , 

0 26 8 






o 

0 243 

HEX2 

GQ8A 

0 300 


0280, 0284, 

0288, 0298 



o 

0248 

HEXNUM 

008F 

0260 , 

0275, 




0 258 

HEX5 

009 4 

0 2 56, 

0 30 5 






o 










■ n 

o 










^ C 

{ ) 










O 

















_ 

. 



. ... 



-- 




LICREQ 
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DATEJ 

01/27/99 

0 

0 26i 

HEX6 

0097 

0 278, 

0289 


o 


0268 

HEX8 

0D9F 

0266 




o 

0 273 

HEXIQ 

00 AO 

0259 



■ 

0 280 

HEX12 

0DA6 

0 274 




0 293 

HFX20 

DOBO 

0 25Z 





0 295 

HEX22 

•0 0B2 





o 

G 297 

HEX24 

0CB4 

0294 



' o 

0 301 

HEX28 

0088 





0 30 4 

HEX29 

OOBB 

0296 





03 0 5 

HEX3fl 

Q08C 

0 303 


0325, 0326 

, o 

o 

0 309 

CORADK 

ODBD 

0137 , 

0317, 

0317 

AD32EX 

Q0C5 

0313, 

0324 



G 320 

AD65 

00C6 

0 312 



0323 


0325 

A065EX 

QOCB 

0 315, 

0316, 

0320, 0322, 

o 

0333 

CONFRM 

OOCD 

3 2 01 , 

0216, 

0267 

' o 

0 3 49 

SELF 

OODO 

0 3 48 , 

0350, 

0351 



0 354 

LIOCD 

00E2 

0 352 





0355 

LIOE 

00E3 

0167, 

0 37 6 



0359 

BUFAQD 

00E7 

0 098, 

■ C- 

1 

\^/ 

0 360 

LIOM 

00E8 

0 343 





0 361 

LIOL 

00E9 

0 346 





0364 

LIORT 

QOEB 

0351 





0 365 

XFER 

QuEC 

0 392 



■ O 

u 

0368 

XFOK 

OOEF 

0364 





0378 

LIOEX 

00F9 

0 409 





0 381 

LIOSAV 

OOFC 

0 377 

0387 



o 

D 382 

LIOVD 

OOFD 

0 383, 


■ 

0 386 

LIOZ 

0101 

0 3 69 





0 388 

LIOSM 

0103 

0 344 





0389 

LIOSL 

0104 

0 347 




o 

Q 391 

LIO VX 

010 6 

Q 383 


0341, 0342, 

' l'~) 

0 39 4 . 

0393 

MSB 

0108 

Q 136 , 

0337, 


0 394 

LSB 

0109 

0 335 , 

0345 




0399 

SAVOK 

OlOB 

0 391 





0 40 2 

UPGR 

OlOF 

'3 4 08 



■ o 

1 I 

0 409 

DONE 

Oil 7 

0 407 


0262, 0375, 


0 412 

INPDAT 

0118 

0191 , 

0 210, 

0 387, G 40 2 


0 415 

SA56 

00 03 

0 416 




o 

0 416 

SP56 

00 0 4 

0 417 



■ o 

0 417 

DB56 

0180 

0 418 




0 







o 

o 







o 

o 







o 

o 







Q; 
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PAGE 


A L 

P H A 

B £ T I 

CAL 

SORT 


AD3EEX 

0317 

AD65 

0320 

A065EX 

0 

AS18 

0198 

AS2 

0 163 

AS20 

0 

ASMHIL 

0233 

ASMOD 

0 058 

ASTCH 

0 

BUFFER 

0080 

CHAR 

0235 

CHRSLV 

0 

CORAOK 

0309 

COUNT 

0227 

DB56 

0 

EXTBV4 

0060 

EXTHAN 

0 231 

EXTM5G 

0 

HEX12 

0 28 0 

HEX2 

0 243 

HEX20 

0 

HEX6 

0 261 

HEX8 

0 268 

HEXDAT 

0 

LHCREQ 

0043 

LICl 

Q1D9 

LICIO 

0 

Liocn 

0354 

LIOE 

0355 

LIOEX 

0 

LIOVD 

0 38 2 

LIOVX 

0 391 

LIOZ 

0 

MSB 

0393 

MSG 

0 067 

NEHMLU 

0 

PROGl 

0 073 

PR0G2 

0 074 

PROTTP 

0 

SLASHF 

0 078 

SOMMOR 

0 063 

SP5b 

0 

XFOK 

0368 

ZERO 

0 051 

ZROBIT 

Q 


14 


DA 

TE: 01/27/99 



0 F 

S Y M B 

0 L S 

‘f- 




325 

ADISP 

00 50 

AMONI 

0 05 0 

ASIU 

0184 

201 

AS4 

0166 

AS6 

0171 

ASS 

017 7 

226 

ASTRIC 

0052 

BASE 

0228 

BITFLG 

0075 

057 

CCMLHC 

0062 

COMLIC 

0063 

COMMA 

0052 

417 

0EC3 

0217 

DEC5 

0221 

DEC7 

0222 

232 

FETMM 

0086 

FIELD 

0077 

FIVE 

0051 

293 

HEX22 

0295 

HEX24 

0297 

HEX28 

0 301 

240 

HEXNUM 

0248 

HILO 

0234 

I 

0000 

145 

LIC4 

0127 

LICo 

0129 

LICLAC 

0149 

373 

LIOL 

0361 

LIOH 

036 0 

LIORT 

0364 

386 

LISTLU 

0070 

LPMSK 

005 0 

LSB 

0394 

072 

NINE 

0053 

NOhO 

0061 

NZERO 

G050 

237 

SA56 

0 4-15 

SAVOK 

0399 

SELF 

0 349 

416 

050 

TEMP 

0 23 0 

TEN 

0 0 5 4 

THREE 

0 053 


AS12 

0188 

AS14 

0 190 

AS15 

L195 

ASCDAT 

015 9 

ASCDEC 

0 08 5 

ASCHEX 

0084 

BUFAOD 

0359 

BUFCNT 

0076 

8UFEMT 

007? 

COMOLU 

0D71 

CONFM 

0 087 

CONFRM 

G 3 3 3 

DECDAT 

0 2 0 4 

DONE 

0 40 9 

EIGHT 

0 0 53 

GETFLD 

00 83 

HANDLE 

0 06 6 

HEXIO 

C273 

HEX29 

030 4 

HEX30 

0305 

HEX5 

0258 

INPDAT 

0412 

lOERR 

0 069 

LACREQ 

0044 

LICLOC 

0229 

LICREQ 

0045 

LICVAL 

0114 

LIOSAV 

0381 

LIOSL 

0389 

LIOSH 

C388 

MASK 

0 05 5 

MASSLU 

0 05 9 

MAX 

0236 

ONE 

0 0 5 3 

0NE8IT 

0051 

ORDINL 

0225 

SIX 

0051 

SIX TEN. 

0051 

SLASH 

0052 

TWO 

0053 

UPCR 

0 40 2 

XFER 

0 365 


LIOREQ 


PAGE 
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DATE: 01/27/99 


ODOl 
00 0 2 
00 0 3 
000 4 
00 05 
0 0 0 6 
000 7 
000 8 

00 0 9 
0010 
0011 
0012 
0013 
OGl 4 
0015 

001 6 

0017 

0018 
0019 
OG20 
0021 
0022 
0023 
0 02 4 

0025 

0026 
0027 
002 8 
0029 
003 0 

0031 

0032 

0033 
003 4 

0035 

0036 


0038 

0039 
0 04 0 
0041 


NAM LIOREQ DECK-ID N46 MSOS 5.0 

» MASS STORAGE OPERATING SYSTEM VERSION 5.0 

^ SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

^ COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11 

N4600GG2 
N46Q0003 
N460 0 0 0 4 
N463 000 5 


4 

V 

Jf 

if- 

if 

if 

if 

if 

if 

if 

if 

if 

if 

if 

At 

if^if^ ^ifif 

if 

if 

if 


s^\^^if^3fif:fif^ifififif^ififif^ififif3fifi^ifififififn-if if if if >f if if if if if if if if ^ >f if if if ^ if if 
if ^ 


•f THIS PROCESSOR MODIFY ORDINAL DATA WHICH 

» IS DECIMAL OR ASCII FORMAT 



INPUT FORMATS : 
LI0,0,L, B/0, D,D. . .... 


LA0,0 ,L , B/AAAAA 
LH0,O,L,e/H,H,. 


WHERE 0 = ORDINAL NUMBER (DECIMAL) 

L = LOCATION OF PROGRAM (HEX.) 
B = BASE (HEX.) (DEFAULT = 0) 

D = DECIMAL DATA 
A = ASCII DATA 
H = HEX. DATA 


DATA IS PRINT WITH THE OLD ONE FOR COHPARSION 

THEN CONFIRMATION IS REQUIRED BY OPERATOR 


N46Q 0006 
N-,60 0 QQ7 
N468 0003 
N460GQ09 
N4600010 
N4600ail 
N4603012 
N4600 013 
N4600 014 
N46Q 0 015 
N4603016 
N460 0 017 
N460 0 018 
N4600019 
N46a002Q 
N463 0 021 
N4603Q22 
N^600023 
N4 60 0 0 2 4 
N46Q 0 025 
N4630026 
N4600027 
N4 d 3 0 0 2 8 
N4&00Q29 
N460 0030 
N46Q 0 031 
NhdO 0 0 3 2 
N460 G 0 3 3 
N4 6C 0 0 3 
NhBO D 035 
N4600035 


* ENTRY NAMES 

ENT LIOREQ 
ENT LHOREQ 
ENT LAOREQ 


N4b0 3 038 
N46b0039 
N4 60 0 U 4 0 
N4600041 


0043 

0044 


0045 




0QF4 
0 OEA 
00 02 
0012 
0 0 33 
GO 43 
0 0 44 


'EOU' TABLE 

EQU AMONI (SFi*) ,AOISP($EA) ,LPMSK(23 , NZ ERO ( $1 2 ) , Z RO BI T ( $3 3 ) 


EQU FIVE ( S43 ), SIX ($44) , ZERO ($22) ,ONEBIT ($23) ,SIXTEN ($27 ) 


N46Q 0 04 3 
Nn-bO 0 0 4 


N46G 0 045 




o 

O 0 0 4 6 

,-N 0 0 4 7 


o 


o 


o 


o 


o 


o 

o 

o 

o 

o 


0048 

0049 

0051 

0052 

0053 
005 4 
005 5 
00 56 
0 0 5? 
005 8 


0060 
0061 
006 2 
00 6 3 
005 4 
00 65 
00 56 

0067 

0068 
0059 
00 70 

0071 

0072 

0073 
007 4 
0075 


0077 

0078 

0079 

0080 
0081 
0082 
0083 


LIOREQ 


PAGE 
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0 0 22 
0 023 
3 0 27 
0 0 2C 
0 0 2F 
0 02A 
0 0 26 
0 0 45 
0 0 0 4 
0 0 03 
0 0 24 
0 0 45 
0 0 03 

0 0 07 
1000 
0 0 28 
0 8C2 
00E6 
0 0 E7 
0 0 E9 
OOEB 


EQU 

EQU 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


COMMA (S2C) ,SLASHI$2F) ,ASTRIG (32A) 

EIGHT ($26) ,NINE($45),THREE(4) ,ONE ( 3 ) t TWO ( $24 ) 


TEM ($45 ) 

MASK (3) 

CHRSLV(7 ) 
ASMOO ($1000) 
NO40 ( 40 ) 
MASSLUi $8C2 ) 
CSYLEN($E 6 ) 
CSYDIR($E7) 
£XT8V4($E9) 
DIRTRY ($EB) 


ONE BIT MASK 


N460 0 0h 5 
N460 0 0 v7 


N460 0 048 
N-f6Q0Q49 


LEVEL OF THIS PROGRAM 
OUTPUT ASC MODE 
BUFFER SIZE 
LIB. MASS MEMORY UNIT 

LENGTH OF SYSTEM DIRECTORY (IN THIS LOC.) 
INDEX OF FIRST MM DIRECTORY ^ ^ ^ 

LOCATION CONTAINS EXTENDED CORE TABLt 
LOC. CONTAINS LIB. DIRECTORY 


Nt600052 


N4600 053 
N460 0 05 4 
Nt 6 G 0 055 
N463 0055 
N46G3057 
N-+faG 0058 


PARAMETER LOCATION (OFFSET FROM BASE) 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
DO 06 
0 0 07 
0 0 0 8 
0 0 09 
QOQA 
00 OB 
00 OC 
0010 
00 11 
0012 


00 02 
0 0 03 
0 0 05 
00 09 
OOOA 
OOOC 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


HANDLE( 1) 
MSG (2 ) 
SOMMOR(33 
lOERR ('4) 
LISTLU(5) 
COMOLU( 6 ) 
NEWMLU(7) 
PROGl (8 ) 
PROG2 (9 ) 
BITFLG(IO) 
BUFCNT( 11) 
FIELD (12) 
SLASHF (16) 
BUFEMT (17) 
BUFFERdS) 


■HANDL 
"MSG" ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 
LIST OUTPUT -- 
"COMOLU' 
"NEWMLU 
"PROGl" 

"PROG2” 

" 8 ITFLG 
"BUFCNT 
"FIELD" 

"SLASHF 
"BUFEMT 
"BUFFER 


-- "LISTLU' 
NEW HM LU 


SUBROUTINE "EQU" POINTERS 
GETFLD(R) "GETFLO;; 

ASCHEX(3) "ASCHEX" 

ASCDEC(53 "ASCDEC" 

FETMM (9 ) ^FETMM' GET MM ADDRESS 

PNTMO(IO) "PNTMD" PRINT BOTH CORE AND MM DATA 

C0NFH(12) 'CONFM' -- PRINT NEW + OLD DATA FOR CONFIRM 


N460 0 06 0 
N4bG0'361 

Ni+6LiflQ62 
N46Q 0 053 
N-f60 0 Q54 
N4 d3 0 0 5 5 
NhdOOOSd 
N 460 0 05 7 
Nt&G 0 068 
M 4600059 
N460 0 070 
M46D 0 071 
N4 60 0 0 72 
N4600073 
N4 60 G 0 7 4 
N 46 Q 0 07 5 

N4&0 0 07 7 
N460U076 
N45j0i379 
N 46 U G 080 
N46Q008i 
N4600082 
N4600083 


c- 


O 


O 

o 

O 

o 

c 

o 

Q 

r'\ 

c 

c 

o 


o 


o 


0Q85 

0086 


if. 





N4600 085 



PROGRAM 

START 


N463 0 085 


O 

O 


U 


LIOREQ 
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0087 


¥ 


N^6QGG87 


0089 

PQOCG 

6800 


LIOREQ 

STA 

BASE 






POOOl 

0 0 81 









0090 


0 0 00 

P 


EQU 

LHOREQt LIOREQ) 




0091 


0 0 0 0 

P 


EQU 

LAOREQ( LIOREQ) 





0092 

P00 02 

60FF 



STA- 

I 





0093 

P0003 

8112 



ADD- 

BUFFER, I 





0094 

P000 4 

68 00 



STA 

BUFAOD 






PO 005 

0 0 04 









0095 

PG006 

ClOl 



LDA- 

HANDLE, I 





0096 

POOO 7 

68 7F 



STA-'f 

EXTHAN 





0097 

P00G8 

C102 



LDA- 

MSG ,I 





0098 

P00 09 

687E 



STA^“ 

EXTMSG 





010 0 






EXTRACT 

ORDINAL, LOCATION 

AND/OR 

BASE FROM 

0101 







INPUT BUFFER 




0102 

POOOA 

GAOO 



ENA 

0 





010 3 

POOOB 

68 79 



STA^ 

COUNT 





0104 

POOOC 

6819 



STA^ 

3 





010 5 

POOOD 

0 A02 



ENA 

GETFLD 

GET NEXT FIELD ORDINAL 

NO 

• 

0106 

POOCE 

OC 03 



ENQ 

3 





0107 

PDOOF 

5C77 



RTJ^ 

(EXTHAN ) 





010 8 

POOlO 

0A05 



ENA 

ASCDEC 

CONVERT TO DECIAML 




0109 

POOH 

5C75 



RTJ^ 

(EXTHAN ) 





0110 

P0012 

0112 



SAN 

LI05 





0111 

P0013 

0CO4 


LI03 

ENQ 

4 

INCORRECT FORMAT 




0112 

P0014 

1C73 



JMP-'^ 

(EXTMSG) 





0113 

P0015 

58 00 


LI05 

RTJ 

OROCHK 

TO CHECK IF ORDINAL 

IS WITHIN 

LIMIT 


P0016 

00F7 









0114 

P0017 

D A02 



ENA 

GETFLO 

GET NEXT DATA LOCATION 

OF 

PROGRAM 

0115 

P0018 

0C04 



ENQ 

4 





0116 

PD019 

5C60 



RTJ’f 

(EXTHAN) 





0117 

PODIA 

QA 03 



ENA 

ASCHEX 

CONVERT TO HEX. 




0118 

POOiB 

5C6B 



RTJ* 

(EXTHAN ) 





0119 

PQOIC 

0 0 0 0 


L 

NUM 

0 





0120 

POOIQ 

GIOC 



LDA- 

FIELD , I 

CHECK IF BASE UNUSED 




0121 

POOIF 

G9D0 



INA 

-SLASH 





0122 

POOIF 

OIQA 



SAZ 

LlOiO 





0123 

P002Q 

0 A02 



ENA 

GETFLO 

GET BASE 




0124 

P0021 

QC04 



ENQ 

4 





0125 

P002? 

5C 64 



RTJ* 

(EXTHAN ) 





0126 

P0Q23 

0A03 



ENA 

ASCHEX 





0127 

P0 024 

5C62 



RTJ* 

(EXTHAN ) 





0128 

P0025 

0 00 0 


B 

NUM 

0 





0129 

P0026 

CIOC 



LDA- 

FIELD , I 





0130 

PQ027 

09DG 



INA 

-SLASH 





0131 

P0028 

0 101 



SAZ 

LlOlO 





0132 

P0029 

18E9 



JMP* 

LI03 






N46Q 0 089 

Nif60 0G9C 
N46G G G 91 
N46D0092 
N46Q 3 093 
N4fo0Q394 

N4bQ0Qg5 
N46Q 0 09 6 
N460 0 097 
N46G0098 

N460 0 IG 0 
N46Q0101 
N46Q 0102 
N460D103 
N460 G 10 4 
N46C0105 
N46Q0106 
N46C 0107 
N4600108 
N46G0109 
N’-ibQ 0110 
N460Q111 
N460 0 112 
N4600113 

N4 60 0114 
N46CQ115 
N460G116 
N^6Qull7 
N4600 118 
N460 0119 
N46G012C 
N46Q0121 
N46Q0 122 
N46G0123 
N4600124 
N4600125 
Nh 600 126 
N463 0127 
N4&00128 
N4600129 
N4600 130 
N460 0131 
N46fifll32 


0134 




N46G 0134 


( 1 


LIOREa 
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O 



0135 





Ai 


0136 



>!■ 



C) 

0137 

P002A 

6859 

LlOlO 

STA--<^ 

ASTCH 

0138 

P002B 

685E 


STA» 

ASMHIL 


0139 

P002C 

6110 


STA- 

SLASHF, I 


0140 

P002D 

6857 


STA^ 

COUNT 

o 

0141 

P002E 

C8 ED 


LDA» 

L 

0142 

P002F 

88F5 


ADD^ 

3 


0143 

P0G30 

68 55 


STA» 

LIOLOC 


0144 

P0031 

6800 


STA 

MSB + 2 



PQ032 

00D6 




0145 

P0033 

C85A 


LDA'^ 

MAXL 


014 6 

P0034 

0112 


SAN 

LI013 


0147 

P0035 

OCOC 


ENQ 

12 


0148 

P0036 

1C51 


JMP^ 

(EXTMSG ) 


0149 


0 0 37 P 

LI013 

EQU 

LI013{») 


0150 

P0037 

cm 


LOA- 

BUFEMT, I 


0151 

P0 038 

B012 


EOR- 

LPMSK+i 6 

o 

0152 

P0 039 

0111 


SAN 

LIOll 

0153 

P003A 

18D8 


JMP^ 

LI03 


0154 

P003B 

E1G9 

LIOll 

LDO- 

PR0G2 ,I 


0155 

P003C 

0DE8 


INQ 

-23 

o 

0156 

PO 03D 

01 41 


SQZ 

LI012 

0157 

P0G3E 

GDDD 


INQ 

-34 


0158 

P003F 

4849 

LI012 

STQ’^ 

PROTYP 


0159 

P0040 

lAOl 


JMP’^ 

DATPRO, Q 


0160 

F0041 

18 40 

OATPRO 

JMP^ 

HEXOAT 


0161 

P0042 

182D 


JMP» 

DECOAT 


0162 

0163 

P0043 

18 01 


JMP^ 

V »■-! 

ASCDAT 

if- *** H- 

o 








address data in, 


GET INPUT DATA ACCORDINGLY 


ASSEMBLE ADDRESS 


SKIP IF ORDINAL LENGTH NON-ZERO 
ERROR - ZERO LENGTH 
MAKE SURE THERE IS DATA 

ERROR, NO DATA 
CHECK FOR ‘’LHO" 


SAVE REQUEST TYPE 

0. HEX DATA 

1. DECIMAL DATA 

2. ASCII DATA 


N4600135 
N460Q136 
N‘+60 0 13 7 
N460D138 
N^6Q0139 
N46QQ14C! 
Ni+600 i4i 
N+6G0142 
N46GQ143 
N460 0144 

N4600 145 
N-ir60 014 6 
N4b0 0147 
N-e600148 
N460Q149 
N4 60 0 15 0 
N46Q 0 15 1 
N4600152 
N460Q153 
N460 0154 
N46Q 015 5 
N46CC156 
N460 0157 
N460 0 1^ 8 
N4600159 
N46G 0160 
N460Q161 
N4600 162 
N4600153 


O 

O 

O 


O 


f '> 


I 1 




C) 



0165 



if 


2. ASCII 

DATA PROCESSING 

N460 0 16 5 



016 6 

P0044 

El OA 

ASCDAT 

LOQ- 

OITFLG, I 

GET BYTE POSITION FLAG AND BUFFER POINTER 

N460 016 6 



0167 

P0Q45 

4 8 45 


STQ^ 

HILO 


N460 0167 

■ n 

o 

0168 

PG046 

Cl 0 8 


LOA- 

8 UFCNT, I 


N 46 Q 0168 



0169 

P0Q47 

cOFF 


STA- 

I 


N4-60 0 169 



0170 

P0046 

0 142 

AS2 

SQZ 

ASA 

SKIP, NO ADVANCE CHARACTER IS NEEDED 

N46'j 0 17 0 



0171 

P0049 

QCFE 


ENQ 

-1 


N4 60 0 171 

’ i } 

U 

0172 

P004A 

DOFF 


RAO- 

I 


N^-rBO 0 172 



0173 

P004B 

ODOl 

AS4 

INQ 

1 


N‘+60 0 173 



0174 

P004C 

CDOO 


LOA 

(BUFAOO > ,I 

GET INPUT TEXT WORD 

N4b0 0174 




P004O 

0 0 8 C 






: 

1^) 

0175 

PO 04E 

48 3C 


STQ^ 

HILO 


N 4 & 00175 


0176 

P004F 

01 51 


SQN 

AS 6 


N460 0 17 6 



0177 

P0050 

OF 48 


ARS 

8 


Nh 60 0 1 7 7 



0178 

P0051 

AO OA 

AS 6 

AMO- 

LPMSK +8 

ISOLATE CHARACTER 

N ■+ 60 017 6 

0 

u 

0179 

P0Q52 

6839 


STA^ 

TEMP 


N460 0179 


018 0 

P0053 

800A 


EOR- 

LPMSK + 8 

CHECK FOR EOT (END OF TEXT) 

N460 0 18 0 



0181 

P0 054 

0111 


SAN 

AS8 

NO, SKIP 

N460 0181 


O 

0182 
018 3 

P0055 

1816 

if 

JMP^ 

AS18 


N4600182 

N460G183 

0 


018h 

P0056 

E833 

AS8 

LOQ^ 

ASMHIL 

PUT CHARACTER INTO POSITION 

N4600184 



( \ 

•'W-* 


o 


LIOREQ 
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0185 

P0057 

C834 


LOA^^ 

TEMP 


018 6 

P0 058 

01 54 


SON 

ASIO 

— 

0187 

P0D59 

0FC8 


ALS 

8 


0188 

P0 05A 

0920 


INA 

S2G 


0189 

PQ G5B 

OC 01 


ENQ 

1 


0190 

PQ05G 

1805 


JMP» 

AS12 

.... 

0191 

PQ05D 

C82F 

ASIO 

LDA^ 

CHAR 

U 

0192 

PD05E 

BQ 28 


EOR- 

ONEBIT+5 


0193 

P005F 

882C 


EOR» 

TEMP 


0194 

P0060 

OCOO 


ENQ 

0 


019 5 

P0061 

4828 

AS12 

STQ«^ 

ASMHIL 


0196 

P0062 

6 8 2A 


STA’f 

CHAR 


0197 

PQ063 

E821 

AS14 

LDQ^ 

COUNT 


0198 

PGD64 

6A00 


STA 

INPDAT, Q 

/"■N 


PG 065 

0 0 A8 





0199 

P0066 

EB23 


LDQ>^ 

ASMHIL 


020 3 

P0067 

0 1 51 


SQN 

AS15 


0201 

P0068 

D81C 


RAO* 

COUNT 

1' \ 

0202 

P0G69 

E321 

AS15 

LDQ* 

HILO 

I ) 

029 3 

P006A 

18DD 


JHF* 

AS2 


020 4 



* 




0205 

P0 06B 

C81E 

AS18 

LDA* 

ASMHI L 


0206 

P006C 

0101 


SAZ 

AS20 


0207 

P0Q6D 

0817 


RAO* 

COUNT 


0 20 8 

PO 06E 

18 56 

AS20 

JMP* 

CONFRM 


PUT CHAPv. INTO HI-8-BIT AND INSERT SPACE IN 
LOW-8-BIT 


RECALL HI-8-BIT (DELETE SPACE) 

AND INSERT CURRENT CHAR. 

SAVE CHAR. POSITION FLAG (G=HI-8) 


SAVE INPUT TEXT 

CHECK IF UP DATE STORAGE POINTER IS NEEDED 
NO, SKIP 

RECALL INPUT TEXT BYTE POSITION FLAG AND 
REPEAT 

UPDATE INPUT TEXT COUNT IF NEEDED 


TO PRINT DATA AND REQUEST CCNFIRH 


N^60Q18 5 
N460 0136 
N4600187 
N46G0138 
Nh 600 189 
N46Q0190 
N46Q0191 
N46Q0192 
N4600193 
N4600194 
N46C0195 
N46S0196 
N46G0197 
N4b0 0198 

N460 0 199 
N46G 0 20 0 
N460 0 201 
N46O 0 20 2 
N460Q2Q3 
N4&D 0 20 4 
N46g0 205 
N '+6C 0 20 6 
N46Q02Q7 
N46002Q8 


0210 

0211 

0212 

0213 

0214 

0215 

0216 
0 217 

0218 
0219 
022 0 
0221 
0222 

0223 

0224 

0225 
022 6 

0227 

0228 

0 23 0 

0231 

0232 

0233 

0234 


P0 06F 
P0070 
P0071 
P0 072 
P0073 
P0G74 
P0075 
P0076 
PGD77 
P0078 
P0079 
P0G7A 
P0G7B 
P007C 
P007D 
P0Q7E 
P007F 
PO08G 
PQ081 


OA 02 
QC06 
5C15 
0 AG5 
5C13 
E810 
6A00 
0097 
D80D 
E8 OA 
C20C 
BQOA 
0111 
18 48 
C20C 
09D3 
0101 
1892 
18ED 


OECDAT ENA 
ENQ 
RTJ^ 
ENA 
RTJ^ 
LOQ^ 
STA 

RAO^ 
LDQ-^ 
LDA- 
EOR- 
SAN 
JHP» 
DEC3 LOA- 
INA 
SAZ 

DECS JHP» 
DEC7 JMP^ 


1. DECIMAL DATA 
GETFLO GET INPUT DATA 


(EXTHAN ) 
ASCOEC 
(EXTHAN ) 
COUNT 
INPDAT, Q 

COUNT 

BASE 

FIELD, Q 

LPMSK+S 

DEC 3 

CONFRM 

FIELD, Q 

-COMMA 

DEC7 

LI0 3 

DECDAT 


P0082 ODOO 
P0083 0000 
P0084 0000 
P0C85 0000 


BASE NUM 0 
ASTCH NUM 0 
COUNT NUM 0 
LIOLOC NUM 0 


CONVERT TO DEC. 


SAVE INPUT DATA 

BUMP STORAGE INDEX BY 1 

CHECK IF END OF TEXT 


NO MORE DATA, TO PRINT 
CHECK FOR COMMA 


FORMAT ERROR, GO 
TO REPEAT 


STORAGE 


N460O 210 
N4600211 
N4600212 
N-4600 213 
N4600214 
N46OO215 
N463 0 216 
N-460 0217 

N460 0218 
N4600219 
N460Q22G 
N4600 221 
N46G 0222 
N4fo0Q223 
N4&QQ224 
N460 0 225 
N4600226 
N-f6a 0 22 7 
N4b0 0 22 8 

N 460 0 23 0 
N46D0231 
N4600232 
N46OO233 
N460Q234 


1 


LIOREQ 


PAGE 


6 


DATE: 01/E7/99 


Pi3 08 6 
P0Q87 
P0 0 88 
P0089 
P0 03A 
PQ08B 
P008C 
P008D 


0 0 0 0 
00 00 
0 0 0 0 
0 0 0 0 
0 0 0 0 
GOOD 
OQOO 
0 0 GO 


EX THAN 
EXTMS G 
PROTYP 
ASMHIL 
HILO 
T EM P 
CHAR 
MAXL 


NUM 0 
NUM 0 
NUM 0 
NUH 0 
NUM 0 
NUM G 
NUM 0 
NUM 0 


LENGTH OF ORDINAL 


N460 0 23 5 
NA60 0 235 
N‘+6Q0237 
N4600238 
N460 0239 
N 46 O 0240 
N 46 GO 241 
N4600242 


P008E 
P008F 
P0090 
P0 091 
PO 092 
P0093 
PG094 
P0G95 
PO 096 


P0Q97 
PO 098 
P0099 
P009A 
P009B 
P009C 
P009D 
P0 09E 
P009F 
POOAO 
POOAl 
P00A2 
P0CA3 
D00A4 
POOA 5 
P00A6 


P0QA7 
P00A8 
P00A9 
POO AA 
POOAB 
POOAC 


OAOO 
68F3 
68FA 
0 AC2 
OC 04 
5CF2 
a A03 
5CF0 
0 0 00 


Cl OC 
0903 
3101 
181D 
C8E7 
OllA 
C8 F8 
E8E5 
6A 00 
0 0 6D 
08E2 
CIOC 
BO OA 

cm 

18IF 

18E7 


C8E3 

0114 

C 8 EC 

98DA 

9808 

18F1 


HEXDAT ENA 
STA^ 
S T A^ 

HEX2 ENA 
ENQ 
RTJ^ 
ENA 
RTJ- 

HEXNUM NUH 


LDA- 

INA 

SA7 

JMP» 

LDA^ 

SAN 

LDA^ 

LDQ^ 

STA 

RAO^ 

LDA- 

EOR- 

SAN 

JHP’^ 

JMP^ 


0, HEX. 

0 

ASTCH 

TEMP 

GETFLD 

Iexthan ) 

ASCHEX 
IEXTHAN ) 

0 


DATA 


GET INPUT DATA 


CONVERT TO HEX. 


HEX5 


HEX 6 


HEX 8 

If ¥ 


TERMINATORS CAN BE (1) COMMA, 

(2) ASTERISK 
(33 “NULL" 


FIELD, I 

-COMMA 

HEX5 

HEX20 

ASTCH 

HEXIQ 

HEXNUM 

COUNT 

INPDAT,0 

COUNT 

FIELD, I 

LPMSK+8 

HEX 8 

CONFRM 

HEXDAT 


CHECK FOR COMMA 
YES, SKIP 
IS ASTERISK SET 
RECALL DATA AND SAVE 


CHECK FOR END OF TEXT 


TO PRINT AND REQUEST FOR CONFIRMATION 


ASTERISK ENCOUNTERED, 2 CASES CAN BE HAPPENED 

(1) HEX. NO. FOLLOWS ASTERISK, OR 

(2) NO., AND NO. 


HFXIO LDA^ 
SAN 
LDA^ 
SUB^ 
SUB» 
JMP» 


TEMP 

HEX12 

HEXNUM 

LIOLOC 

COUNT 

HEX 6 


SKIP ON HEX. PROCEDED ^ 
FOR ” H£X”= HEX. DATA 


CURRENT LOG. 


POOAD C 8 E 8 HEX12 LDA^ HEXNUM 


GENERATE LAST 8 BITS (ADDRESSING] 


N 46 O 0 244 
N460G245 
N460 0 246 
N4600247 
N-. 6 G 0 248 
N46G0249 
N-+60 0 250 
N4600251 
N46Q G 252 
N463D253 
N46Q0 254 
N4600255 
N 4 &O 0 256 
N46Q0257 
N46Q0258 
N460G259 
N46302oD 
N460 0 261 
N460 0252 
N4600263 
N46Q D 2o4 
Nt600265 
N 46 Q 0 26 o 
N460Q267 

N46Q0268 
N46QQ2&9 
N4600270 
N460 u 27 1 
N46Q 3272 
N46DD273 
N460027W 
N460G275 
N4&Q 0276 
N460 0277 
N4&00278 
N460 a 279 
N46Q 0 230 
N46G0 281 
N460 0282 
N4600283 
N4b0 0 284 
N-,6a 0265 





LIOREQ 
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V-' 

i > 

028 6 

POOAE 

9806 


SUB» 

LIOLOC 

HEX. NO. - CURRENT LOG 

N460 0 28 6 

0 


0287 

POOAF 

9804 


SUB^ 

COUNT 


N46D0287 


O 

0288 

POO 80 

AO OA 


AND- 

LPMSK +8 


N46j 0 238 

0 

0289 

POOEl 

68 E4 


STA’ 

HEXNUM 


N4600289 


0290 

P0082 

C808 


LDA^ 

TEMP 

GET COMMAND ANO SHIP) IT TO H- 8 -BIT 

N46Q 0 290 



0291 

P00B3 

0FC8 


ALS 

3 


N46D0291 



0292 

P0QB4 

AOIA 


AND- 

NZERO +8 


N460 0292 


O 

0293 

POO B5 

B8E0 


EOR^ 

HEXNUM 

INSERT LOCATION 

N460 0 293 

; C.) 


0294 

POOB 6 

18E7 


JMP» 

HEX 6 


N46Q 0294 



0295 



4 




N4600295 


o 

029 6 





DELIMITER IS NOT COMMA 

N46G 0 295 


0297 







N460Q297 

; C..; 


0298 

P00B7 

09 02 

HEX20 

INA 

-ASTRIG+COMMA 

CHECK FOR ASTERISK 

N 460 0 29 8 



0299 

P00B8 

0116 


SAN 

HEX28 

NOT COMMA ANO ASTERISKr SKIP 

N4600299 


n 

0300 

P00B9 

C8C9 

HEX22 

LOA^ 

ASTCH 

MAKE SURE IT IS NOT YET ENCOUNTERED 

N 46 O 0500 

. n 

**w-' 

030 1 

POGBA 

0117 


SAN 

HEX29 


N460 0301 


0302 

PQOBB 

D8C7 

HEX24 

RAO^ 

ASTCH 


N460 0 30 2 



0303 

POOBC 

C809 


LDA^ 

HEXNUM 

SAVE OP-COOE 

N460 G 30 3 


O 

030 4 

POOBD 

68 CD 


STA^ 

TEMP 


N 46 OO 3 O 4 


030 5 

POOBE 

1802 


JMP* 

HEX2 


N 46 OO 305 

( ! 


030 5 

POOBF 

CIOC 

HEX28 

LDA- 

FIELD , I 


N 4-6 0 0 306 



03D 7 

POOCO 

BO OA 


EOR- 

LPMSK +8 

EOT CHECK 

N4630307 


o 

0308 

POOCl 

0101 


SAZ 

HEX3 0 


N 46 O 0 30 6 


030 9 

P00C2 

18BD 

HEX29 

JMP- 

DECS 

ERROR, GO 

N4600309 

■ 


031 0 

P00C3 

1807 

HEX30 

JMP’^ 

HEX 5 


N460G31C 


o 

0 312 







N4600 312 

; 


0313 





ALL INPUT IN, READ OVER OLD DATA FOR 

N4600313 



0314 



* 



CONFIRMATION CHECK 

N4600314 



0315 



* 




M46Q0 315 

■ u 


0316 

PQ0C4 

0AC9 

GONFRM 

ENA 

FETMM 

CONVERT TO WORD ADDRESSING 

N460 0 316 



031 7 

POOC5 

0C02 


ENQ 

2 


N4600317 


o 

0 31 8 

P00C6 

5CBF 


RTJ» 

(EXTHAN ) 


N4600318 

0 

0319 

PC0C7 

0 0 3F 


ADC 

MSB- + 


N4630319 


0320 

P00C8 

C83E 


LDA=^ 

MSB 

SET UP MSB AND LSB, SO THAN OLD DATA IS READ 

N4 63 0 32 0 



0321 

P00C9 

6811 


STA^ 

LIOM 

OVER FOR CONFIRMATION 

N46GG321 


o 

0322 

POOCA 

682B 


STA^ 

LIOSM 


N460 0 322 


0323 

POOCB 

C83C 


LDA-'f 

LSB 


N4600323 

0 


0324 

POOCC 

68 OF 


STA^ 

LIOL 


N4bQ 0 32 4 



0325 

POOCD 

6829 


STA^ 

LIOSL 


N4600325 


0 

0326 

POOCE 

58 01 


RTJ’^ 

SELF 


Nh600326 

0 

0327 

POOCF 

OBGO 

SELF 

NOP 

0 


N460 0 327 


0328 

PGODO 

C8FE 


LOA^ 

SELF 


N46 3 0 32 8 



0 32 9 

POODl 

0 90E 


INA 

LIORT-SELF 

GENERATE RETURN ADO. 

N46B0329 


o 

033 0 

P0QD2 

6803 


STA^ 

LIOE 


N460 0330 

■ 0 

0331 

P00D3 

54F4 


RTJ- 

(AMONI) 


N4&00331 


0332 

P00D4 

0 207 

LIOCO 

AOC 

$20 0+CH RSLV 

READ 

N4630 332 



033 3 

PO 005 

0 0 00 

LIOE 

NUM 

0 

RETURN (FILLED) 

N4600333 


o 

0334 

P0006 

00 00 


NUM 

0 

THREAD 

N46C 0 334 

0 

0335 

PQ0D7 

C8C2 


AOC 

MASSLU 

LU (LIB. UNIT) 

N4600335 


0336 

POODS 

0028 


ADC 

NO40 

SIZE 

N460 0 33 6 



0 

0 

0 



o 

o 

o 

o 

o 


(J 

o 


o 


o 

o 

o 

o 


LIOREQ PAGE 
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0337 P00D9 OOCO 

0338 POOOA 0000 

0339 POODB 0000 
03if0 POODC IAEA 

0341 

0342 POODD 0163 

0343 POGDE E8A3 

0344 POQDF E204 

0345 POOEO 1622 

0346 POOEl E8A2 

0347 P0QE2 4811 

0348 P00E3 C8A4 

0349 P00E4 0FC8 

0350 P00E5 0332 

0351 P0QE6 OAOC 

0352 P00E7 5C9E 

0353 P00E8 0025 

0354 P0QE9 CCEF 

0355 POOEA 0103 

0356 POQEB EB96 

0357 PDOEC E2 03 

0358 POOED 1622 

0359 POOEE 54F4 

0360 PDOEF 0507 

0361 PDDFfl 0009 

0362 POOFl 0000 
0353 POOF2 08C2 

0364 P00F3 0000 

0365 P00F4 OOIE 

0366 P00F5 0000 

0367 P00F6 0000 

0368 P00F7 14EA 

0369 P00F8 0161 

0370 P00F9 18F4 

0371 POOFA G810 

0372 POOFB 0109 

0373 

0374 POQFC 60 FF 

0375 POOFD OCOO 

0376 POOFE CAOF 

0377 POOFF 6722 

0378 POlOO ODOl 

0379 POlOl 0814 

0380 P0102 9881 
D381 P0103 0101 

0382 P0104 18F9 

0383 

0384 P01D5 13E5 

0386 

0387 P01C6 0003 

0388 0107 
0339 


BUFADO 

MUM 

0 

LIOM 

NUM 

0 

LIOL 

NUM 

0 


JMP- 

(ADISP) 

LIORT 

SQP 

XFOK 

XFER 

LOQ^’^ 

BASE 

LOQ- 

IOERR,a 


JMP- 

(ZERO) ,Q 

XFOK 

LDQ» 

COUNT 

STQ^ 

LIOZ 


LOA^ 

PROTYP 


ALS 

8 


AAQ 

D 


ENA 

CONFM 


RTJ» 

(EXTHAN ) 


ADC 

INPDAT-^ 


LDA^ 

(BUFADD ) 


SAZ 

LIOSA V 

LIOEX 

LOQ» 

BASE 


LDO- 

SOHMOR, a 


JMP- 

(ZERO ) , Q 

LIOSA V 

RTJ- 

(AMONI) 

LIOVD 

ADC 

S5D04-CHRSLV 

ADC 

LIOVX-LIOVD 


NUM 

0 


ADC 

MASSLU 

LIOZ 

NUM 

0 

ADC 

INPOAT-LIOVD 

LIOSM 

NUM 

0 

LIOSL 

NUM 

0 

JMP- 

(ADISP) 

LIOVX 

SDP 

SAVOK 


JMP* 

XFER 

SAVOK 

LDA^ 

CORLSB 

-3f. 

SAZ 

GETOUT 


STA- 

I 


ENQ 

0 

TOGORE 

LOA« 

INPOAT, Q 

STA- 

( ZERO) ,B 


INQ 

1 


TRO 

A 


SUB^ 

COUNT 


SAZ 

GETOUT 


JMP’^ 

TOCORE 

GETOJT 

JMP* 

LIOEX 

MSB 

BZS 

MSB (3) 


EQU 

LS8 (MSB +1) 


BUFFER ADD. (FILLED) 
MSB (FILLED) 

LS8 (FILLED) 


NO READ ERROR, SKIP 
10 ERR 


GET NO. OF WORDS AND INSERT DATA TYPE 


TO PRINT DATA FOR CONFIRMATION 


RETURN FROM CONFIRMATION CHECK 
OK, WRITE (SAVE MM) 

TO "SOHMOR" 


WRITE 

RETURN 


SIZE (FILLED) 

MSB (FILLED) 
LSB (FILLED) 


CHECK IF CORE ORDINAL 
NO, SKIP 


SET INDEX WITH CORE LOCATION 
MOVE DATA TO CORE ORDINAL LOCATION 


CHECK IF ALL 

yes, DOME 
NO, TO REPEAT 

TO EXIT •• 


DATA BEEN MOVED 
SOHMOR" 


N4bQ 0337 
N460 0 336 
N46Q 0 339 
N46G D340 
N4600 3m 
N4-60 0 342 
N46003^3 
N460 0 344 
Nt60Q345 
N460 03‘+6 
N-,63 G 347 
Nh60 0348 
N460 0399 
N460 0350 
N4600 351 
N46Q 0 352 
N-+60 0353 
N4600354 
N460 0 35 5 
N 46O 0 35 6 
N4600357 
N-,60 0358 
Nt600359 
N-,60 0 36G 
N-+ 6 0 G 36 1 
N9 60 0 362 
N46O 0 363 
N4600364 
N4 60 0 36 5 
N4600366 
N460 0 367 
N460 0368 
N460 0369 
N46Q 0 370 
N460 0 371 
N460 0 372 
N460 0 37 3 
N460 0374 
N4600 375 
N460 0376 
N460 0 37 7 
N%60 0378 
M968O379 
N4600380 
N46GCI 381 
N96G0382 
N460G383 
N46Q 0384 

N4600 386 
N460Q387 
N4600388 
N4600389 


O 


O 

O 

o 

o 

o 


o 




o 


(3 


O 


O 

o 

o 

o 

o 


1 


n 
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0390 

P01Q9 

0 0 0 3 

OPOlO 

NUM 

0 

0391 

PGIOA 

0 0 0 0 

C0RLS8 

NUM 

0 

0392 

POlOB 

GOOO 

COPDIR 

NUM 

0 

0393 

PQIOG 

0 060 

N096ST 

NUM 

96 


0395 

0396 






SYSTEM DIRECTORY ORDINAL CHECK 

¥ ¥¥¥ ¥ 

039 7 








0398 

POIOD 

0800 

ORDCHK 

NOP 

0 

ENTRY 


0399 


0100 P 


EQU 

INPDAT(ORDCHK) 


040 0 



¥ 





0401 



¥ 


¥¥¥¥¥ 

NOTED THAT THIS SECTION OF CODE 

WILL 

0402 



¥ 



BECOME BUFFER -- NAME "INPOAT** 


0 40 3 



¥ 





0404 

POIQE 

68FA 


STA^ 

OROIQ 

SAVE ORDINAL NO. 


040 5 

POlOF 

acoo 


ENQ 

0 

ZERO OUT CORE ORDINAL FLAG 


0406 

PC 110 

48FA 


STQ- 

COPDIR 



0407 

POlll 

43F4 


STQ-> 

MSB 



0409 



¥ 





041 0 



¥ 

— 

FOR 

MM DIRECTORY PROCESSING 


0 411 



¥ 





0412 

P0112 

CGE6 

ORD M 

LDA- 

CSYLEN 

GET DIRECTORY LENGTH AND SUBTRACT CORE 

0413 

P0113 

9QF7 


SUB- 

CSYDIP 

LENGTH 


0414 

PD114 

3005 


DVI- 

LPMSK+3 

CONVERT TO NO. OF MH DIRECTORY 

NO . 

0 41 5 

P0115 

98F3 


SUB^ 

ORDIO 

CHECK IF OVER SYSTEM MAX. 


0416 

P0116 

0123 


SAP 

ORD M2 

NO, SKIP 


0417 

P0117 

0C08 


ENQ 

11 

TO PRINT ORDINAL NO. ERROR (OVER MAX.) 

0418 

P0118 

ICGO 


JMP 

(EXTMSG) 




P0119 

FF6D 






0 419 



¥ 





Q42Q 

Pull A 

C8EE 

ORD M2 

LDA^ 

OROlO 



0421 

POllB 

09FE 


INA 

-1 



0422 

POllC 

20 05 


MU I- 

LPMSK + 3 

*7 


0 42 3 

POllO 

80EB 


ADD- 

DIRTRY 



0424 

PQllE 

8 0 F7 


ADO- 

GSYOIR 

CORE DIRECTORY OFF-SET, IF ANY 


0425 

POUF 

0 822 


TRA 

Q 



0426 

P012G 

C206 


LDA- 

6 « Q 

GET LSB 


0427 

P0121 

68 F5 


STA^ 

LSB 



0428 

P0122 

C205 


LDA- 

5 » Q 

GET AND SAVE MSB 


0429 

P0123 

68E2 


STA^ 

MSB 



0430 

PQ124 

C204 


LDA- 

4,Q 



043 1 

P0125 

6800 


STA 

MAXL 

SAVE LENGTH OF ORDINAL 



P0126 

FF66 






0432 

PQ127 

1CE5 


JMP^ 

iORDDHK ) 

RETURN 



0434 

GD03 P 

EQU 

SA58{^/96) 

0435 

00 04 P 

EQU 

SP58(SA58+1) 


N>+60 0 39 0 
N460 0391 
N46G 0 392 
N4600393 


N463 0 395 
N4600 39b 
N4600397 
N46J 0 398 
N4600399 
N 46 O 0 40 0 
N46D 0 401 
N460 0 402 
N'+bO D 40 3 

Nt60 0 40 “T 

N460Q405 
N460 O 4 O& 
N460 0 40 7 


N 46 O 0 409 
N4600h 10 
N46GQ 411 
DIRECT .N460O412 
N-+600 413 
N46 j 3 4l 4 
N 46 O 0 -41 5 
N-46ii0 4lb 
N460 0417 
N460 0 418 

^460 0 419 
N46Q0420 
N460 0 421 
N460 0 422 
N4600423 
N4600 424 
N4600425 
N46Q 0 426 
N46G0427 
N46G0 428 
N460 0 42 9 
N46G 045D 
N46Q0431 

N46Q 0 432 


N460 0 434 
N460 0 43 5 



/ 



o 

o 

o 

o 


O 

o 



o 


o 

N-+6u 0 h 3 b 
N‘t6Q 0 h3 7 

N460 0 H38 Q 

O 

O 

O 

n 

O 

o 

o 

o 

o 

o 

o 

o 

o 
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EQUIVALENCES 


o 

DEF.LINE 

name 

VALUE 


REFERENCED AT 

LINE NUMBER 

00 OG 

I 

OOFF 

{ 000255) 

0 0 92 , 

G 169, 

0172, 0374 


00A4 

amoni 

Q0F4 

1000244) 

0331, 

0359 



Q 044 

ADISP 

OOEA 

(000234) 

0 3 40 , 

0 368 


) 

0 044 

LPMSK 

0002 

(000002) 

0151, 

0178, 

0180, 0221, 


0 0 44 

nzero 

G012 

{ 000018) 

0292 




0044 

ZROBIT 

0033 

(000051) 





0045 

FIVE 

00^3 

(000067) 




L.’’ 

0 0 45 

SIX 

0044 

(000068) 





0 0 45 

ZERO 

0022 

(000034) 

0 345 , 

0 35 8, 

0377 


0045 

onebit 

0023 

( 000035) 

0 192 




0 045 

sixten 

0027 

(000039) 





0 0 46 

COMMA 

002C 

(000044) 

3 225, 

0 260, 

0298 


0 046 

SLASH 

0Q2F 

(000047) 

0121, 

0 13Q 



00^6 

ASTRIC 

002A 

(000042) 

0298 



.-V 

0 047 

EIGHT 

0026 

(0 00038) 




U' 

0047 

NINE 

0u45 

(300069) 





0 047 

THREE 

0 00 4 

(000004) 





0047 

ONE 

0 0 03 

(000003) 





0 047 

TWO 

0024 

(G 00036) 




u 

ooi^e 

TEN 

0046 

C000070) 





0 0 49 

MASK 

0 0 0 3 

(000003) 





0051 

CHRSLV 

G007 

(000007) 

0332, 

0360 



0052 

ASMOD 

1000 

( 0 04096) 





0053 

NO40 

0028 

(000040) 

0 336 




0 05 4 

MASSLU 

08C2 

(002242) 

0335 , 

0 3 63 



0 055 

CSYLEN 

O0E6 

(000230) 

0 412 




0056 

CSYDIR 

00E7 

( 000231) 

0 413 , 

0 42 4 


‘J 

0 05 7 

EXTBV4 

00E9 

(000233) 





0 058 

DIRTRY 

0 0 E B 

(0D0235) 

0 423 




0 061 

HANDLE 

0 001 

(000001) 

0 095 




0 062 

MSG 

0 0 0 2 

( 0 Q 0 0 0 2 ) 

0 097 



■J 

0 0 63 

SOMMOR 

0003 

( 000003) 

0 357 




0 0 64 

lOERR 

000 4 

( 000004) 

0 344 




0 065 

LISTLU 

00 0 5 

( 000005) 





0 066 

COMOLU 

000 6 

(000006) 




u 

0 067 

NEWMLU 

00 0 7 

(000007) 





0 06 8 

PROGl 

0008 

(000008) 





0 069 

PR0G2 

00 0 9 

(000009) 

0154 





LIOREQ 

PAGE 

12 


DATEJ 

0 1/27/99 

0070 

BITFLG 

0 0 0 A 

t 000010) 

0166 




0071 

8UFCNT 

OOOB 

(000011) 

0168 




0072 

FIELD 

ODOC 

(000012) 

0120 , 

0129, 

022u, 0224, 

0259, 0269, 0306 

0Q73 

SLASHF 

0010 

(000016^ 

0139 




Q07if 

BUFEMT 

0011 

( 00001 7) 

0150 




0 07 5 

BUFFER 

0012 

(000018) 

0 093 




0078 

GETFLD 

0002 

(000002) 

0105, 

QUA, 

0123, 0211, 

0248 

0 079 

ASCHEX 

0003 

(000003) 

0117, 

0 126, 

0 251 


0 0 8 0 

ASCDEG 

0005 

(000005) 

3 108, 

0214 



0 0 81 

FETHN 

00 0 9 

( 00G0Q9) 

0 316 




0082 

PNTMD 

OOOA 

{ 000010) 





0083 

CONFM 

OOOC 

■ (0 00012) 

0351 
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S Y H B 0 L S 


DEE. LINE 

NAME 

ADDRESS 

REFERENCED AT 

0 039 

LIOREQ 

000 0 

0 039 , 

0 090 , 

0 040 

LHOREQ 

00 00 

0 0 40 


OOiil 

LAOREQ 

00 0 0 

0 0 41 


0111 

LI03 

0013 

0132, 

0153, 

0113 

LI05 

0015 

0110 


0119 

L 

OOlC 

0 141 


0 128 

B 

0 025 

0104, 

0142 

0137 

LlOlO 

002A 

0122, 

0131 

0149 

LI013 

0037 

0146 


0154 

LI Oil 

00 38 

0152 


0158 

LI012 

003F 

0155 


0 160 

DATPRO 

0041 

0159 


0166 

ASCDAT 

0044 

0162 


0 170 

AS2 

Q048 

0203 


0 173 

AS4 

0048 

0 170 


0 178 

ASS 

0051 

0176 


0 184 

ASS 

0056 

Q 181 


0191 

ASlO 

005D 

0186 


0195 

AS12 

0061 

0190 


0197 

ASl^f 

0063 



0 202 

AS15 

0069 

0 200 


0 20 5 

AS18 

0068 

0 182 


0 208 

AS20 

006E 

0 206 


0 211 

3EC0AT 

006F 

0161 , 

0228 

0 224 

0EC3 

007D 

0 222 


0227 

0EC5 

0080 

0 309 


0 228 

OEC7 

QQ81 

0226 


0 231 

BASE 

0032 

0 089, 

0219, 

0232 

ASTCH 

0 0 83 

0 137, 

0 24 6 , 

0 233 

COUNT 

3084 

0 103, 

0140, 

0 234 

LIOLOC 

0085 

0143, 

0281 , 

0 235 

EXTHAN 

QG86 

0096, 

0107, 

0 23 6 

EXTMSG 

0087 

0 0 98, 

0112, 

0237 

PROTYP 

0088 

0158, 

0348 

0 238 

ASMHIL 

00 89 

0138, 

0184, 

0239 

HILO 

008A 

0167 , 

0175, 

C 240 

TEMP 

Q08B 

0179, 

0185, 

0 241 

CHAR 

008C 

3191, 

0196 

0 2 42 

MAXL 

00 80 

0145, 

0 431 

0245 

HEXOAT 

0C8E 

0160 , 

0273 

CZU& 

HEX2 

0091 

0 3 05 



LINE NUMBER 
0091 

0227 


0 343, 
0263, 
0197 , 

0356 
0300, 
0 2 01 , 

0 302 
0 20 7 , 

0 216, 

0218, 

02bo, 0268, 

0282 , 

0 2 8 7, 

0346 

0286 

3109, 

0116, 

0118, 

0125, 

D127, 

0213, 0215, 

0 25 0 , 

0252, 

0318 

0148, 

0195, 

0202 

0193, 

0418 

0199, 

0247, 

0 20 5 
0278, 

0 290 , 

0304 






G38 0 
0352 


o 


LIORFQ 
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date: 

01/27/99 

1 

o 

0253 

HEXNUM 

G09 6 

0265 , 

0 280, 

0285, 

0289, 

0293, 0303 

c 


0263 

HEX5 

0Q9B 

0 261 , 

0 310 





o 

0266 

HEX6 

009E 

0283, 

0294 




C' 

0273 

HEX8 

00A6 

0271 






0 27B 

HEXIO 

00A7 

0 2 64 







0 285 

HEX12 

GOAD 

0279 







0298 

HEX20 

Q0B7 

0262 







030Q 

HEX22 

00B9 








0 30 2 

HEX24 

OCBB 








0 30 6 

HEX28 

OOBF 

0299 







0 30 9 

HEX29 

00C2 

0 301 






LJ 

0310 

HEX30 

00C3 

0 308 





■ u 


0316 

CONFRM 

aoc4 

0 208 , 

0223, 

0272 





0327 

SELF 

QOCF 

0326, 

0328, 

0329 




o 

0332 

LIOCD 

QQD4 






■ o 

0333 

LIOE 

O0D5 

0330 






0337 

BUFADO 

0009 

0094, 

0 17 H, 

0 354 





0338 

LIOM 

QODA 

0321 






o 

0339 

LI 01 

OOOB 

0 324 





■ C) 

0 342 

L lORT 

OODD 

0 329 






0343 

XFER 

OODE 

0 370 







0346 

XFOK 

OOEl 

0 3 42 






o 

0 356 

LIOEX 

OOEB 

0384 






0359 

LIOSAV 

OGEE 

0355 







0 36 0 

LIOVD 

OQEF 

3 361 , 

0 3 65 






0364 

LIOZ 

Q0F3 

0347 






Q 

0366 

LIOSM 

00F5 

0322 





' c 

0367 

LIOSL 

aoF6 

0325 






0369 

LIOVX 

00F8 

3 3 61 







0 371 

SA VOK 

OOFA 

0 369 







03 76 

TOCORE 

OOFE 

0 382 





' o 


0384 

GETOUT 

010 5 

0372, 

C 381 





0 38 7 

MSB 

0106 

0 144, 

0 319, 

0 320 , 

0 388, 

0 40 7 , 0429 



0388 

LSB 

010 7 

0 323 , 

0 42 7 






0 390 

ORDIO 

0109 

0 404, 

0415, 

0420 



r\ 

■jj 

0 391 

CORLSQ 

OlOA 

0371 






0 392 

CORDIR 

010 B 

0 406 







0393 

N096ST 

OlOC 








0398 

OROCHK 

OlOD 

0113, 

0399, 

0432 




U 

0399 

IMP DAT 

OlOD 

0198 , 

0 217, 

0267, 

0 3 53, 

0365, 0376 

U 


0 412 

OPDM 

0112 








0420 

ORD M2 

QUA 

0 416 







0 434 

SA58 

00 0 3 

0435 





O 


0435 

SP58 

OuO 4 

0 436 






0436 

DBS 8 

0180 

0 437 






o 









o 

o 









o 

o 

1 









o 

J 

’ o 









c 




o 




EIOREQ 


PAGE 
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DATES 01/27/99 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

to 

-< 

CD 

0 L S 

If ■¥■ 


ADISP 

0G4A 

AHONI 

0 044 

ASIO 

3191 

AS12 

0195 

AS14 

0197 

AS4 

0173 

AS6 

0176 

AS3 

0184 

ASCDAT 

0166 

ASCDEC 

0080 

ASTPIC 

0 046 

B 

0128 

BASE 

0231 

BITFLG 

0070 

eUFADD 

033 7 

GHRSLV 

0051 

COMMA 

0 046 

COMOLU 

B066 

CON EM 

0083 

CONFRM 

0316 

CSYLEN 

0 05 5 

OATPRO 

0 160 

085 8 

0 436 

DEC3 

0224 

DEC5 

0227 

EXTBV4 

0057 

EXTHAN 

0235 

EXTM3G 

0 236 

FETMM 

0081 

FIELD 

0072 

HEXIO 

0278 

HEX12 

0285 

HEX2 

0248 

HEX20 

0298 

HEX22 

030 0 

HEX5 

0 25 3 

HEX6 

0 266 

HEX8 

0 2 73 

HEXDAT 

0245 

HEXNUM 

0253 

L 

0119 

LAOREQ 

0041 

LHOREO 

0 040 

LlOlO 

0137 

Lion 

0154 

LIOCD 

0 332 

LIOE 

0333 

LIOEX 

0 356 

LIOL 

0339 

LIOLOC 

0 23 4 

LIOSL 

0367 

LIOSM 

0366 

LIOVD 

Q 360 

LIOVX 

0369 

LIOZ 

0 36 4 

MASSLU 

0054 

MAXL 

0 2 42 

MSB 

0387 

MSG 

0062 

NEWMLU 

0067 

ONE 

0047 

ONEBIT 

0045 

OROlO 

0390 

ORDCHK 

0 398 

ORDM 

0 412 

PROTYP 

0237 

SA5 8 

0 434 

SAVOK 

0371 

SELF 

0 32 7 

SIX 

0045 

SP58 
ZRO BIT 

0 43 5 
0044 

TEMP 

0240 

TEN 

a 0 48 

THREE 

0047 

TOCORE 

0376 


o 

o 

o 


u 

o 

o 

o 

o 

o 


c 

o 


AS15 

020 2 

AS18 

0205 

AS2 

0 170 

AS2Q 

0208 

i ' 

ASCHEX 

0079 

ASMHIL 

0238 

ASMOD 

0052 

ASTCH 

0232 


BUECNT 

0071 

BUFEMT 

0074 

BUFFER 

0 075 

CHAR 

0241 


CORDIR 

0 39 2 

CORLSB 

0391 

COUNT 

0 233 

CSYDIR 

0 0 56 


DEC 7 

0228 

OECDAT 

0211 

DIRTRY 

0058 

EIGHT 

0u47 


FIVE 

0 045 

GETFLD 

00 7 8 

GETOUT 

0384 

HANDLE 

d G6l 


HEX24 

0 30 2 

HEX28 

03C6 

HEX 29 

0309 

HEX30 

0310 


HILO 

0239 

I 

00 0 0 

INPDAT 

0 399 

lOERR 

0 06 4 

■ C', 

LI012 , 

0158 

LI013 

0149 

LI03 

0111 

LI05 

0113 

L_.-‘ 

LION 

0338 

LIOREQ 

00 3 9 

LIORT 

0 342 

LIOSAV 

0 359 


LISTLU 

0065 

LPMSK 

00 4- 

LSB 

0388 

MASK 

0049 


NINE 

0047 

NO40 

00 5 3 

N096ST 

0393 

NZERO 

0 044 

'f 

ORDM2 

0 420 

PNTMD 

0082 

PROGl 

0068 

PR0G2 

0069 


SIXTEN 

0045 

SLASH 

00 46 

SLASHF 

0073 

SOHHOR 

0063 


TWO 

0047 

XFER 

0343 

XFOK 

0 346 

ZERO 

0045 



o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 


LAMREQ 


PAGE 


1 


date; 01/27/99 


O 


000 1 
00 0 2 
00 0 3 
00 0 4 
00 0 5 
00 0 6 
00 07 
00 0 8 
000 9 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 
002 6 
0027 

0026 

0029 

0030 

0031 

0032 

0033 

0034 
003 5 

0036 

0037 

0039 

0040 

0041 

0042 


¥■ 

>>■ 

* 

K- 

¥ 

¥ 

if. 

if. 

V. Jf. if. if. Jf. if. 
¥ 

if 

•¥■ 

-f 


NAN LAMREQ DECK-IO Nh7 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197o 


SUMMARY 


^ If. ri/. If. SI. ‘Sf- ^ ^ ^ ^ ^ V- 

^ THIS PROCESSOR MODIFY MASS MEMORY (ASC) ^ 

* * 
>/. If. if. :t. if. If. S- ^ ^ it- ^ Sr 


INPUT FORMATS ; 


LAM,SSMSR,SSLSB,SW/AA.. 
LHM ,SS MSB, SSLS E,SH/H,H. 
LIM,SSMSB,SSLSB,SW/0,D, 


WHERE SSMSB 
SSLSB 
SW 
A 
H 
D 


START SECTOR (HEX.) MSB 

START SECTOR (HEX. ) LSB 

START WORD (HEX.) (DEFAULT = 0) 

ASCII DATA 

HEX. DATA 

DECIMAL DATA 


OUTPUT FORMAT 

NEW OLD DATA 

XXXX YYYY 

AFTER DATA PRINT, CONFIRMATION IS REQUIRED FROM 
OPERATOR 


“11 6 ^^ 

N470 0002 
N47Q0003 
N47Q0004 
N47C 0 00 5 
Nm-FO 0 0 0 b 
N470 0007 
N470 0 0C3 
N470 0 009 
N470 0010 
N47DQ011 
N470QQ12 
N470 0 013 
N4 70 0 014 
N470(]0i5 
NH'/O 0 Olo 
N‘+70 0 01 7 
N4700018 
N47G 0 319 
N47u 0020 
N^t/G 0 021 

N470G022 
N47D 0 023 
N470Q 024 
N'470Q 025 
N47 G Q 026 
N4700 027 
N470 0 028 
N473 0 029 
N479 0030 
N4700Q31 
N4700G32 
N+70U 033 
N470G034 
N4700055 
N4700Q36 
N470 0 037 


4 ENTRY NAMES 

ENT LAMREQ 
ENT LHMREQ 
ENT LIMREQ 


N470 0 03 9 
N47D004G 
N4700041 
N47GQ0-,2 


O 

O 

O 

O 

O 

T) 

o 

o 

o 

o 


o 


0044 

0045 

0 QF4 
0 OEA 
0 0 02 


' E Q U ' T A B L 

EQU AM3NI (SF4) , ADIS P( SEA) ,LPHSK(2) , 

E 

NZER0i$12) ,ZROBIT($33) 

N470 0044 
N47C0045 


0012 
0 033 






o 


o 


LAMREQ 


PAGE 
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date: 01/27/99 


0046 

0 0 43 
0 044 
0 0 22 
0 0 23 
0 0 27 

00 47 

00 2C 
0 02F 
u 02A 

0048 

0 0 26 
0 0 45 
0 0 0 4 
0 0 03 
0 0 24 

00 49 

0 0 46 

0D5Q 

0 0 03 

0052 

0 0 07 

0053 

10 00 

0 0 5 4 

D8C2 

DG55 

G 028 

005 6 

0 018 

0057 

OOID 


EQU FIVE{$A3),SIXt$<+A) ,ZERO ($22)tONEBIT(i23),SIXTEN($27) N4700 Q‘t6 


EQU COHMA ($20 ,SLASH($2F) ,ASTRIC ($2A) 

EQU EIGHT ($26) , NI NE ( $45 ), THREE ( h) , ON E ( 3 ) , T WO ( $2 4 ) 


N^70 0 0 47 


EQU TEN ($46) 
EQU HA5K(3) 


ONE BIT MASK 


N470 0 049 
N47J0 050 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


CHRSLV( 7) 
ASMOO ($100 0 ) 
MASSLU( S8C2) 
NO40 I 40 ) 
COMLHH( 24) 
C0MLIM(29) 


LEVEL OF THIS PROGRAM 
OUTPUT ASC MODE 
LIB. MASS MEMORY UNIT 
BUFFER SIZE 
COMMAND “LHM** INDEX 
COMMAND “LIM" INDEX 


N4700Q53 
N 4700054 
N4700055 
N470 0 G56 
N47Q0G57 


005 9 
0060 
0061 
0062 
0Q63 
00 6 4 

006 5 
0056 
0067 

0058 

0059 

0070 

0071 

007 2 
00 7 3 
0074 


0076 

0077 

0078 

0079 

0080 
008 1 
0082 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
0 0 06 
00 07 
0 0 08 
00 09 
0 0 OA 
OOOB 
00 DC 
0010 
0011 
0012 


0 0 02 
0 0 03 
0 0 05 
0 0 09 
0 0 OA 
00 oc 


PARAMETER LOCATION (OFFSET FROM BASE) 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


HANDLE ( 1) 
MSG (2 ) 
SOHMOR(3) 
lOERR (4 ) 
LISTLU( 5) 
COMOLU( 63 
NEWMLU(7) 
PROGi (3 ) 
PR0G2 (9 ) 
BITFLG(iO) 
BUFCNT( 11) 
FIELD (123 
SLASHF( 163 
BUFEMT (17) 
BUFFER (183 


■HANDLE* 

"MSG** ENTRY 
"SOMHOR" ENTRY 
**IOERR" ENTRY 

LIST OUTPUT "LISTLU* 

"COMOLU" 

"NEHHLU** NEW HH LU 

•*PR0G1” 

"PR0G2** 

"BITFLG" 

"8UFCNT'* 

**FIELD** 

**SLASHF" 

*‘BUFEMT" 

■’BUFFER" 


SUBROUTINE "EQU" POINTERS 

getfld(2) *;getflo" 

ASCHEX(3) "ASCHEX" 

ASCDEC{53 "ASCOEC" 

FETHM(9) "FETMM' — - GET MM ADDRESS 

PNTMD(IO) “PNTMD" PRINT BOTH CORE AND MM DATA 

C0NFM(12) 'CONFM' -- PRINT NEW + OLD DATA FOR CONFIRM 


N47Q 0059 
N4730Q60 
N47GGj61 
N4700052 
N47Q0963 
N4700064 
N^7Q 0 065 
Nh 7Q0 066 
N4700067 
N47Q G 068 
N470G069 
N470 0070 
N470 0071 
N473u 072 
N4700Q73 
N470 0 074 

N-t7Q 0 076 
N473G077 
N4700G78 
N473 uQ79 
N47Q0080 
N4700081 
N4700G82 


008 4 
0085 


4 - 




PROGRAM START 




N47Q0084 

N4700U85 


LAMRFQ 


PAGE 
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date: 01/27/99 


008 6 



* 



00 88 

PflOOQ 

686B 

LAMRFQ 

STA^ 

BASE 

0089 


0 0 0 0 P 


EQU 

LHMREG( Li 

0090 


0 0 00 P 


EQU 

LIMREQC L, 

0091 

POOOl 

60FF 


STA- 

I 

0092 

P00C2 

8112 


ADD- 

buffer, I 

0093 

PD003 

68 5C 


STA^ 

8UFA0D 

0094 

P00 04 

ClOl 


LDA- 

HANDLE, I 

0 0 9 5 

PGQ0 5 

6867 


STA^ 

EXTHAN 

0096 

P00C6 

C102 


LOA- 

MSG, I 

0097 

P0 0 0 7 

6866 


STA--^ 

EXTMSG 

0099 

P000 8 

C107 


LDA- 

NEWMLU, I 

0100 

P0QQ9 

6800 


STA 

LIOZ-1 


POOOA 

00C5 




0101 

POOOB 

6852 


STA» 

MLU 

0102 

POOOC 

6859 


STA^ 

MSB 

0103 

POOOD 

OA 09 


ENA 

FETMM 

0104 

PQOOF 

OCOl 


EMQ 

1 

0105 

POO OF 

5C50 


RTJ» 

(EXTHAN ) 

010 6 

POOlO 

0 0 55 


ADC 

MSB-» 

0107 

POOH 

CIOC 


LDA- 

FIELD, I 

0108 

P0Q12 

09D0 


INA 

-SLASH 

0109 

P0 013 

0102 


SAZ 

LAMS 

0110 

P0014 

0C04 

LAI 

ENQ 

4 

0111 

P0015 

1C 58 


JMP^ 

(EXTMSG) 


GET LU 

AND SET UP FOR SIZE CHECK 
GET MH ADDRESS 

CHECK FOR SLASH ( ' / <' ) 
FORMAT ERROR 


N470 008b 


N47Q0Q88 
N47Q0C89 
N4700090 
N4700091 
N4700092 
N4700093 
N470Q094 
N4700095 
N47QQ 096 
N470 0097 

N47Q0 099 
N47Q 0 10 0 

N47Q0101 
N470 0102 
N470Q103 
N47Q 0104 
N470 OIG 5 
N473 0 10 6 
N4700107 
N47 0 OlOe 
N4700109 
N47Q0110 
N4700111 


0113 

0114 

0115 

0116 POOlo 684E 

0117 P0Q17 6857 

0118 P0018 6110 

0119 P0019 684A 

0120 POQIA C109 

0121 POQIB G9E7 

0122 POOIG Dili 

0123 POOlO 1868 

0124 PQOIE 0845 

0125 POOIF 09FA 

0126 P002Q 0111 

0127 P0021 1851 

0128 


LAM5 STA+ 
STA^ 
STA- 
STA^ 
LDA- 
INA 
SAN 

NOTLHH RAO^ 
INA 
SAN 
JMP«^ 


ADDRESS DATA IN, GET INPUT DATA ACCORDINGLY 


CHECK FOR "LHM' 


COUNT 
ASMHIL 
SLASHF, I 
PROTYP 
PR0G2 , I 
-COMLHM 

NOTLHM SKIP, NOT "LHM" 

HEXUAT TO HEX. DATA PROCESSING 

PROTYP SFT TO DECIMAL TYPE 

-COMLIM+COMLHM CHECK FOR "LIH" 

LHMX NO, SKIP 

DECOAT TO PROCESS DECIMAL DATA 


N470G11S 
N4700 114 
N470G115 
N470G116 
N470C117 
N470Q118 
N47QQ119 
N47Q0 120 
N-f70 0121 
N47 j0122 
N4700125 
N47Q0 124 
N471 0125 
N4700126 
N4700127 
N470 0128 


0130 

0131 P0022 0841 
Q132 P0023 ElOA 

0133 P0024 484B 

0134 P0025 ClOB 


^ 2. ASCII 

LHMX RAO^ PROTYP 
ASCDAT LOG- 8ITFLG,I 
STQ^ HILO 
LDA- 8UFCNT, I 


DATA PROCESSING 
SET TO ASCII DATA 

GET BYTE POSITION FLAG AND BUFFER POINTER 


N4700130 
N47Q0131 
N4700132 
N4700133 
N47C 0134 


LAMREQ 


PAGE 


O 



013 5 

PQ026 

6QFF 


STA- 

I 


0136 

P0Q27 

0142 

AS2 

SQZ 

AS4 


0137 

P0028 

OCFE 


ENQ 

-1 

o 

0138 

P0029 

DOFF 


RAO- 

I 


0139 

P0 02A 

ODOl 

AS4 

INQ 

1 


0140 

P0 02B 

CD34 


LDA^ 

I3UFADD ) ,I 


0141 

P002C 

4843 


STQ^^ 

HILO 

o 

0142 

P002D 

0 1 51 


SQN 

AS6 


0143 

PO 02E 

0F48 


ARS 

8 


0144 

PQ02F 

AO OA 

AS6 

AND- 

LPMSK+8 

_ 

0145 

POD30 

683A 


STA=^ 

TEMP 

o 

0146 

P0031 

BQ OA 


EOR- 

LPMSK48 


0147 

P0 032 

0111 


SAN 

ASS 


0148 

P0033 

1816 


JMP» 

AS18 


0149 



V- 



i ; 

0150 

P0034 

E8 3A 

AS8 

LDQ^ 

ASNHIL 


0151 

P0Q35 

C835 


LDA^ 

TEMP 


0152 

P0G36 

01 54 


SQN 

ASIO 


0153 

PO 037 

0FC8 


ALS 

8 


0154 

PQ038 

0920 


INA 

$20 


0155 

P0039 

OCOl 


ENQ 

1 


0156 

P003A 

1805 


JMP» 

AS12 


0157 

PO Q3B 

C8 35 

ASIO 

LDA^ 

CHAR 

u 

0158 

P003C 

8028 


EOP- 

ONE8IT+5 


0159 

P003D 

B820 


EOR^ 

TEMP 


0160 

P0G3E 

OC 00 


ENQ 

0 


0161 

POO 3F 

482F 

AS12 

STQ^ 

ASMHTL 

o 

0162 

P004Q 

6830 


STA^ 

CHAR 


0163 

P0041 

F823 

AS14 

LDQ^ 

COUNT 


0164 

PG042 

6 A 0 0 


STA 

INPDAT, Q 

o 


P0 043 

0 0 95 




0165 

P0044 

E82A 


LOQ^ 

ASHHIL 


0166 

P0D45 

01 51 


SQN 

AS15 


016 7 

P0046 

D81E 


RAO^ 

COUNT 


0168 

PQ 047 

E828 

AS15 

LOQ^ 

HILO 


0169 

P0048 

18DE 


JHP» 

AS2 


0170 







0171 

PQ049 

C825 

AS18 

LDA^ 

ASMHIL 

o 

0172 

PQ04A 

0 101 


SAZ 

AS20 

0173 

P004B 

D819 


RAO» 

COUNT 

0 

0175 



* 


PRINT 

0176 

P004C 

C019 

AS2Q 

LOA’f 

MSB 


0177 


0 0 4C 

P 

EQU 

CONFRM ( AS20 ) 


0178 

POQ40 

6313 


STA^^ 

LIOM 


0179 

PQ04E 

68 00 


STA 

LIOSM 

O 


P004F 

0083 





0180 

POD50 

C816 


LDA» 

LSB 


0181 

P0 051 

6310 


STA^^ 

LIOL 


0182 

PQ052 

6800 


STA 

LIOSL 

o 


PO 05 3 

0 0 80 





0183 

P0054 

5801 


RTJ^ 

SELF 


DATE: 01/27/99 


SKIP^ NO ADVANCE CHARACTER IS NEEDED 


GET INPUT TEXT WORD 


ISOLATE CHARACTER 

CHECK FOR EOT (END OF TEXT) 

NO, SKIP 

PUT CHARACTER INTO POSITION 

PUT CHAR. INTO HI-8-BIT AND INSERT SPACE IN 
L0W-8-BIT 

RECALL HI-8-BIT (DELETE SPACE) 

AND INSERT CURRENT CHAR. 

SAVE CHAR. POSITION FLAG (0=HI-8) 

SAVE INPUT TEXT 

SKIP IF NO NEEDED TO ADVANCE STORAGE POINTER 

RFCALL INPUT TEXT BYTE POSITION FLAG AND 
REPEAT 

UPDATE INPUT TEXT COUNT IF NEEDED 


SAIA ANU KtUUtSI ruts, ouiNrii\riHt J.UIN 
SET UP MSB AND LSB, SO THAN OLD DATA IS READ 

OVER FOR CONFIRMATION 


N470 013 5 

N47a0136 

N4730137 

N4700138 

N47Q0139 

N4700140 

N470aim 

N4700142 

N47Q0143 

N4700144 

N470 0145 

N47Q0146 

N470 0147 

N4700146 

N47u0l49 

N47Q 0 150 

N4700151 

N47D0152 

N-+7Q 0 15 3 

N47j0154 

N47u 0 15 5 

N47D 0156 

N4700157 

N470 0158 

N470Q159 

N470 0160 

N4700i&l 

N4700152 

N47 0 0 15 3 

N47Q016A 

N470 0165 
N47Q0166 
N47D 0157 
N4700ib8 
N470 0169 
N470 0170 
N4700171 
N4700172 
N4700173 


N470 0175 
N4730176 
N47Q0177 
N4700178 
N4700179 

N4700180 
N47G 0181 
N4700182 

N4700163 


O 

O 

o 

o 

c 

o 

o 

Q 

o 

o 

o 

o 

o 

o 


o 


c 


LAMREQ 


PAGE 5 


DATE; 01/27/99 



D 

O 

o 

o 

o 

Q 

O 

o 

o 

o 

o 


0184 

PO 055 

Q BOO 

SELF 

NOP 

0 


0185 

P0056 

C8FE 


LDA^ 

SELF 


0186 

P0 057 

0965 


INA 

LI0RT-3ELF 

GENERATE RETURN ADD. 

0187 

PQC58 

6803 


STA^ 

LIOE 


0188 

P0059 

54F4 


RTJ- 

(AMONI) 


0189 

P005A 

0207 

LIOCD 

ADC 

$2D0 + CHRSLV 

READ 

0190 

P005B 

00 00 

LIOE 

NUM 

0 

RETURN (FILLED) 

0191 

P005C 

0000 


NUM 

0 

THREAD 

0192 

P0 050 

08C2 

MLU 

ADC 

MASSLU 

LU (LIB. UNIT) 

0193 

P005E 

00 28 


ADC 

NO40 

SIZE 

0194 

P005F 

0 0 0 0 

BUFA9D 

NUM 

0 

BUFFER ADD. (FILLED) 

0195 

P0Q60 

00 00 

LIOM 

NUM 

0 

MSB (FILLED) 

0196 

PO 061 

0 000 

LIOL 

NUM 

0 

LSB (FILLED) 

0197 

P0062 

14EA 


JMP- 

(ADISP) 


0199 



* 


S T 0 

RAGE 

0200 

PO 063 

0000 

PROTYP 

NUM 

0 


0201 

PQ064 

0000 

COUNT 

NUM 

0 


0202 

P0065 

0 0 05 

MSB 

BZS 

MSB (5 ) 


0203 


0 0 66 

P 

EQU 

LSB{MSB+1) 


020 4 


0 0 69 

P 

EQU 

SW(MS3+4) 


020 5 

P006A 

0000 

TEMP 

NUM 

0 


0206 

P006B 

0 0 0 0 

BASE 

NUM 

0 


0207 

P006C 

0 0 00 

EXTHAN 

NUM 

0 


0208 

P006D 

0 0 00 

EXTMSG 

NUM 

0 


020 9 

P006E 

00 00 

ASMHIL 

NUM 

0 


0210 

P006F 

0 0 0 0 

HILO 

NUM 

0 


0211 

P0070 

GOOD 

CHAR 

NUM 

0 


0212 

P0071 

0 0 00 

ASTCH 

NUM 

0 


0214 



4 


1. DECIMAL DATA 

0215 

P0072 

OA 02 

OECDAT 

ENA 

GETFLD 

GET INPUT DATA 

0216 

P0073 

0C06 


ENQ 

6 


0217 

P0074 

5CF7 


RTJ» 

(EXTHAN ) 


0218 

PQ075 

0 AG5 


ENA 

ASCDEC 

CONVERT TO DEC. 

0219 

P0076 

5CF5 


RTJ^ 

(EXTHAN ) 


0220 

P0077 

E8EC 


LDQ» 

COUNT 


0221 

POO 78 

6A00 


STA 

INPDAT, Q 

SAVE INPUT DATA 


PO 079 

0 0 5F 





0222 

P007A 

D8E9 


RAQ^ 

COUNT 

BUMP STORAGE INDEX BY 

0223 

P007B 

E8EF 


LOQ» 

BASE 


0224 

P0Q7C 

C2 0C 


LOA> 

FIELD, Q 

CHECK IF END OF TEXT 

0225 

P007D 

BO OA 


EOR- 

LPMSK+8 


0226 

P007E 

cm 


SAN 

DEC3 


0227 

PG07F 

18CC 


JMP* 

CONFRM 

NO MORE DATA, TO PRINT 

0228 

P008C 

C20C 

OEC3 

LDA- 

FIELD, Q 

CHECK FOR COMMA 

0229 

P0 081 

0903 


INA 

-COMMA 


0230 

PD082 

0101 


SAZ 

DEC7 


0231 

PGC83 

1890 

DEC5 

JMP^^ 

LAI 

FORMAT ERROR, GO 

0232 

P 0 D 6 4 

18E0 

DEC7 

JMP^ 

OECDAT 

TO REPEAT 



Ni+70 018 4 
N47G0185 
N4700186 
N47Q0187 
N4700188 
N470Q189 
N47D0190 
N4700191 
N4700192 
N4700193 
^ 4^70 019 ^ 
N473 019 5 
N47G0196 
N47Q 0197 

N47G0199 
N<+73 0 20lJ 
N47Q0201 
N4700202 
N4700203 
N470 020 4 
N470 0205 
N470020b 
N47Q0207 
N470 0 20 8 
N4700209 
N47a0210 
N4700211 
N47U0212 


C) 

o 

o 

n 




O 


N470G214 
N4700215 
N470 0215 
N47G0217 
N4700 218 
N4700219 
N470 0 220 
N4700221 

N4700222 
N470G223 
N470022H 
N470 0 22 5 
N4700226 
N4700227 
N9700228 
N4700229 
N47Q0230 
N470 0 231 
N47G0232 


o 

p'l 

G 

O 

c 

o 

o 


c ; 


LAMREQ 


PAGE 


DATE: 01/27/99 


( ') 


( 1 


o 


o 

o 

o 

o 

o 


o 


o 

o 

o 


0234 



4 


0 . H 

0235 

P0085 

0 ADO 

HEXDAT 

ENA 

0 

0236 

P0086 

63EA 


STA^ 

ASTCH 

0237 

POO 87 

58E2 


STA* 

TEMP 

0238 

P0088 

0 A02 

HEX2 

ENA 

GETFLD 

0239 

P0089 

0C04 


ENQ 

4 

0240 

P00 8A 

5CE1 


RTJ» 

■(EXTHAN ) 

0241 

PG08B 

0 A03 


ENA 

ASCHEX 

0242 

P008C 

5CDF 


RTJ» 

(EXTHAN ) 

0243 

P0 080 

0 00 0 

HEXNUM 

NUM 

0 


DATA 


GET INPUT DATA 


CONVERT TO HEX- 


0244 

0245 

0246 

0247 
024R 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 






TERMINATORS CAN BE (1) 1 



if. 



(2) , 






(3) ' 

P008E 

Cl OC 


LDA- 

FIELD, I 

CHECK FOR COMMA 

P008F 

0 9D3 


INA 

-COMMA 

YES, SKIP 

P0090 

0101 


SAZ 

HEX5 

P0091 

181C 


JMP» 

HEX20 

IS ASTERISK SET 

P0Q92 

C8DE 

HEX5 

LOA’*^ 

ASTCH 

PO 093 

0 119 


SAN 

HEXIO 

RECALL DATA AND 

P0094 

C8F8 


LOA* 

HEXNUM 

P009 5 

E8CE 

HEX6 

LDQ^‘ 

COUNT 


P0096 

5A 42 


STA» 

INPDAT, Q 


P0097 

D8GC 


RAO^ 

COUNT 

CHECK FOR END OF 

P0098 

CIOC 


LDA- 

FIELD, I 

P0G99 

BO OA 


EOR- 

LPMSK+8 


PO 09A 

Dill 


SAN 

HEX8 

TO PRINT AND REQ 

P0098 

18 80 


JMP» 

COMFRM 

P009C 

18E8 

HEX8 

JMP* 

HEXDAT 





ASTERISK ENCOUNTERED, 


COMMA, 

ASTERISK 

"NULL” 


SAVE 


TEXT 


FOR CONFIRMATION 


0265 






0266 






0267 





TEMP 

0268 

P009D 

C8CC 

HEXIO 

LDA’ 

0269 

P009E 

0114 


SAN 

HEX12 

0270 

P0D9F 

C3ED 


LDA^'^ 

HEXNUM 

0271 

POOAO 

93C8 


SUB^ 

SW 

0272 

POOAl 

9 8C2 


SUB^ 

COUNT 

0273 

0274 

P00A2 

18F2 


JMP^ 

HEX6 

0275 

POO A3 

C8E9 

HEX12 

LDA^ 

HEXNUM 

0276 

POO A4 

9 8G4 


SU8» 

SW 

0277 

POO A5 

93 BE 


SUB» 

COUNT 

0273 

P0OA6 

AO OA 


ANO- 

LPMSK + 8 

0279 

PO0A7 

68 E5 


STA^ 

HEXNUM 

0280 

POO A8 

C8C1 


LDA» 

TEMP 

0281 

P00A9 

0FC8 


ALS 

8 

0282 

POOAA 

AOIA 


AND- 

NZERO+8 

0283 

P00A8 

B8F1 


EOR^ 

HEXNUM 

0284 

POO AC 

18E8 


JMP^ 

HEX6 


ii) 

( 2 ) 


HEX. 

NO. , 


NO 


AND 


2 CASES CAN BE 
LOWS ASTERISK 
NO. 


HAPPENED 
, OR 


0285 
G28 6 




SKIP ON HEX. PROCEDEO ^ 

FOR " ^ HEX"= HEX. DATA - CURRENT LOG. 


GENERATE LAST 8 BITS (ADDRESSING) 
HEX. NO. - CURRENT LOC 


GET COMMAND AND SHIP) IT TO H-8-BIT 


INSERT LOCATION 


DELIMITER IS NOT COMMA 


N470 0 23 H 

N>+700235 

Nh-70 0 236 

N4700237 

N470G238 

N4700239 

N H-? 0 0 24 0 

N47Q0241 

N47G 0242 

N4700243 

N470Q244 

N470 0245 

N4700246 

N4700247 

N4700248 

N4700249 

N4700250 

N4700251 

N470Q252 

N4700253 

N47Q 0254 

N4700255 

N470025O 

N47G 0257 

N470G258 

N4700259 

N470C 250 

N4700 261 

N4700262 

N4700 263 

N 47 O 0 264 

N470 0 255 

N470G266 

N4700267 

N47Q 0258 

N4700269 

N470 0270 

N470t)271 

N47G0272 

N4700273 

N470 0 274 

N4700275 

N470 0276 

N47Q 0 277 

N470 0278 

N4700279 

N470u 280 

N470Q281 

N4700282 

N4700283 

N470 0284 

N4700285 

N470 0 286 


c 

o 

o 

o 




o 

r''i 


o 

o 

o 

o 

o 

o 

o 


u 
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02B 7 



* 






N470 0287 

0288 

POOAD 

0902 

HEX20 

INA 

-ASTRIC+COMMA 

CHECK FOR ASTERISK 


N4700288 

0289 

POOAE 

0116 


SAN 

HEX23 

NOT COMMA AND 

ASTERISK, 

SKIP 

N47Q 0289 

0290 

POuAF 

C8C1 

HEX22 

LDA^ 

ASTCH 

MAKE SURE IT 

IS NOT YET 

ENCOUNTERED 

N4700 290 

0291 

POORO 

0117 


SAN 

HEX29 




Nh7Q 0291 

0292 

POOBl 

D8BF 

HEX24 

RAO^ 

ASTCH 




N47DG292 

0293 

PD0B2 

C8DA 


LDA'‘ 

HEXNUM 

SAVE OP-CODE 



N470Q295 

029A 

P00B3 

68B6 


STA» 

TEMP 




N4700294 

0295 

PQ0B4 

18 D3 


JMP^ 

HEX2 




N47D0295 

0296 

P00B5 

CIOC 

HEX23 

LOA- 

FIELD, I 




N4700296 

0297 

P00B6 

aooA 


EOR- 

LPMSK+8 

EOT CHECK 



N4700297 

0298 

PQ0P7 

0101 


SAZ 

HEX3 0 




N4700298 

0299 

P00B8 

18CA 

HEX29 

JMP^ 

DEC5 

ERROR, GO 



N470 Q299 

0300 

P00B9 

1808 

HEX30 

JMP=^ 

HEX5 




N47003uG 

0302 









N4700302 

03 0 3 

POCBA 

0163 

LIORT 

SQP 

XFOK 

NO READ ERROR 

, SKIP 


N470D303 

0304 

POOBB 

E8AF 

XFER 

LOO^ 

BASE 

lOERR 



N470G304 

030 5 

POO BC 

E2 04 


LDQ- 

IOERR,Q 




N-+7Q 0 30 5 

0306 

PGOBD 

1622 


JMP- 

(ZERO) ,Q 




N47Q 0 306 

0307 

PO OBE 

E8 A5 

XFOK 

LOQ^^ 

COUNT 

TO PRINT DATA 

FOR CONFIRMATION CHECK 

N4700307 

0 30 8 

POCBF 

4811 


STQ^ 

LIOZ 

SET UP SIZE 



N47G 0 30 8 

0309 

POOGO 

C3A2 


LDA^ 

PROTYP 

SET UP DATA TYPE 


N‘+70 0 309 

0310 

POOCl 

0FC8 


ALS 

3 




N47Q031G 

0311 

P00C2 

0832 


AAQ 

Q 




N-+70 0 311 

0312 

PQ0C3 

OAOG 


ENA 

CONFM 




N47QG 312 

0313 

P00C4 

5CA7 


RTJ^ 

(EXTHAN ) 




N4700313 

0314 

P00C5 

0013 


ADC 

INPOAT-^ 




N470031U 

0315 

P00C6 

CC98 


LOA^ 

(BUFAOD ) 

RETURN FROM CONFIRMATION 

CHECK 

N4? 3 0 315 

0316 

poon7 

0103 


SAZ 

LIOSAV 

OK, WRITE (SAVE MM) 


N470Q316 

0317 

P00C3 

F8 A2 

LIOEX 

LDQ^ 

BASE 

TO ••SOMMOR" 



N-^7Q0317 

0318 

P00C9 

E2 03 


LDQ- 

SOHMOR, 0 




N473 0 318 

0319 

POOCA 

1622 


JMP- 

(ZERO) , Q 




N470 0 319 

0321 





SAVE DATA IN MASS MEMORY 


N470 0321 

0322 

pooce 

54F4 

LIOSAV 

RTJ- 

(AMONI) 




N470 0 322 

0323 

POOCC 

0507 

LIOVD 

ADC 

$50 0^-CHRSLV 

WRITE 



N47C 0 32 3 

0324 

POOCD 

0 0 09 


ADC 

LIOVX-LIOVD 

RETURN 



N47G032H 

0 3 25 

PQ CCF 

CO 00 


NUH 

0 




N4700325 

0326 

PQDCF 

08C2 


ADC 

MASSLU 




N4700326 

0327 

POODO 

0 0 00 

LIOZ 

NUN 

0 

SIZE (FILLED) 



N470 0 32 7 

0328 

POODl 

DO OC 


ADC 

INPOAT-LIOVD 




N47U0 326 

0329 

P00D2 

00 00 

LIOS'1 

NUN 

0 

MSB (FILLED) 



N4700329 

0330 

P00O3 

00 00 

LIOSL 

NUM 

0 

LSB (FILLED) 



N470 0 330 

0331 

P00D4 

14EA 


JMP- 

(ADISPl 




N4700331 

0332 

PQ0O5 

01 61 

LIOVX 

SQP 

SAVOK 




N470Q332 

0333 

P00D6 

18E4 


JMP^ 

XFER 




N4700333 

0334 

P00D7 

18F0 

SAVOK 

JHP» 

LIOEX 




N470 0 334 

0336 









N4700336 

0337 

P00D8 

0 028 

INPDAT 

BZS 

INPDAT (N040) 




N4700337 


LAMRFQ PAGE 8 DATE: 01/27/99 

.0339 ^ 


0340 

0 0 02 

P 

EQU 

SA62{»/96) 

0341 

0 0 03 

p 

EQU 

SP62ISA62+1) 

0342 

0120 

P 

EQU 

DB62 {SP&2^96) 

0343 POICO 

0 0 20 


ess 

(DB62-^ ) 

0344 



END 



PGM= 0120 ( 288) COM = 0000 ( 0) DAT = OQJJ ( 0) 


n 

o 

o 

o 

o 

o 

o 

o 

o 

o 


{ 


N47u 0339 
N470 0340 
N470 0 3‘+l 
N‘+7G 0 3 h2 
N^+ZOOSAi 
N470 034i- 


O 

O 

o 

■ o 

o 

o 

■ o 

: O 
: G 
: O 
O 
O 
O 


n 


j’ 









o 
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DATE: 

31/27/99 


] t 









o 

O 

E Q U I V 

A L £ N 

C E S 






o 

o 

DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 


• o 

0 0 0 0 

I 

OCFF 

1000255) 

0 091, 

013 5, 

0138 




0045 

AMONI 

00F4 

(000244) 

0 188 , 

0322 




o 

0 04 5 

ADISP 

OOEA 

(000234) 

0 197 , 

0 331 


0278, 0297 

■ o 

0 045 

LPMSK 

000 2 

(000002) 

0 1 4-+ , 

014 6, 

0225, 0260, 



004 5 

NZERO 

Q012 

(000018) 

0 2 82 






0 04 5 

ZROBIT 

0033 

(000051) 






0 

0 04 6 

FIVE 

0043 

(000067) 





o 

0 046 

FIX 

0044 

(000068) 






0 04 6 

ZERO 

0022 

( G00D34) 

0306 , 

0319 





0046 

0NE8IT 

0023 

(000035) 

0158 






0 04 6 

SIXTEN 

0027 

( QQ0039) 


0 250, 



o 


0 047 

COMMA 

002C 

(000044) 

0229 , 

0283 




0047 

SLASH 

Q02F 

(003047) 

0 108 






00 47 

ASTRIG 

0G2A 

(0Q0042) 

0288 





■C-' 

0 0 48 

EIGHT 

0 026 

(000038) 





■ o 

0 048 

NINE 

0045 

( 000069) 






0048 

THREE 

00 0 4 

(000004) 







0 048 

ONE 

0 0 0 3 

(000003) 






o 

0048 

TWO 

00 24 

(000036) 






0 0 49 

TEN 

0046 

(000070) 







0050 

MASK 

u 0 0 3 

{ 003003) 


0 323 





0 0 52 

CHRSLV 

000 7 

(000007) 

0 189, 




o 

0 0 53 
0 0 5 4 

ASMOO 

1000 

(004095) 





• o 

MASSLU 

Q8C2 

(002242) 

0 192, 

0326 




0 055 

N040 

0028 

(000040) 

0 193, 

0337 





0 05 6 

COMLHM 

0018 

(000024) 

0 121, 

0125 





0 05 7 

COMLIM 

OOID 

(000029) 

0125 




C) 

■O 

0 060 

HANDLE 

0 001 

(000031) 

0 094 






0 0 61 

MSG 

000 2 

( 0 00002) 

0 0 96 






0062 

SOMMOR 

00 0 3 

( 0C0 0Q3) 

0 318 





o 

0 063 

lOERR 

00 0 4 

(000004) 

0 3 0 5 




■ o 

0064 

LTSTLU 

0005 

(000035) 






0 065 

COMOLU 

000 6 

(000006) 







0066 

NEWMLU 

000 7 

(O00G07) 

GO 99 




: O 

o 

0 067 

PROGl 

0QG8 

(000008) 





0 068 

PR0G2 

0009 

(000009) 

3 120 





0 069 

BITFLG 

OOOA 

( 0 00010) 

0132 






0 0 70 

8UFCNT 

0008 

(000011) 

0134 





o 









o 

o 









o 

o 









. o 

o 









n 










.. 

. . . . — - • 


r"\ 


L4MREQ 

PAG 

E 10 


DATE 


0 071 

FIELD 

00 0 C 

1000012) 

0107 , 

0224, 

0228, 02h9 


0072 

SLASHF 

3010 

(000016) 

0 118 



o 

0 0 73 

8UFEHT 

0011 

1000017) 




00 74 

BUFFER 

0012 

1000018) 

0 0 92 




00 77 

GETFLO 

>30 0 2 

(000002) 

0215, 

0 23 8 



007 8 

ASCHEX 

00 0 3 

(000003) 

0 241 



o 

0 079 

A SC DEC 

0 00 5 

(000005) 

0218 



0 0 80 

FFTHM 

0009 

(000009) 

0103 




0081 

PNTNO 

OOQA 

(000010) 





0 0 82 

CONFM 

OGOC 

( 0 00 012) 

0 312 




o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 


, 0 ^ c 

o , o 

o o 

O : O 

o o 

o o 


LAMREQ 


DATE; 01/27/99 


D 


PAGE 11 


Q SYMROLS 


o 

DEE. LINE 

NAME 

ADDRESS 


0 0 40 

LAMREQ 

uGOO 


0041 

LHMREQ 

000 0 


0 0 42 

LIMREQ 

0 0 0 0 


0 110 

LAI 

0014 


0116 

LAM5 

CQ16 


0124 

NOTLHM 

OOIE 


0131 

LHMX 

00 22 

o 

0132 

ASCDAT 

0023 


0136 

AS2 

0027 


0139 

AS4 

002A 


0144 

AS6 

G02F 

'-J 

0 150 

AS8 

0 03 4 


0157 

ASIO 

0G3B 


0161 

AS12 

003F 

'""'X 

0163 

AS14 

0041 

O 

0166 

AS15 

fl 0 *^7 


0171 

AS18 

0049 


0176 

AS20 

ao4C 


0177 

GONFRM 

0 0 4 C 

U 

0184 

SELF 

0055 


0189 

LIOCD 

005A 


0 190 

LIOE 

005B 

o 

0 192 

MLU 

0 0 50 

0194 

BUFADD 

005F 


0195 

LIOM 

0060 


019 6 

LIOL 

0061 


0 200 

PROTYP 

0063 


0 201 

COUNT 

0 0 6 4 


0 202 

MSB 

0065 


G2G3 

LSB 

006 6 


0 20 4 

sw 

0069 

o 

0 205 

TEMP 

006A 


0 206 

BASE 

006B 


0 20 7 

EXTHAN 

0 06C 


0 208 

EXT MSG 

Q06D 

o 

0 209 

ASMHIL 

006E 


0210 

HILO 

006F 


0 211 

GHA R 

0070 

o 

0 212 

ASTCH 

0071 

0215 

DECOAT 

0072 


0 228 

DEC 3 

0080 


REFERENCED AT LINE NUMBER 


0 0 40 , 
0 0 41 
0 0 42 
0231 
0109 
0122 
0 126 

0 089, 

0090 



0169 

0136 

0142 

0147 

0152 

0156 





0166 

0148 

0172, 

0177 




0227 , 

0262 

0186 



0183, 

0185, 



0187 

ClOl 

0093, 

0178 

0140 , 

0 315 




Q 181 
0119, 

0124, 

0131, 

0309 

0220 

0116, 

0163, 

0167, 

0173, 

0102, 

0 180 

01D6, 

0176, 

0203 , 

G204 

0 271, 

0276 


0237, 

0268 

0 145, 

0151, 

0159, 

0088 , 

0223, 

0304, 

0317 

0 2i*0 

0 095 , 

0105, 

0217, 

0219, 

0 097 , 

0111 



0171 

0117, 

0150, 

0161, 

0165, 

0133, 

0141, 

0168 



0 157 , 

016? 




0236, 

0253, 

0290, 

0292 


0127, 

0226 

0232 





0222, 0256, G258, 0272, 0277, 0307 

0280, 0294 
0242, 0313 



LAMREQ 

PAGE 12 


DATE: 01/27/99 

0 251 

DEC5 

0083 

0 2 99 



Q 232 

DEC7 

0084 

0230 



0235 

HEXDAT 

008 5 

0123, 

0263 


0 238 

HEX? 

0088 

0295 


0279, 0283, 0293 

0243 

HEXNUM 

008 D 

0255 , 

0 270 , 0275, 

0253 

HEX5 

0092 

0251, 

0 30 0 


0256 

HEX6 

0095 

0273, 

0284 


0 263 

HEX8 

309C 

G261 



0268 

HEXIO 

0090 

0254 



0275 

HEX12 

00A3 

0269 



0288 

HEX20 

00 AD 

0252 



0 29 0 

HEX22 

GOAF 




0292 

HEX24 

GOBI 




0 296 

HEX28 

00B5 

0 2 89 



0299 

HEX29 

00B8 

0 291 



0 300 

HEX30 

0089 

0 293 



0 303 

LIORT 

OOBA 

0186 



030 4 

XFER 

OQBB 

0333 



0 30 7 

XFOK 

UQBE 

0303 



0317 

LIOEX 

00C8 

0334 



0322 

LIOSAV 

OOCB 

0316 



0323 

LIOVD 

OOGC 

0324, 

0328 


0327 

LIOZ 

OODG 

0100 , 

0308 


0329 

LIOSM 

G0D2 

0179 



0 330 

LIOSL 

0003 

0182 



D 332 

LIO VX 

00D5 

0324 



0 334 

SA VOK 

0007 

0332 

0 221, G257, 

0314, 0323 

0337 

INPDAT 

0008 

0 164, 

0 340 

SA62 

0002 

0 3 41 



0 341 

SP62 

00 03 

0 3 42 



0 342 

DB62 

0120 

0 3 43 




LAMREQ PAGE 13 DATE: 01/27/99 


♦ V A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



ADISP 

0 04 5 

AMONI 

0 045 

ASIO 

3157 

AS12 

0161 

AS14 

0163 

A34 

0139 

AS6 

0144 

AS8 

0150 

ASCOAT 

0132 

ASCOEC 

0079 

0070 

ASTRIC 

0047 

BASE 

0 206 

aiTFLG 

0 069 

BUFADO 

0194 

BUFCNT 

COMLHM 

0056 

COHLIM 

0 057 

COMMA 

0 0 47 

COMOLU 

0065 

CONFM 

0082 

DEC5 

0 231 

DEC7 

0 232 

OECDAT 

0 215 

EIGHT 

0048 

EXTHAN 

020 7 

GETFLO 

0077 

HANDLE 

0060 

HEX 10 

Q26S 

HEX12 

0275 

HEX2 

0238 

HE/ 29 

0299 

HEX30 

0300 

HEX5 

0 253 

HEX6 

0256 

HEX8 

0263 

INPDAT 

0337 

lOERR 

0063 

LAI 

0 110 

LAM5 

0116 

LAMREQ 

0040 

LIOE 

0190 

LIOEX 

0317 

LIOL 

0196 

LIOM 

0195 

LIORT 

0303 

LIOVX 

0332 

LTOZ 

0327 

LISTLU 

0 064 

LPMSK 

0045 

LSB 

0203 

MSG 

0061 

NEWMLU 

0 066 

NINE 

0 0 48 

NO40 

0055 

NOTLHH 

0124 

PROGl 

0067 

PROG2 

0 0 68 

PROTYP 

02 00 

SA62 

0340 

SAVOK 

0334 

SLASHF 

0 072 

SOM NOR 

0062 

SP62 

0 3 41 

SW 

0204 

TEMP 

0205 

XFOK 

030 7 

ZERO 

0 046 

ZRO BIT 

0 0 45 






o 

o 


o 


o 

o 


1 


o 

o 


A Si 5 

0168 

AS18 

G171 

AS2 

0 15 6 

AS2D 

0176 

O 

ASCHEX 

0 078 

ASMHIL 

020 9 

ASMOD 

0 053 

ASTCH 

0212 


BUFEMT 

0073 

BUFFER 

0074 

CHAR 

G 211 

CHRSLV 

0Q52 


CONFRM 

0177 

COUNT 

02 0 1 

0B62 

0 342 

DEC3 

0228 

o 

EXTMSG 

0208 

, FETHM 

0080 

FIELD 

0 071 

FIVE 

3 C 46 

HEX20 

0288 

HEX22 

0290 

HEX24 

0 292 

HEX28 

0296 


HEXDAT 

0235 

HEXNUM 

0243 

HILO 

0 210 

I 

OQOO 


LHMREQ 

0041 

LHMX 

0131 

LIMREQ 

0 042 

LIOCD 

0189 

' o 

LIOSAV 

0322 

LIOSL 

G33Q 

LIOSM 

0329 

LIOVD 

0323 

MASK 

0050 

MASSLU 

005^ 

MLU 

0192 

MSB 

0202 


NZERO 

0045 

ONE 

03 43 

ONEBIT 

0046 

PNTMD 

0 0 81 


SELF 

0184 

SIX 

00 46 

SIXTEN 

0 046 

SLASH 

0047 

l'"', 

TEN 

0049 

THREE 

G043 

TWO 

0 048 

XFER 

030 4 



o 


o 


o 


o 


C) 


o 


o 


o 


o 




DDPREQ 


PAGE 


1 


DATE: 01/27/99 


SUHMARY- 




^ ^ ^ ^ 


NAM DOPREQ DECK-ID NA 8 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

''• THIS PROCESSOR DUMPS CORE VALUE IN » 

DOUBLE PRECISION FORMAT ^ 

V >/. 


INPUT FORMAT : 

DDP, STARTING CORE, END CORE, BASE 
OUTPUT FORMAT : 

A TOTAL OF 2 VALUES ARE INSERTED IN A LINE 
LLLL +0.123A56789012O+12 >0.1234567890120-12 


ENT DDPREQ 


EXT MMAODR 
EXT MSG 

EXT DCONV 
EXT HANDLE 
EXT OFF 
EXT CHRSFG 


ENTRY 


NAME 


EXTERNALS 


1 CARO DELETED 

0- OR F-FORMAT CONVERSION FOR DOUBLE 


11 

N4800002 
N4800G03 
N480 0004 
N48 G u 0 0 5 
N480 0006 
N 48 Q 0 00 7 
N48CGCCB 
N48G 0 009 
N48G OulC 
N4800011 
N450 0012 
N 48 O 0 013 
N4800014 
N^8u 0 Q 1 5 
N4800016 
N‘+80 0 017 
N4800018 
N 48 O 0 019 
N480U02D 
N480 0021 
N480 0022 
N4800023 
N48C 0 024 
N48C0025 
N4800026 

N48B 0 02 8 
N480 0029 

N 48 OO J31 
N4800032 
N48Q0033 
N 4 8 0 0 0 3 4 
N48ii U03b 
N4800036 
N 48 OO 037 
N48OOO38 


C0F4 
0 0 FA 
0 0 02 
0012 
0 0 33 
0 0 43 
C 0 44 
0 0 22 
0 0 23 
0 0 27 


'EQU' TABLE 

EQU AMOMI ($F4) ,ADISP{$EA) , L PiiSK ( 2 ) , NZ ERO ( $1 2 ) ,ZROBIT{$3 3) 


EQU FIVE ($4 3) , SIX ($44) , ZERO ( $ 22 ) , ON EB I T ($ 23 ) , SI X TEN ($ 27 ) 


N480 0040 
Na8u0041 


N4800042 


( ; 


O 

0043 
O 00 44 


O 

o 

o 


O 


0045 

0046 

00 48 

0049 

0050 

0051 
00 52 
0053 
005 4 

0 0 5 6 

0057 

0058 

0059 
0050 
0061 


ODPREQ 


PAGE 2 


date: Ul/27/99 


0 C2C 
0 02F 
0 0 2A 
0 0 26 
0 0 45 
00 04 
0 0 03 
0 0 24 
GO 46 
0 0 03 

0 0 07 
0 024 
1000 
0 8C2 
0708 
Q0E9 
0 0 02 


0 0 02 
0 0 03 
0 0 05 
0 0 2E 
0 0 45 


EQU COMMA ($20 ,SLASH(S2F) lASTRIC ($2A) N48G 0 043 

E(JU EIGHT ($ 26) » NINE ($45 ) , THREE (4) »ONE { 3 ) » TWO ( $24) N480 0044 


EQU TEN($46) 
EQU HASK(3) 


ONE BIT MASK 


N480QQ45 
N4800 046 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


CHRSLV(7) 
LNW336(36) 
ASMOO ($100 0 ) 
MASSLU($8C2) 
FLOATZdSO 0 ) 
EXT8V4 { $E9» 
WROLN(2 ) 


LEVEL OF THIS PROGRAM 
36WORDS/LINE 
ASC OUTPUT MODE 
HASS MEMORY LU 

SIZE OF FLOATING POINT PACKAGE 


2 DATA VALUES PER LINE 


116 ^ 4360 ^^’^'^^^’^^ 
N^+aO 0 049 
N-t80 0 050 
Nh-SO 0 05 1 
N48Du052 
N^BO 0 053 
N480 0 0 54 


EQU 

EQU 

EQU 

EQU 

EQU 


SUBROUTINE "EQU” 
GETFLD(2) "GETFLO" 

ASCHEX(3) "ASCHEX" 

ASCDEC(5) "ASCOEC" 

KARPER($2E) CHARACTER = 

KARE{$45) 


POINTERS 


N480Q056 
N^80 0 057 
N4800058 
N4800059 
N480006G 
N4800061 


O 

o 

(D 

O 


00 63 

006 4 
0065 
0 0 6 6 
0067 
0058 
0069 
Q07 0 
0071 
00 72 
0073 
00 7 4 

007 5 
0 076 
0077 
0 078 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
0 0 06 
0 0 07 
0GG8 
0 0 09 
OOOA 
00 OB 
OOOC 
0010 
00 11 
0 012 


EQU BHANIi) 

EQU BMSG(2) 

EQU SOMMOR(3) 
EQU IOERR(4) 
EQU LISTLU(5) 
EQU COMOLU(6) 
EQU NEWMLU(7) 
EQU PROGKS) 
EQU PROG2(9) 
EQU BITFLG(IO) 
EQU BUFCNT(ll) 
EQU FIELD(12) 
EQU SLASHF(16) 
EQU BUFEMT(17) 
EQU 8UFFER(18) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE 
"MSG" ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 
LIST OUTPUT — 
"COMOLU' 
-NEWMLU' 
••PROGl" 

"PRQG2" 

"8ITFLG 
"BUFCNT 
"FIELD” 

"SLASHF 
"BUFEMT 
"BUFFER 


'LISTLU' 


-- NEW MM LU 


N480QQ63 
N4 80 0 0 6^ 
N480 G 065 
N-+8a 0 066 
N^-Su 0 0 6 7 
N4800 068 
N480 0 059 
N4800Q70 
N4800071 
N480G072 
N^8G 0 u 7 3 
N48Cu07h 
N480 G 075 
N-fSDG 076 
N48U0077 
Nh8G0Q78 


O 

O 


O 

O 

C 

o 


o 


o 


o 

o 

o 


o 

00 8 0 
00 81 
00 82 



(f- 


It 

PROGRAM 

START 


NhBOCuBO 
N4800081 
N48Q0 082 

o 

008 4 
00 85 

POOCO 

POOGl 

b87D 

60FF 

ODPREQ 

STA» 

STA- 

BASE 

I 




N4800084 
N48 0 0 0 3 5 


o 

o 


o 


c 


ODPREQ 


PAGE 


□ ATE; 01/27/99 


0086 P0002 8112 

0087 P0003 6800 
P00Q4 DO El 

0088 P00Q5 6874 

0089 P0006 ClOl 

0090 P0007 6874 

0091 PQQQ 8 881B 

0092 P00Q9 9819 

0093 POOOA 6800 
PCQOR DQE2 

0094 POQQC C1Q2 
DG95 POOOD 6860 

0096 POOOE C105 

0097 POOCF 8815 

0098 PODIO 6800 
POOH 00D2 


ADD- BUFFER*! CALCULATE •'BUFFER" ADD. 

STA BUFAOD 


STA^ DATLOC 
LDA- BHAM,I 
STA^ EXTHAN 
ADD- OTB+1 
SU 8 » 0TB 
STA EXTOFF 


GET "HANDLE" ADDRESS 


CALCULATE "OFF" ADDRESS 


LOA- 8 MSG,I 
STA^ EXTMSG 
LDA- LISTLU,! 
ADD^ MODE 
STA OTLU 


FETCH "MSG" ADDRESS 


N 48 OOQ 86 
N48QQ 087 

N48G0088 
M480QG89 
N^+SO 0 09G 
N4&00091 
N480G092 
N + 800 093 

N460Q094 
N 48 Q 0 095 
N48u 0 096 
N480 0097 
N4800098 


010 0 

OlQl P0012 

0102 P0013 

0103 P0014 

0104 P0015 

0105 P0016 

0106 PQ017 

0107 P0018 

0108 P0019 

0109 POOIA 

0110 POQIB 

0111 POOIC 

0112 PflOlD 

0113 POOIE 

0114 POOIF 

0115 

0116 P0020 

0117 P0Q21 


OAOO 

6869 

C0F5 

6868 

0A02 OSPl 
0C04 
5C63 
CIOC 
OlOA 
9Q0A 
0108 
80 0A 
0903 
0105 

0C04 DSP3 
1C59 


GET 

ENA 0 
STA^ COUNT 
LDA- $F5 
STA^ MAX 
ENA GETFLD 
ENQ 4 

RTJ» (EXTHAN) 
LDA- FIELD*! 

SAZ DSP5 
SUB- LPMSK +8 
SAZ 0SP5 
ADD- LPMSK +8 
INA -COMMA 
SAZ DSPS 


ALL CORE ADDRESSES 

HIGHEST CORE LOCATION USED BY SYSTEM 
GET A FIELD (CORE LOG. ) 

CHECK IF EMPTY 
IS END OF TEXT 

IS COMMA 


ENQ 

JMP^ 


(EXTMSG) 


INCORRECT FORMAT, 


0119 




a?. 

0120 

PG022 

7FFF 

X 

0TB 

0121 

P0023 

7FFF 

X 

MODE 

0122 

P0024 

1000 


0123 





0124 

P0G25 

0A03 


DSPS 

0125 

P0Q26 

5C55 


DSPVA 

0126 

P0Q27 

0 0 0 0 


0127 

PO 028 

E854 



0128 

P0029 

C 8 FO 



0129 

P002A 

6A7B 



0130 

P0Q2B 

0851 



013 1 

P002C 

5800 




PO 020 

C OCB 



0132 

P002E 

18F1 



0133 

P002F 

E 8 4D 




ADC HANDLE 
ADC OFF 
ADC ASMOO 

ENA ASCHEX 
RTJ^ (EXTHAN) 
NUM 0 
LOQ’^ COUNT 
LDA^ OSPVA 
STA» DSPLOC,Q 
RAO^ COUNT 
RTJ CORAOK 

JMP-'^ DSP3 
LDQ^ COUNT 


0, "HANDLE" ENTRY 

1 . "OFF" ENTRY 
ASC OUTPUT MODE 

CONVERT TO HEX 


STORE location ACCORDINGLY 

TO CHECK IF CORE LOC. WITHIN LIMIT 
ERROR, GO 


N48 0 010 D 
N48C 0101 
N-+800 102 
N^800103 
N^^SO 0104 
N-+8a01Q5 
N480 010 6 
N4800107 
Ni48i] 0108 

N46 0 01U9 
N48UQ11G 
N-4800ill 
N4800112 
N4800113 
N^800114 
N480 Oil 5 
N48D0116 
N4800 117 

N480 0119 
N480 Q12Q 
N480Q121 
N4800122 
Ni*80ei23 
N480 0 124 
N48G0125 
N9800126 
N48Q 0127 
N '-+8 0Q12 8 
N4800129 
NhSOOISO 
N480Q131 


N48D 0132 
N480G133 
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0134 

POO 30 

ODFC 


INQ 

-3 

CHECK IF DOME 

0135 

P0 031 

01 41 


SQZ 

DSPIO 


0136 

PD032 

18E3 


JMP=^ 

OSPi 

NO» REPEAT 

0138 







0139 





ADJUST 

ADDRESSES IF NEEDED 

0140 

0141 

P0Q33 

cm 

DSPIO 

LOA- 

BUFEHT, I 

MAKE SURE IS EMPTY 

0142 

P00 34 

B 012 


EOR- 

LPMSK+16 


0143 

P0 035 

0101 


SAZ 

DSPll 


0144 

PO 036 

18E9 


JMP^ 

DSPS 


0145 

P0037 

C8 6F 

DSPil 

LDA^ 

DSPLOC41 

MAKE SURE "END" LARGER THE "BEGIN 

0146 

P0Q58 

986D 


SUB^ 

DSPLOC 


0147 

PG039 

0121 


SAP 

0SP12 


0148 

P003A 

18E5 


JMP’^ 

OSP3 


0149 







015 0 

P0C3B 

C86A 

DSP12 

LDA-’>‘ 

DSPLOC 


0151 

POO 3C 

886B 


AOO'^ 

DSPLOC+2 


0152 

PC03D 

6868 


STA^ 

DSPLOC 


0153 

PG 03E 

C868 


LOA^ 

OSPLOC+1 


015 4 

P0 0 3F 

8868 


AOD^ 

DSPLOC+2 


0155 

POQ 4 O 

6866 


STA^ 

DSPLOC+1 


015 6 





INSERT 

DATA 

0157 

P0C41 

0 8 44 

DSP13 

CLR 

A 


0158 

PG042 

6 8 3 A 


STA^ 

COUNT 



N-t8DQ13H 

N4800135 

N4800136 

N4800 138 
N4800139 
N4800 14G 
N48D0141 
N4800142 
N4800143 
N480 01^4 
N4800145 
N48 j 0146 
N48D0147 
N480 0148 
N48QQ149 
Nh8Q0150 
N460 0151 
Nh-80 C 1?2 
N48Q0153 
N480 0154 
Nh 80Q155 
N‘+80 0 15fa 
N48Q0157 
N48a0156 


0150 





FILL LINE WITH SPACE 

0161 

POO 43 

C900 


LDA 

= A 



P0Q44 

2020 





0162 

P0045 

0C23 


END 

35 


0163 

PD046 

6ED0 

OSP20 

STA 

{BUFAOD ) ,Q 



PO 047 

0 09E 





0164 

PO 048 

GOFE 


INQ 

-1 


0165 

PO 049 

01 71 


SQM 

DSP22 


0166 

POO UA 

18FB 


JMP^ 

DSP20 


0167 





INSERT 

CORE LOCATION TAG 

0168 

G169 

P004B 

C85A 

0SP22 

LDA + 

DSPLOC 

ASSEMBLE HI-2-DIGIT OF LOC 

017G 

PO 04C 

0F4C 


ARS 

12 


0171 

PQD40 

5 8 25 


RTJ* 

CONASC 


0172 

P0 04E 

0 8 22 


TRA 

Q 


0173 

P004F 

0FA8 


QLS 

8 


0174 

P0Q5G 

C855 


LDA + 

DSPLOC 


0175 

P0Q51 

0F48 


ARS 

8 


G176 

P0052 

5820 


RTJ + 

CONASC 


0177 

P0053 

0874 


EAQ 

A 


0178 

P0C54 

6C25 


STA + 

(DATLOC ) 

SAVE HI—2~DIGIT 

0179 

PD055 

C850 


LOA + 

DSPLOC 

CONVERT L0-2-0IGIT OF LOC. 

0180 

P0056 

OF 44 


ARS 

4 


0181 

P0 057 

581B 


RT J’ 

CONASC 


0182 

P0058 

C822 


TRA 

Q 


0183 

P0059 

OF A8 


QLS 

8 



N4800160 
N480 0161 

N4800162 

N480G163 


N480 0164 
N 48 O 016 5 
N 48 CGI 66 
Nh8 0 016 7 
N48Q0168 
N 48 OOI 69 
N4800i7G 
N480G171 
N4800172 
N480D173 
N 48 00 17 4 
N48 0 0 17 5 
N480 0176 
N4800177 
N4800178 
N480 0 179 
N480018C 
N48QQ181 
N480G182 
N 48 G G 18 3 


o 


DDPREQ 


PAGE 






0184 

P005A 

C84B 


LDA* 

DSPLOC 


N480 0184 


0185 

P005B 

5817 


RTJ^ 

CONASC 


N48Q0135 


0186 

P0Q5C 

0374 


EAQ 

A 


N 480 018 6 


018 7 

P005D 

OCOl 


ENQ 

1 


N480 0137 


0188 

P0 05E 

6E1B 


STA^ 

(DATLOC ) ,a 


N 48 Q 0188 


0189 



Jf. 



INCREMENT DATA LOC. TO VALUE 

N4800189 


019G 

P0 05F 

0 A04 


ENA 

4 


N 48 0 0 19 u 


0191 

PQ050 

8819 


ADD^ 

oatloc 


N480 0191 


0192 

P0061 

68 18 


STA^ 

DATLOC 


N480G192 

o 

0194 







N4800194 


0195 



V- 


GET AND 

ASSEMBLE VALUE 

N4600195 


0196 



V- 




N480 0 196 


0197 

P0 062 

CC43 

D0P26 

LDA- 

(DSPLOC ) 

MOVE FLOATING POINT VALUE INTO CALLING PAR. 

N48D0197 


0198 

P0063 

684C 


STA^ 

VALUE 

ARRAY 

N48Q0198 


0199 

P0064 

D841 


RAO^ 

DSPLOC 


N4800199 


020G 

P0065 

CC4G 


LOA^^ 

(DSPLOC ) 


N48Q020C 

o 

0201 

P0066 

684A 


STA^ 

VALUE+1 


N480 0 201 

0202 

P0067 

D83E 


RAO^ 

DSPLOC 


N480 0202 


0203 

P0 068 

CC 30 


LDA^ 

(DSPLOC ) 


N48002G3 


0204 

P0Q69 

6848 


STA» 

VALUE+2 


N4800204 

o 

0205 

P006A 

D83B 


RAO^ 

DSPLOC 


N480 0 20 5 


020 7 



if. 




N 480 0 2D 7 


0208 





REQUEST 

SPACE TO BRING IN FLOATING POINT PACKAGE 

N480 0208 


0209 

P006B 

54F4 

LSPl? 

RTJ- 

( AHONI) 


N483 0 209 


0210 

POG&G 

1547 

LSPCAL 

AOC 

S1540+CHRSLV 


N480 Q21D 


0211 

P0Q6D 

0012 


ADC 

LSPACE-LSPCAL 


N480 0211 


0212 

PO 06E 

CQ 00 


NUM 

0 


N 48 OO 212 


0213 

PO Q6F 

0 0 00 

LSP13 

NUM 

0 

CORE LOCATION OF REQUESTED SPACE 

N48Q0213 


0214 

P007D 

0 708 


AOC 

FLOAT/ 


N-*8Q 0 21 4 


0215 

P0Q71 

14EA 


JNP- 

(ADISP) 


N 48 GO 215 


o 



021 7 







N480U21 7 

0 

0218 



-If ¥4 


SUBROUTINE FOR ASSEMBLE ASCII 

N430 0218 

\ ! 

0219 



V- 




N480 0219 


0220 

P0 072 

OBGO 

CONASC 

NOP 

0 

ENTRY 

N 48 0 0 22 0 


0221 

P0073 

A0C6 


ANG- 

MASK^-3 

EXTRACT 4 BITS 

N48Q0 221 


0222 

PO 074 

09F5 


INA 

-10 

CHECK FOR NUMBER 

N4800222 


0223 

PO 075 

0131 


SAH 

DA3NO 


N4800223 


0224 

PO 076 

0907 


INA 

7 

SET FOR A-F 

N 48 O 0 224 


0225 

PD077 

093A 

DASND 

INA 

$3A 


N480 0 225 

0 

022 6 

P0 0 78 

1CF9 


JMP«^ 

(CONASC ) 

EXIT 

N480G226 


0228 







N 48 OO 228 


0229 

P00 79 

GOOD 

OATLOC 

NUM 

0 


N480 0229 


023 0 

P0 07A 

0 0 0 0 

EXTNSG 

NUN 

0 

"MSG" ADD. 

N480 023G 

LJ 

0231 

PO 078 

0 0 0 0 

EXTHAN 

NUM 

0 

"HANDLE" ADD. 

N4800231 


0232 

P0G7C 

0 0 00 

COUNT 

NUM 

0 


N4800232 


o 



o 

o 

o 

o 

o 

(3 

C) 

S,.* 

O 

o 

C) 

o 

o 

C) 

o 

o 
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0233 

P0 07D 

0 0 0 0 


BASE 

hJUM 

0 

PARAMETER ADD. 

N4800233 

o 

0235 








N-,83fl235 


0236 

P00 7E 

0162 


LSPACE 

SQP 

LSP15 

SPACE BE GRANTED, DO SOMETHING 

N 48 O 0236 


0237 

P0Q7F 

1323 



JMP^ 

DSPEIO 

TO ERROR (I/O ERROR) 

N-f 8 a 0 2S7 


0238 

PO 080 

0 0 0 0 


MAX 

NUM 

0 


N48002S8 


0239 








N46G 0 239 


02 if 0 

P00 81 

4816 


LSP15 

STQ^ 

LSP25 

SET LOC. WHERE PROGRAM TO BE READ 

Nh-800240 


0241 

P0 082 

481F 



STQ^ 

LSP31 


N48QQ241 


0242 

PD083 

482A 



STQ=^ 

LSP40 


N4800242 

f 1 

0243 

P00 84 

5801 



RTJ» 

SELF 

GENERATE RETURN ADD. 

N4800243 


0244 

P0 085 

0 BOO 


SELF 

NOP 

0 


N480 0244 


0245 

P0 0 86 

C 8 FE 



LDA^ 

SELF 


N480 0 245 


0246 

P0 087 

0919 



INA 

LSP30-SELF 


N48C0246 

U 

0247 

P0088 

68 0 8 



STA» 

LSP24 


N 48 O 0247 


0248 

P0 089 

C812 



LDA'^ 

OFTB 

GENERATE "HMADDR" LOCATION 

N4800248 


0249 

P008A 

9812 



SUB* 

0FT8+1 


N480 0 249 


0250 

PDD 8 B 

88 EE 



ADD^ 

EXTMSG 


N 48 O 0 250 

' ) 

0251 

P008C 

0822 



TRA 

Q 


N480 0 251 


0252 

P9 08D 

C810 



LDA^ 

FLTAOD 

GET FLOAT PACKAGE SECTOR ADD. 

N48G0252 


0253 

PO 08E 

5622 



RTJ- 

(ZERO)tQ 

TO 'MHADDR' FOR MM ADD. CONVERSION 

N4800253 


0254 

P008F 

680A 



STA^ 

LSP26 

SAVE LSB 

N480 0 25 4 

( ) 

0255 

P0090 

4808 



SIQ* 

LSP26-1 


Nt 8 u 0 25 5 


0256 

P0091 

54F4 



RTJ- 

{AMOND 


N48G 0 25 6 


025 7 

PO 09 2 

080 7 


LSP20 

ADC 

$800^CHRSLV 


N4800257 


0258 

P0Q93 

0 0 0 0 


LSP24 

NUM 

0 

RETURN (TO BE FILLED) 

N 48 O 0 258 

O 

0259 

PC094 

0 0 0 0 



NUM 

0 

THREAD 

N4800259 


026 0 

P0095 

0 8 C 2 



ADC 

MASSLU 


N480026D 


0261 

PO 096 

07 08 



ADC 

FLOATZ 


N48 0 0 261 


0252 

P0 097 

0 0 0 0 


LSP25 

NUM 

0 

FLOAT PACKAGE ADD. (TO BE FILLED) 

■ N4800262 

o 

0263 

P0 098 

OG 00 



NUM 

0 


N4800263 


0264 

P0099 

0 0 0 0 


LSP26 

NUM 

0 

SECTOR ADD. (TO BE FILLED) 

N48G 0 26 4 


0265 

PG09A 

1 4EA 



JMP- 

1ADISP) 


N4800265 

0 

0267 




¥• 




N48j 0267 


0258 

PQ09B 

7FFF 

X 

OFTB 

ADC 

MM A DDR 

0. "MMADDR" 

N 48 Q 0268 


0269 

P009C 

7FFF 

X 


ADC 

MSG 

1. "MSG" 

N480 0 269 

o 

0270 

P0090 

7FFF 

X 

FLT ADD 

ADC 

OCONV 

D- OR F-FORMAT CONVERSION FOR DOUBLE 

N4800270 


0272 








N4800272 


0273 

PO OPE 

01 69 


LSP30 

SQP 

LSP35 

MM TRANSFER OK, SKIP 

N480027 3 


0274 

P009F 

54F4 



RTJ- 

{AM ONI) 

RELEASE CORE 

N48G 0 274 


0275 

POOAO 

1800 



NUM 

$18 0 0 


N48&O275 


0276 

POOAl 

0 0 0 0 


LSP31 

NUM 

0 


N4830276 


0277 

P00A2 

E80A 


DSP El 0 

LDQ» 

BASE 

EXIT TO "lOERR" 

N4800277 

o 

0278 

P00A3 

E204 



ldq- 

IOERR,Q 

EXIT TO "10 ERR" 

N480Q 278 


0279 

P00A4 

1622 



JMP- 

(ZERO) , Q 


N 48 Q 0 279 


0280 

POOA 5 

0 0 03 


OSPLOC 

BZS 

QSPLOCI 3) 


N 48 Q Q 28 0 

o 

0281 








N480 0 281 

0282 




■p » » ¥ 


FLOAT 

PACKAGE IS IN CORE, CONVERT NO. 

N4800232 


0283 








N48QQ 283 


o 


o 


C’ 

o 

o 

o 

o 

Q 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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0284 

P0QA8 

OCOl 

LSP35 

END 

1 

0285 

P00A9 

5CC5 


RTJ^ 

(LSP13) 

0286 

POOAA 

DO 05 


ADC 

VALUE--'^ 

0287 

POOAB 

54F4 

LSP37 

RTJ- 

(AMONI) 

0288 

POOAC 

1800 


NUH 

$18 0 0 

0289 

PQ OAO 

00 00 

LSP4Q 

NUM 

0 

0290 

PQQAE 

1819 


JMP^ 

DSPlOO 


RELEASE CORE 

ADO. (TO BE FILLED) 


0292 

0293 PQOAF 0018 


^ STORAGE ANO/OR CONSTANTS 

VALUE BZS VALUE(24) 


0295 

0296 

0297 

0298 

0299 

0300 
Q3Q 1 
0302 
03 0 3 
030 4 
030 5 
0306 
030 7 

0308 

0309 

0310 


P00C7 
P00C8 
PQ0C9 
POOCA 
POOCB 
POOCC 
POQCO 
PO OCE 
POOCF 
POODO 
POOOl 
P00D2 
P00D3 


OCOO 
CAE9 
0FC8 
8 AES 
6GA0 
08AC 
0 002 
0814 
Q9EB 
0121 
18F6 
08 A 6 
08A5 


* 

V- 

DSPlOO EN(5 
OSPlOl LOA=^ 
ALS 
AOD^ 
STA^ 
RAO^ 
INQ 
TRG 
INA 
SAP 
JMP^ 
DSP102 RAO^ 
RAO^ 


INSERT INTEGER INTO OUTPUT FORHAT 


VALUE+3 

8 

VALUE+4 ,Q 
(DATLOC ) 
DATLOC 
2 
A 

-20 

DSP102 

DSPlOi 

DATLOC 

DATLOC 


DONE SKIP . . 

TO REPEAT ASSEMBLE OUTPUT DATA 


0312 
0 313 

0314 

0315 
Q316 

0317 

0318 

0319 

0320 

0321 


P00D4 D8A7 
P0005 C 8 A 6 
PDOne 09FD 
P00D7 0104 

PQ0D8 C 8 CD 
P0009 98CB 
POOOA 0131 
POODB 1886 


CHECK IF LINE EXHAUSTED 

RAO» COUNT 
LOA^ COUNT 
INA -WROLN 
SAZ OSP105 

CHECK IF DATA EXHAUSTED 
LDA^ DSPLOC+i 
SUB'f DSPLOC 

SAH DSP105 DATA EXHAUSTED, TO PRINT 

JMP^ DDP26 


0323 

0324 

0325 

0326 POQDC G 8 A 8 

0327 POODO 0962 


V- 


PRINT DATA 


DSPIO 5 LDA* SELF 

INA OSPRET-SELF 


1 


N + 8 Q 0 28 4 
N480G285 
Nh 8 D 0 286 
N480G287 
N480028B 
N4800289 
N480 0 290 


N4800 292 
N4800293 


N,8j0295 
N480 0296 
N'+80 0 297 
N480G298 
N480C299 
N48u 0300 
N48G0301 
N48Q 0 302 
N483 0 303 
N48D 0304 
N480 0 305 
Nh 800306 
N48Q 0 30 7 
N4800 308 
N480G3Q9 
N48003ia 


N4800 312 
N480 0313 
N48u0 314 
N480 0 31 
N 48 O 0 316 
N 46 UQ 317 
N4800318 
N4800319 
N480 0 320 
N4800321 


N480 0 323 
N 48 O 0324 
N4800325 
N48Q 0 326 
N48D0327 


c 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Vr**' 


o 


ODPREQ 


PAGE 
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DATES 01/27/99 


POODE 68 03 STA^ DSPX 

POODF 54F4 RTJ- (AHONI) 

POOEQ QC07 ADC SCOO+CHRSLV 

POQEl 0000 DSPX NUM 0 

P00E2 0000 NUM 0 

P00E3 0000 OTLU NUM 0 

PQ0E4 0024 ADC LNWD36 

P00E5 GOOD BUFAOD NUM 0 

P00E6 14EA JMP- {ADISP) 


CALL MONITOR 
EXIT (TO 8E FILLED) 
LU (TO BE FILLED) 
"BUFFER” ADD. 


P00E7 0161 
P0QE8 18B9 

PQ0E9 C400 
POOEA 7FFF 
POOEB 0112 
POQEC ICOl 
POOED 0000 


PO OEE 
POOEF 
POOFO 
PODFl 
P00F2 
P00F3 
PC0F4 


C8B7 
98B5 
0 134 
C8F3 
6886 
18G0 
FF4C 


P00F5 E887 
PGGF6 E203 
PQQF7 1622 


DSPRET SQP 
JMP’‘ 

X OSPOK LOA 
X 

SAN 

JMP» 

EXTOFF NUM 

DSPREP LDA^ 
SUB^ 
SAM 
LDA» 
STA*^ 
JMP 


DSPOON LDQ^ 
LOQ- 
JHP- 


DSPOK 

DSPEIO 

CHR3FG 


RETURN FROM OUTPUT 

TO "lOERR" ERROR EXIT 
CHECK IF "OX" 


DSPREP 
(EXTOFF ) 
0 

DSPLOC+1 

DSPLOC 

U SPOON 

BUFADD 

DATLOC 

DSP19 


BASE 

SOHMOR» Q 
(ZERO) , Q 


NO, SKIP 
EXIT TO "OFF" 

"OFF" ADDRESS 

CHECK IF ALL DATA EXHAUSTED 
RESTORE BUFFER ADD. AND REPEAT 


ME 

EXIT TO 


•SOMMOR' 


CHECK 

P0QF8 OBOO CORADK NOP 0 

POOF9 EQE9 LDQ- EXTBV4 

PGOFA E622 LOG- (ZERO),Q 

PO 0F3 0 1 55 SQN AD65 

PQOFC 0133 SAM AD32EX 

POOFD 9882 SUB* MAX 

POOFE 0138 SAM AD65EX 

POOFF 0107 SAZ A065EX 

POIQQ 1CF7 AD32EX JMP* (CORADK) 

CHECK 


CHECK ADDRESSES TO BE WITHIN 


037 0 
0371 

PQIOI 

0125 

AD65 

SAP 

AD65EX 

0372 

P01G2 

9800 


SUB 

MAX 

C373 

P0103 

PG104 

FF7C 

C132 


SAM 

A065EX 


ENTRY 

GET 32K/65K FLAG (32K=0, 65K=1) 

SKIP ON 65K 
ERROR, OVER 32K 


RETURN 

TO BE WITHIN 65K OR LESS 
SKIP FOR 32K OR SO 


SKIP 


o 


N4800328 
N4800329 
N4 8G 0 35 0 
NhSQOSSI 
N4800332 
N4800 333 
N4800334 
N4800335 
N480 0 336 


N4800338 
N480 0339 
N480 0 340 
N4800341 
N4800342 

N4800343 
N480 0 344 
N48GQ345 
N480 0 346 
N48Q0347 
N48a 0348 
N48Q 0349 
N480 0350 
N-#800351 
N^8Q 0 35 2 

N4800353 
N48Q035‘- 
N 48 0 0 35 5 
N48Q0356 


N4-6D 0 358 
N48D0359 
N 48 0 0 36 0 
N48Q 0 361 
N4800 362 
N4800363 
N480 0 36 4 
N480 0 365 
N480 0 366 
N4800367 
N 48 O 0368 

N48j 0 370 
NH80C371 
N48QC372 


o 

c 

o 

r-. 

V.* 

C> 

/■") 

o 

C\ 

c 

o 

o 

o 


o 



N^800373 


DDPREQ 
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DATES 01/27/99 




0379 P0105 0101 
0375 P0106 18F9 


0376 P01D7 D3F0 

0377 P0108 ICEF 


SAZ AD65EX 
JMP^ A032EX 


AD65EX RAO^ CORADK 

JMP^ (CORADK) 


OK, SKIP 
ERROR, GO 
SET NORMAL EXIT 
NORMAL RETURN 


o 


037 9 

038 0 

0381 

0382 


00 02 P 
0 0 03 P 
0120 P 


0383 P0109 0017 


0384 


♦ 


EQU SA39(^/96) 

EQU SP39(SA39+1) 
EQU 0E39 I SP39^96) 
BSS (DB39-’^) 

END 


o 


PGM= 0120 ( 988) COM = 0000 ( 


0) DAT = 0000 


0 ) 


O 

Q 

o 

o 

o 

o 

o 

o 

o 


N480 C 374 
N48Q 0375 
N48 C 0 37 6 
N4800377 


N4800379 
N4800380 
N48D0381 
N480 0 382 
N48D 0383 
N48Q 0 38 4 


C' 

o 

o 

o 

o 


n 

“>»•- 

( ') 

s 

O 



o 

o 

o 

r-\ 

o 

o 


DDPREQ 


date: Cl/27/99 


PAGE IG 


: a u I V 

A L E N 

C E S 





DEF.LINF 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

0 0 0 0 

I 

GOFF 

( 000255) 

0 0 85 



0 041 

AMONI 

00F4 

J000244) 

0209, 

0256, 

0274, 0287, 0324 

0 0 41 

ADISP 

OOEA 

(000234) 

0 215 , 

0265, 

U 33b 

0 041 

LPMSK 

00 0 2 

( 0GQQ02) 

QUO, 

0 1 1 2 > 

0142 

0 041 

N7ERO 

0012 

(000018) 




0041 

ZROBIT 

0033 

(000051) 




0 0 42 

FIVE 

0043 

(000067) 




0 0 42 

SIX 

0044 

(0 00068) 




0042 

ZPRO 

0022 

(000034) 

0 253, 

0279, 

03b6, 0362 

0G42 

ONEBIT 

0023 

(000035) 




0 0 42 

SIXTEN 

QQ27 

(000039) 




0 0 43 

COMMA 

002C 

( 000044) 

0113 



0 043 

SLASH 

00 2F 

(000047) 




0 0 43 

ASTRIG 

002A 

(000042) 




0044 

EIGHT 

0026 

(000038) 




0044 

MINE 

0045 

(000069) 




0044 

THREE 

00 0 4 

(000004) 




0 0 44 

ONE 

00 0 3 

(000003) 




0 044 

TWO 

002 4 

(000036) 




0 045 

TEN 

00 46 

(000070) 




0046 

MASK 

CGO 3 

( 0 00003) 

0 221 



0 048 

CHRSLV 

00 0 7 

(000007) 

0210 , 

0 257, 

0 330 

0049 

LNWD36 

00 2 4 

(000036) 

0 334 



0050 

ASMOD 

100 0 

(004096) 

G 1 22 



0 051 

MASSLU 

G8C2 

(002242) 

0 2 60 



0 052 

FLOATZ 

07Q 8 

(001800) 

021-+, 

0 261 


0 0 53 

EXTBV4 

0 0E9 

( 00G233) 

0 3 61 



00 5 4 

WRDLN 

0002 

(00G002) 

0 315 



0 05 7 

GETFLD 

000 2 

(0000020 

0 105 



0 0 58 

ASCHEX 

0003 

(000003) 

0124 



0 0 59 

A SCDEC 

000 5 

(00DQ05) 




0 060 

KARPER 

0D2E 

(0 00046) 




0 061 

KARF 

0 045 

(000069) 




0 0 64 

BHAN 

0001 

(000001) 

0 0 89 



0 0 65 

BMSG 

00 0 2 

(000002) 

0 0 94 



0 066 

SOMMOR 

00 0 3 

(000003) 

0 355 



00 67 

10 ERR 

00 0 4 

(000004) 

0 278 



0 068 

LISTLU 

00 0 5 

( 0 00 00 5) 

0 0 96 




u 


DOPREQ PAGE li OATES 01/27/99 

O 


0 069 

COMOLU 

000 6 

( 000-306) 


0 G70 

NEWMLU 

0 0 07 

(000007) 


0 0 71 

PROGl 

00 0 8 

(000008) 


0 0 72 

PR0G2 

000 9 

(000009) 


0 073 

BITFLG 

00 0 A 

(000010) 


0 07 4 

BUFCNT 

OOOB 

( OOOQll) 


0 0 75 

FIELD 

OOQC 

(000012) 

0 108 

00 76 

SLASHF 

0010 

(000 016) 


0 0 77 

BUFEMT 

0011 

(000017) 

0 141 

0 0 78 

BUFFER 

0012 

(000013) 

0 0 86 


O 


o 

o 

o 

o 

Q 

O 

O 

O 

O 

o 

C) 


o 

o 

o 

o 

n 





o 

o 

o 

C) 

o 

o 



(_) 

ODPREO PAGE 12 DATES 01/27/99 


S Y H B 0 L S 


o 

DEF, LINE 

NAME 

ADDRESS 

RE'^ERENCED AT 

LINE 

NUMBER 



0 029 

DDPREQ 

000 0 

0 0 29 







0105 

DSPl 

0016 

0136 






o 

0116 

DSP3 

0020 

0 132, 

0144, 

0148 




0 120 

0TB 

0022 

0 091 , 

0 G92 






0122 

MODE 

002 4 

0 097 







0124 

DSP5 

0025 

0109 , 

0111, 

0114 




o 

0126 

DSPVA 

0027 

0 128 






0141 

DSPIO 

0033 

0135 







0145 

DSPll 

0037 

0 1 43 







0 150 

DSP12 

003B 

0147 






Q 

0157 

DSP19 

0041 

0 352 






0163 

DSP2C 

0046 

0166 







0169 

DSP22 

Q04B 

0165 







019 7 

0DP26 

0062 

0321 






o 

0 209 

LSP12 

0 06B 







0210 

LSPCAL 

0Q6C 

0211 







0 213 

LSP13 

D06F 

0 285 







0220 

CONASC 

0072 

0171, 

0176, 

0181, 

0185, 

0226 


o 

0 225 

DASNO 

0077 

0 2 23 






0229 

DATLOC 

0 079 

0 0 88 , 

0178, 

0188, 

0191, 

0192, 

0 302 , 


0 230 

EXTMSG 

00 7A 

0 0 95 , 

0 117, 

0250 





0 231 

EXTHAN 

0 0 78 

00 90 , 

010 7, 

0125 




o 

0232 

0 OUNT 

Q07C 

Q1Q2, 

0127, 

0130, 

0133 , 

015 8, 

0 313, 

0 233 

BASE 

0070 

0 0 84 , 

0 277, 

0354 





0236 

LSPACE 

007E 

0 211 







0238 

MAX 

00 8 0 

0104, 

0365, 

0 372 





0240 

LSP15 

00 81 

0 236 






0244 

SELF 

003 5 

0 2 43 , 

0245, 

0 246, 

0326, 

032 7 



0257 

LSP20 

0092 








0258 

LSP24 

0093 

0247 






O 

0 262 

LSP25 

0097 

0 2 40 






0264 

LSP26 

0099 

0 254, 

0255 






0268 

0FT8 

fl09B 

0248, 

0249 






0 270 

FLTADO 

009D 

0252 






o 

0273 

LSP30 

009E 

0 2 46 






0276 

LSP31 

OQAl 

0 2 41 







0277 

OSPEIO 

00A2 

0237, 

0340 






0 28 0 

DSPLOC 

D0A5 

C 129, 

0145, 

0146, 

0150, 

0 15 1, 

0 152, 





0 2 02, 

0 20 3, 

0205, 

0 318, 

0319, 

0347, 

O 

0284 

LSP35 

00A8 

0 2 73 







028 7 

LSP37 

00 AB 








o 


o 



0303^ 0309, 0310, 0351 
0314 


O 

O 


O 

o 

O 

o 

o 

o 

o 

o 


0153, 0154, 0155, 0169, 017^, 0179, 0184, 0197, 0199, 0200 
0348 



ODPREQ 

PAGE 13 


date: 

01/27/99 

0289 

LSP40 

GOAD 

0 2 42 


020:,, 0286, 

0299, 0301 

0 293 

VALUE 

00 AF 

0198, 

0 20 1, 

0298 

DSPlOO 

00C7 

3290 




0299 

DSPIDI 

00C8 

0308 




03C9 

OSP102 

0002 

0307 




0 326 

DSP105 

OOOC 

0 316, 

0 320 



0331 

DSPX 

OOEl 

0328 




0333 

OTLU 

00E3 

3 0 98 




0335 

BUFAOD 

00E5 

0 0 87, 

0163, 

0350 


0 339 

DSP RET 

00E7 

0 327 




0 342 

DSPOK 

G0E9 

0 339 




0 3:^5 

EXTOFF 

QOED 

0 093 , 

0344 



0347 

DSPREP 

OOEE 

0 343 




0354 

OSPDON 

Q0F5 

0 349 




0 360 

CORADK 

OOF 8 

0131, 

0368, 

0376, 0377 


0368 

AD32EX 

010 0 

0364, 

0375 



0 371 

A065 

0101 

0 363 



0374 

0 376 

A065EX 

010 7 

0 366, 

0367, 

0371, 0373, 

0 380 

SA39 

0002 

0 3 81 




0 381 

SP3 9 

00 0 3 

0 382 




0 382 

DB39 

0120 

0 383 





ODPREQ 


PAGE 14 


DATES 01/27/99 


u 

n 

EXTERNA LS 


o 

OEF .LINE 

NAME 

VALUE 


0032 

MM ADD R 

0G9B 


0 033 

MSG 

009C 


0 035 

OCONV 

0090 

o 

0 036 

HANDLE 

0 022 


0037 

OFF 

0023 


0038 

CHRSFG 

OOEA 


O 


o 

o 

o 

o 

‘D 

o 

o 

o 

o 


REFERENCED AT LINE NUMBER 

0268 
0 269 
Q 2 70 
0120 
0121 
0 3 42 


o 


o 

o 

o 

o 

o 

o 

C) 

o 

o 

o 

c 

Q 

o 

o 

o 



o 

0 


o 

o 

o 

o 



ASCDEC 0059 
BUFCNT 007 4 
COUNT 0232 
DSPiOO 0298 
DSP3 0116 
DSPX 0 331 
FLTAOD 0270 
, LPMSK 0 0 41 
LSP31 0275 
MMADDR 0032 
ONEBIT 0042 
SLASH 0043 
ZERO 0042 


BUFEMT 0077 
OASNO 0225 
DSPIGI 0299 
DSP5 0124 
EIGHT 0044 
GFTFLD 0057 
LSP12 C209 
LSP35 028-r 
MODE 0122 
0T8 0120 
SLASHF 0075 
ZROBIT 0041 


A SHOO 

0G5 0 

BUFFER 

0078 

DATLOC 

0 229 

D3P102 

0309 

03PD0N 

0354 

EXTBV4 

0 053 

HANDLE 

0 036 

LSP13 

0 213 

LSP37 

0287 

MSG 

0033 

0 TLU 

0 333 

SOMMOR 

0 06 6 


ASTRIC ' 0043 
CHRSFG 0038 
0B39 0382 

DSP105 0326 
OSPEIO 0277 
EXTHAN 0231 
I 0 0 0 Q 

LSP15 02hC 
LSP40 0289 
NEWHLU 0070 
PROGl 0071 
SP39 0381 


; O 

: o 

; O 

■ o 

O 
' o 
o 
• o 
: O 
; O 
; O 
: O 
: O 

■ O 

O 


LDPREQ 


PAGE 


1 


DATE; 01/27/99 


0 0 0 1 
000 2 
00 0 3 
00 0 4 
00 0 5 
000 6 
00 0 7 
00 0 8 
00 0 9 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
002 4 

0025 

0026 
002 7 
0028 


003 0 
0031 


0033 
003 4 
003 5 

0036 

0037 


* 

■V- 

V- 

* 

'r 

^ A 
>/■ 

¥ 

V- 

* 

=f- 


NAM LDPREQ DECK-ID Nh9 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


V-V- if- ^ 

V 
V- 

=f- 
V- 


THIS PROCESSOR LOAD DOUBLE PRECISION 
VALUE (S) FROM INPUT COMMENT MEDIUM 
INTO CORE 


V- 
» 
V- 

* 


INPUT FORMAT : 

LOP, CORE LOG. ,8ASE/DATA 

WHERE DATA = SIGNED/UNSIGNED 12-OIGIT VALUE 
WITH/WITHOUT DECIMAL POINT 

COMMA IS USED TO SEPARATE 2 VALUES 

DATA = SIGNED FLOATING POINT VALUE 


SUMMARY-11 

N490a 002 
NhODOODS 
N49u 0 00 4 
N490 0 005 
N4900006 
N490 0 007 
N 490 0 0 0 3 
N490 0009 
N490 OOIG 
N499 0011 
N49Q 0 012 
N4900013 
N490 0 01 4 
N493 0 015 
N490 0 016 
N490 0 017 
N4900018 
N490 0 019 
N490 0 02 0 
N49Q0Q21 
N4900022 
N49 00023 
N4900024 
N49Q 0 025 
N4900026 
N490 0027 
N490 0 028 


ENTRY NAME 

ENT LDPREQ 

EX TERNALS 

1 CARD DELETED 

EXT DCONV E- OR F-FORMAT CONVERSION FOR DOUBLE 

EXT MHADDR 
EXT MSG 


N49a0050 
N49Q 0 031 

N49QG033 
N4900034 
N49DQ035 
N490 Q 03b 
N4900037 


0039 

Q040 


0041 


0 0F4 
OOEA 
0 0 02 
0012 
0 0 33 
0 0 43 
0 0 44 
0 0 22 
0 023 
0 0 27 


'EQU' TABLE 

EQU AMONI (5F4) , ADIS P { $E A ) , LPH SK ( 2 J , NZ ERO t $1 2 ) , ZROBI T ( $3 3) 
FQU FIVEfS43),SlX ($44) , ZERO ($22) .ONEBIT ($23) ,SIXTEN ($27) 


N4900 039 
N490 0 040 


N490 0 041 


o 


o 


o 

o 

D 


o 


.'■'■'I 

o 


o 


o 

o 


Q042 

0043 


00 44 

0045 

0046 
0Q47 


0049 

0050 

0051 

0052 
00 53 
005 4 


00 56 
G057 

0058 

0059 

0060 
0051 
0062 
00 6 3 
005 4 
0 05 5 
0 0 5 6 
00 57 
00 5 8 
00 5 9 
007 0 
0071 


LDPREQ 


page 2 DATE? 01/27/99 


0 0 2C 
0 0 2F 
0 0 2A 
G 0 26 
0 0 45 
00 04 
00 03 
0024 
0 0 46 
00 07 
08C2 
0 0E9 


EQU COMMA (S2C) ,SLASH{$2F) , ASTRIC ($2A) 


N490 0 042 


EQU EIGHT ($26 > , NINE ($45 ) »THREE ( 4> , ONE ( 3 ) , TWO ($24) 


N49Q 0 043 


EQU CHRSLV(7) LEVEL OF THIS PROGRAM 

EQU MA3SLU(S8C2) 

EQU £XTBV4($E9) 


^<^(■15054. Q*^N49C0 0 44 

116 » 4360 »’^*’^^^^'^ 
N490 0 045 
N49DGQ47 


0 0 02 
0 0 03 
00 08 
0 0 QE 
0703 


EQU 

EQU 

EQU 

EQU 

EQU 


SUBROUTINE POINTER (FOR REQUEST) N^900049 

GETFLod) "GETFLD" GET FIELD SUBROU=TINE 

AcpLjpYf'71 **A9PHFC** — — — ASC TO HEX* N-+9uu051 

GETINT 3) -GETINT- — - GET SI NGLE/OOU BLE PRECISION VALUEN^rO 00 05 2 

FLCVD3(14) ••FLCVDB" --- FOR CONFIRMATION 

FLOATZ{i8Q0) SIZE OF FLOATING POINT PACKAGE N49uQ354 


0 0 01 
0 0 02 
OG 03 
0 0 04 
0 0 05 
0 0 06 
0 0 07 
0 0 08 
0 0 09 
00 QA 
GOOB 
OOOC 
0010 
0011 
00 12 


EQU HAMDLE(l) 
E(}U BMSG(2) 

EQU S0MH0R(3) 
EQU I0ERR(4) 
EQU LISTLU(5) 
EQU COMOLU(6) 
EQU NEWMLU(7) 
EQU PROGK8) 
EQU PR0G2(9) 
EQU BITFLG(lO) 
EQU BUFCNT(ll) 
EQU FIELD(12) 
EQU SLASHF(16) 
EQU BUFEMT(17) 
EQU BUFFERdS) 


PARAMETER LOCATION (OFFSET FROM BASE) 


•HANDLE' 

"MSG" ENTRY 

"SOMMOR" ENTRY 

"lOERR" ENTRY ^ ,, 

LIST OUTPUT "LISTLU' 

"COMOLU” 

"NEWMLU" NEW MM LU 

"PROGl" 

"PR0G2" 

"BITFLG" 

"RUFCNT" 

"FIELD" 

"SLASHF" 

"BUFEMT" 

"BUFFER" 


N493 0 056 
N490 0 057 
N493 0 05 8 
N4900Q59 
N493 0 050 
N4900061 
Nh-Bu 0 3 5 2 
N4900 063 
N493 0 0 54 
N4900065 
N4-93 0 06b 
N-+93 0 05 7 
N493 0 058 
N49G0069 
N49j 0 07 0 
N49Q0G71 


0073 
007 4 
0075 


¥ 

V- 




PROGRAM 


START 


N49C0G73 
N49uD07 4 
N49G0075 


0077 POQOO 6359 
0073 PQQOl 6GFF 

0079 POO 02 ClOl 

0080 P00G5 6857 
OOBl P0004 C102 
0G82 P0005 6856 


LUPREQ STA^ BASE 
ST A - I 

LDA- HANDLE, 
STA^ EXTHAN 
LDA- BMSG.I 
STA^ EXTMSG 


I 


FETCH "MSG" ADDRESS 


N4900 077 
N49Q 0078 
N49Q 0 079 
N4 90 0 G80 
N490QQ81 
N49DUU32 


O 

C") 


Q 

O 

o 

o 

o 


C) 


o 


o 


o 

o 

o 

o 

o 


o 


o 


LDPREQ 


PAGE 


3 


DATE: 01/27/99 


008A P0006 0C04 
0085 P0007 GAQ2 
005 6 PQ0 08 5C52 

0087 P0Q09 0A03 

0088 POQOA 5C50 

0089 POOOB 0000 

009 0 

0091 

0092 POOOC CIOC 

0093 PGQOD 0900 

0094 POOQE 0111 

0095 POOOF 1811 

0096 

0097 PQGIO 0A02 

0098 POOll 0C04 

0099 P0012 5C48 
OlOu POOlo 0A03 

0101 P0014 5C46 

0102 P0015 0000 

0103 P0016 C8FE 

0104 P0017 88F3 

0105 PC018 63F2 

010 7 

0108 P0019 C840 

0109 PQOIA 60FF 
DUO POOIB CIOC 

0111 POOIC Q9D0 

0112 POQID 0102 

0113 PQOIE GC04 

0114 POOIF 1C3C 


END 

ENA 

RTJ^- 

ENA 

RTJ^ 

LSPLOC NUM 


LDA- 

INA 

SAN 

JMP’^ 

V- 

LSP2 ENA 
ENQ 
RT 
ENA 
RTJ* 

LSPBAS NUM 
LDA^ 
ADO^ 
STA^ 


LDA^ 

STA- 

LDA- 

INA 

SAZ 

LER ENQ 
JMP* 


SET 4 CHAR. MAX. 
GET STARTING LOG. 


CONVERT TO HEX 


4 

GETFLO 
1 EXTH AN ) 

ASCHEX 
■{EXT HAN) 

0 

CHECK IF BASE ADDRESS USED. 

CONTROL CHAR. = SLASH, BASE IS UNUSED 
IS CONTROL CHAR. = SLASH 


FIELD, I 
-SLASH 
LSP2 
LSPIO 

GETFLD 

4 

CEXTHAN ) 

ASCHEX 

JEXTHAN) 

0 

LSPBAS 

LSPLOC 

LSPLOC 

CHECK 

BASE 

I 

FIELD, I 
-SLASH 
LSPIO 
4 

(EXTMSG ) 


NO, GET BASE 
GET BASE 
CONVERT TO HEX. 

ADDRESS = START LOG. + BASE 

FOR format CONTROL CHAR = SLASH 

IS CONTROL CHAR. = SLASH 
TO PRINT FORMAT INCORRECT MESSAGE 


N490 0 084 
N4 90 0 085 
N499 0 086 
N4900087 
Nh. 90 0 038 
N4900089 
N49QQ09Q 
N490 0091 
N^900092 
N4900G93 
N-r90 0 094 
N^93 0 095 
N49G 0 096 
N490Q097 
N493 0 098 
N490 0099 
N490 0 10 C 
N4900101 
N490 0102 
N49001D3 
N490 0104 
N'490 0 10 5 

N4900107 
N49001Q8 
N490 0109 
N49u0il0 
N4900111 
N490 0 112 
N4900113 
N49Q0114 


0116 

0117 

0118 

0119 P0020 6110 

0120 P0021 633B 

0121 P0G22 CQF5 

0122 P0023 683A 

0123 P0024 C8E6 

0124 P0025 685C 

0125 P0026 585C 

0126 P0027 18F6 

0127 Pu028 OCOG 

0128 P0Q29 QA08 

0129 P002A 5C30 

0130 P002B 0067 


jf. if-if. ^ 


TO OBTAIN SINGLE PRECISION VALUE 


LSPIO 


LSPll 


STA- 

STA=i‘ 

COA- 

STAL 

LDA^ 

STA’^ 

RTJ^ 

JMP^ 

ENQ 

ENA 

RTJ^ 

ADC 


SLASHF, I 
COUNT 
SF5 
MAX 

LSPLOC 

GORLOC 

CORAOK 

LER 

12 

GETINT 
(EXTHAN ) 
VALUE-^ 


HIGHEST CORE LOCATION USED BY SYSTEM 
TO CHECK CORE ADD. 

TO CHECK IF CORE LOG. WITHIN LIMIT 
ERROR, GO 

SET 12 DIGITS ARE MAX. 

GET DECODE SI NGL E/D OU BL £ PRECISION 


N490&116 
N49C0117 
N4900118 
N4900119 
N490 0120 
N49uQ 121 
N4900i22 
N493 0123 
N 49 0 012 4 
N4900125 
N490Q126 
N49u0127 
N49Q0128 
N490 0129 
N49Qfil3C' 


0132 

0133 

0134 P002C 54F4 


REQUEST SPACE TO BRING IN FLOATING POINT PACKAGE 

LSP12 RTJ- (AMONI) 


N4900132 

N490G133 

N4900134 


LDPREQ 


PAGE 


4 


date: Qi/27/99 


o 


o 



0135 

P0 02D 

1547 


LSPCAL 

ADC 


0136 

P002E 

GO 06 



ADC 

o 

0137 

P0 02F 

00 00 



NUM 

0138 

P0030 

0 0 0 0 


LSP13 

NUN 


0139 

PO 031 

G7 08 



ADC 

o 

D14G 

0141 

P0032 

14EA 



JMP- 

0142 

P0 033 

0161 


LSPACE 

SQF 


014 3 
0144 

P0G34 

1822 



JMP^ 

o 

0145 

P0035 

4816 


LSP15 

STQ- 

0146 

P0036 

431F 



STQ» 


0147 

PC037 

482C 



STQ^ 


0148 

P0038 

58 01 



RTJ^ 

'4,-' 

0149 

P0 039 

0 80 0 


SELF 

NOP 

0150 

PD03A 

C8FE 



LDA^ 


0151 

P0C3B 

0919 



INA 


0152 

P003C 

680B 



STA^ 


0153 

P0030 

C812 



LDA^ 


0154 

P0C3E 

9812 



SUB^ 


0155 

P003F 

881C 



AOO» 


015 6 

P0040 

0 822 



TRA 

u 

0157 

P0041 

C810 



LDA^ 

0158 

P0042 

5622 



RTJ- 


0159 

P0G43 

68 OA 



STA^ 


016Q 

POO 44 

48 08 



STQ’^ 

O 

0161 

P0045 

54F4 



RTJ- 

0162 

P0046 

0 8 0 7 


LSP20 

ADC 


0153 

P00U7 

0 0 0 0 


LSP24 

NUM 


0164 

P0048 

0 0 00 



NUM 


0165 

PO 049 

08C2 



ADC 

o 

016 6 

PC 04A 

0 708 



ADC 


0167 

PO 040 

00 00 


LSP25 

NUM 


0168 

P004C 

0 0 0 0 



NUM 

© 

0169 

PO 040 

0 0 0 0 


LSP2& 

NUM 

017 0 

PG04E 

14EA 



JMP- 


0172 





ADC 


0173 

P004F 

7FFF 

X 

OFTB 


0174 

P0050 

7FFF 

X 


A DC 


0175 

PC051 

7FFF 

X 

FLTADO 

ADC 

O 

0177 







0178 

P0052 

0 168 


LSP3D 

SQP 


0179 

P0053 

54F4 



RTJ- 

O 

Gia 0 

P0054 

1800 



NUM 

0181 

P0055 

0 0 00 


LSP31 

NUN 


0182 

PQ056 

E803 


LSP32 

LDQ^^ 


0183 

PG057 

£2 04 



LOQ- 

o 

0184 

P0058 

1622 



JMP- 


018 6 






o 








$1540+:HRSLV 

LSPACE-LSPCAL 

0 

0 

FLOATZ 

(ADISP) 

LSP15 

LSP32 

LSP25 

LSP31 

LSP4Q 

SELF 

0 

SELF 

LSP30-SELF 

LSP24 

OFTB 

OFTB+1 

EXTMSG 

a 

FLTADO 
IZERO) , Q 
LSP26 
LSP26-1 
( AMONI) 

$8flO + CHRSLV 

3 

3 

HASSLU 

FLOATZ 

0 

a 

0 

(ADISP) 


CORE LOCATION OF REQUESTED SPACE 

SPACE BE GRANTED, DO SOMETHING 
TO ERROR (I/O ERROR) 

SET LOG. WHERE PROGRAM TO BE READ 
GENERATE RETURN ADD. 

GENERATE "MMADDR" LOCATION 


GET FLOAT PACKAGE SECTOR ADD. 

TO "MMADDR" FOR MM ADD. CONVERSION 
SAVE LSB 


RETURN (TO BE FILLED) 

THREAD 

FLOAT PACKAGE ADO. (TO BE FILLED) 
SECTOR ADD. (TO BE FILLED) 


MMADDR 0. "MMADDR" 

MSG 1. "MSG" 

DCONV SECTOR ADO. OF "FLOAT" PACKAGE (OOUBLt) 


LSP35 
(AMONI) 
$18 0 0 
0 

BASE 
IOERR,Q 
(ZERO), Q 


MM TRANSFER OK, SKIP 
RELEASE CORE 


EXIT TO "lOERR" 
CONSTANTS OR STORAGE LOG. 


N4900135 

N4900136 

N49Q013T 

N49G0i38 

N490 0139 

N490014G 

N490 0 141 

N4900142 

N490G143 

N49Q 0144 

N4900145 

N49Q0146 

N4900147 

N4900148 

N490 0 149 

N-49Q015 0 

N-+9 0 0 15 1 

N49G0152 

N490Q 153 

Nh900154 

N490 0 15 5 

N49Q0156 

N493 0157 

N490Q158 

N49G0159 

N490Q160 

N4900161 

N-,90 0 1o2 

N4900163 

N4900164 

N490G165 

N490 G166 

N-,90 0167 

N49G 0 168 

N49Q 0169 

Nh-90 0 17G 

N490 0 172 
N490 0173 
N493 0174 
N49G 0175 


N49Q 0177 
N49Q 0 178 
N-+900179 
N490 0 18G 
N49Q0181 
N49Q018Z 
N4900183 
N490 0 184 

N490 013 6 


C 

o 

o 

C' 

o 


o 


/ ^ 



o 

o 

o 

c 


o 


o 


LDPREQ 


PAGE 


5 


DATES 01/27/99 


018 7 

P0 059 

0 0 00 

BASE 

NUH 

0 

PARAMETER BASE ADD. 



N4900187 

0188 

P005A 

0000 

EXTHA N 

NUM 

0 

■•HANDLE" ADO. 



N490 0188 

0139 

P0 05B 

0 0 00 

EXT MSG 

NUM 

0 

•■MSG" ADD. 



N490 0 189 

0190 

PO 05C 

UOQQ 

COUNr 

NUN 

0 

NO. OF INPUT VALUES 



N490 0 190 

0191 

PCC5D 

0 0 0 0 

MAX 

NUM 

0 




N490 0 191 

0192 



=f- 






Ni+OQOigB 

0193 





FLOAT 

PACKAGE IS IN CORE, 

CONVERT 

NO. 

N490 0193 

0194 



>h 






N^+OOOigA 

0195 

P0 05E 

OCOO 

LSP35 

ENQ 

0 




N4900195 

0196 

P00 5F 

5CD0 


RTJ» 

(LSP13) 




NtSO 0196 

0197 

PQ060 

0 0 32 


ADC 

VALUE-^ 




N49 0 019 7 

0198 

P0061 

54F4 

LSPS7 

RTJ- 

( AMONI) 

RELEASE CORE 



N^9u 0 196 

0199 

P0062 

1800 


NUM 

$18 0 0 




Nh9G 0199 

0200 

P0063 

0 0 00 

LSP40 

NUM 

0 

ADD. (TO BE FILLED) 



Nh90 0 20 0 

020 1 

P0 0 64 

E8F7 


LOQ'*^ 

COUNT 




Nh-90 0 201 

020 2 

P0 065 

C83F 


LDA^ 

VALUE+18 

SAVE FLOATING POINT 

VALUES 

IN temporary 

N^90u2C2 

020 3 

P0C66 

6A42 


STA^ 

TEMP,Q 




N49Q0203 

020 4 

P0 0 67 

C83E 


LDA^ 

VALUE+19 




N4900204 

0205 

P0068 

6A41 


STA^ 

TEMP+1,Q 




N49002Q5 

020 6 

PQ069 

C83D 


LDA^ 

VALUE+20 




N49CG206 

020 7 

P006A 

6A 40 


STA^‘ 

TEMP+2, Q 




N4-93C207 

0208 

PO 06B 

D8F0 


RAO^ 

COUNT 

UPDATE STORAGE COUNT BY 3 


Na90 0208 

020 9 

PG06C 

□ 8EF 


RAO^ 

COUNT 




N490 0209 

0210 

P006D 

D8EE 


RAO^ 

COUNT 




N490 0 210 

0211 





CHECK 

IF ALL INPUT TEXT BE 

ED PROCESSED 

N-t9 J 0 211 

0212 

PGO&E 

C8EA 


LDA^ 

BASE 




N490G212 

0213 

P0 06F 

60FF 


STA- 

I 




N490G213 

0214 

PG070 

cm 


LOA- 

BUFEMT, I 




N 490 0 21 4 

0215 

PD071 

0131 


SAM 

LSP50 

DONE, SKIP 



N49u G 21 5 

021b 

P0Q72 

18 85 


JMP^ 

LSPil 

TO REPEAT 



N490 0216 

0218 



¥ 


PRINT 

NEW AND OLD DATA AND 

REQUEST 

CONFIRMATION 

N490G218 

0219 

P0073 

E8E8 

LSP50 

LDQ^ 

COUNT 




N49G 0 219 

0220 

P0 0 74 

OA OE 


ENA 

FLC VOB 




N490 0 220 

0221 

P00 75 

5CE4 


RTJ» 

(EXTHAN ) 




N49 0 0 221 

0222 

P0 076 

0 0 32 


ADC 

TEMP-» 




N490 0222 

0223 

P0077 

OOGA 


ADC 

CORLOC-^ 




N49G 0 223 


0225 



* 






N4900225 

0226 





INPUT 

TEXT 

EXHAUSTED, : 

MOVE DATA TO CORE 

N49Q 0226 

0227 









N490 0 227 

0228 

P0 0 78 

E8E3 


LOQ^ 

COUNT 

SET 

UP INDEX TO 

SAVE DATA 

N490 0 228 

0229 

POO 79 

ODFE 

LSP51 

INQ 

-1 




N49Q0229 

0230 

PQ0 7A 

0163 


SQP 

LSP55 




N490 0 23 0 

0231 

Pfl07B 

E8DD 

LSP53 

LOQ^ 

BASE 




N490C 231 

C232 

PG07C 

E2 03 


LDQ- 

SOMMOR, Q 

EXIT 

TO "SOMMOR 

• • 

N490D232 

0233 

P00 7D 

1622 


JM’P- 

(ZERO) ,Q 




N49G0233 

0234 



* 






N-,90 0234 

0235 

PQQ7E 

CA2A 

LSP55 

LDA^ 

TEMP,Q 




N-r9G fl 23 5 

0236 

POO 7F 

6E02 


STA^ 

(CORLOC) ,Q 




N 4 9 0 0 23 6 


LDPREQ 


PAGE 


6 


DATE: 01/27/99 


0237 

P0 08G 

18F8 

JMP=*^ 

LSP51 

NA9Q0 237 

0238 

PO 081 

0 0 00 

CORLOC NUM 

0 

N49Q 0 238 


0240 






CHECK 

AODRESSFS TO BE 

WITHIN 

3 2K 

N490 C 240 

0241 










N49G0241 

0242 

P0Q82 

OBOO 


CORADK 

NOP 

0 

ENTRY 



N49u 0 242 

0243 

P0083 

EQ E9 



LDQ- 

EXTBV4 

GET 32K/65K FLAG 

(32K=0 , 

65K=1) 

N49u 0 243 

0244 

P0C84 

E622 



LOd- 

(ZERO) , Q 




N49C 0 2 44 

0245 

PO 085 

01 55 



SQN 

AD65 

SKIP ON 65K 



Nt9 3 0 2h5 

0246 

P0Q86 

0133 



SAM 

AD32EX 

ERROR, OVER 32K 



N49Q0246 

0247 

P0 087 

9805 



SUB^ 

MAX 




N49D 0 247 

0248 

PC088 

0137 



SAM 

AD65EX 




N49 00248 

0249 

P0089 

0106 



SAZ 

AD&5EX 




N49 j 0 249 

0250 

P008A 

1CF7 


AD32EX 

JMP» 

(CORAOK) 

RETURN 



N49 0 0 25 0 

02 5 2 






CHECK 

TO BE WITHIN 65K 

OR LESS 


Nh-90 0252 

0253 

PO 08B 

01 24 


AD65 

SAP 

AD65EX 

SKIP FOR 32K OR SO 


Nh90 G 253 

0254 

PQ08C 

98D0 



SUB^ 

MAX 




Nt90 C 254 

0255 

P0Q8D 

0132 



SAM 

AD65EX 

OK, SKIP 



N-+9G 0 255 

0256 

PQO0E 

01 01 



SAZ 

AD65EX 

OK, SKIP 



N490 0 25 6 

025 7 

P0 0 8F 

18FA 



JMP^‘ 

AD32EX 

ERROR, GO 



N49 0 0 25 7 

0258 

P0090 

D8F1 


An&5EX 

RAO^ 

CORADK 

SET NORMAL EXIT 



N 49 O 0 25 8 

0259 

P0091 

ICFO 



JMP"^ 

(CORADK) 

NORMAL RETURN 



N49Q 0 259 

0261 

PC C92 

0016 


VALUE 

BZS 

VALUE (22) 




N49u u 25 1 

0262 

P00A8 

QQ IE 


TEMP 

BZS 

TEMP { 30 ) 

FLOATING VALUE TEMPORARY 

STORAGE 

N49a 0262 

026 4 










N490 0 264 

0265 


GO 02 

P 


EQU 

S A3 8C ^/96) 




N 49 O 0 265 

0266 


00 03 

p 


EQU 

SP33ISA38+1) 




N490 0 2o6 

0267 


0120 

p 


EQU 

0838(SP38^96) 




N490 0 267 

0268 

PO 0C6 

0 0 5A 



BSS 

(DB38-^ ) 




N49D 0 26 8 

0269 





END 





N490 0 259 

PGM= 

0120 

{ : 

288 J COM = OQDO ( Q ) 

DAT = 0000 ( 

0 ) 













C.) 



LDPREQ 


PAGE 

7 

date: 01/27/99 




o 









o 

o 

E Q U I V 

A L E N C 

E S 






o 

o 

DEF .LINE 

NAME 

VALUE 

RE 

FERENCEO AT 

LINE NUMBER 



o 


D 0 0 G 

I 

OOFF 

(000255) 

0078, 0109, 

0213 





0040 

AMONI 

00F4 

(000244) 

0134, 0161, 

0179, 0193 




o 

0 040 

ADISP 

OOEA 

(000234) 

0140, 0170 




■ o 

0 040 

L PM SK 

u C 0 2 

(000002) 







0 0 40 

NZERO 

0012 

(003013) 







0 0 40 

ZROBIT 

0 0 33 

(000051) 







0 0 41 

FIVE 

0 0 43 

( 000067) 





’ C.' 

xJ 

0 0 41 

SIX 

0044 

(000068) 







0 0 i.1 

ZERO 

0 022 

(000034) 

3158, 0184, 






0041 

ONEBIT 

0 023 

(000035) 







0 041 

SIXTEN 

0027 

(000039) 





o 

•J 

0 042 

COMMA 

002C 

(000044) 







0 0 42 

SLASH 

0 02F 

(000047) 

0093, 0111 




1 


0 0 42 

ASTRIC 

OOEA 

(000042) 







0 0 43 

EIGHT 

0 026 

( 000038) 





(J 

vj 

0 043 

NINE 

0Q-+5 

(0D0069) 







0 0 43 

THREE 

000 4 

1000004) 







9 0 43 

ONE 

00 03 

( 0 00003) 







0 0 43 

TWO 

0024 

(000036) 





o 

u 

0 044 

TEN 

0046 

( Q0GO70) 







0 045 

CHRSLV 

0 0 0 7 

{ G00Q07) 

0135, 0162 






0 046 

MASSLU 

08C2 

(002242) 

0165 






0 047 

EXTBV4 

0OE9 

( OQ0233) 

0 2 43 




o 


0 050 

GETFLD 

00 0 2 

(000002) 

0085, 0097 






0 051 

ASCHEX 

000 3 

(000003) 

0087, OIGO 






00 52 

GETINT 

0 0 08 

( 000008) 

0 128 






0 0 53 

FLCVDB 

OOOE 

(000314) 

0220 




■ C'' 

■■•j 

0 054 

FLOATZ 

070 8 

(001800) 

3139, 0166 






00 57 

HANDLE 

0 001 

(000001) 

0 0 79 






0 058 

BMSG 

00 0 2 

( 0 00002) 

0 0 81 






0059 

SOMMOR 

0GQ3 

(000003) 

0 232 




o 


0060 

lOERR 

0004 

( 0000041 

0183 






0 061 

LISTLU 

0 0 0 5 

(00000 5) 







0062 

COMOLU 

000 6 

C 000006) 







0 063 

NEWMLU 

00 0 7 

( 000007) 





o 

i ) 

0 0 6 4 

PROGi 

OOG 8 

(000008) 







0 0 65 

PR0G2 

000 9 

(000009) 







0066 

8ITFLG 

OGO A 

(000010) 






o 









■ u 

n 









o 

O 









o 

o 









O 1 

t 

i 

i 



LDPREQ 


PAGE 
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DATEi 01/27/99 

0 Q67 
0 068 
0 0 69 

0070 

0071 

BUFCNT 

FIELD 

SLASHF 

aUFEMT 

BUFFER 

OGOB 

OOOC 

0010 

0011 

£012 

( OQOOil) 
( 000012) 
(QQ0Q16) 
(000017) 
(000018) 

0092, 0110 
Q 119 
0214 



LDPREQ 


PAGE 


9 


date: 01/27/99 


r^, SYMBOLS 


o 

DEF .LINE 

name 

ADDRESS 


0 031 

LDPREQ 

00 0 0 


0 0 89 

LSPLOC 

OOOB 


0 0 97 

LSP2 

COlO 

0 102 

LSPBAS 

0015 


0 113 

LER 

OOIE 


0119 

LSPIO 

0020 


0127 

LSPll 

0028 


013A 

LSP12 

002C 


0135 

LSPCAL 

0 0 20 


0138 

LSPIS 

0030 


0 1A2 

LSPACE 

0 033 

* 1 

0145 

LSP15 

0035 


0149 

SELF 

0 039 


0162 

LSP20 

0046 


0 163 

LSP24 

0047 


0167 

LSP25 

C0 4B 


0169 

LSP26 

0040 


0173 

OFTB 

Q04F 


0175 

FLTAOD 

0 0 51 


0 178 

LSP3G 

0052 


0181 

LSP31 

0055 


0182 

LSP32 

0056 


018 7 

BASF 

0059 

\ 

0188 

EXTHAN 

005A 


0189 

EXTMSG 

0050 


0 190 

COUNT 

0 05C 

O 

0191 

MAX 

0 050 

0195 

LSP35 

005E 


0198 

LSP37 

0061 


0 200 

LSP4G 

0063 


0 219 

LSP50 

0073 


0229 

LSP51 

0079 


0 231 

LSP53 

007B 


0235 

LSP55 

0 0 7E 


0 238 

CORLOC 

CG81 

o 

0242 

CORADK 

0 0 8 2 


0 250 

AD32EX 

0 0 8 A 


0 253 

A065 

G 0 8 B 

0 

0258 

A065EX 

0090 

0 261 

VALUE 

0092 


0 262 

TEMP 

0 0 A 8 


O 


O 

O 


referenced at line number 


0 0 31 
0104, 
0 0 94 
0103 
0 126 

010 5, 

0123 

0 0 95 , 
0216 

0112 


0 136 
0196 
0136 
0142 
0148 , 

0 15 0, 

0151 


Q152 

01A5 


0 159 , 

0160 





0153 , 
0157 
0151 
0146 

0154 





0143 
0 077, 

0108, 

0182, 

0212, 

0 231 


0 080 , 

Q 086, 

0 088, 

0 099, 

010 i , 

0129 

00 82 , 

0114, 

0155 




0 120, 

0201, 

0208, 

0 2 09, 

0210 , 

0 219 

C 122, 
0178 

0247, 

0 254 




0147 
0215 
0 237 






0230 

0124, 

0223, 

0236 




0125, 

0 250 , 

0258, 

0259 



0246, 

0257 





0245 

0248, 

0249, 

0253, 

0255, 

0256 


0130 , 

0197, 

0202, 

0204, 

0 20 6 


3 20 3, 

0205, 

0207, 

0222, 

0235 



O 

O 

O 

o 

o 

o 

o 


0221 

0228 


o 

o 


o 

o 

o 



0 265 

LOPREQ 
SA38 0002 

PAGE 10 
0 266 

DATE: 01/27/99 

o 

0 266 

SP38 

0003 

0 267 


: O 

026 7 

DB3 8 

0120 

0 268 



LDPREQ 


PAGE li 


DATE; 01/27/99 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



LDPREQ 


PAGE 

12 

/\ |_ 

P H A 

B E T I 

CAL 

SORT 

0 F 

AD32EX 

0 25D 

AD65 

0 253 

AD65EX 

0258 

BHSG 

0 058 

BUFCNT 

0 067 

BUFEMT 

0 0 70 

COUNT 

0190 

DB38 

0267 

DCONV 

0 0 35 

FLCVDB 

0053 

FLQATZ 

0 054 

FLTAD9 

0 175 

LER 

Oil 3 

LISTLU 

LSP24 

0 0 61 

LPMSK 

0 040 

LSP20 

0162 

0 163 

LSP25 

0167 

LSP40 

0 20 0 

LSP50 

0219 

LSP51 

0229 

MASSLU 

0 046 

MAX 

0191 

MMADDR 

0 0 36 

ONEBIT 

OOhI 

PROGl 

0 064 

PR0G2 

0 0 65 

SOMMOR 

0059 

SP38 

0 266 

TEMP 

0262 


DATE: 01/27/99 


S Y M B 

0 L S 

^ V ^ 




AOISP 

OOAO 

AMOMI 

QG4D 

ASCHEX 

005 1 

BUFFER 

0Q71 

CHR3LV 

0 04 5 

COMMA 

0D42 

EIGHT 

0043 

EXTBVL 

0047 

EXTHAN 

0138 

GETFLO 

005 0 

GETINT 

0052 

HANDLE 

0057 

LSPIO 

0119 

LSPll 

0127 

LSP12 

0134 

LSP26 

0169 

LSP3G 

0173 

LSP31 

0181 

LSP53 

0231 

LS P55 

0235 

LSPACE 

014 2 

MSG 

0037 

NEWMLU 

0063 

NINE 

0043 

SA38 

0265 

SELF 

0149 

SIX 

0041 

TEN 

004 4 

THREE 

0043 

TWO 

0 043 


ASTRIC 

0042 

BASE 

0187 

BITFLG 

0066 

COMOLU 

0062 

CORADK 

0242 

CORLOC 

0 238 

EXTMSG 

0189 

FIELD 

1} 068 

FIVE 

OOhI 

I 

00 0 0 

lOERR 

0 060 

LDPREa 

D031 

LSP13 

0138 

LSP15 

01i*5 

LSP2 

0 0 97 

LSP32 

0182 

LSP35 

019 5 

LSP37 

0198 

LSPBAS 

0102 

LSPCAL 

013 5 

L3PLOC 

0G89 

NZEPO 

0040 
DC 41 

OFTB 

0173 

ONE 

0043 

SIXTEN 

SLASH 

0G42 

SLASHF 

0069 

VALUE 

0261 

ZERO 

0 041 

ZROBIT 

0 04-0 


LDOREQ 


PAGE 


date: 01/27/99 


OOGl 
QOQ 2 
00G3 
QOO 4 
00 0 5 
OQQ 6 
00 0 7 
00 0 8 
Q009 
0010 
0011 
0012 

0013 

0014 
0Q15 
0016 

0017 

0018 

0019 

0020 
0021 
0022 

0025 

002 4 
002 6 

0026 
0027 
00 28 
0 029 
0 03 0 

0031 

0032 

0033 

003 4 
003 5 

0036 

0037 

0038 
0 039 

0040 

0041 

0042 

0044 

0045 

0046 

0048 

0049 
00 50 

0051 

0052 


* 

-V 

V- 

>f- 

If- 

>!■ 

>f- 

=f- 

>!■ 

>h 

-f- 

-¥■ 

V- 

V 

* 

■V 

if 

if- 


NAM LDOREQ OECK-ID N50 MSOS 5.0 

MASS STORAGE OPERATING ^^VSTEM VERSION ?.0 
SHALL SYSTEMS DIVISION* LA JOLLA, CALIFORNIA 
COPYRIGHT CONTRk DATA CORPORATION 1976 


^ 3/. ^ If- ^ ^ if. if- if-if lf-J(-Jlf-lf.i!-ifii-ifil-il-ifif-it-if-i>-ifif-i}-i(-ifvit-i!-^i}-if-if->l-i>- V-^if-ifU- if 

^ THIS PROCESSOR LOAD DOUBLE PRECISION ^ 

» VALUE (S) FROM INPUT COMMENT MEDIUM J 

^ INTO CORE t 

-f- ^ 

3f.:f.3f.3f.3f-:f-3f:^ililfil-i(-!l-:S-^lfifV-ififif^if-ififV-ifififififififififif^if^i‘f^^^^^^^^ 

INPUT FORMATS ! 

(13 MODIFY ORDINAL ”LSO” 

LDO.O, L,B/DATA 

(2) MODIFY MM "LSM" 

LDM,SSMSB,SSLSB,SW/DATA 

WHERE DATA = S I GNEO/UNS I GN ED 7 DIGITS VALUE 
WITH/WITHOUT DECIMAL POINT 

0 =ORDINAL NO. (DECIMAL) 

L = LOCATION IN MODULE (HEX) 

B = BASE (HEX) (DEFAULT = 0) 

SSMSB = START SECTOR MSB (HEX) 

SSLSB = START SECTOR LS B (HEX) 

SW = START WORD (HEX) 


ENT LDOREQ 
ENT LDMREQ 


EXT DCONV 
EXT MMADDR 
EXT MSG 


COMMA IS USED TO SEPARATE 2 VALUES 
DATA = SIGNED FLOATING POINT VALUE 

entry NAMES 

^ ^ ^ ^0- OR^F-FORMAT CONVERSION -- DOUBLE 
1 CARD DELETED 


SUMMARY- 116»-»'^»^-^‘^- 
N500aOD2 
N5D0 D i303 
N500 Q00<^ 
N:? 0 3 U Q 0 5 
N5 00 fl iJ D 6 
N50G 0 007 
N5G00008 
N5O 0 0 00 9 
N500 0 010 
N5 00 0 011 
N5000Q12 
N5Q00013 
N5Q0 0 01 4 
N5G0Q015 
N500 0016 
N500 0 017 
N500fl018 
N50 00019 
N5Q3 Q 020 
N500 0021 
N5GQ Q022 
N5 0 0 u 0 2 3 
N50CG024 
N5000025 
N500 0026 
N503 0 027 
N500GG28 
N500 G029 
N50Q 0 030 
N5 GO 0 0 31 
N500GD32 
N5000033 
N50G 0 034 
N5000C35 
N500fl03b 


N5000037 
N5000038 
N5 03 0 Q39 
N50G fl GhO 
N5 00 0041 
N50G 0 042 

N50Q0Q44 
N50G 0 045 
N500 0 O^+b 

N5 G 0 Q 0 48 
N500 0 049 
N500 0 050 
N5GQ 0 051 
N500 0 052 


L.-: 

O 

o 

o 

c 


o 


o 


o 


r\ 



o 

o 

o 

c 

o 


o 



LDOREQ 

PAGE 2 date: 01/27/99 


0054 

¥ 

*EaU* TABLE 

N5Q00054 

0 0 5 5 

00F4 

n r- A 

EQU AM0NKTF4) , ADIS P (SEA) ,LPMSK(2) ,NZER0(S12) ,ZROBIT($33) 

N5G0 0 055 


0 a EA 
0 0 02 
CG12 
0 0 33 


00 5 6 

0 0 43 
0 0 44 
0 0 22 


EQU 

FIi/E(S43) »SIX ($44) , ZERO ($22) , ON EBIT ($23) » SIX TEN ($27) 

N50D 0 056 







0 0 23 
0 0 27 

0057 

0 0 2C 
0 02F 
0 0 2A 


EQU 

COMHA (S2C) , SLASH ($2F) , AS TRIG (S2A ) 

N500 0 057 







0058 

0 0 26 
0 0 h5 
0 0 04 


EQU 

EIGHT ($26) , NINE ($45 ) , THREE ( 4 ) t ONE ( 3 ) , TWO ( $24) 

N5000Q58 







0 0 03 
0 0 24 

0059 

0 0 46 


EQU 

TEN ($46 ) 


N500 0 059 

0050 

0 8C2 


EQU 

MASSLU($8C2) 


N500 0 060 

0061 

0 0 07 


EQU 

CHRSLV( 7J 

LEVEL OF THIS PROGRAM 116 

^4360 v-v-v- 

0062 

C0E6 


EQU 

CSYLEN($E5) 

LENGTH OF SYSTEM DIRECTORY (IN THIS LOC.) 

N500G062 

0 0 5 3 

0 0 F7 


EQU 

CSYDIR($E7) 

INDEX OF FIRST HM DIRECTORY 

N5GQQ053 

006 4 

0 QE9 


EQU 

EXTBV4(SE9) 

N50ij0 0b4 

0 0 6 5 

0 0 EB 


EQU 

DIRTRY ($E8) 

SYSTEM DIRECTORY CORE LOCATION 

NpuO 0 0 65 

0066 

{] 0 3D 


EQU 

L00(61) 

PROGRAM INDEX OF "LDO” 

N5Q 00066 

006 8 




SUBROUTINE POINTER (FOR REQUEST) 

N500 0 068 

0069 

0 0 02 


EQU 

GETFLD( 2) 

"GETFLO" GET FIELD SUBROUTINE 

N50Q0059 

00 70 

0 0 03 


EQU 

ASCHEX ( 3) 

■•ASGHEC" ASC TO HEX. 

N5C0 uu7G 

0071 

00 05 


EQU 

ASCDEC( 5) 

ASE TO DEC. 

N5GQ0071 

0072 

0 0 08 


EQU 

GETINT( 0) 

"GETINT" GET SI NGLE/OOU8L E PRECISION 

VALUEN5U00 072 

0073 

0 0 09 


EQU 

FETHM (9 ) 

FETMM FETCH/CONVERT MM ADD. 

N5 00 0 073 

007 4 

OOOE 


EQU 

FLCVDB( 14) 

"FLCVDB" PRINT VALUE AND CONFIRM 

N5Q0 0 074 

0075 

0 7 08 


EQU 

FLOATZ( 1800 ) 

SIZE OF FLOATING POINT PACKAGE 

N5C00Q75 

0077 




PARAHETER LOCATION (OFFSET FROM BASE) 

N5 00 0 077 

0078 

0 0 01 


EQU 

HANDLE! 1) 

••HANDLE" 

N500 0 07 8 

0079 

00 02 


EQU 

BMSGC 2) 

•*MSG" ENTRY 

N500 0079 

OQSO 

0 0 03 


EQU 

SOMMOR(3) 

••SOHMOR" ENTRY 

N50Q 0 Q80 

0081 

00 04 


EQU 

lOERR (4) 

••lOERR*' ENTRY 

N5 00 0 0 8 1 

0032 

00 05 


EQU 

LI3TLU (5) 

LIST OUTPUT --- "LISTLU" 

NSflQlj 082 

0083 

0 C 06 


EQU 

C0M0LU(6) 

••COMOLU" 

N5 0 C 0 0 8 3 

008 4 

0 0 07 


EQU 

NEWHLU ( 7) 

"NEWMLU" MEW MM LU 

N50C 0 084 

008 5 

0 0 08 


EQU 

PROGl (8 ) 

"PROGl" 

N500 0 08 5 

003 6 

0 009 


EQU 

PR0G2 (9 ) 

"PR0G2" 

N50G 0 086 

008 7 

OOOA 


EQU 

BITFLG(IO) 

"BITFLG” 

N5 00 0 08 7 


LDOREQ 


PAGE 
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date: 01/27/99 


0 0 OB 

EQU 

BUFCMK 11) 

"BUFCNT" 

0 0 OC 

EQU 

FIELD (12 ) 

••FIELD" 

0 010 

EQU 

SLASHF(16) 

"SLASHF" 

00 11 

EQU 

BUFEMK 17) 

•■BUFEMT" 

0012 

EQU 

BUFFER( 18) 

"BUFFER" 



If 

P R 0 G R A 


START 


N50G0088 
N50Q0089 
N50 j 0 09Q 
N5Q00Q91 
N5 C j u 0 9 2 


N5 0 0 0 09 A 
N5000095 
N5Ga 0 096 


POOOQ 

POOOl 
P0 0 02 
P00D3 
P 0 0 0 4 
POOO 5 
P00G6 
P0007 
P00 08 
P0 009 
PflOCA 
P 0 0 0 B 

pooon 

POQOD 
PQOOE 
PO OOF 


68 79 
0 0 00 
50FF 
8112 
6800 
0 0 B5 
6800 
0 0 90 
ClOl 
6800 
0 087 
C102 
6800 
0 0 83 
C109 
0 9C2 
OlOC 


LOOREa STA^^ BASE 

EQU LDMREQt LDOREQ ) 
STA- I 

ADD- BUFFER,! 

STA DATBUF 

STA BUFADO 


LDA- HANDLE,! 
STA EXTHAN 

LDA- 3MSG,I 
STA EXTMSG 

LDA- PR0G2,! 
INA -LOO 
SAZ LSOl 


FETCH “HSG" ADDRESS 

GET PROGRAH TYPE 
SK!P ON “LDO” 


N5000098 
N50j0u 99 
N5 u 0 0 10 0 
N500 0 101 
N50u 0102 

N5000103 

N5 0 G 0 10 *4 
NBGQulOp 

N3G0 QlOb 
N3G0010Z 

NSOOfliOa 
N5 00 0109 
N5000110 


POOIQ 
POOll 
PG012 
PG013 
P0014 
P0Q15 
P0016 
P0Q17 
P0 018 
P0019 
POOIA 
POOIB 


OCOO 
C107 
6800 
OlOB 
680G 
0 0 8C 
6800 
0 0 9C 
QA 09 
5C77 
0 104 
1828 


0125 

0126 
012 7 

0128 POO 1C CA02 


LSN 


data HM ADDRESSES 


END 0 

LDA- NEWMLU,! 
STA MSB 

STA COUNT-1 

STA XF2WD-1 

ENA FETMH 
RTJ^ (EXTHAN) 
ADC MSB-^ 
JHP- LSOM 


LU 

FOR 


CHECK INCONJUNCTION WITH 


4 - 

LSOl ENA 


GETFLO 


MODIFY ORDINAL, GET (1) ORDINAL, LOC., AND BASE 
GET ORDINAL 


N500 u 112 
N5 00 0 113 
N5 CO 0 11 4 
N500011P 
N500011 6 
.N5000117 

Np OG Q 118 


N500 0 12G 
N5000121 
N5O0 0122 
N50j0123 


N3 0 3 0 12 5 
N5ui30126 
N5aaoi27 
N5000128 


O 


LOOREQ 
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OATEi 01/27/99 


0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 
013fi 

0139 

0140 

0141 

0142 

0143 

0144 


POOID 
PO CIE 
POQIF 
POQ20 
PG021 
P0022 
P0 023 
P002 4 

P0025 
P 0 0 2 6 
PQ027 
PO 028 
PQ029 
P002A 
PQ028 
PG02C 


0C03 
5C72 
OA 05 
5C70 
0101 
0122 
0C04 
1C6B 

5300 
0 0 06 
0C04 
C AD2 
5C67 
G A 03 
5C65 
00 00 


LS02 


LSPLOC 

¥ 


ENQ 

RTJ» 

ENA 

RTJ» 

SAZ 

SAP 

ENQ 

JMP^ 


ENQ 

ENA 

RTJ» 

ENA 

RTJ^ 

NUM 


J EXTHAN ) 
ASGOEC 
(EXTHAN ) 
LER 
ISO 2 

(EXTMS3) 

OROCHK 


CONVERT TO DEC. 


TO PRINT FORMAT ERROR 


TO CHECK IF ORDINAL WITHIN LINIT/GET ADDRESS 


4 

GETFLD GET LOC. 

(EXTHAN ) 

ASCHEX CONVERT TO HEX, 

(EXTHAN ) 

0 

GET BASE ADDRESS 



0146 

PQ02D 

CiOC 

LDA- 

FIELD jl 
-COMMA 


0147 

P002E 

0903 

INA 


0143 

P002F 

0116 

SAN 

LS04 


0149 

PD030 

0CO4 

ENQ 

4 


0150 

P0 03 1 

QA02 

ENA 

GETFLD 


0151 

P0032 

5C5E 

RTJ^ 

(EXTHAN ) 


0152 

POO 33 

3A03 

ENA 

ASCHEX 


015 3 

P0034 

50 5C 

RTJ^ 

(EXTHAN ) 


015 4 

P0035 

00 OQ LSOB 

NUM 

0 

'■J 

0155 


Q036 P LS04 

EQU 

LS04 (^) 


0156 

P0036 

C8FE 

LDA^^ 

LSOB 


G157 

PQ037 

88F4 

AOD» 

LSPLOC 


0158 

P0038 

68F3 

STA^ 

LSPLOC 


0159 

P0 039 
POO 3A 

6800 

OOE6 

STA 

HSB + 2 


0160 

P003B 

C859 

LOA» 

MAXL 

1 ■' 

0161 

P0 03C 

0112 

SAN 

LS05 

'•.w/ 

0162 

P0 030 

QCOC 

ENQ 

12 


0163 

P0 03E 

1C 51 

JHP^ 

(EXTMSG ) 


0164 

PG0 3F 

0A09 LS05 

ENA 

FETMM 


0155 

P0040 

P0041 

OC02 

ENQ 

2 


0166 

5C4F 

RTJ^ 

(EXTHAN ) 


0167 

PO 042 

0 ODC 

AOC 

MSB-^ 


0169 

0170 

0171 

0172 

0173 


P0043 CIOC 
P00a4 0900 
P0045 QlQl 
P0046 18DC 


LSOM 


LDA- 

INA 

SAZ 

JMP^ 


FIELD, I 
-SLASH 
LSPIO 
LER 


CHECK FOR COMMA (GET EASE) 

SET FOR H CHAR. MAX. 

GET BASE ADDRESS 
CONVERT TO HEX. 


ASSEMBLE ADDRESS = BASE + L 


SKIP IF ORDINAL LENGTH NON- ZERO 

ERROR - ZERO LENGTH 
CONVERT TO WORD ADDRESSING 


;HECK FOR FORMAT CONTROL CHAR 

IS CONTROL CHAR. = SLASH 


TO PRINT FORMAT ERROR 


SLASH 


N50G 012 9 
N500013Q 
N5Q0 0131 
N5000132 
N5000133 
N5 03 0 134 
N50Q0135 
N500 0136 
N50Q 0137 
N5000138 

N503 0139 
N5 u 0 0 l4 u 
N50Q 0l4l 
N50Q 0 142 
N5G00143 
Nd 00 0 l44 
N5000145 
N50 0 014 6 
N5G0 0147 
N5Q00148 
N500 0149 
N50Q Q15G 
N500D151 
N5G00152 
N5000153 
N5000154 
N5G00155 
N5000156 
N5G0 0157 
N5G0 0158 
N50D 0159 

N500 0160 
N50Q0161 
N500 0162 
N5 0 0 0163 
N50C 0 16h 
N50 J 016 5 
N50Q 0166 
N500016? 

N503 0169 
N500 0170 
N5G30171 
N500 0172 
N5 G 0 C 17 3 


017 5 

0176 

0177 

0178 P00i^7 6110 


♦ 

V- 


TO OBTAIN SINGLE PRECISION VALUE 


LSPIO STA- SLASHF,! 


N500 0 175 
N5 u 0 0 17 6 
N5 0 j 0 17 7 
N503 0 178 


LOOREQ 
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date: 01/27/99 


0179 P0048 635A 

0180 P0049 OCOC 

0181 P004A QAG8 

0182 POO^B 5C45 
0182 POO^+C 0 0 7C 


LSPll 


STA-'^ COUNT 
ENQ 12 
ENA GETINT 
RTJ'f iEXTHAN) 
ADC VALUE-'^ 


GET 'decodes INGLE/DOUBLE PRECISION 


N5 0 3 0 179 
N5U0 0 130 
N-5G0 0181 
N5000182 
N50 00183 


0185 
013 6 

0187 P004D 54F4 

0188 P0 0 4E 1547 

0189 POO^F 0006 
019G P0050 0000 

0191 P0D51 0000 

0192 P0052 0708 
G193 PQ053 14EA 

0194 

0195 P0054 0161 

0196 P0055 1321 

0197 

0193 P0056 4813 

0199 P0057 481E 

0200 P0058 4827 

0201 P0059 5801 

0202 Pfl05A OBOu 

0203 P005B C8FE 

0204 P005C 0918 

0205 P005D &80D 

0206 P005E 0935 

0207 P005F 6840 

0208 P0Q60 C831 

0209 P0061 9331 

0210 P0062 882D 

0211 P0063 0822 

0212 P0Q64 C82F 

0213 P0065 5622 

0214 P0C66 680A 

0215 P0067 4808 

0216 P0068 54F4 

0217 P0069 0807 

0218 PG06A 0000 

0219 P006R 0000 

0220 PDQ6C 08C2 

0221 P006D 0706 

0222 P006E 0000 

0223 P006F uOOO 

0224 PQ07Q OOOG 

0225 PQG71 14EA 


V- 

LSP12 
LSPCAL ADC 
ADC 


LSP13 


REQUEST SPAC 

RTJ- <AMONI) 

$1540+CHRSLV 
LSPACE- LSPCAL 
MUM 0 
NUH 0 
ADC FLOATZ 
JMP- (ADISP) 


TO BRING IN FLOATING POINT PACKAGE 


CORE LOCATION OF REQUESTED SPACE 




LSPACE SOP LSP15 
LSP32 


SPACE BE GRANTED, 00 SOMETHING 
TO ERROR (I/O ERROR) 


LSP15 


SELF 


LSP2D 

LSP24 


LSP25 

LSP25 


STQ"'- LSP25 

STQ^ LSP31 

STQ^ LSP40 

RTJ^ SELF 

NOP 0 

LDA^ SELF 

INA LSP30-SELF 

STA» LSP24 

INA XFRDRT-LSP30 

STA^ XFRDAD 

LOA» OFTB 

SUB'f OFTB+1 

AOD^ EXTMSG 

TRA Q 

LDA^ FLTAOD 

RTJ- (ZER0),0 

STA^ LSP26 

STQ^ LSP26-1 

RTJ- (AMONI) 

ADC $800+CHRSLV 

HUM 0 

NUM 0 

ADC MASSLU 

ADC FLOATZ 

NUH 0 

NUM 0 

NUM 0 

JHP- (ADISP) 


SET LOC. WHERE PROGRAM TO BE READ 
GENERATE RETURN ADD. 

GENERATE "MMADDR” LOCATION 


GET FLOAT PACKAGE SECTOR ADD. 

TO "MMADDR" FOR MM ADD. CONVERSION 
SAVE LSB 


RETURN (TO BE FILLED) 

THREAD 

FLOAT PACKAGE ADD. (TO BE FILLED) 
SECTOR AOO. (TO BE FILLED) 


N5Ca0135 
N5u0 018 6 
N5000187 
N500 0 188 
N503Q189 
N50 3 0 19 0 
N5Q00191 
N5GD0192 
N5QUQ193 
N5 C 0 0 19 4 
N5 0 3 D 19 5 
N5G0G196 
N5cQ 0197 
N5Q00198 
N50D0199 
N5CQ02QG 
N50002Di 
N5G0 0 202 
N50G 0 20 3 
N5 03 0 20 4 
N^ GO 5 20 5 
N5G0 0 20 6 
N5000207 
N50Q02G8 
N5 00 0 209 
N5G0 0 210 
N500 0 211 
N500G212 
N5 00 0213 
N5 OG 0 21 4 
N5GJ 0215 
N5 GO 0 21 6 
N5 00 Q 217 
N3 0 0 u 21 8 
N5G0Q219 
N5 u u 0 22 Ci 
N5000221 
N50G D222 
N500G223 
N5 OD 0224 
N5 0 0 0 22 5 


0228 P0Q72 0 1 67 

0229 P0073 54F4 


* 

LSP3D 


SOP LSP35 
RTJ- lAHONI) 


MM TRANSFER OK, SKIP 
RELEASE CORE DUE TO 


ERROR 


N50C0227 
N5D3 0 228 
N5 00 0 229 


LDOREQ 


OATES 01/27/99 


P0074 1800 
P0075 0000 
P0076 E803 
P0077 E2C4 
P0078 1522 


P0079 
PD07A 
P00 7B 
P007C 
P007D 
P007E 
FQ 07F 
PQ08G 
PQ081 
P0082 
P0Q63 
pooe^t 
P 0 G 8 5 
POO 86 
P0G&7 
P u 0 8 8 
P 0 0 6 9 

PDOoA 
P008B 
P0 0 8G 
PO 080 
PC08E 

P0 08F 
P009Q 


0 0 00 
OCOQ 
5CD5 
Q 0 4C 
54F4 
1800 
0 0 0 0 
E822 
C859 
6A5C 
C8 58 
eA5B 

C857 

6A5A 

D81B 

081A 

0819 

CREE 

60FF 

cm 

0137 

18BA 

0 0 00 
0 0 00 


LSP31 

LSP32 


* 

BASE 

LSP35 


LSP37 

LSP40 


NUM 

NUM 

LOQ^ 

LOQ- 

JMP- 


EXTMSG 

EXTHAN 


0265 ^ 

0265 P0091 7FFF X OFTB 
0267 PQ092 7FFF X 


$1800 

0 

BASE 
lOERRtQ 
(ZERO) ,Q 


NUM 

ENQ 

RTJ’f 

ADC 

RTJ- 

NUM 

NUM 

LOQ» 

LDA^ 

STA^ 

LOA^ 

STA^ 

LOA^ 

STA’- 

RAO^‘ 

RAO^ 

RAO^ 

LDA^ 
STA- 
LOA- 
S AM 
JMP» 


CORE ADD. TO BE FILLED 
EXIT TO "lOERR** 


FLOAT PACKAGE IS IN CORE, CONVERT NO. 
PARAMETER BASE ADD. 


(LSP13) 

VALUE-^ 

(AMONI) RELEASE CORE 

$180 0 

0 ADO. (TO BE FILLED) 

VALUE+18 SAVE FLOATING VALUE IN TEMPORARY STORAGE 

TEMP, G 
VALUE+19 
TEHP+1, Q 
VALUE+20 

TEMP+2,Q UPDATE STORAGE COUNT BY 3 

COUNT 

CHECK IF ALL INPUT TEXT DEED PROCESSED 

BASE 

1 

BUFEMT,! 

LS0113 DONE, SKIP 

LSPll TO REPEAT 

CONSTANTS OR STORAGE LOG. 

0 **MSG*‘ ADD. 

Q "HANDLE" ADD. 


UPDATE STORAGE COUNT BY 3 


ADC MMADOR 
ADC MSG 


0268 P0093 7FFF X FLTADO ADC DCONV 
0259 P0D94 OOGQ MAXL NUM 0 


0. "MMADDR" 

1. "MSG" 

D- OR F -FORM AT CONVERSION - 
LENGTH OF ORDINAL 


- DOUBLE 


N5G3023G 
N50Q0231 
N5C00232 
N5000 233 
N5D0 0 234 
N5 0 0 0 23 5 
N500 0 236 
N5 00 0 237 
N5uQ 0 238 
N5 0 0 0 239 
N5C0 0240 
N500D241 
N50D0242 
N5000243 
N50Q 0244 
N5 0 li 0 2 4 P 
N5QD 0 24b 
N'^Gj 024/ 
N5C0 0 248 
N5GG 0 249 
N5DQ G 25 0 
N^OC 0 251 
N50Q G252 
N5 0 J Q 25 3 
N5000254 
N5GQ Q 255 
N5G0025& 
N5Cj 0257 
N5C00258 
N5GD0259 
N500 0 26C 
N 5 0 (3 y 26 1 
N500G262 
N5000263 

N50Q 0 265 
M5 D 0 0 266 
N5000267 
N5000268 
N50Q 0269 


0271 

0272 
0 27 3 
027 4 

0275 PG095 C800 
PG 096 0 0 88 

0276 P0097 680D 

0277 PQ098 681E 

0278 P0099 C800 
P0C9A 0085 


LS0113 LDA MSB 

STA^^ XFMSBl 
STA^ XFMS82 
LDA LSB 


GET HASS MEMORY DATA ACCORDING TO REQUEST TYPE 

GET WORD ADDRESSING MSB AND SET UP FOR READ/ 
WRITE OPERATION 
GET LSB 


N5Q00271 
N5u0 0 272 
N50Q 0273 
N500D274 
N5 0 0 0 275 

N50 J 0 27 6 
N500 C 277 
N5GD Q 278 


o 


LOOREQ, 


PAGE 


01/27/99 


7 


DAT 


0279 

028C 

0281 

0282 

0283 

0284 

0285 

0286 
0237 
0288 

0289 

0290 

0291 

0292 

0293 


P009B 

6 3QA 


P009C 

681B 


P0 090 

54F4 


P009E 

C207 

XFRDCD 

P009F 

0 0 0 0 

XFROAO 

POOAO 

0 0 0 0 


PO QAl 

08C2 


P00A2 

0 0 00 

COUNT 

PO 0A3 

0 0 0 0 

BUFADD 

PO ijA4 

0 ooo 

XFMSBl 

P00A5 

0 0 0 0 

XFLSBl 

PO QA6 

14EA 


P0GA7 

0161 

XFRDR T 

P00A8 

13CD 



STA^ 

XFLSBl 

STA^ 

XFLS82 

RTJ- 

(AMONI) 

ADC 

$200 + CH RSLV 

NUM 

0 

NUM 

0 

ADC 

MASSLU 

NUM 

0 

NUM 

0 

NUM 

0 

NUM 

a 

JHP- 

(ADISP) 

SQP 

XFOR 

JMP» 

LSP32 


READ 

RETURN (FILLED) 
THREAD 

NO OF WORDS 
BUFFER ADD. (FILLED) 
MSB (FILLED) 

LSB 


TO I/O ERROR 


N5G0 0 279 
N5G0028G 
N5GQG 281 
N500 0282 
N5G0 0 283 
N5000284 
N5DQ0285 
No 0 D 0 2 8 6 
N5000287 
N50Q0288 
N500 0289 
N5 0 0 u 29 0 
N5G3029i 
N5C0C'292 
N5000293 


0295 

0296 
029 7 



V- 


MM 

0298 

P00A9 

E8F8 

XFOR 

LDQ^ 

COUNT 

0299 

PDOAA 

480A 


STQ^ 

XF2WD 

0 30 e 

POOAB 

OAOE 


ENA 

FLCVOB 

030 1 

POOAC 

5CE3 


RTJ- 

(EXTHAN ) 

0302 

POOAD 

0 331 


ADC 

TEMP-^ 

030 3 
030 4 

PO OAE 

00 OB 

* 

ADC 

DATBUF-^ 

DATA 

030 5 

POOAF 

54 F4 


RTJ- 

(AMONI) 

030 5 

POOBO 

0 507 

XF2C0 

AOC 

$5Q0 + CH RSLV 

030 7 

PD081 

OOOA 

C0M8K 

AOC 

FINRT-XF2C0 

0308 

PQ0B2 

0 0 00 


NUM 

0 

0309 

PQ 0B3 

D 8C2 


AOC 

MASSLU 

C310 

P00B4 

0 0 0 0 

XF2WD 

NUM 

0 

0311 

PO 0B5 

OOZE 


AOC 

TEMP-XF2C0 

0312 

pooee 

GOOD 

XFMSB2 

NUM 

0 

0313 

P0DB7 

0 0 00 

XFLSB2 

NUM 

0 

0 314 

P 0 0 B 8 

14EA 


JMP- 

(ADISP) 

0315 

0316 

P00B9 

0 0 00 

DATBUF 

■V- 

NUM 

0 

0317 

POOBA 

C849 

FINRT 

LOA^ 

CORLS G 

0318 

0319 

PGOBR 

0109 


SA7 

GETOUT 

0320 

POOBC 

60FF 


ST A- 

I 

0321 

POOBD 

OCOO 


ENQ 

0 

0322 

PG QBE 

CA2Q 

TOCORE 

LOA’^ 

TEMP, Q 

0323 

POOBF 

6722 


STA- 

(ZERO ) , B 

032 4 

POOCO 

ODOi 


IMQ 

1 

0325 

PQoCl 

0814 


TRQ 

A 

0326 

POOC2 

980F 


SUB» 

COUNT 

032 7 

P00C3 

0101 


SA7 

GETOUT 

0328 

0329 

POGC4 

13F9 


JMP^ 

TOCORE 


DATA IN COREt GET CONFIRMATION 


TO PRINT DATA AND REQUEST CONFIRMATION 


CONFIRMED, SAVE 

WRITE 

RETURN 

THREAD 

NO. OF WORDS (FILLED) 

BUFFER 

MSB (FILLED) 

LSB (FILLED) 

buffer (FILLED) 

CHECK IF CORE ORDINAL 
NO, SKIP 

SFT INDEX WITH CORE LOCATION 
MOVE DATA TO CORE ORDINAL LOCATION 


CHECK' IF ALL DATA BEEN MOVED 

YES, DONE 
MO, TO REPEAT 


N500 0 295 
N50G 0 296 
N 5 0 5 G 29 7 
N500 0298 
N5ij] 0 299 
N5 0 0 G3 0 0 
N5 00 0301 
N5 u 3 0 30 2 
N500 0 30 3 
N5 0 0 0 30 4 
N5D0 0 305 
N503Q306 
N500 0 30 7 
N5Q003g8 
N5 0 0 0 30 9 
N50'3 0 31 Q 
N5C0 0 311 
N500Q 312 
N5D0G313 
N5 u 3 0 31 4 
N5 00 G 31 5 
N500Q316 
N5GG0 317 
N50 0 0 318 
N503 0 319 
NP 0 Q 0 32 0 
N5000321 
N5 00 0 322 
N5 00 0 323 
N5000324 
N50G 0325 
N7 0 J D 32 6 
N 5000327 
N5O0 0328 
N5 00 0 329 


LOOREQ 


°AGE 


8 


DATES 01/27/99 


V, 



o 


o 

o 

o 

o 


o 


(J 

o 

o 

n 

o 

o 

o 


033 0 

0331 

0332 

0333 

P0DC5 

P0DC6 

P00C7 

E803 
E2 03 
1622 

GETOUT 

* 

Lon^ 

LOQ- 

JMP- 

BASE 

SOHMOR, Q 
(ZERO) , Q 

0335 

0336 

PO 0C8 
PGOOE 

0016 
00 IE 

VALUE 

TEMP 

BZS 

BZS 

VALUE (22) 
TEMP( 30 ) 


0338 






0 33 9 





0340 



* 



0341 

POOFC 

OBOO 

OROCHK 

NOP 

0 

G342 

POOFD 

6805 


STA^ 

ORDIO 

0343 

PO OFE 

OC 00 


END 

0 

0344 

PQOFF 

48 05 


STQ^‘ 

CORDIR 

0345 

POlOO 

481E 


STQ'^ 

MSB 

0346 

PDIQI 

1805 


JHP» 

ORDM 

0347 






0348 

P0102 

OOCO 

OROlO 

NUN 

0 

0349 

P0103 

0 0 0 0 

CORLSB 

NUM 

0 

03 5 0 

P0104 

OOQO 

CORDIR 

NUN 

0 

0351 

P01Q5 

00 60 

N0965T 

NUM 

96 

0353 






0354 





FOR 

0355 






0356 

P0106 

C0E6 

ORDM 

LOA- 

CSYLEN 

035 7 

P0107 

90E7 


SUB- 

CSYOIR 

03 58 

P0108 

30 05 


DVI- 

LPMSK+3 

0359 

P0109 

98F8 


SUB^ 

ORDIO 

0360 

POlOA 

0123 


SAP 

ORDM2 

0361 

POlOO 

OCOB 


ENQ 

11 

0362 

PQiOG 

ICCO 


JMP 

(EXTMSG ) 


POlOO 

FF81 




0365 






0364 

PO IQE 

C8F3 

ORDM2 

LDA-> 

ORDIO 

0365 

POlOF 

0 9FE 


INA 

-1 

0366 

POllO 

20 05 


MU I- 

LPMSK + 3 

0 36 7 

POlll 

60 EB 


ADD- 

DIRTRY 

0 3 6 8 

P0112 

8 0E7 


ADD- 

CSYDIR 

0369 

P0113 

0 822 


TRA 

Q 

0370 

P0114 

C206 


LDA- 

6,Q 

0571 

P0115 

6 8 0 A 


STA^ 

LSB 

0372 

poll 6 

C205 


LDA- 

5,0 

0373 

Poll 7 

6807 


STA^ 

MSB 

0374 

P0118 

C 2 0 4 


LDA- 

4,Q 

0375 

P0119 

6800 


STA 

MAXL 


POllA 

FF79 




0376 

POUR 

0 AOO 


ENA 

Q 

0377 

POllC 

6804 


STA^ 

MSB + 2 


EXIT TO "SOMMOR" 


N5 00 0 33C 
N5C0U331 
N5000332 
M5000 333 


FLOATING VALUE TEMPORARY STORAGE 


N500 0335 
N5 00 0 336 


SYSTEM DIRECTORY ORDINAL CHECK 
ENTRY 

SAVE ORDINAL NO. 

ZERO OUT CORE ORDINAL FLAG 


N5000338 
N5G0 0 339 
N5C 0 0 
N5000341 
M3 GO 0 342 
N5000343 
N500 D 344 
N5DG D3it5 
M500034b 
N5D3 0347 
N50QQ 3^8 
N3000i49 
N50 0 035 0 
N5000351 


HM DIRECTORY PROCESSING 

GET OIRtCTORY LENGTH AND SUBTRACT CORE 
LENGTH 

CONVERT TO NO. OF MH DIRECTORY NO. 
CHECK IF OVER SYSTEM MAX. 

NO, SKIP 

TO PRINT ORDINAL NO. ERROR (OVER MAX.) 


NpOO 0 353 
N3G3 G 354 
N50G0355 
DIRECT. N300035b 
N50Q 0 357 
N5D0 0 358 
N500Q359 
N500 0 360 
N5D0 0 361 
N50DQ362 


^7 

CORE directory OFF-SET, IF 
GET LSB 

GET AND SAVE MSB 
SAVE LENGTH OF ORDINAL 


N5 GO 0 363 
N5D3 0 364 
N50Q 0365 
N9 00 0 36 6 
N5 G C 0 36 7 

ANY N5030368 

N5Ga0369 
N5 0 0 0 37 0 
N5u 0 0 371 
N5000372 
N5 0 D 0 37 5 
N5000374 
N50 00575 


N500 0 376 
N500G377 


O 


O 


C 

O 

O 


O 


o 


o 

o 

© 

Q 

o 

o 

o 


o 


o 


u 


o 


LDOREQ 


PAGE 


9 


date: ai/27/99 


G37a POilD iCDE JHP^- (ORDCHK) RETURN 

0379 POllE 00 05 MSB BZS HSB(5) 

03B0 OliF P EQU LSB(MS8+1) 



0382 

0383 0003 P 

03R4 0004 P 

0385 0180 P 

0386 P0123 0050 
038 7 


EQU SA61(»/96) 

EQU SP61CSA61+1) 
EQU 0B61tSP61*^96> 
BSS iOB&l-*) 

END 


PGH= 0180 i 384) COM = 0000 ( 0) DAT = 0000 ( 


0 ) 


o 

o 

o 

o 

O 

O 

O 

Q 

r"\ 


N500 0 378 
N500 0 37 9 
N5000 380 


N5DQ0382 
N5000383 
N5DD 0 384 
N500 0385 
N50Q0386 
N500 0387 


c 

o 

o 

o 

o 

o 

o 


o 

o 

o 

i' '! 

o 

o 

o 

o 



O 


LDOREQ 

PAGE 10 


date: 

0 1/27/99 

- Q 

o 

E Q U I V 

A L E M 

C E S 





' o 

o 

OEF. LIME 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

o 

D 000 

I 

GOFF 

(0C0255) 

0 10 0, 

0257, 

0320 



0 05 5 

AMONI 

00F4 

1000244) 

0137, 

0216, 

0229, 0242, 

0281, 0305 

o 

0 055 

ADISP 

OCEA 

(000234) 

0193, 

0225, 

0290, 0314 

C) 

0Q55 

LPMSK 

00 0 2 

(QGQ0Q2) 

0 358 , 

0366 




0 0 5 5 

NZERO 

0012 

(000018) 






0 0 55 

ZROBIT 

0033 

(000051) 





0 

DC 56 

FIVE 

0043 

(QCG067) 




n 

0 0 5 6 

SIX 

0044 

( 000068) 



0323, 0332 



0 0 56 

ZERO 

0022 

(000034) 

0213, 

0234, 



Q 056 

ONEBIT 

0023 

(D0Q035) 






0 05 6 

SIXTEN 

0027 

(000059) 




O 

'J 

0 057 

COMMA 

002C 

(000044) 

0147 




0Q57 

SLASH 

002F 

(OQQQ47) 

0171 





0 05 7 

AS TRIG 

002 A 

(000042) 






0058 

EIGHT 

0026 

( 000 038) 




r\ 

( 

0 058 

NINE 

00h5 

(000069) 





0 0 58 

THPFF 

000 4 

(O00G04) 






Q 058 

ONE 

0003 

( 0 00003) 





o 

0 058 

TWO 

0024 

( Q00036) 





0 0 59 

TEN 

0046 

(000070) 


0 285, 




0 0 60 

MASSLU 

08C2 

(002242) 

0 220 , 

0309 



0 061 

GHRSLV 

0007 

{ 000007) 

0188 , 

0217, 

0282, 0306 


.'-A, 

0 062 

CSYLEN 

00E6 

(000230) 

0356 



■ n 

u 

0 0 63 

CSYDIR 

00E7 

( 000231) 

0357, 

0368 




OG 64 

EXTRV4 

00 E9 

(000233) 






0 06 5 

DIRTRY 

OOEB 

( 000235) 

0 367 




o 

0 06 6 

LDO 

003D 

(000061) 

0109 



p'l 

0C69 

GETFLO 

000 2 

( 000002) 

0128 , 

0 140 , 

0 150 



0 0 70 

ASCHEX 

000 3 

(000003) 

0142, 

0152 




0 0 71 

A SC DEC 

00 05 

(000005) 

0 131 





0 072 

GETINT 

0008 

(000008 ) 

0 181 



: O 

u> 

0 0 73 

FETMM 

0009 

(000009) 

0120 , 

0164 



0 0 7 4 

FLCVDB 

OOOE 

(000014) 

0 300 





0 075 

FLOATZ 

0708 

( 0Q1800) 

0192, 

0 221 



o 

0 078 

HANDLE 

0 001 

( Q 0 0 0 0 1 ) 

0104 



, O 

0 079 

BMSG 

0002 

(003002) 

0106 




0 080 

SOMMOR 

00 03 

(000003) 

0331 





00 81 

lOERR 

0 0 0 4 

(000004) 

0233 




o 








: O 

o 








: O 

o 








O 









■ C 





. _ 






_ ... - . . .. — 



LDOREQ 

PAG 

E 11 

DATE: 01/27/99 

0 0 82 

LISTLU 

00 0 5 

(000005) 



0 083 

COMOLU 

000 6 

(000006) 



0 08 4 

NEWHLU 

00 0 7 

(000007) 

0116 


0 0 8 5 

PROGl 

0008 

(000008) 



0 0 8 6 

PROG2 

ocog 

(000009) 

0108 


0 0 87 

8ITFLG 

000 A 

(000010) 



0 088 

BUFCNT 

OOOB 

(000011) 

0146, 0170 


0 089 

FIELD 

oooc 

(0 C0Q12) 


0 0 90 

SLASHF 

0010 

( 000016) 

0 178 


0091 

8UFEMT 

0011 

(000017) 

0 258 


0 0 92 

DUFFER 

0012 

(000018) 

0101 



LDOREQ 


PAGE 12 


DATE; 01/27/99 


o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 


SYMBOLS 


DEE. LINE NAME 


0 a A5 
0 04 e 
0115 
0128 
013 5 
0138 
0144 

0154 

0155 
0164 
0 170 
0178 
0 180 

018 7 
0188 
0191 

019 5 
0198 
02 0 2 

0217 

0218 
0222 
022*^ 
0228 
0 231 
0 232 

0238 

0239 
0242 
0244 
0 2 62 
0263 
0 266 
0268 
0269 
0275 
0 282 
0 283 
0286 
0 28 7 
0288 


LDOREQ 

LDMREQ 

LSM 

LSOl 

LER 

LS02 

LSPLOG 

LSOE 

LS04 

LS05 

LSOM 

LSPIO 

LSPll 

LSP12 

LSPCAL 

LSP15 

LSPACE 

LSP15 

SELF 

LSP20 

LSP2h 

LSP25 

LSP26 

LSP30 

LSP31 

LSP32 

BASE 

LSP35 

LSP37 

LSP40 

EXTMSG 

EXTHAN 

OFTB 

FLTADO 

MAXL 

LS0113 

XFROCD 

XFRDAO 

COUNT 

BUFAOD 

XFMSBl 


ADDRESS 

00 0 0 
00 0 0 
0010 
QOIC 
0023 
002 5 
0D2C 
0 03 5 
0036 
003F 
0 0 43 
0047 
0 0 49 
0040 
C04E 
0051 
u 0 5 4 
0056 
005A 

0069 
G06A 
Q06E 

0070 
0072 

0075 

0076 
00 79 
Q07A 
0070 
00 7F 
G08F 
QD90 
0091 
0093 
009 4 
0095 
0Q9E 
0Q9F 
00 A2 
00 A3 
OOA 4 


REFERENCED AT LINE NUMBER 

0045, 0099 
0046 

0110 

0133, 0173 
0134 

0157, 0158 
0156 
0143 
0161 
0123 
0172 
0 260 

0 189 
0 240 
0189 
0195 


ij 

o 

o 

o 

o 

C) 


o 


0 201 , 

0 20 3, 

0204 






0 205 

0198 

0 214, 
0204, 

0199 
0196, 
0 0 98, 
0 228 

0215 

0206 

0 293 
0232 , 

0256, 

0 330 





0 200 
01 07, 
0 105, 
0 2 08 , 
0 212 
0 160 , 
0259 

0136, 

0121, 

0209 

0375 

0163, 
0 15 0 , 

0 210 , 
0132, 

0 362 
0141, 

0143, 

G151, 

0153, 

0 207 
0118, 

0179, 

0245, 

0252, 

0253, 

0254, 

0298, 

0 32 6 


0103 

0276 


o 


CJ 


c 


o 

o 

o 

o 


o 


o 


C.) 











... 


LDOREQ 
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DATE; 

01/27/99 



Q 289 

XFLSBl 

QOA 5 


0 279 







0292 

XFRnRT 

00 A7 


0 206 







0298 

XFOR 

Q0A9 


0292 





' C"\ 

u 

0 3 G 6 

XF2CD 

OOBO 


0307, 

0 311 






Q 307 

COHBK 

ODBi 









0310 

XF2WD 

00B4 


0119, 

0299 






0 312 

XFMSB2 

0086 


0 2 77 





• O 


0 313 

XFLSB2 

00B7 


Q 230 






0 315 

DATBUF 

Q0E9 


0102, 

0 30 3 






0317 

FINRT 

QOBA 


0 307 






o 

0 322 

TOCORE 

OOBE 


0323 





; O 

0 350 

GETOUT 

00C5 


0 318, 

032? 





0 335 

VALUE 

OOC8 


0183, 

0 241, 

0246, 

0248, 

0250 



0 3 3 6 

TEMP 

QOOE 


0 2 47, 

0249, 

0251, 

0 502, 

0311, 0322 



0 341 

ORDCHK 

OOFC 


0 138, 

0378 




O 


0348 

ORDIO 

0102 


0 3 42 , 

0359, 

U 3 64 




0 3 49 

CORLSB 

0103 


0 317 







0 350 

CORDIR 

010 4 


0344 






o 

0 351 

N096ST 

0105 







o 

0 356 

ORDM 

0106 


0 346 







0364 

ORO M2 

OlOE 


0360 




G275, 03^5, 0373, 0 377, 0 380 



0 379 

MSB 

OllE 


0117, 

0122, 

0159, 

0167, 



0 38 0 

LSB 

OllF 


0 278 , 

0 571 




o 


0383 

0384 

SA61 

0 00 3 


0 384 






SP61 

00 0 4 


0385 







0 585 

DR61 

0180 


0 386 






o 










^ O 











: 0 

o 










0 










: O 

o 










: O 

o 










: O 

o 










O 

o 










O 

o 










O 

’ o 










O 




. . . _ 

... 

_ 






_ . . - . _ - _ 

— . - 
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date: ei/27/99 


X T E R 

N A L S 



OEF.LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

Q Q 49 

DGONV 

0093 

0268 

0 050 

MMADDR 

0091 

0266 

0 0 51 

MSG 

0092 

0 267 


LDOREO 


PAGE 


15 


>}■*>(■ l\ L 

P H A 

B E T I 

CAL 

SORT 

0 F 

AOISP 

0 05 5 

AM ON I 

0 0 55 

ASCDEC 

0 071 

BUFCNT 

0 08 8 

8UFEMT 

0 091 

BUFFER 

0 0 92 

COUNT 

G286 

CSYDIR 

0 063 

CSYLEN 

0062 

EXTHAN 

0263 

EXTMSG 

0 262 

FETMM 

0 0 73 

GETFLD 

0069 

GETINT 

0 072 

GETOUT 

0330 

LER 

013 5 

LISTLU 

0 082 

LPHSK 

0 055 

LS05 

0164 

LSOB 

0154 

LSOM 

0170 

LSP24 

021 8 

LSP25 

0 222 

LSP26 

0 224 

LSPACE 

0195 

LSPCAL 

0188 

LSPLOC 

0 1-44 

NINE 

0 05 8 

N096ST 

0351 

NZERO 

0055 

ORDM2 

0364 

PROGl 

00 85 

PROG2 

0 0 86 

SDMMOR 

0080 

SP61 

0 384 

TEMP 

0335 

XF2WD 

0 310 

XFLSBl 

0 289 

XFLSB2 

0 313 

ZERO 

0 05 6 

ZROBIT 

0 055 




DATE: 01/27/99 


S Y M B 

0 L S 

if. if. if. 




ASCHEX 

0070 

ASTRIC 

0057 

BASE 

0238 

CHRSLV 

0061 

C0M8K 

0307 

COMMA 

0057 

OATBUF 

0315 

DB61 

0385 

DCONV 

0049 

FIELD 

0089 

FINRT 

0317 

FIVE 

0056 

HANDLE 

0078 

I 

000 0 

lOERR 

0 081 

LSB 

0380 

LSM 

0115 

LSOl 

0128 

LSPIO 

0178 

LSPli 

0180 

LSP12 

018 7 

LSP30 

0228 

LSP31 

0231 

LSP32 

0232 

MASSLU 

0060 

MAXL 

0269 

MMADDR 

0 050 

OFTB 

0266 

ONE 

0058 

ONEBIT 

0056 

SA61 

0383 

SELF 

020 2 

SIX 

0056 

TEN 

0 0 59 

THREE 

0058 . 

TOCORE 

0322 

XFMSBl 

0288 

XFMSB2 

0312 

XFOR 

0 29 8 


BITFLG 

0087 

BMSG 

0 079 

BUFADD 

0287 

COMOLU 

00 83 

CORDIR 

0 350 

CORLSB 

0349 

DIRTRY 

0 0 6 5 

EIGHT 

0058 

EXTBV4 

0 064 

FLCVDB 

00 7 4 

FLOATZ 

0 07 5 

FLTAOD 

0268 

LDMREQ 

0046 

LDO 

0 066 

LDOREQ 

0 045 

LS0113 

0275 

LS02 

0138 

LS04 

0155 

LSP13 

0191 

LSP15 

0198 

LSP2C 

0217 

LSP35 

0239 

LSP37 

0242 

L3P40 

0 244 

MSB 

0379 

MSG 

0 051 

NEWMLU 

Q C84 

ORDIO 

0 3 4 8 

ORDCHK 

0 341 

ORDM 

0356 

SIXTEN 

00 56 

SLASH 

0857 

SLASHF 

CC90 

TWO 

005 8 

VALUE 

0 335 

XF2CD 

D306 

XFRDAD 

0283 

XFROCD 

0 282 

XFRDRT 

0292 


V... 


o 

o 

o 

o 


o 


o 

'’J 

o 



OMDRFQ 


PACE 

1 DATE; 01/27/99 


000 1 


NAM 

DMDREQ 

DECK-ID N51 tiSOS 5.0 SUMMARY- 

1.1. 

000 2 


MASS 

STORAGE 

OPERATING SYSTEM VERSION 5.0 

N5100a02 

0 0 03 

if- 

SMALL 

, SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

N510 0QQ3 

000 4 

if- 

COPYRIGHT CONTROL DATA CORPORATION 1976 

N51Q 0004 

000 5 

if- 




N5 10 000 5 

00 0 6 

if- 




N510 0 0 06 

00 0 7 

V 



N5 10 00 07 

0008 



y 


N510 0 00 8 

00 09 



y 

THIS PROCESSOR DUMP MASS MEMORY DATA IN ^ 

N5i0 0 0 0 9 

0010 

if- 


y 

DOUBLE PRECISION FORMAT » 

N51D 0010 

0011 

if 


y 


N5100011 

0012 

if- 



N51u0012 

0013 

if 




N5100Q13 

001 4 

if- if- y- if if 



INPUT FORMAT J 

N510QQ14 

0015 

y 




N5 1 0 0 0 1 5 

0016 

y 




N510 0 016 

0017 

y 



DMO,SSMSe,SSLS3,SW ,NN 

N51G 0 017 

0018 

y 




N51u 0016 

D019 

y 



WHERE SSMSB = START SECTOR < H EX . ) MSB 

N5 100019 

0020 

y 



SSLSB = START SECTOR (HEX.) LSB 

N510 0020 

0021 

y 



SN = START WORD (HEX.) 

N51G0021 

0022 

y 



NW = NO. OF WORDS TO BE DUMPED (HEX.) 

N510 0 022 

0023 

y 




N5i0 0 023 

002^ 

y 




N51D 0024 

0025 

jf. :f. if. if. 



OUTPUT FORMAT : 

N510 0 02 5 

0025 

y 




N5 10 0 026 

0027 

y 



A TOTAL OF 2 VALUES ARE INSERTED IN A LINE 

N510 0 027 

0028 

y 




N5 13 0 028 

0029 

y 


MMLLLL/WWWW +0 . 123456789012D + 12 -0 . 1 23 ^567 89 u 1 2D -1 2 

N5 ID Q 029 

0030 

y 




N5 10 0 030 

00 31 

y 




N5100031 

0033 

y 



ENTRY NAME 

N510 0033 

003 4 


ENT 

OMDREQ 


N51D0034 

0035 

y 



EXTERNALS 

N5100 936 

0037 


EXT 

DCONV 

0- OR F-FORMAT CONVERSION FOR DOUBLE 

N510 0 037 

0038 


EXT 

MMAOQR 


N510a038 

0039 


EXT 

MSG 


N51QQ039 

0040 

y 



1 CARO DELETED 

N510 0040 

0041 


EXT 

CHRSFG 


N5100041 

0042 


EXT 

OFF 


N51DQQ42 

0043 


EXT 

HANDLE 


N510 0 043 


o 


o 

o 

o 

C,! 


( '1 




; o 



o 


o 

0045 

0045 

o 


o 


0 0F4 
0 OEA 
0 0 02 
0 0 12 
0 0 33 


'EQU" TABLE 

EQU MQHl l$F4) ,AOISPI$EA) ,LPMSK(2) ,NZER0($12) ,ZR0BIT{$33) 


N5100045 

N5100046 




n 

s—- 








DMOREQ 


PAGE 2 

DATE.* 01/27/99 

o 







00 4 7 

0 0 43 

EQU 

FIVE {$43) ,SIX ($44) , ZERO ($22) , ON EB I T ( S 23 ) , SI X TEN C$2 7 ) 

o 


0 0 44 
G 0 22 
0 023 
0 0 27 







0C48 

0 0 2C 

EQU 

COMMA ($20 ,SLASH($2F) ,ASTRIC ($2A) 



0 0 2F 



O ' 


0 0 2A 





0049 

0 0 26 

EQU 

EIGHT ($26) ,NINE ($45 ) , THREE ( 4) , ONE ( 3 ) , TWO ( $24) 

o 


0 0 45 
00 04 
0 0 03 
0 0 24 






0350 

0 0 46 

EQU 

TEN($46) 


C'') 

00 51 

0 0 03 

EQU 

MASK (3) 

ONE BIT MASK 


00 53 

0 0 07 

EQU 

CHRSLV(7) 

LEVEL OF THIS PROGRAM 


005 4 

0 0E9 

EQU 

EXT8V4($E9) 



00 5 5 

0 0 24 

EQU 

LNW036(36) 

36W0RDS/LINE 

1 

0056 

1000 

EQU 

ASMOD ($ 1 00 0 ) 

ASC OUTPUT MODE 


0057 

D8C2 

EQU 

MASSLU ( $8C2> 

MASS MEMORY LU 


0058 

0 7 08 

EQU 

FLOATZC 180 0 ) 

SIZE OF FLOATING POINT PACKAGE 

/ ‘t 

0059 

OOIE 

EQU 

N040 (30 ) 

BUFFER SIZE 

1^) 

fl06D 

0 0 02 

EQU 

WRDLN (2 ) 

NO. OF DATA PER LINE 


0062 

0 0 2E 

EQU 

KARPER{ $2E) 

CHARACTER = . 

o 

0063 

0 0 45 

EQU 

KARE($45) 



0065 



PARAMETER LOCATION (OFFSET FROM BASE) 


0066 

0 001 

EQU 

BHAN(l) 

"HANDLE" 

\ 

0067 

0 0 02 

EQU 

BMSG(2) 

"MSG" ENTRY 


006 8 

0 0 03 

EQU 

SOHMOPJ 3) 

"SOMMOR" ENTRY 


0059 

0 0 04 

EQU 

I0ERR(4 ) 

"lOERR" ENTRY 

o 

0070 

0 0 05 

EQU 

LISTLUC 5) 

LIST OUTPUT — "LISTLU" 

0071 

0 0 06 

EQU 

C0M0LU(6) 

"COMOLU" 


0072 

0 0 07 

EQU 

NEWMLU(7) 

"NEWMLU** NEW MM LU 


0073 

0 0 08 

EQU 

PROGl (3 ) 

"PROGl" 


007 4 

0 0 09 

EQU 

PP0G2 (9 ) 

"PR0G2" 

u 

0075 

0 OOA 

EQU 

BITFLG (10) 

"BITFLG" 


0076 

flOOB 

EQU 

BUFCNT(ll) 

"BUFCNT** 


007 7 

OQ OC 

EQU 

FIELD (12) 

■•FIELD" 

Q 

0078 

0 010 

EQU 

SLASHF (16) 

"SLASHF" 

0079 

00 11 

EQU 

BUFEMT (17) 

■•BUFEMT" 


008 0 

CO 12 

EQU 

BUFFER (18) 

■•BUFFER" 


0081 

If 


SUBROUTINE "EQU” POINTERS 

o 

0082 

00 02 

EQU 

GETFLDC 2) 

"GETFLD" 

0033 

0 Q 03 

EQU 

ASCHEXC 3) 

"ASCHEX** 


008 4 

0 0 05 

EQU 

ASC0EC(5) 

"ASCDEC" 


0085 

00 09 

EQU 

FETMM (9 ) 

‘FETMM* GET MM ADO. 


N510Q Q^r 

N510 Q048 
N51Q 0049 


N5i0 0 05 0 
NSlQOiiSi 

N5100054 
N5 10 0 0 5 5 
NSlOOOSb 
N5100057 
N510 0 058 
N510 d ij 5 9 
N5 1 0 0 06 Q 

N5100052 

N5100063 


N510G065 
N51d u 056 
N5100067 
N5 10 0 068 
N5ia0069 
N51 0 0 0 70 
N510 0071 
N513 0 072 
N51C0073 
N51Q 0 0 74 
N51Q 0 075 
N510 0 076 
N5 10 0 077 
N5iu 0 078 
N5100079 
N51Q 0 080 
N510Q081 
N510 0 082 
N510 0 083 
N510 0 0 8 H- 
N5iu00B5 


o 


o 

o 

o 

o 

r:^ 

O 

O 


o 


o 


c 

o 

o 

o 


o 


o 


DMDREQ 


PAGE 
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3 


0087 

0088 
0089 


0091 

0092 

0093 
009A 

009 5 
00 9 6 

009 7 

0098 

0099 

0100 
0101 
0102 

0103 

OlQ-t 

010 5 


POQCO 687A 
PODOi 60FF 
P0002 8112 
P00G3 6800 
POOG4 0103 
P0005 68 71 
P0006 ClOl 
P0007 6371 
P0008 C102 
P0009 636E 
POOOA C105 
POOOB 8815 
POOuC 6800 
POODO C0F8 
PO OOE Cl 07 
POOOF 681F 
POOlO 6836 


0107 


if- 


¥• » ¥■ 

PROGRAM START 


N510 0 C87 
N5100 088 
N510 0 089 

OMDREQ 

STA^ 

STA- 

AOD- 

STA 

BASE 

I 

BUFFER, I 
BUFAOD 

CALCULATE ”BUFFER” ADD. 


N5100Q91 

N5100092 

N51QQ093 

N51UG094 


STA^ 

COA- 

STAL 

LDA- 

SJA* 

LDA- 

ADD» 

STA 

DATLOC 
BHAN, I 
EXTHAN 
3MSG,I 
EXT MSG 
LISTLU, I 
MODE 
OTLU 

GET "HANDLE" ADD. 
FETCH "MSG" ADDRESS 


N5i0 0 095 
N5100 096 
N510 0097 
N5100 098 
N5100099 
N510 0100 
N51G0101 
. N51Q0102 


LOA- 

STA^ 

STA^ 

NEWMLU, I 
D MS L U 
DMSLOC 

SET UP MH LU 


N51001Q3 

N5l00i0i* 

N51001C5 



GET 

ALL CORF. ADDRESSES 


N5100107 


0109 

0110 
0111 
0112 

0113 

0114 


0115 

0116 

0117 

0118 
Q119 
012 G 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 


DUMP MASS MEMORY SINGLE PRECISION 


V- 


PC Oil 

0 A09 

DMSENT 

ENA 

FETMM 

P0012 

OCOl 


ENQ 

1 

PD013 

5C b5 


RT 

{EXTHAN ) 

PO 014 

0 0 32 


AOC 

DMSLOC-'^ 

P0015 

G A02 


ENA 

GETFLD 

PO 016 

0C04 


ENQ 

4 

P0017 

5C61 


RTJ- 

(EXTHAN ) 

PO 018 

0A03 


ENA 

ASCHEX 

P0Q19 

5C5F 


RTJ«^ 

{EXTHAN ) 

POOIA 

0 0 0 0 

NW 

NUM 

0 

POOIB 

cm 


LDA- 

BUFEMT , I 

POQIC 

B012 


EOR- 

LPMSK+16 

PO OlO 

0103 


SAZ 

DMS5 

P OulF 

OC 04 

OSP3 

ENQ 


POOIF 

1C 58 


JMP'^ 

(EXTMSG ) 

P0Q20 

1000 

MODE 

if. 

ADC 

ASMOD 

P0Q21 

6854 

OMS5 

STA^ 

INDEX 

P0022 

C824 


LOA^ 

DMSLOC 

P0Q23 

68 OE 


STA» 

DMS M 

P0024 

C823 


LDA- 

DM3LOC + 1 


GET MM ADO. 

RETURN WITH INPUT ADD. DATA 

GET NEXT FIELD NO. OF WORDS 

CONVERT TO HEX 
MAKE SURE IS EMPTY 

INCORRECT FORMAT, 

ASC OUTPUT MODE 

SET UP MSB AND LSB 


N5 10 0109 

N5100 110 

N51Q0111 

NpIu 0112 

N510C113 

N510 0114 

N51QG11 5 

N5100116 

N5100117 

N5100118 

N5 10 Oil 9 

N5i0ai2G 

N5100121 

N510Q122 

N5100123 

N510012H 

N5 10 012 5 

N51Q 0126 

N5130i27 

N513Q128 

N51Q 0129 

N51G 0130 

N51QG131 

N5100132 

N51Q 013 3 


DMDREQ 


PAGE 


4 


OATES 51/Z7/99 



D134 P0025 6300 

0135 P0026 OAIE 

0136 P0027 6608 

0137 P0028 6800 
P0029 0112 

0138 P002A 54F4 

0139 P002B 0307 

0140 P3U2C 0009 

0141 P0020 0000 

0142 P002E GOOD 

0143 P002F 0000 

0144 P0030 0111 

0145 P0G31 OQGO 

0146 P0032 0000 

0147 P0033 14EA 

0148 

0149 P0034 0162 

0150 P0G35 1800 
P0 036 0 0 87 

0151 

0152 P0037 0844 

0153 P0038 6841 


DHDIR 

STA* 

DMSL 


ENA 

NOLO 


STA* 

DMSZ 


STA 

WDBF 


RTJ- 

(AMONI) 

DMSCD 

ADG 

$300 + CH RSLV 

ADC 

DMSRT-DHSGO 


NUM 

0 

OMSLU 

NUM 

0 

OMSZ 

NUM 

0 


ADC 

DMSBUF-OMSCD 

DHSM 

NUM 

0 

DMSL 

NUM 

0 

if. 

JMP- 

(ADIS P) 

DMSRT 

SQP 

DHSIO 


JMP 

DSPEIO 

V- 

DMSIQ 

CLR 

A 


STA* 

COUNT 


NO. OF WORDS TO BE XFER 


READ OVER DATA 


LU (FILLED) 
SIZE (FILLED) 

MSB (FILLED) 
LSB (FILLED) 


o 


o 


■'w-' 


1 


o 

n 


0155 

0156 

0157 P0039 0800 
P005A OOCD 

0158 P0D3B 09FE 

0159 P003C 60FF 

0160 P0030 OCOQ 

0161 P003E CQGC 
P003F 2020 

0162 P004Q 6301 

0163 PD041 ODOl 

0164 P0042 0814 

0165 PC043 09OB 

0166 P0044 0106 
0157 P0045 18F3 

0168 P0Q46 0GQ5 

0169 

0170 

0171 POOne C8FC 

0172 P004C 582F 

0173 P004D 6101 

0174 P0G4F C8FA 

0175 P004F 582C 

0176 PQ05D 4102 

0177 P0051 6103 

0178 P0052 G8F7 

0179 P0053 5828 

0180 P0054 6827 

0181 P0055 0814 


- FILL LINE WITH SPACE 

V- 

DMS13 LOA BUFAOD 

INA ~1 
ST A- I 

ENQ Q FILL BUFFER WITH SPACE 

HA12 LDA =A 


STA- 1,3 
INQ 1 
TRQ A 
INA -36 
SAZ MA14 
JMP^ MA12 

DMSLOC BZS DMSL0C(5) 

^ INSERT 


MA14 


LDA^ DM3LOC+2 
RTJ» GV4A 
STA- 1,1 
LOA* OMSLOC+3 
RTJ* CV4A 
STQ- 2,1 


STA- 3,1 
LDA* DMSLOC+4 


RTJ* CV4A 


STA* GV4A 


TRQ A 


CORE LOCATION TAG 
CONVERT MSB TO ASC 

GET LSB AND CONVERT TO ASC 
GET WORD 


o 

( 1 


C) 


C) 


N5100134 


N510 013 5 


N510013& 

■ o 

N519 0137 

N5100138 


N510 0159 

' o 

N510014G 

N510 OlHl 


N510G 142 


N5 IG G 143 

C'^\ 

N510 0144 


N5100145 


N5igpl46 


N51j 0147 

Q 

N5i0Q148 


N510 01^9 


N510015C 

, c 

N5100151 

N51Q 0152 


N510 0153 

' o 

N51Q 0155 


N510 G156 


N5100157 

' o 

N5 13 0158 


N51B0159 


N51Q0160 

' 0 

N5100161 


N51C 0162 


N5100163 

r j 

N51G 0154 


N513 0 16 5 


N5 10 0 1 6 6 


N513 0167 


N5100168 


N5 10 016 9 


N510017G 


N510Q171 

• O 

N51DC172 

Np 10 0173 


N51Q0174 


N5100175 

o 

N5100176 


N513 0177 


N5100178 


N51Q0179 

o 

N510018C 

N510 G 181 



r--. 


C) 


date: 01/27/99 


o 

o 



r 1 


o 

o 


o 




n 


O 

O 

O 

O 


DMDREQ 


0132 

PQ056 

0C2F 


ENQ 

013 3 

PO 057 

0FE8 


LLS 

0184 

P0058 

4104 


STQ- 

0185 

P0059 

E822 


im* 

0186 

P005A 

DFC8 


ALS 

018 7 

PC05B 

QFF8 


LLS 

0188 

P005C 

0920 


INA 

0189 

P005D 

6106 


STA- 

0190 

P0G5E 

41 05 


STQ- 

0191 





0192 





0195 

P005F 

QA07 


ENA 

0194 

P0Q60 

8816 


ADD^ 

0195 

P0061 

6815 


STA^ 


0197 





0198 





0199 




LOQ^ 

0200 

PG062 

E813 

OHS22 

020 1 

POO 63 

CAOD 


LOA 


PQ 064 

0 0D8 


STA=^ 

020 2 

P0Q65 

6862 


0203 

P0066 

CAOO 


LDA 

P0067 

0 0D6 


STA^ 

0204 

P00 68 

6860 


020 5 

P0069 

CAOO 


LDA 

P006A 

0 0D4 


STA^ 

0206 

P006B 

685E 


020 7 

P0fl6C 

0 D03 


INQ 

020 8 

P0060 

4808 


STQ^ 


0210 

0211 

0212 

P006E 

54F4 

>(■ 

LSP12 

RTJ- 

0213 

P006F 

1547 

LSPCAL 

ADC 

0214 

P0070 

002B 


ADC 

0215 

PO 071 

0 0 0 0 

LSP13 

NUM 

0216 

PQ072 

0 000 

NUM 

021 7 

P0 073 

0708 


ADC 

0218 

P0074 

14EA 


JMP- 

0219 

P0 0 75 

0 DOO 

INDEX 

NUM 

0221 

022? 

P00 76 

0 0 0 0 

>!■ 

OATLOC 

NUM 

0223 

PO 077 

0 0 0 0 

EXT MSG 

NUM 

0224 

PQ078 

0 0 00 

EXTHAN 

NUM 

0225 

P0 079 

0 0 0 0 

COUNT 

NUM 

0226 

P007A 

0 0 00 

BASE 

NUM 


0228 


PAGE 


SLASH INSERT '/' BETWEEN SECTOR AND WORD 

8 

4.1 

CV4A 

3 

24 

$20 

6.1 


INCREMENT DATA LOC. TO VALUE 
7 

OATLOC 

DATLOC 


GET AND ASSEMBLE VALUE 


INDEX 
DMSBUF, Q 


SET UP INDEX AND MOVE FLOATING POINT VALUE 
INTO CALLING PARAMETER LOCATION 


VALUE 

DM3BUF+1 ,Q 


VALUE+i 
nMSBUF+2 ,0 

VALUE+2 

~7 

INDEX 


REQUEST SPACE TO BRING IN FLOATING POINT PACKAGE. 

(AMONI) 

31540+CHRSLV 

LSPACE-LSPCAL 

0 CORE LOCATION OF REQUESTED SPACE 

FLOATZ 

(ADISP) 

0 


0 

0 

0 

0 

0 


••MSG" ADD. 
"HANDLE" ADD. 

PARAMETER ADD. 


N51G 0 182 
N510G183 
N5100184 
N5100185 
N510 013 6 
N510G187 
N510C188 
N5i0 0189 
N510 0190 
N5100191 
N5100192 
N51Q0193 
N510 0194 
N5ia0195 


N510 0197 
N5100198 
N510 0199 
N510 0 20 0 
N510C 201 

N5100202 
N510 0 205 

N513 0204 
N513 0 20 5 

N51G 0206 
N510 0 2G7 
N510 0208 


N51D 0 210 
N510 0211 
N51Q0212 
N510 0 213 
N5 10 0 214 
N513 0215 
N5 10 0 216 
N51G0217 
N5 100218 
N510Q 219 

N5100 221 
N510 0222 
NSIOO 223 
N510 0224 
N510 0225 
N51D 0 226 


N512 0 228 



O 


O 

O 

o 

o 

o 

Q 

o 

o 

o 

o 

c 




o 




DMDREQ 
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0229 






ROUTINE TO CONVERT TO I-NORO ASCII 

0230 



>!■ 




0231 

PQ 07P 

ODOO 

CV4A 

NOP 

0 

ENTRY 

0232 

P0C7C 

OCOO 


ENQ 

0 


0233 

P007D 

4815 


STQ^ 

Cl 

SET UP INDEX 

0234 

P007E 

OF EC 

Cl 

LLS 

12 

EXTRACT 4-8IT TO A-REG. 

0235 

P0 07F 

0FC4 


ALS 

4 


0236 

P0080 

48 OD 


STQ^ 

CT 

SAVE REMAINDER 

0237 

P0 081 

09F5 


INA 

-10 

SET UP CHAR. AS NO. OR A-F 

0238 

P0082 

0131 


SAM 

NOAFl 


0239 

P0 0 83 

0907 


INA 

7 


0240 

PC 084 

Q93A 

NO A FI 

INA 

$3A 


0241 

P0 085 

E8 QO 


LDQ^ 

Cl 

RECALL INDEX TO SAVE CHAR. 

0242 

P00 86 

6AQ8 


STA» 

CU, 0 


0243 

P0087 

ODFC 


I NO, 

-3 

CHECK IF DONE 

0244 

pe088 

01 4A 


SQZ 

CE 

SKIP WHEN DONE 

0245 

POG89 

D809 


RAO» 

Cl 


0246 

PC 08A 

OCOO 


ENO 

0 


0247 

P008B 

C802 


LDA-'*^ 

CT 

TO PROCESS ANOTHER ONE 

0248 

P0Q8C 

18F1 


JMP"' 

Cl 


0249 







0250 

PQ 080 

0 0 00 

CT 

NUM 

0 


0251 

P0 08E 

0 0 04 

CU 

BZS 

CU(4) 


0252 

PD 092 

0 0 00 

Cl 

NUM 

0 


0253 







0254 

P0093 

E8F0 

CE 

LOQ^ 

CU+3 


0255 

P0 094 

OF A8 


QLS 

8 

ASSEMBLE INTO 2-CHAR. WORD 

0256 

P0095 

F8FA 


AOQ^ 

CU+2 


0257 

P0096 

C8F8 


LOA^ 

CUf 1 


0258 

P0 097 

0FC8 


ALS 

8 


0259 

P0098 

88F5 


ADD^ 

CU 


0260 

P0Q99 

ICEl 


JMP*’- 

(CV4A ) 

RETURN 


UCOC 

0263 

PO 09A 

0161 

LSPAC E 

SQP 

LSP15 

SPACE BE 

GRANTED, DO SOMETHING 

0264 

P009D 

1822 


JMP^ 

DSPEIO 

TO ERROR 

(I/O ERROR) 

0265 

0266 

PQ Q9C 

4816 

>«■ 

LSP15 

STQ^ 

LSP25 

SET LOC. 

WHERE PROGRAM TO BE READ 

0267 

P009D 

481F 


STQ^ 

LSP31 



026 8 

PQ 09E 

4327 


STQ^ 

LSP40 



0269 

PG09F 

5801 


RTJ^ 

SELF 

generate 

RETURN ADD • 

027 0 

POOAO 

OBOO 

SELF 

NOP 

0 



0271 

POO A1 

C8FE 


LDA^ 

SELF 



0272 

P00A2 

0919 


INA 

LSP30-3ELF 



027 3 

POOA3 

6808 


STA^ 

LSP24 



0274 

POO A4 

C812 


LOA^ 

OFTB 

GENERATE 

"MMAODR” LOCATION 

0275 

POOA5 

9812 


SUB* 

OFTB+1 



0276 

POO A6 

8800 


ADD* 

EXTMSG 



027 7 

PO 0A7 

0 822 


TRA 

Q 



0^78 

P00A8 

C8 10 


LDA* 

FLTADD 

GET FLOAT 

PACKAGE SECTOR ADD. 

0279 

PQ0A9 

5622 


RTJ- 

(ZERO) ,Q 

TO 'MMAODR' FOR MM ADD. CONVERSION 

0280 

POOAA 

680A 


STA* 

LSP26 

SAVE LSB 



N51G 0 229 
N510023G 
N510 C231 
N510D232 
N51G0233 
N51Q0234 
N5 10 0 255 
N510G236 
N5i00237 
N510 0238 
N510 0239 
N510D240 
N51Q 0 241 
N510 0242 
N5100243 
N5 10 0 244 
N5190245 
N510 024o 
N5100247 
N5100248 
N5100249 
N5100250 
N5100251 
N510C252 
N5 10 025 3 
N513 0254 
N51D0255 
N5100256 
N51J 0 25 7 
N510 0258 
N5 10 0 259 
N5 10 0 260 


N51Q0262 
N519 0263 
N5 10 0 25 4 
N513 0265 
N51G026b 
N510 0267 
N510 0268 
N510 0 269 
N510 0 270 
N51Q0 271 
N51Q 0272 
N51Q 0273 
N51G 0274 
N510 0 275 
N510 0 276 
N510 0 277 
N5100278 
N510 0279 
N51G 0 280 


OMDRFQ 


PAGE 
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7 


0281 

POOAB 

48 08 



STQ^ 

LSP26-1 


0282 

POOAC 

54F4 



RTJ- 

{ AM ON I ) 


0283 

PD OAD 

08 07 


LSP2Q 

ADC 

S80 0 + CHRSLV 


0284 

PO OAE 

0 0 00 


LSP24 

NUM 

0 

RETURN (TO BE FILLED) 

0285 

POOAF 

0 0 0 0 



NUM 

0 

THREAD 

028 6 

POOBO 

0 8C2 



ADG 

MASSLU 


028 7 

POOBl 

0708 



ADC 

FLOATZ 


0288 

PQQB2 

0 0 00 


LSP25 

NUM 

0 

FLOAT PACKAGE ADD. (TO EE FILLED) 

0289 

P00B3 

0 0 00 



NUM 

0 


0290 

POOB4 

3 0 00 


LSP26 

NUM 

0 

SECTOR ADD. (TO BE FILLED) 

0291 

P00B5 

1 4EA 



JHP- 

(ADISP) 


0293 




V- 




0294 

P00B6 

7FFF 

X 

OFTB 

AUC 

MHADDR 

0. "MMADOR" 

0295 

POO B7 

7FFF 

X 


ADC 

MSG 

1. “MSG** 

0296 

POOPS 

7FFF 

X 

FLTADO 

ADC 

DCONV 

D> OR F-FORMAT CONVERSION FOR DOUBLE 

0298 




* 




0299 

P00B9 

0 166 


LSP33 

SQP 

LSP35 

MM TRANSFER OK, SKIP 

030 0 

PQOBA 

54F4 



RTJ- 

JAMONI) 

RELEASE CORE 

0301 

P008B 

1800 



NUM 

$18 0 0 


030 2 

POOBC 

0 0 00 


LSP31 

NUM 

0 


030 3 

P003D 

E8BC 


OSPEI 0 

LDQ^ 

BASE 

EXIT TO "lOERR** 

0304 

PQOBE 

E2 04 



LDQ- 

IOERR,Q 

EXIT TO "lOERR" 

0305 

P008F 

1622 



JMP- 

(ZERO ) , 0 


030 6 
0307 




=t- 


FLOAT 

PACKAGE IS IN CORE, CONVERT NO. 

030 8 




V- 




0309 

POOCO 

OCOl 


LSP35 

ENQ 

1 


0310 

POOCl 

5CEG 



RTJ’^ 

(LSP13) 


0311 

PGDC2 

00 05 



ADC 

VALUE-'^ 


0312 

PGGC3 

54F4 


LSP37 

RTJ- 

(AMONI) 

RELEASE CORE 

0313 

PDQC4 

18 DO 



NUM 

$1800 


031^ 

PQ 0C5 

00 00 


LSP43 

NUM 

0 

ADO. (TO BE FILLED) 

0315 

P0QC6 

1819 



JHP^- 

OSPlOO 


0317 




* 


STORAGE AND/OR CONSTANTS 

0318 

PD0C7 

0 018 


VALUE 

BZS 

VALUE (24) 


0 32 0 








0321 




^ + 


INSERT 

INTEGER INTO OUTPUT FORMAT 

0322 








0323 

PO odf 

OCDO 


OSPIG 0 

ENQ 

0 


0324 

POOEO 

CAE9 


DSPlOl 

LDA^ 

VALUE+3 1 Q 

ASSEMBLE 2-DIGIT INTO ONE WORD (INTEGER) 

0325 

PO OEl 

0FC8 



ALS 

8 



N5100281 
N51QG282 
N5100283 
N510Q28H 
N51Q0285 
N5 IG D 28 6 
N51u 0 287 
N510 0288 
N510 0 289 
N510029D 
N51G 0 291 

N5100293 
N51Q 0294 
N51G 0 295 
N5100296 


N5lJ C 298 
N510 0299 
N5ia0300 
N510 0 301 
N510 0 302 
N51Q 0 30 3 
N51Q0 304 
N5 10 0 30 5 
N510 0306 
N510 u 30 7 
N510 0308 
N51J 0 309 
N513 0 310 
N51QQ311 
N510D 312 
N5 10 0313 
N513Q314 
N5 10 0 31 9 


N513Q 317 
N5 18 0 31 8 


N5100 320 
N510Q 321 
N510 0 322 
N5100323 
N5130324 
N513 0325 


DMDREQ 
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O 



0326 

P00F2 

8AE8 


ADD"^ 

VALUF+4,Q 



G327 

P00E3 

6C92 


STA^ 

(DATLOC ) 


o 

0328 

P00E4 

D891 


P.AO'^ 

DATLOC 


0 329 

P00E5 

0 002 


INQ 

2 

BUMP NO. OF INTEGER IN F-FORMAT 


033 0 

PQ QE6 

08 14 


IRQ 

A 



0 331 

P00E7 

09EB 


INA 

-20 

CHECK IF DONE 


0332 

PG0E8 

0 121 


SAP 

DSP102 


u 

0333 

P0OE9 

18F6 


JHP» 

DSPlOl 



033 4 

POOEA 

088B 

OSP102 

RAO^ 

DATLOC 



0335 

POOEB 

D88A 


RAO^ 

DATLOC 


O 

0336 

POOEC 

0889 


RAO» 

DATLOC 

BUMP POINTER TO NEXT VALUE 


0338 



V- 


CHECK 

IF LINE EXHAUSTED 


0339 

POOED 

D88B 


RAO^^ 

COUNT 



0340 

POOEE 

C88A 


LDA^^ 

COUNT 



0341 

POOEF 

09FD 


INA 

-WRDLN 



0342 

POOFO 

E84B 


LDQ^ 

WDBF 

CHECK IF BUFFER EMPTY 

r\ 

0343 

POOFl 

ODFC 


INQ 

-3 


\ I 

0344 

P00F2 

4849 


STQ» 

HDBF 



0345 

P00F3 

OlOA 


SAZ 

DSPIO 5 



0346 

P00F4 

C8Q0 


LDA 

NW 

CHECK IF DATA EXHAUSTED 



POOFS 

FF24 






0347 

PO 0F6 

09FC 


INA 

-3 



0348 

P00F7 

6800 


STA 

NW 




POOFS 

FF21 





1 "l 

0349 

P00F9 

0104 


SAZ 

DSP105 


1 I 1 

0350 

POflFA 

0133 


SAH 

DSP105 



0351 

PO OFB 

01 42 


SQZ 

DSPIO 5 

SKIP IF BUFFER EMPTY 


0352 

POOFC 

1800 


JHP 

DHS2 2 


("■) 


POOFO 

FF64 






0 35 4 








0355 



^ ^ 


PRINT 

DATA 

LJ 

0356 








0357 

POOFF 

C8A1 

DSPIO 5 

LDA^ 

SELF 



0358 

POOFF 

0969 


INA 

OSPRET-SELF 


/ 1, 

0359 

PO 100 

6803 


STA- 

DSPX 



0360 

POlOl 

54F4 


RTJ- 

(AMONI) 

CALL MONITOR 


035 1 

PG102 

OC07 


ADC 

$CDQ + CH RSLV 



0362 

P0103 

0 0 00 

OSPX 

NUM 

0 

EXIT (TO 8E FILLED) 


0363 

PQ104 

00 0 0 


NUN 

0 


o 

0364 

P0105 

0 0 0 0 

OTLU 

NUM 

Q 

LU (TO BE FILLED) 


0365 

PQ1Q6 

0 0 24 


ADC 

LNWD36 



0366 

POIG 7 

OC 00 

BUFAQD 

NUM 

0 

“BUFFER" ADO. 

o 

0367 

P0108 

14FA 


JMP- 

(ADISP) 



0369 





RETURN 

FROM OUTPUT 


0370 

P0109 

0 161 

DSPRE T 

SQP 

DSPOK 


U 

0371 

FOIOA 

18 B2 


JMP^ 

DSPEIO 

TO "lOERR" ERROR EXIT 


0372 








O 


O 


N510 032b 
N51Q 0 327 
N5lj 0 528 
N510G329 
N5lu 0 33 0 
N510 0 331 
N510 0 332 
N510 0335 
N510 0 334 
N5100335 
N51G 0 336 


N510 0 338 
N5 10 0 339 
N510 0340 
N510 0 341 
N510C342 
N5100345 
N5 IJ 0 344 
N51Q 0345 
N51Q 0 346 

N5100347 

N5100348 

N51Q 03^*9 
N5 10 0 35 0 
N51G 0 351 
N510G352 


N51G 0 354 
N5100355 
N510 0 356 
N5 10 0 35 7 
N510 0 358 
N510 0359 
N5 10 0 36 0 
N5100361 
N510 0 362 
N510 0 363 
N510C364 
N5 1 3 0 36 5 
N513 0 366 
N510Q367 


N510 0 369 
N510 0 370 
N510 0 371 
N510 0 372 


O 

O 

O 

O 

Q 

o 

C! 

o 

o 

o 

o 

o 

G 

O 

O 

O 






DMDREQ 



PAGE 

Q 

0373 

POlOB 

C400 

X 

DSPOK 

LOA 

CHRSFG 



PQIOC 

7FFF 

X 



DSPREP 


0374 

PO lOD 

Dili 



SAN 

O 

0375 

POIGE 

1819 



JMP» 

GONE 


0 37 6 

P 0 1 G F 

C800 


DSPREP 

LOA 

NW 



POllO 

FF09 



INA 



0377 

POlll 

09FC 



-3 

u 

0378 

PC112 

6800 



STA 

NW 



P0113 

FFD6 






0379 

P0114 

OlOE 



SAZ 

DSPDON 


038 0 

P0115 

013D 



SAM 

DSPDON 

u 

0381 

P 0 1 1 6 

C8F0 



LOA^ 

BUFADD 


0 38 2 

P0117 

68 00 



STA 

OATLOC 



P0118 

FF5D 




DM5L0C + 4 

o 

03 8 3 

P0119 

C3 0Q 



LDA 

POllA 

FF 2F 



INA 



0384 

POllB 

0906 



6 


0385 

PCllC 

6800 



STA 

DMSLOC + 4 

O 


PQllD 

FF2C 



LOA^ 

WDBF 

038 6 

POUF 

C81D 




038 7 

POUF 

0111 



SAN 

DMD70 


0388 

P012Q 

1810 



JMP*^ 

DM0201 


0389 

P0121 

1800 


DMD70 

JMP 

DM510 


0390 

P0122 

FF14 




D 


0391 

P0123 

E800 


DSPDON 

LOQ 

BASE 

Q 

P0124 

FF55 




SOMMOR, Q 

0592 

PG125 

E203 



LDQ- 


0393 

P0126 

1622 



JMP- 

rZERO ) , 0 


0394 

P0127 

E800 


GONE 

LDQ 

BASE 

o 

P0128 

FF51 




OTB+1 

039 5 

PG129 

C8 06 



LOA* 


0396 

P012A 

98 04 



SUB* 

0TB 


0397 

PQ12B 

8201 



ADO- 

a HAN, 0 


039 8 

PO 12C 

0822 



T RA 

Q 

o 

0399 

P012O 

1622 



JMP- 

{ ZERO ) , Q 


0400 

P012E 

7FFF 

X 

0TB 

ADC 

HANDLE 


040 1 

P012F 

7FFF 

X 


ADC 

OFF 

o 

0 40 3 

PO 130 

6800 


OHD2Q1 

STA 

INDEX 



P0131 

FF43 




NO40 

OMSL 

n 

0 40 4 
0405 

P0132 

P0133 

QAIE 
88 0 0 



ENA 

ADD 



PG134 

FEFD 




OMD203 


0^0 6 

P0135 

0123 



SAP 


0407 

PQ136 

D8Q0 



RAO 

DM5M 

O 

P0137 

FEF9 




LPMSK+1 5 


040 8 

P0133 

AOll 



AND- 


0409 

P0139 

1800 


OMD2Q 3 

JMP 

DM91R 

o 


P013A 

FEFA 



NUM 


0410 

P013B 

0000 


WDBF 

0 


date; 01/27/99 

CHECK IF ■*OX" 

NO, SKIP 
YES, TO EXIT 

CHECK IF ALL DATA EXHAUSTED 

RESTORE BUFFER ADD. AND REPEAT 
UP DATA LOCATION COUNT 

CHECK IF BUFFER EMPTY 

YES,^TO*^UPQATE MM ADO. AND READ OVER DATA 

EXIT 

EXIT TO "SOMMOR" 

GENERATE "OFF” ADDRESS 

TO "OFF" 

0. "HANDLE" ENTRY 

1, "OFF" ENTRY 

UPDATE MM ADD. 

TO READ OVER MORE DATA 


N5100 373 

N51G g 374 
Nplii 0 375 
N51J 0 376 

N510 0 37 7 
N51j 0 378 

N5130379 
N51D 0 360 
N510 0 381 
N513 0 362 

N5100383 

N5 10 0 38 4 
N51G0385 

N51D 0 386 
N51G 0 387 
N51Q C3S8 
N513 0 389 

N51Q039G 

N5100391 

N51D 0 392 
N5100393 
N5120394 

N5 10 0395 
NalD 0 396 
N510 0397 
N5100398 
N510C 399 
N5 1C 0 hO 0 
N5100 401 


N51Q 0 40 3 

N510C404 
N5 10 0 40 5 

N510 0 406 
N5 ICC 40 7 

N51DQh08 

N5100h09 

N5 10 0 4l 0 


O 


o 


u 

o 

o 

o 


o 

o 

o 

o 

o 

o 


o 


I ; 


o 


OHDREQ 


PAGE 10 


date: 01/27/99 


0412 ♦ 

0413 P013C OOIE DMSBUF BZS DMSBUF(30) 


N91u 0 Hi 2 
N510 0 413 


0415 



¥ 



0416 


0 0 03 

P 

EQU 

SA49i ^/96) 

0417 


0 0 04 

P 

EQU 

3P49 f SA 49+1 ) 

0 41 3 


0180 

P 

EUU 

DB49 {SP49+96) 

0419 

P015A 

0 026 


BSS 

(0849--^ ) 

0420 




END 


PGM = 

0180 

1 

384) 

COM = 

QGQO ( 0 ) DAT = 0000 { 


Q ) 


N51G 0 415 
N5 ID 0 h1 b 
N51G 0 417 
N510Q 418 
N510Q 419 
N51D 0 42Q 


‘ 


OMOREQ 

PAGE 11 


DATE1 

01/27/99 

( 

o 









o 

o 

E Q U I V 

A L E N 

C E S 






^ o 

r ) 

DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 


o 


OQDC 

I 

ooff 

(000255) 

0 0 92 , 

0159 





0 0A6 

AMONI 

0CF4 

(000244) 

0138, 

0212, 

0282, 0300, 

0 312, 0 360 


O 

OO^tS 

AOISP 

OOEA 

(000234) 

0147, 

0218, 

0291, 0367 


o 

00i»6 

LPHSK 

G002 

1000002) 

0 123, 

0408 




0Q46 

NZERO 

G012 

(000018) 







0046 

ZROBIT 

0 033 

( 000051) 






!D 

0047 

FIVE 

0043 

( 0 00067) 






0 Qi^7 

SIX 

0044 

{ OQ0068) 







0 047 

ZERO 

0022 

(000034) 

0 279 , 

0305, 

0393, 0399 




0 047 

ONEBIT 

0023 

( 000035) 






'0 

0047 

SIXTEN 

0027 

(000039) 






0 048 

COMMA 

0Q2C 

(000044) 







0 048 

SLASH 

Q02F 

( 000047) 

0 182 






0 0^8 

ASTRIC 

002A 

(000042) 






o 

OOi-9 

EIGHT 

002 6 
OOL5 

(000038) 





C\ 

0 0 49 

NINE 

(QCQ069) 







0 0 49 

THREE 

00 0 4 

( 00000 4) 







0 0 49 

ONE 

0003 

(000003) 






o 

0 049 

TWO 

0024 

(000036) 





o 

0050 

TEN 

0046 

(000070) 






0 0 51 

MASK 

00 0 3 

(000003) 







0 053 

CHRSLV 

30 0 7 

(000007) 

0 139, 

0213, 

0283, 0 361 



o 

0 0 5-4 

EXTBV4 

0GE9 

(000233) 





o 

0 055 

LMWD3& 

0024 

( Q00036) 

0365 





0 0 5 6 

ASMOD 

10 0 0 

(004Q96) 

0128 






0 0 57 

HASSLU 

08C2 

(0 02242) 

0 286 





o 

0 058 

FLOATZ 

070 8 

(001800 ) 

0217, 

0287 



o 

0 059 

NOLQ 

OOIE 

(000030) 

0 135 , 

040 4 




0060 

WROLN 

0 0 0 2 

( 000002) 

0 341 






0 062 

KARPER 

OOZE 

(C00046) 







0 0 63 

karf 

G045 

(000069) 





o 

o 

0 06 6 

8HAN 

uGOl 

(000001) 

0 096 , 

0397 




0 06 7 

BMSG 

GO 0 2 

(000002) 

0 0 98 






0 068 

SOMMOR 

G003 

( 0 00003) 

0 3 92 





o 

0 069 

lOERR 

0 00 4 

(000004) 

0 304 




o 

0 070 

LISTLU 

000 5 

( 0 00 00 5) 

0100 





0 0 71 

COMOLU 

0 0 0 6 

(000006) 







0 0 72 

NEWMLU 

00 0 7 

( QGQCO 7) 

0 103 





o 









o 

Q 









o 

o 









o 

o 









o 



OMORFQ 


DATE: 01/27/99 


PAGE 12 


0 0 73 

PROGl 

0 0 0 8 

(000008) 


00 74 

PROG2 

000 9 

(000009) 


0 07 5 

BITFLG 

OOOA 

( OGOQIO) 


0 0 76 

BUFCNT 

QOOB 

( DQOOil) 


0 077 

FIELD 

OOuC 

(000012) 


0 078 

SLASHF 

0010 

( 000016) 


0 079 

BUFEMT 

0011 

( 0Q0017) 

0122 

0 060 

BUFFER 

0012 

( 000018) 

0 0 93 

0 0 82 

GETFLO 

0 0 0 2 

(0000020 

0 116 

0 083 

ASCHEX 

00 03 

(000003) 

0 119 

0 0 8 ^ 

ASCDEC 

0005 

( 000005) 


0 08 5 

FETMM 

0 0 0 9 

(000009) 

0 112 


DMOREQ 


DATE 


01/27/99 


PAGE 


13 


S Y M B 0 L S 


DEF .LINE 

NAMF 

ADDRESS 

0 03 4 

OMDREQ 

00 0 0 

0112 

OMSENT 

0011 

0121 

NW 

OOIA 

0126 

DSP3 

OQIE 

0128 

MODE 

0020 

0 130 

0M$5 

0021 

0 134 

OMDIR 

0 02 5 

0139 

DMSCO 

002B 

0142 

DMSLU 

G02E 

0143 

DMSZ 

Q02F 

0145 

DMSM 

0031 

014 6 

OMSL 

0032 

0149 

DMSRT 

0034 

0152 

DMSIQ 

0037 

015 7 

DMS13 

0039 

0161 

MA12 

003E 

0168 

QMS LOG 

0 0 46 

0171 

MA14 

Q0 4B 

0 200 

0MS22 

0 0 62 

0212 

LS P12 

006E 

0 213 

LSPCAL 

006F 

0216 

LSP13 

0G72 

8219 

INDEX 

007 5 

0222 

OATLOC 

0076 

0 223 

EXT MSG 

0077 

0224 

EXTHAN 

0078 

0225 

COUNT 

0079 

0226 

BASE 

007A 

0 231 

GV4A 

0076 

0234 

G1 

007 E 

0 240 

NOAFl 

00 8 4 

0 250 

CT 

G 08D 

0 251 

CU 

0 08E 

0 25? 

GI 

0 0 92 

0254 

CE 

0093 

0 263 

LSPAGE 

0 09A 

0266 

LSP15 

009C 

Q 270 

SELF 

00 AO 

0 283 

LS P20 

OOAD 

0284 

LSP24 

OOAE 

0288 

LSP25 

C0B2 


REFERENCED AT 

LINE NUMBER 

0 0 34 



0 346 , 

0348, 

0376, 0378 

0101 
0124 
0 409 
0140 , 
0104 

0144 


0136 
Q 132 , 

040 7 


0 134, 

0405 


0140 

0149, 

0 3 89 


0167 
0105, 
0166 
0 352 

0115, 

0131, 0133, 




0214 

0310 


0130 , 

0 200, 

0208, 

0 403 

0 0 95, 

019h, 

0195, 

0327, 

0 0 99 , 

0127, 

0276 


0 097, 

3 114, 

0118, 

0 12 0 

0 153, 

0 339, 

0340 


0 0 91 , 

0303, 

0391, 

0394 

0 172, 
0248 

0175, 

0179, 

0180, 

0 2 38 
u 2 3 o , 

0247 


0257, 

0 242, 

0254, 

0 256, 

3 2 33 , 

0 241 , 

0245 


0 244 
0214 
9 263 
0 269, 

0 271, 

0272, 

035?, 

0 273 
0 2 66 





0171, 0174, 0178, 0383, 0385 

0328, 0334, G335, 0336, 0382 

0185, 0260 
0 259 

0358 


OHDREQ 


PAGE 14 


□ate: 01/27/99 


O 


0 290 
0294 
0296 
0 299 
0 302 
0 303 
0 3 09 
0 312 
0314 
0 318 
0323 
0 324 
0 334 
3 357 
0 362 
0364 
0366 
0 370 
0 373 
0376 
0 389 
0 391 
0394 
0 400 
0403 
0 40 9 
0 410 
0 413 
0 416 
0 417 
0 418 


LSP26 

C0B4 

0 280 , 

0FT8 

0086 

0274, 

FLTADD 

00B8 

0 273 

LSP30 

U0B9 

0272 

LSP31 

ODBC 

0 267 

OSPEIO 

00 80 

0150 , 

LSP35 

QOCG 

0299 

LSP37 

00C3 


LSP40 

C0C5 

0 268 

VALUE 

00C7 

0202, 

DSPIQQ 

OODF 

Q 315 

DSPlOl 

OOEO 

0 i 33 

DSP1G2 

OQEA 

Q 332 

OSP105 

OOFE 

3 345 , 

DSPX 

0103 

0 359 

OTLU 

010 5 

0102 

BUFADO 

010 7 

0094, 

DSPRFT 

0109 

0358 

OSPOK 

QlOB 

0 370 

nS'PREP 

OlOF 

0374 

DMD70 

0121 

0 387 

D SPOON 

0123 

0379, 

GONE 

012 7 

0 3 75 

0TB 

012E 

0 395, 

DM0201 

0 130 

0 388 

OMD20 3 

0139 

0 406 

WDBF 

013B 

0 137 , 

DMSBUF 

013C 

0 144, 

SA49 

00 0 3 

0 417 

SP49 

00 0 4 

a 418 

DB49 

0180 

0 419 


0 281 
0 27 5 

0264, 0371 

0204, 0206, 0311, 0324, 0326 

0349, 0350, 0351 
0157, 0381 

0 380 
0396 

0342, 0344, 0386 
0 201, 0203, D2Ci? 


O 

O 

O 

O 


o 


o 

o 


OMDREQ 


PAGE 15 


DATE 


; X T E R 

M A L S 


DEF.LINE 

NAME 

VALUE 

003 7 

DCONV 

0QB8 

0 0 38 

MMADDR 

G0B6 

0039 

MSG 

OOB7 

0 041 

CHRSFG 

OlOC 

0042 

OFF 

012F 

0 0 43 

HANDLE 

Q12E 


REFERENCED AT LINE NUMBER 

0296 

0294 

0295 
0 373 
0 401 
0 400 


C) 



DMDREQ 


PAGE 

16 


DATE: 01/27/99 









A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 











AOISP 

0046 

AMONI 

0 04b 

ASCOEC 

0 0 84 

ASCHEX 

0083 

ASMOD 

0056 

ASTRIC 

0048 

BASE 

0226 

BHAN 

0 066 

BITFLG 

0075 

BMSG 

0067 

BUFADO 

0 366 

8UFCNT 

Q0 76 

BUFEMT 

0079 

BUFFER 

008 0 

Cl 

0234 

CE 

0254 

CHRSFG 

0041 

CHRSLV 

0053 

Cl 

0 25 2 

COMMA 

0 048 

COMOLU 

0 071 

COUNT 

0225 

CT 

0250 

CU 

0251 

CV4A 

0 231 

DATLOC 

0222 

DB49 

0418 

OCONV 

0037 

DMDIR 

0134 

OMD201 

0 40 3 

0MD203 

040 9 

OMD70 

0389 

OMDREQ 

0 03 4 

OMSIO 

0152 

DMS13 

015 7 

DMS22 

02 0 0 

DMS5 

013 0 

OMSBUF 

0 413 

QMS CO 

0139 

OMSENT 

0112 

DMSL 

0146 

D MS L OC 

016 8 

DHSLU 

0142 

DMSM 

014 5 

DMSRT 

0149 

QMS Z 

0143 

DSPlOO 

0323 

DSPlOl 

0 324 

DSP102 

033*^ 

DSP105 

035 7 

DSP3 

0126 

DSPDON 

0391 

DSPEIO 

0 30 3 

DSPOK 

0 373 

DSPREP 

0376 

DSPRET 

0 370 

OSPX 

0 362 

EIGHT 

0 049 

EXTBV^ 

005 4 

EXTHAN 

0224 

EXTMSG 

0 22 3 

FETMM 

0 085 

FIELD 

0077 

FIVF 

0047 

FLOATZ 

0 058 

FLTADO 

0 296 

GETFLD 

00 82 

GONE 

0394 

HANDLE 

0043 

I 

00 0 0 

INDEX 

0219 

lOERR 

G 0 6 9 

KARE 

0 063 

KARPER 

0 062 

LISTLU 

0 0 70 

LNWD36 

0055 

LPMSK 

0046 

LSP12 

0212 

LSP13 

0216 

LSP15 

0266 

LSP20 

0283 

LSP24 

0284 

LSP25 

0288 

LSP26 

0 290 

LSP3Q 

0299 

LSP31 

0 30 2 

LSP35 

030 9 

LSP37 

0312 

LSP40 

0 314 

LSPACE 

0 263 

LSPCAL 

0 213 

MA12 

0161 

MAIh 

0171 

MASK 

0051 

MASSLU 

0057 

MMAODR 

0038 

MODE 

0128 

MSG 

0039 

NEWMLU 

00 72 

NINE 

0 049 

NO40 

0 059 

NOAFl 

0240 

NW 

0121 

NZERO 

0046 

OFF 

0042 

OFTB 

0294 

ONE 

0049 

ONEBIT 

0 0 47 

0TB 

Q40Q 

OTLU 

0364 

PROGl 

0 073 

PR0G2 

0 0 74 

SA49 

0416 

SELF 

0 27 0 

SIX 

0047 

SIXTEN 

0 047 

SLASH 

C C 48 

SLASHF 

ZERO 

0078 

0047 

SOMMOR 

ZR08IT 

0 068 
0 046 

SP-+9 

0-+17 

TEN 

00 50 

THREE 

00f9 

TWO 

0049 

VALUE 

0318 

WDBF 

0410 

WRDLN 

QG&G 


WOKREQ 


PAGE 


1 


DATE! 01/27/99 


NAM WDKREQ OECK-IO M52 HSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY- 


‘t- 

* 


If- V » V * 


* ■¥ 

^ THIS PROCESSOR REAO/WRITE MASS MEMORY ^ 

* V- 


INPUT FORMATS ! 

(1) WRITE DATA TO MM FROM CORE 

WOK,SC,EC,SSMSB,SSLSB,SW(CR) 

(2) READ DATA TO CORE FROM MM 

RDK,SC, EC, SSMSB,SSLS8,SW(CR) 

WHERE SSMSR = START SECTOR (HEX) MSB 
LSMSB = START SECTOR (HEX) LSB 
SW = start WORD (HEX) -- DEFAULT 

SC - START CORE LOC. (HEX) 

EC = END CORE LOC. (HEX) 


OUTPUT FORMAT ! 

MMLLLL/WWWW XXXX XXXX XXXX XXXX 


WHERE MM = 2-OIGIT MSB (HEX.) 

LLLL = 4-DIGIT LSB (HEX.) 
wwww = ^-DIGIT word (HEX.) 

XXXX = MM DATA (8/LINE) (HEX.) 


ENT WDKREQ 
ENT RDKREQ 


ENTRY 


NAME 


11 

N520 0 002 
N52C 0 0 0 3 
N523 0 00 4 
N52Q0G05 
N520C006 
N520 OOQ 7 
N52Q00Q8 
N520 0 jC 9 
N5200010 
N520auii 
N5200012 
N523 0 013 
N5200014 
N5 20 0 015 
N5 20 0 016 
N5200017 
N52G 0018 
N52G 0 019 
N5 20 0 02Q 
N5200021 
N52U 0 022 
N520 0 323 
N5200024 
N523 0 325 
N520 0026 
N52D 0 027 
N5200026 
N523 0 029 
N520 0030 

N52QQ032 
N5200033 
N52Q 0 034 
N520 0 035 
N5 20 0 036 
N5230037 
N520 0038 
N5200039 
N52Q 0040 
N520 0 041 
N5200042 
N520G043 
N52QGQ‘t4 
N520 0 3h5 

N5200047 
N52Q 0 048 
N5200 049 


2 CARDS DELETED 


N520 0 0 51 


WDKREQ 


PAGE E 


DATE! 01/27/99 


00F4 
Q 0 EA 
0 0 02 
0012 
0 3 33 
0 0 43 
0 0 44 
0 022 
0 0 23 
0 0 27 
0 0 2C 
0 Q2F 
0 02A 
0 0 26 
0 0 45 
0 0 0 4 
0 0 03 
Q 024 
0 0 46 
0 0 03 
00F9 

00 07 
1000 
00 60 
0 028 


EaU AMONI (SFA^ ,AOISF (SEA) ,LPHSK^2) , NZ ERO I $1 2) ,ZROBIT ($33) 


FIVE($-+3)iSlX ($44)t ZERO ($22) » ON EBIT ($23)^SIXTEN ($27) 


COMMA ($20 ,SLASH($2F) , AS TRIO ($2 A) 

EIGHT ($26) , NINE ($45 ) , THREE ( 4) , ONE ( 3 ) , TWO ( $2 4 ) 


TEN($4o) 
MASK(3) 
EXTBV4 ( $E9 ) 


LOCATIOn'^CONTAINS extended CORE TABLE 


CHRSLV(7) LEVEL OF THIS PROGRAM 

ASMOD($lOQO) OUTPUT ASG MODE 
N096(96) buffer SIZE^ ^ 

WDK(40) "WOK*' PROGRAM INDEX 


N5200053 
N520 0054 


N520 0 055 


N5200056 


N52uC057 


N52D 0 058 
N520Q059 
N5200Q60 

116*436 

N52D 0 053 
N52D 0 054 
N52Q 0 065 


00 01 
0 0 0 ? 
0 0 03 
0 0 04 
00 05 
00 06 
0 0 07 
0 0 0 8 
0 0 09 
OOOA 
00 OB 
00 OC 
0010 
OQ 11 
0 012 


0 0 02 
0 0 03 
00 05 
0 0 09 


HANDLE ( 1) 

HSG(2) 

SOMNOR ( 3 ) 

lOERR (4 ) 

LISTLU(5) 

C0M0LU(6) 

MEWMLU (7 ) 

PROGl (3 ) 

PROG2 (9 ) 

BITFLG(IO) 

BUFCNT(ll) 

FIEL0(12) 

SLASHF (16) 

BUFEMT(17) 

BUFFERdS) 


PARAMETER LOCATION (OFFSET FROM BASE) 


"HANDLE” 

"MSG" ENTRY 

"SOMMOR" ENTRY 

"TOERR" ENTRY 

LIST OUTPUT — - "LISTLU' 

"COMOLU” 

"NEWMLU" NEW MM LU 

"PROGl" 

"PROG2" 

"BITFLG" 

"BUFCNT" 

"FIELD" 

"SLASHF" 

"BUFEMT" 

"BUFFER" 


SUBROUTINE "EOU” POINTERS 
GETFL0(2) "GETFLO" 

ASCHEX(3) "ASCHEX 

— GET ACORESS 


N520 0 067 
N52Q0358 
N520C069 
N5200 070 
N523Q071 
N520 0072 
N520 0 073 
N523 0 074 
N52 0 0 0 7 5 
N520 0 3 76 
N520 0077 
N520 0078 
N5200079 
N520 0080 
N520U081 
N52G0082 

N523 0084 
N523 0 0 85 
N523 Q 086 
N5200087 
N523 0 088 


r"i 



WDKR 

EQ 


PAGE 3 

DATES 01/27/99 



‘sw*' 

o 

00 89 


0 0 OB 


EQU 

MASOT (11 ) 

"MASOT"-- PRINT MM DATA WITH 

DIFF. FORMATS 

N520 0089 

o 

o 

0091 



¥ 





N52Q0091 

■ 0 


0092 





44444 

PROGRAM START 


N520 0092 


o 

0093 



4 





N52Q 0 093 

V.*' 


0095 

POOOO 

6 8 61 

WOKREQ 

STA^ 

BASE 



N52D0095 


o 

009 6 


00 00 

P 

EQU 

RDKREQ( WDKREQ) 


N5200 096 

: C 

0097 

POOOl 

60FF 


STA" 

I 



N52Q0097 


0098 

P0 002 

ClOl 


LDA- 

HANDLE, I 

GET AND SAVE "HANDLG" 


N523Q098 



0099 

P0003 

68 5F 


STA--^ 

EXTHAN 



N52G0099 


r'\ 

0100 

P000 4 

C102 


COA- 

MSG, I 

FETCH AND STORE "MSG" 


N52G 0 10 0 

o 


0101 

P0Q05 

685E 


STAL 

EXT MSG 



N520G101 


GIG 2 

P 0 0 0 6 

C107 


COA- 

NEWMLU, I 

GET MM LU 


N5200102 



0103 

P00 07 

685E 


STAL 

DMHLOC 



N5200103 


O 

010 4 

P00 08 

684F 


STA^ 

OTLU 



N5200104 

■ <3 

010 5 

P0Q09 

C109 


LDA- 

PR0G2, I 

CALCULATE PROGRAM TYPE 


N5200105 


0106 

P0 004 

Q9D7 


INA 

-WDK 



N5200106 


Q 

0107 

POOOB 

6859 


STA^ 

PROTYP 



N52a010r 

O 

0109 



44 4 


GET 

CORE ADDRESSES 


N52301Q9 


0110 

POOOC 

0C04 


ENQ 

4 

GET START CORE 


N52a011G 



0111 

POOGO 

0 A02 


ENA 

GETFLD 



N520O111 

o 

'•J 

0112 

PO OOE 

5C54 


RTJ^ 

lEXTHAN ) 



N5200112 


0113 

POOOF 

0 A05 


ENA 

ASCHEX 



N5 20 Oil 3 



Oil 4 

POO 10 

5C52 


RTJ^ 

(EXTHAN ) 



N520ail4 



0115 

PCOll 

00 00 

SC 

NUM 

0 



N52D011 5 


-J 

0116 

P0Q12 

0C04 


ENQ 

4 

GET END CORE 


N52Q0116 



0117 

P0013 

Q A02 


ENA 

GETFLD 



N520 011 7 



0118 

P0014 

5C4E 


RTJ^ 

(EXTHAN ) 



N5200118 



0119 

PO 015 

0 A03 


ENA 

ASCHEX 



N5 20 0 119 


' J 

012Q 

P0016 

5C4C 


RTJ^- 

(EXTHAN ) 



N520 G12u 

; 


0121 

P0017 

0 0 00 

EC 

NUM 

0 



N52G0121 



0123 



4 


GET 

MM ADDRESS 


N52Q0123 



0124 

P0018 

0 A 09 


ENA 

FETHM 

GET MM ADDRESS WITH INPUT MM 

ADO. DATA SAVE 

N5230124 

V_-' 


0125 

P0019 

OCOl 


ENQ 

1 



N523 012 5 



0126 

PQQIA 

5C48 


RTJ^ 

(EXTHAN ) 



N52C0126 


r\ 

0127 

PO OIB 

0 0 4A 


ADC 

DMHLOC- * 



N52G0127 

; O 

'J 

0128 

POOIC 

cm 


LOA- 

BUFEMT,! 

MAKE SURE NO MORE DATA 


N5 20 0 12 8 


0129 

POQID 

BO 12 


eoR- 

LPMSK+1 6 



N52D0129 



0130 

PODIE 

01 02 


SAZ 

0MH6 



N520Q13G 


O 

0131 



4 





N5200131 


0132 

POOIF 

0C04 

0MH3 

ENQ 

4 

FORMAT ERROR 


N5200152 


0133 

P0020 

1C43 


JMP» 

(EXTMSG ) 



N52G 0133 



0134 

P0021 

C0F5 

0MH6 

LDA- 

SF5 



N520 0134 


.■n 

‘s^ 

0135 

PG022 

6800 


STA 

MAX 



N5200135 



P0023 

00C7 







O 


0136 

P002 4 

C8EC 


LDA» 

SC 

MAKE SURE START/ENO CORE WITHIN LIMIT 

N520G136 


o 










; 0 

n 










O 





WDKREQ 
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DATE: 01/27/99 

0137 

P0025 

5800 


RTJ 

CORADK 



PC 025 

0 0C5 





0138 

PG027 

18F7 


JMP^- 

DMH3 

ERROR 

0139 

P0Q28 

C8EE 


LDA^ 

EC 


0140 

PQ029 

5800 


RTJ 

CORADK 



PO 02A 

0 0 Cl 





0141 

P002B 

18F3 


JMP»^ 

DMH3 


0142 





MAKE 

SURE END CORE LARGER 

0143 

P002C 

C8E4 


LDA^ 

SC 


0144 

P002D 

E8E9 


LDQ^ 

EC 


0145 

PD Q2E 

0135 


SAM 

WDK4 

START CORE IS OVER 32K 

0146 

P0 02F 

0173 


SQM 

WDK2 


0147 

P0030 

0 8 64 


TCA 

A 


0148 

Pfl 031 

0 8 34 


AAQ 

A 


0149 

P0 032 

0134 


SAM 

WDK6 

ERROR, SKIP 

0150 

P0033 

1807 

W0K2 


MDKIO 

OK, GO 

0151 



♦ 




0152 

P0034 

0 162 

WDK4 

SQP 

HDK6 

ERROR, 

0153 

P0035 

0 834 


AAQ 

A 


0154 

P0 036 

0123 


SAP 

WDKIO 


0155 

PD037 

18E7 

WDK6 

JMP» 

DMH3 

TO ERROR 

0156 

P0038 

0507 

WRGO 

ADC 

$50 0+CHRSLV 

0. WRITE 

0157 

P0039 

0307 


ADC 

$300i-CH RSLV 

1. READ 

015 8 







0159 

P003A 

E82A 

WOKIO 

LDQ^ 

PROTYP 

SET UP READ/WRITE CODE ACCORDINGLY 

0160 

POO 38 

40FF 


STQ- 

I 


0161 

P00 3C 

CAFB 


LDA’^ 

WRCn, Q 


0162 

POO 30 

6817 


STA^ 

DMHCD 


0163 

PO Q3E 

01 5D 


SQM 

DMH9 

SKIP ON READ 

0164 

P003F 

CCOl 

WOK20 

LDA^ 

(SC) 

MOVE DATA TO TEMPORARY SUFFER FOR XFER 

0165 

P0040 

694A 


STA^ 

?-1MDAT,I 


0166 

P0041 

D8CF 


RAO^ 

SC 


0167 

P0042 

DOFF 


RAO- 

I 


0168 

P0043 

C8D3 


LDA^ 

EC 

CHECK IF DONE 

0169 

P0044 

9 8CC 


SUB» 

SC 


0170 

PO 045 

0134 


SAM 

WDK2 2 

DON E , SKI P 

0171 

P0046 

COFF 


LOA- 

I 

CHECK IF BUFFER OVER MAX. 

0172 

PO 047 

099F 


INA 

-N096 


0173 

PGG48 

0101 


SAZ 

WDK22 


0174 

P0049 

18F5 


JMP^ 

WOK20 


0175 

P0Q4A 

CGFF 

WDK22 

LDA- 

I 


0176 

POa 4B 

1802 


JMP-» 

OMHIQ 



017 8 







TO READ OVER MM DATA 

0179 





INPUT 

DATA IN, 

0180 




ENA 

N096 



0181 

P004C 

0A60 

DMH9 



0182 
018 3 

P0G4D 
PD0 4E 

S80B 

DMHIO 

STA^ 

DMHZ 



6 8 ID 


STA^ 

SIZE 

SET UP MM 

ADD. 

0184 

P004F 

C816 


LDA^ 

DMHLOC 

0135 

P005 0 

680A 


STA» 

DMHM 




N52Q 0 137 

N520 0138 
N520 0139 
N520 0 14U 

N52G0141 
N520C142 
N5200193 
N520 01^+4 
N5200145 
N520G146 
N523 0 li+7 
N520 Ql^fS 
N520 0 149 
N5200150 
N520Q15i 
N5200152 
N520 0153 
N520Q154 
N523 0 15 5 
N520fll56 
N5200 15 7 
N520 0 158 
N520 0 159 
N5 2 0 Q 15 0 
N520ai61 
N5200 152 
N52C0163 
N5200154 
N5 2 0 0 15 5 
N5200166 
N5200167 
N5200158 
N52J 0159 
N52Q0 170 
N5230171 
N5200172 
N523Q173 
N52C0174 
N52Q0175 
N520 017b 


N520Q178 
N5200179 
N520013C 
N520 0 181 
N52Q0 182 
N52D0183 
N5200184 
N520018 5 




WDKREQ 


PAGE 5 

date; 01/27/99 


0186 

P0C51 

C815 


LDA^ 

DMHLOC + 1 


N520Q186 

018 7 

P0052 

6809 


STA^ 

DMHL 


N? 2 D 0 18 7 

0188 

P0053 

54F4 


RTJ- 

( AMONI) 


N520C188 

0189 

PO 054 

0307 

0MHC3 

ADC 

$300+CHRSLV 

READ 

N520 0 189 

0190 

P0055 

0 0 09 


ADC 

OMHRT-OMHCn 

RETURN 

N3 20 u 19 D 

0191 

PQ056 

0 000 


NUM 

0 

THREAD 

N520 0 191 

0192 

PO 057 

00 00 

OTLU 

NUM 

0 

LU (TO BE FILLED) 

Nt)20 G 192 

0193 

P0058 

0060 

DM HZ 

ADC 

N096 

NO. OF WORDS 

N5 2 0 0 19 3 

0194 

PD059 

0 0 36 


ADC 

MMDAT-DMHCD 

BUFFER 

N22O 0 194 

0195 

PQ05A 

0 000 

DMHM 

NUM 

Q 

MSB (TO BE FILLED) 

N52 0 0 19 5 

019 6 

P0 05B 

0 0 0 0 

DHHL 

NUM 

0 

LSD 

N320019d 

0197 

P00 5C 

14EA 


JMP- 

(ADISP) 


Np 20 0 19 7 

0199 







N520G199 

020 0 

PO 050 

0 16E 

DMHRT 

SQP 

OMH20 


N520 020 0 

0201 

PD05E 

E8 03 


LDQ» 

BASE 

I/O ERROR 

Np 20 0 20 1 

0202 

P0G5F 

E204 


LOQ- 

IOERR,Q 


Np 20 u 20 2 

0203 

PQ060 

1622 


JMP- 

(ZERO),Q 


N52Q 0 20 3 

0205 



•f 


S T 0 

RAGE 

N520 0 205 

020 6 

P0061 

0 0 00 

BASE 

NUM 

0 


Np2u 0206 

020 7 

PO 062 

00 0 0 

EXTHAN 

NUM 

0 


N520 0 20 7 

020 8 

P0063 

0000 

EXTM3G 

NUM 

0 


Np2 0 0 20 8 

020 9 

P0064 

OQOO 

PROTYP 

NUM 

0 

PROGRAM TYPE 

N:? 20 G u 9 

0210 

P 0 06 5 

0 0 05 

DMHLOC 

BZS 

DMHLOC (5) 


N5 20 0 21 0 

0211 

P 0 06 A 

0 GQG 

DONE 

NUM 

0 


N5 2 0 0 211 

0212 

P0 068 

0 0 00 

SIZE 

NUM 

0 


N52Q 0 212 


0214 

0215 
021 6 

PO 0 6C 

E8F7 

-¥■ 

OHH20 

LOQ* 

DATA 

PROTYP 

BEEN READ/NRITE, CHECK TYPE AND 
CONTINUE ACCORDINGLY 

N5203214 
N520Q 215 
N52a0216 

0217 

P006D 

01 57 


SON 

RDK3 

SKIP ON READ 

Np 2u 0 217 

0218 

PO 06E 

C8A8 


LDA^ 

EC 

CHECK IF DONE 

Np 20 0 21 8 

Q219 

0220 

P006F 
POD 70 

98A1 

0131 


SUB^ 

SAM 

sr 

GONE 

YES, SKIP 

N5 23 Q 21 9 
N520G22U 

0221 

PO O 71 

1812 


JMP’^ 

OMH33 

NO, UP DATE 

Np 2D u 22 1 

0222 

P0 072 

E8EE 

GONE 

LDQ» 

BASE 

EXIT TO ”SOMMOR" 

Np 20 0 222 

k«"“^.*i n AS AS 

0223 
022 4 

P0073 

P0074 

E2 03 
1622 


LDQ- 

JMP- 

SOHMOR, Q 
(ZERO),Q 


N!? 2L) 0 22 3 
N5 2G 0 22 H 


022 6 



V- 


READ 

OPERATION, MOVE 

DA TA 

N52Q 0226 

0227 

P0075 

OAOO 

ROK3 

ENA 

0 



N528 0 227 

0228 

POO 76 

60FF 


STA- 

I 

SET UP INDEXES 

TO MOVE DATA FROM TEMPORARY 

N52D 0228 

0229 

P0077 

C913 

R0K4 

LDA^ 

MMOAT, I 

TO CORE 


M5200229 

0230 

P0076 

6C98 


STA» 

(SC) 



N5 20 0 23 0 

0231 

P0079 

D897 


RAO» 

SC 



N52Q 0 231 

/S AS “9 AS 

0232 

P007A 

DOFF 


RAO- 

I 



Np20 0 232 

0233 

P007B 

C898 


LDA^^ 

EC 

CHECK IF DONE 


Np 20 9 2o3 

023-^ 

P007C 

9894 


SUB^ 

SC 



Np20 0 23 4 


WDKREa 


PAGE 
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DATE! 01/27/99 


PG07D 0121 
P007E 18F3 
P007F COFF 
P0080 98D7 
P0081 0101 
PQ082 18F4 


PG083 
PDOaa 
P0085 
P008 6 
PQ087 
P0088 
P0089 
PQ08A 
POQEA 


C8E2 
8 8 D3 
B122 
AOll 
D8DD 
&8DD 
1880 
0060 
0 00 0 


RDK5 


DMH33 


0MH31 

MMDAT 

MAX 


SAP RDK5 
JMP» GONE 
LDA- I 
SUB^ OMHZ 
SAZ DMH33 
jMp-» RDK4 

UPDATE POINTERS AND REPEAT ^ ^ 
LDA* DMHLOC^-1 ADJUST MM ADD. AND REPEAT 

ADD* DHHZ 
SAP DMH31 
AND- LPMSK+15 
RAO* DMHLOC 
STA* OMHLOC+1 
JMP* WDKIQ 
BZS MMDAT (96) 

NUM 0 


CHECK ADDRESSES TO BE WITHIN 32K 


0254 

0265 

0266 
0267 
0258 

0269 

0270 
0 271 


POQEB OBOO CORADK NOP 0 

POOEC EQE9 LDQ- EXTBV4 

POOED E622 LDQ- {ZERO),Q 

POCEE 0155 SQN AD65 

POOEF 0133 SAM AD32EX 

POOFQ 98F9 SUB* MAX 

POOFl 0137 SAM AD65EX 

P00F2 0106 SAZ AD65EX 

P00F3 1CF7 AD32EX JMP* (CORADK) 

7-^^* CHECK 

P00F4 012*+ A065 SAP A055EX 

P00F5 98F4 SUB* MAX 

P0QF6 0132 SAM AD65EX 

POOF7 0101 SAZ AD63EX 

PQOFB 18FA JMP* A032EX 

P00F9 D8F1 AD65EX RAO* CORADK 

POOFA ICFO JMP* (CORACK) 


ENTRY . , , 

get 32K/65K FLAG (32K=0, 65K=1) 

SKIP ON 65K 
ERROR, OVER 32K 


RETURN 

TO BE WITHIN 65K OR LESS 
SKIP FOR 32K OR SO 

OK, SKIP 
OK, SKIP 
ERROR, GO 
SET NORMAL EXIT 
NORMAL RETURN 


0273 

0274 C002 P 

0275 0003 P 

0276 0120 P 

027 7 PQOFB 0025 
0278 


EQU SA40 (*/96) 

EQU SP40(SA40+1) 
EQU DB4D (SP40*96) 
ESS (DB40-*) 


PGM= 0120 ( 288) 


COM = OOQO I 


0 ) DAT = OOCu ( 


o 


o 


N52Q 0 235 
N5200236 
N520 0 237 
N52D 0238 
N5200239 
N520 0240 
N5 200241 
N5200242 
N5200243 
N52D 0244 
N5 20 0 245 
N5200246 
N52Q0247 
N520Q248 
N5200249 
N520 0 250 


O 

O 

O 


N520 0 252 
N5200253 
N5 2 j 0 25 4 
N5230255 
N52D 0 256 
N52Q 0257 
N5 2 ] 0 2 5 8 
N520Q259 
N52G0260 
N5 2 0 0 26 1 
N52002&2 

N520 0 264 
N52G 0265 
N520 0 266 
N5 2D 0 26 7 
N5200268 
N520 0269 
N5200270 
N52Q 0271 


r''. 

c 

O 

O 



N5200273 
N5200274 
N52J 0 275 
N5 20 0 27 6 
N52Q0277 
N52Q0278 


o 

o 
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PAGE 
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DATES 01/27/99 


EQUIVALENCES 


DEF . LINE 

NAME 

VALUE 


referenced at 

LINE number 

0 0 00 

I 

OOFF 

(00Q255) 

0 0 97 , 

0 16 0 , 

0167, 0171, 0175, 0228, 0232 

0 05L 

AMONI 

QOFA 

(0 00 24 A) 

0188 



0 0 5 L 

ADISP 

QOEA 

{ 0CO23A) 

0197 



0 0 5 A 

LPHSK 

0002 

(000002) 

0129, 

0245 


0 0 5 A 

NZERO 

0012 

{ 000018) 




0 0 5 A 

ZROBIT 

0033 

(000051) 




0 055 

FIVE 

0 0 43 

(000067) 




0055 

SIX 

OOA A 

(000068) 




0 0 5 5 

ZERO 

0022 

(000034) 

0 203 , 

0 224, 

0256 

0055 

ONEBIT 

0023 

(000035) 




0 0 5 5 

SIXTEN 

0027 

(000039) 




0 0 56 

COMMA 

002C 

(000044) 




0 0 56 

SLASH 

0 02F 

( G0Q0A7) 




0 056 

ASTRIC 

002A 

COQOOA2) 




0 05 7 

EIGHT 

0026 

(000038) 




0 057 

NINE 

0045 

(000069) 




0 057 

THREE 

000 A 

( OOaOOA) 




0 05 7 

ONE 

00 03 

(0 00003) 




0 0 57 

TWO 

002 4 

( 0QQG36) 




0 058 

TEN 

00A6 

(000070) 




0 059 

MASK 

0 0 03 

(000003) 




0 060 

EXTBVA 

00E9 

(0 00233) 

0255 



0 062 

CHRSLV 

00 0 7 

(000007) 

0 156, 

0157, 

0189 

0 0 63 

ASMOD 

1000 

(004096) 




0 0 6A 

N096 

0060 

( 0C0096) 

0 172, 

0181, 

0193 

0 0 6 5 

WDK 

0028 

(OOOOAO) 

0106 



0 068 

HANDLE 

0001 

(000001) 

0 0 98 



0 069 

MSG 

00 0 2 

(000002) 

0 100 



0 070 

SOMMOR 

00 0 3 

( 0000 0 3) 

0223 



0071 

lOERR 

00 0 A 

(0 oaooA) 

0 2 02 



00 72 

LISTLU 

0 00 5 

(00000 5) 




Q 073 

COMOLU 

00 0 6 

(000006) 




D07A 

NEWMLU 

0G07 

(000007) 

0 102 



0 0 75 

PROGl 

0008 

(000008) 




0 0 7 6 

PROG2 

0 00 9 

(000009) 

0105 



0 0 77 

BITFLG 

000 A 

(000010) 




0 078 

BUFCNT 

OOOB 

(DOQQll) 




00 79 

FIELD 

OOOC 

(000012) 





V.' 


o 

o 

o 


WDKREQ PAGE 8 


0080 

SLASHF 

0010 

(003016) 



0 0 81 

BUFEMT 

0011 

(000017) 

0128 


0 082 

BUFFER 

0012 

(000018) 



0 085 

GETFLD 

000 2 

(000002) 

0111, 

0117 

0 086 

ASCHEX 

000 3 

(000003) 

0113, 

0119 

0 087 

ASCOEC 

000 5 

(000005) 



0 083 

FETMM 

0 0 0 9 

(000009) 

0 124 


0 089 

HASOT 

QGOB 

(000011) 




DATE: 01/27/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 


o 

o 

o 

o 

o 


o 

c 

o 

o 


o 


WDKREQ 


DATE; 01/27/99 


o 


PAGE 9 


S Y M B 0 L S 

DEF.LTNF NAME ADDRESS REFERENCED AT LINE NUMBER 



00 48 

WDKREQ. 

000 0 

0 0 48 , 


0049 

RDKREQ 

0000 

0 049 

o 

3 115 

SC 

0011 

0136, 

0121 

EC 

0017 

0139 , 


0132 

DMH3 

QOIF 

0138, 


0134 

DMH6 

0021 

a 130 


0 15 0 

WDK2 

0033 

0146 

I' ) 

0 152 

W0K4 

003 4 

0145 


0155 

WDK6 

0 037 

0149, 


0156 

WRCD 

0038 

0161 


0159 

WDKIC 

003A 

0150 , 


016i* 

WDK2Q 

003F 

0174 


0175 

WDK22 

004A 

0170 , 


0181 

0MH9 

0C4C 

0163 


0182 

DMHIO 

G04D 

0176 

J 

0189 

OMHCD 

005 4 

0 162, 


0192 

OTLU 

0057 

0104 


0193 

DMH7 

0058 

0 18 2, 


019 5 

DHHM 

G05A 

0185 

\ i 

0196 

DMHL 

005B 

0187 


0 200 

OMHRT 

005D 

0 190 


020 6 

BASE 

0061 

0 0 95 , 


0 20 7 

EXTHAN 

0062 

0099, 


0 208 

EXTMSG 

0063 

0101, 


0209 

PROTYP 

0 0 6 4 

0107 , 


0 210 

OMHLOC 

Q0 6 5 

j 1 0 3 , 


0 211 

DONE 

0Q6A 


0 

0212 

SIZE 

006B 

0183 


0 216 

DMH20 

CQ6C 

0 200 


Q 22? 

GONE 

0072 

0 2 2 0, 

O 

0 227 

RDK3 

0075 

0 217 

0229 

RDK4 

0077 

0 2 40 


0 237 

RDK5 

007F 

0 235 


024? 

0MH33 

0083 

0 221 , 

o 

0 2 47 

DMH31 

0088 

0 2 44 

0249 

HMD AT 

008 A 

0165, 


0 250 

MAX 

GOEA 

0 135, 


0254 

CORAOK 

QOEB 

0 137, 


0 262 

A032EX 

00F3 

0 258, 


0265 

AD65 

D0F4 

0 257 


0 270 

AD65EX 

00F9 

0 260, 


O 


0 096 




0 143, 

0 16 4- , 

0166, 

0169, 0219, 0230, 0231, 0234 

0144, 

0168, 

0218, 

0233 

0141, 

0155 



0152 




0154, 

0248 



0173 




0 19 0, 

0194 



0 238, 

0243 



0 201, 

0222 


0120, 0126 

0112, 

OllH, 

0118, 

0133 

0159, 

0216 


0242, 0246, 0247 

012 7, 

0184, 

0186, 

0 236 





0239 




0 194, 

0229 



0259, 

0266 


u 271 

0 14G , 
0269 

0262, 

0270 , 


0261, 

0265, 

9267, 

0268 


f 


o 

o 

o 

o 

o 

o 

o 

o 

o 


Q 

O 

o 

Q 

O 


O 


WOKREQ 
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DATE; 01/27/99 


0274 

0275 

0276 


SA40 

SP40 

DB4Q 


00 0 2 
00 0 3 
0 120 


0 275 
0 276 
0 277 



HOKREQ PAGE 11 DATE: 01/27/99 


** A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

CO 

•< 

CD 

0 L S 



AD32EX 

0262 

AD65 

0265 

AD65EX 

0270 

ADISP 

0 05 4 

AHONI 

dQ5u 

BASE 

020 6 

BITFLG 

0 0 77 

BUFCNT 

0 078 

BUFEMT 

0081 

BUFFER 

008 2 

DB^O 

0 27 6 

DMHIO 

0 182 

DMH20 

0216 

0MH3 

0132 

DMH31 

0247 

DMHL 

019 6 

DMHLOC 

0 210 

DMHM 

0 195 

OMHRT 

0 20 0 

DHHZ 

0193 

EXTHAN 

C20 7 

EXT MSG 

0 208 

FETMM 

0 0 88 

FIELD 

0079 

FIVE 

0 05 5 

lOERR 

0 071 

LISTLU 

0 072 

LPMSK 

0 0 54 

MASK 

0059 

MASOT 

008 9 

NINE 

0057 

N096 

0 064 

NZERO 

0 054 

ONE 

0057 

0NE8IT 

005 5 

RDK3 

0227 

RDK4 

0 229 

R0K5 

0237 

ROKREQ 

0049 

SA40 

0274 

SLASH 

0056 

SLASHF 

0080 

SOM MO R 

0 0 70 

SP40 

0275 

TEN 

005 8 

W0K2 

015 0 

WDK2Q 

D 164 

WDK22 

0175 

W0K4 

0152 

WDK6 

015 5 


o 

o 

o 

o 

0 

o 

o 

o 

o 


o 


ASCDEC 

0087 

ASCHEX 

00 86 

ASM 00 

CHRSLV 

0062 . 

COMMA 

0056 

COMOLU 

0MH33 

0242 

DMH6 

0134 

DMH9 

DONE 

0 211 

EC 

0121 

EIGHT 

GETFLD 

0085 

GONE 

0222 

HANDLE 

MAX 

0 25 0 

MMDAT 

0249 

MSG 

OTLU 

0192 

PROGl 

0 0 75 

PR0G2 

SC 

0115 

SIX 

0 0 5 5 

SIXTEM 

THREE 

0057 

TWO 

0057 

WOK 

WDKREQ 

0048 

WRCO 

0156 

ZERO 









o 

0 063 

ASTRIC 

0056 

o 

0073 

CORADK 

0254 


0181 

OMHCO 

0189 


0 057 

EXTBV4 

0 0 60 

o 

0 068 

I 

00 00 

0 069 

NEWMLU 

0074 


0 076 

PROTYP 

0209 


0 055 

SIZE 

0212 

c 

0065 

WDKIO 

0159 

0 055 

ZROBIT 

0G54 

o 




o 




o 


o 

o 

o 

o 

o 

o 

o 

o 


LSTREQ 


PAGE 


i 


date: 01/27/99 


000 1 
00 0 2 
0Q03 
00 0 4 
00 0 5 
00 0 6 
00 0 7 
0008 
0DD9 
0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
00 2 0 
0021 
0022 

0023 

0024 
00 25 
0026 

0027 

0028 

0029 

0030 

0031 

0032 


NAM LSTREQ DECK-ID N53 MSOS 5.0 

^ MASS STORAGE OPERATING SYSTEM VERSION 5.0 

^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

» COPYRIGHT CONTROL DATA CORPORATION 1976 




-¥■ 

* 


if- 


if. 

ROUTINE TO LIST DEBUG MNEMONICS ^ 


V- 






INPUT 

FORMAT ; 



LST (CR) 

jf. 


WHERE 

CR = CARRIAGE RETURN 

Sf. 

jf. 


OUTPUT 

FORMAT : 




NAME DESCRIPTION 

it- 



NAME DESCRIPTION 




NAME DESCRIPTION 




NAME DESCRIPTION 

V- 



NAME DESCRIPTION 

JJL 

if. 



NAME DESCRIPTION 

if- 





SUMMARY-11 

N5330302 
N53000Q3 
N530 QOOh 
N531 OOG 5 
N53Q0GQD 
N53Q0G07 
N53C DG08 
N53C 0 Q09 
N53G 0010 
N5300G11 
N530 0 01 2 
N53G 0 013 
N53Q0Q14 
N53Q 0 015 
N53Q0016 
N5300Q17 
N5300018 
N530 0019 
N530002Q 
N5300021 
N5300Q22 
N53Q 0 023 
N530 0 024 
N5330025 
N53G0 026 
N530 0 027 
N5300028 
N5300029 
N550QQ3G 
N530 0 031 
N5300032 


003 4 

if- 



E 

N 

T 

R Y 

NAME 

0 0 35 


ENT 

LSTREQ 






0037 

if 



F 

X 

T 

E R 

N A L S 

0038 


EXT 

MSG 






0039 


EXT 

OFF 






0040 


EXT 

MHAOOR 






0041 


EXT 

CHRSFG 






0042 


EXT 

NAMEMS 






0044 




E 

X 

T 

E R 

N A L S 

0045 


EXT 

LHXREQ 




01. 

LOAD hexadecimal 

0046 


EXT 

DPCREQ 




02. 

DUMP HEXADECIMAL 

0047 


EXT 

SCNREQ 




03. 

SEARCH COR 

0048 


EXT 

SETREQ 




04. 

SET CORE TO PATTERN 

0049 


EXT 

MBCREQ 




05. 

MOVE BLOCK OF CORE 

005 0 


EXT 

SCHREQ 




06. 

SCHEDULE PROGRAM 

0051 


EXT 

SPEREQ 




07. 

SEARCH CORE FOR PARITY ERROR 


N 5 3 0 0 0 3 4 
N53D0035 

N53G0037 

N5300038 

N53QU039 

M53Q0040 

NSSOOOvl 

N5300Q42 


N533004H 
N530 0 045 
N5300046 
N533G047 
N530 0 043 
N53G 00-+9 
N530 0 05 0 
Np30 0 051 


005 2 

005 3 
0 0 5 4 

0055 

0056 

0057 

0058 

0059 

006 0 
0061 
0062 

006 3 
0 05 4 

0065 

0066 

0067 

0068 
0069 

007 0 
0071 
00 72 
0073 
007 4 
0 075 

0076 

0077 

0078 

0079 

0080 
00 81 
0082 
0033 
00 84 
0035 
0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 
009 6 

0097 

0098 

0099 
QIO 0 
0101 
0102 

0103 

0104 


LSTREQ PAGE 2 DATE: 01/27/99 


EXT 

CPPREQ 

08. 

CLEAR PROTECT BITS 

EXT 

SPPREQ 

09. 

SET PROTECT SITS 

EXT 

ADHREa 

10. 

ADD HEX. NUMBER 

EXT 

SEHREa 

11. 

SUBTRACT HEX. NUMBER 

EXT 

AL3REQ 

12. 

ALLOCATE CORE 

EXT 

RELREQ 

13. 

RELEASE CORE 

EXT 

DACREQ 

14. 

LIST ALLOCATABLE CORE MAP 

EXT 

PTHREQ 

15. 

PRINT THREAD 

EXT 

A DFREQ 

16. 

ADVANCE FILE 

EXT 

BSFREQ 

17. 

BACKSPACE FILE 

EXT 

AORREQ 

18. 

ADVANCE RECORD 

EXT 

BSRREQ 

19. 

BACKSPACE RECORD 

EXT 

WEFREQ 

20. 

WRITE END OF FILE 

EXT 

REWREQ 

21. 

REWIND TAPE 

EXT 

LHCREQ 

22. 

MODIFY CORE IMAGE ASCII 

EXT 

LHOREQ 

23. 

MODIFY ORDINAL ---HEX 

EXT 

LHMREQ 

24. 

MODIFY MASS MEMORY HEX 

EXT 

DICREQ 

25. 

DUMP DECIMAL (INTEGER) 

EXT 

M3DREQ 

26. 

LIST HASS MEMORY 

EXT 

CLUREG 

27. 

CHANGE LIST UNIT 

EXT 

LITREQ 

28. 

LOAD DECIMAL (INTEGER) 

EXT 

LIMREQ 

29. 

MODIFY MASS MEMORY (INTEGER) 

EXT 

HCOREQ 

30. 

WRITE CORE TO MM 

EXT 

RCDREQ 

31. 

READ TO CORE FROM MM 

EXT 

LASREQ 

32. 

LOAD ASCII 

EXT 

DASREQ 

33. 

DUMP ASCII 

EXT 

HLUREQ 

34. 

CHANGE MASS MEMORY UNIT 

EXT 

OPTREQ 

35. 

LIST PARTITION CORE MAP 

EXT 

LSPREQ 

36. 

LOAD SINGLE PRECISION 

EXT 

OSPREQ 

37. 

DUMP SINGLE PRECISION 

EXT 

LOPREQ 

38. 

LOAD DOUBLE PRECISION 

EXT 

OOPREQ 

39. 

DUMP DOUBLE PRECISION 

EXT 

WOKREQ 

40, 

WRITE TO DISK FROM CORE 

EXT 

RDKREQ 

41 . 

READ FROM MASS MEMORY TO CORE 

EXT 

SMPREQ 

42. 

SET MASS MEMORY TO PATTERN 

EXT 

CCCREQ 

43. 

COMPARE CORE TO CORE 

EXT 

MMHREQ 

44. 

MOVE MASS MEMORY 

EXT 

DMHREQ 

45. 

DUMP MASS MEMORY 

EXT 

DMIREQ 

46 • 

DUMP MASS MEMORY DECIMAL 

EXT 

DMAREQ 

47. 

DUMP MASS MEMORY (ASCII) 

EXT 

OMSREQ 

48. 

DUMP MASS MEMORY SINGLE PRECISION 

EXT 

OMOREQ 

49. 

DUMP MASS MEMORY DOUBLE PRECISION 

EXT 

CWAREQ 

50. 

CONVERT WORD ADO. TO SECTOR/WORO ADO. 

EXT 

CGMREQ 

51. 

COMPARE CORE TO MASS MEMORY 

EXT 

CMMREQ 

52. 

COMPARE HASS MEMORY TO HM 

EXT 

SMNREQ 

53. 

SEARCH MM FOR PATTERN 

EXT 

UNLREQ 

54. 

UNLOAD TAPE 

-»■ 

REQUEST CODE 

54 IS 

SAME AS CODE 55 «UNL^ 

EXT 

3LDREQ 

55. 

SELECT DENSITY 

EXT 

LICREQ 

56 . 

MODIFY CORE IMAGE (DECIMAL) 

EXT 

LACREQ 

57. 

MODIFY CORE IMAGE (ASCII) 

EXT 

LIOREQ 

58. 

MODIFY ORDINAL (DECIMAL) 

EXT 

LAOREQ 

59. 

MODIFY ORDINAL (ASCII) 


N53Q 0 052 
N3300Q53 
N530 0 0 5 4 
N5300055 
Np 3 3 0 0 5 6 
N530 0057 
N530 0 058 
N53Q 0 059 
N5300 060 
N530 0 061 
N5300Q62 
N530 0 06 3 
N53Q 0 0 64 
N53Q Q 065 
N53Q 0 066 
N53Q 0067 
N530 0068 
N5300a69 
N53u 0 07 0 
N530G371 
N53a0072 
N5300073 
N53Q 0 074 
N53J0075 
N5300076 
N5300077 
N5300078 
N530UU79 
N530QQ8G 
N530008i 
N5300082 
N5300083 
N530 0 084 
N53Q0 085 
N530g086 
N53 0 u 0 8 7 
N5300088 
N530 0 089 
N530 0090 
N530 0 091 
N5300Q92 
N5300093 
N5300094 
N5330Q95 
N530 0096 
N5300097 
N5300098 
N530 0099 
N5300 10 0 
N5300101 
N53CC102 
N5300103 
N53Q 0104 


LSTREQ 


PAGE 


3 


DATE! 01/27/99 


EXT 

LSOREQ 

60. 

EXT 

LDOREQ 

61. 

EXT 

LAMREQ 

62. 

EXT 

LSMREO 

63. 

EXT 

LDMREQ 

64 . 


N5300105 
N53Q 0106 
N5300107 
N530 0108 
N5 30 0 10 9 


DOF4 
0 OEA 
00 02 
0012 
0 0 33 
0 0 43 
D 0 44 
0 0 22 
0 023 
0 027 
002C 
G 02F 
0 0 2A 
0 0 26 
0 0 45 
0 0 04 
00 03 
0 0 24 
0 0 46 
00 03 

0 0 07 
OQFg 
10 00 
Q8C2 
0 0 08 
0 0 60 


00 02 
0 0 03 
00 05 


'EQU' TABLE 

EQU AMONI ($F4) ,ADISP{$EA) ,L PM S K ( 2 ) i NZ ERO ( 5512) ,ZROBIT($33) 


EQU FI\/E($a3) , SIX ($44) » ZERO ( $ 22 ) , ON EBI T ($ 23 ) , SI XTEN ($ 27 ) 


EQU COMMA ($20 ,SLASH($2F) .ASTRIC ($2A) 

EQU EIGHT ($26), NINE ($45 ) , THRE E ( 4) , ONE ( 3 ) , TWO ( $2 4 ) 


TEN ($46) 
MASK(3) 

CHRSLV(7) 
EXT8l/4($E9) 
ASMOD {$ 100 0 ) 
MASSLU($8C2) 
MSPG { 85 
N096{96 ) 


ONE BIT MASK 

LEVEL OF THIS PROGRAM 

ASC OUTPUT MODE 

MASS MEMORY LU 

NO. OF MESSAGE IN A PAGE 

BUFFER SIZE 


N530 0111 
N530Q112 


N530Q113 


N53QQ114 


N53Q011 5 


SUBROUTINE •’EQU" POINTERS 
6ETFLO(2) "GETFLO" 

ASCHEXI35 "ASCHEX" 

ASC0EC(5) "ASCOEC" 


N530011 6 
N53] 0117 

N5300120 
N5300121 
N5300122 
N533 0123 
N53D 0124 

N530012b 

N5300127 

N5300128 

N53G0129 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
00 06 
00 07 


PARAMETER LOCATION (OFFSET FROM BASE) 
HANDLE(l) "HANDLE" 

BMSG(2) "MSG" ENTRY 

SOMHOR(35 "SOMMOR" ENTRY 

I0ERR(4) "lOERR" ENTRY 

LISTLU(5) LIST OUTPUT "LISTLU" 

G0HI0LU(6) "COMOLU” 

NEWMLU(75 "NEWMLU" NEW MM LU 


N53G0131 
N533 0132 
N53Q0133 
N5330134 
N5330135 
N53Q 0136 
N5300137 
N530 0138 


/' 


LSTREQ 
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DATE': Qi/27/99 


o 

o 


0139 

014Q 

0141 

0142 

0143 

0144 

0145 

0146 


0 0 08 

EQU 

PR0GK8) 

0 0 09 

EQU 

PR0G2 (9 ) 

0 0 QA 

EQU 

BITFLG(IO) 

00 OB 

EQU 

BUFCNT(ll) 

0 0 OC 

EQU 

FIELD (12) 

00 10 

EQU 

SLASHF (16) 

0011 

EQU 

BUFEMT (17) 

0012 

EQU 

BUFFER(18) 


•PROGl" 

•PROG2" 

•BITFLG* 

•BUFGNT’ 

•FIELD" 

•SLASHF* 

■BUFEMT’ 

•BUFFER* 


N530 0139 
N53a0140 
N53Q 0141 
N53Q0142 
N5300143 
N53DQ144 
N533 0145 
N530 0146 


o 


C) 


o 

0148 

0149 

0150 






PRO 

GRAM 

STAR 

j jf. :f. If. ^ sf. 

N530 0148 
N530 0149 
N5300150 

o 

<.J 

0152 

0153 

0154 

0155 

0156 

POOOO 
POOGl 
P0 002 
PQ0Q3 
PODQh 

6869 
60FF 
Cl 05 
8868 
683E 

LSTREQ 

STA^ 

STA- 

LDA- 

ADD"" 

STA^ 

BASE 

I 

LISTLU, I 

MODE 

OTLU 

GET 

LIST UNIT 

AS OUTPUT 

UNIT 

N5300152 
N5300153 
N5300154 
N53Q 0 15 5 
N530G156 


o 

o 

o 

o 

o 


o 


o 

o 


0158 

0159 

0160 
0161 
0162 
0163 
016 4 

0165 

0166 

0167 

0168 
0159 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 


P90 05 
PQ006 
P00 07 
P0 0 08 
PO 009 
POOOA 

poooe 

POOCC 

POOOO 

POOOE 

POOQF 

PGOlO 

POOH 

P0012 

P0013 

P0014 

P0015 

P0016 


C812 

9812 

8102 

C822 

C810 

5622 

680A 

4808 

54F4 
09 07 
GOOD 
00 0 0 
08C2 
0060 
0 0 6F 
00 0 0 
0 0 0 0 
14EA 


0179 

0180 P0017 7FFF 

0181 P0018 7FFF 

0182 P0019 7FFF 

0183 POOIA 7FFF 

0184 

0185 POOIB 0161 

0186 PGOIC 182E 
018 7 


J). .’I. V- V- ^ 

LDA^ 

SUB» 

ADD- 

TRA 

LOA^ 

RT J- 

STA» 

STO--*^ 

REPEAT RTJ- 
XFRCD ADC 
ADC 
NUH 
ADC 
ADC 

XFBF ADC 
XFRHSB NUM 
XFRLSB NUM 
JMP- 


0TB 

OFTB 

♦ 

XFRET 


ADC 

ADC 

ADC 

ADC 

SQP 


0TB 
OTB + 1 
BMSG.I 
Q 

OTB+2 

(ZERO) 

XFRLSB 

XFRHSB 


GET COMMAND MESSAGE MM ADDRESS 

GENERATE '•MMAODR** LOCATION 


Q 


TO *'MMADDR*‘ FOR MH ADD. CONVERSION 
SAVE LSB AND MSB 


(AHONI) 


$9C0f CHRSLV 


XFRET-XFRCD 


0 

THREAD 

MASSLU 


N096 

SIZE 

MES-XFRCD 

MESSAGE BUFFER LOG 

0 

MSB (FILLED) 

G 

LSB (FILLED) 

(ADISP) 


HMAOOR 

0. "MMAODR" ENTRY 

MSG 

1. ••MSG” ENTRY 

NAMEMS 

2. ••NAHEHS" ENTRY 

OFF 

3. 'OFF' 

REDOK 

NO ERROR ENCOUNTER 

ERIO 

TO ERROR 


(FILLED ) 


N530 0158 

N63a0159 

N5 30 0 16 0 

N53D 0161 

N5300162 

N530 0163 

N5300164 

N53D0165 

N5300166 

N5300167 

N5300168 

N530 0 169 

N53Q0170 

N533 0171 

N5300172 

N53QQ173 

N530 0174 

N53D 0 17 5 

N5300176 

N53Q0177 

N533 0179 
N33Q 0180 
N530 0181 
N53DQ182 
N530 0185 
N530G18 4 
N53D 018 5 
N5300186 
N5300187 


c 

o 


C) 

o 

C) 

c 

r. 


o 


O 

o 


o 


o 
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date: Dl/27/99 


0188 

POOID 

QA3E 

REDOK 

ENA 

MES-PNTCD 

0189 

POOIE 

8 8 29 


ADO^ 

CURTPT 

0190 

POOIF 

6625 


STA^ 

BUF 

0191 

P002G 

OA 60 


ENA 

N096 

0192 

PQ021 

8825 


ADD» 

TOTAL 

0193 

P0022 

6824 


STA» 

TOTAL 

0194 

P0023 

E324 


LDQ» 

CURTPT 

0195 

P0024 

CA59 

TERMCK 

LDA^ 

ME3 , Q 

0196 

PO 025 

09FE 


INA 

-1 

0197 

P0 026 

6810 


STA’ 

NOWORD 

0198 

PDG27 

09 02 


INA 

2 

0199 

P0028 

6820 


STA* 

TEMP 

020 0 

P0029 

0 8 64 


TCA 

A 

0201 

P002A 

8 8 1C 


ADD^ 

TOTAL 

0202 

PO 02B 

0121 


SAP 

CKTY 

0203 

P0Q2C 

1840 


JMP^ 

NED ROM 

0204 

P0 02D 

6819 

CKTY 

STA» 

TOTAL 

0205 

P0Q2E 

CA50 


LDA» 

MESfi,Q 

020 6 

P0 02F 

0123 


SAP 

MESTYP 

020 7 

P0Q3Q 

E839 

DONE 

LDO» 

BASE 

0208 

P0031 

E203 


LDQ- 

SOHMOR, Q 

0209 

PD032 

1622 


JMP- 

(ZERO), Q 

0210 

PQ033 

0108 

MESTYP 

SAZ 

NOHEAD 

0211 

P0034 

E836 


LDQ^- 

COUNT 

0212 

PQ035 

D835 


RAO^ 

COUNT 

0213 

P0036 

D80D 


RAO^ 

NOW OR D 

0214 

PG037 

CAOQ 


LDA 

ENTABL, a 


P0038 

■3 0R9 




0215 

P0039 

BO 11 


EOR- 

LPMSK+15 

0216 

P003A 

Q112 


SAN 

ASMPNT 

021 7 

P003B 

1812 


JMP^ 

WRTOK 

0218 

P003C 

08 08 

NOHEAD 

RAO^ 

BUF 

0219 

P0 0 3O 

D807 

ASMPNT 

RAO» 

BUF 

0220 






0222 



V- 


LIST 

0 22 3 






0224 

P003E 

54F4 


RTJ- 

(AMONI ) 

0225 

P003F 

0D07 

PNTCD 

ADC 

$D00+CHRSLV 

0226 

P0040 

00 OA 


ADC 

RET-PNTCD 

0227 

P0041 

QCOO 


NUM 

Q 

0228 

P0042 

0 0 00 

OTLU 

NUM 

0 

0229 

PO 043 

0 0 00 

NOWORD 

NUM 

0 

0230 

PO 044 

0 0 00 

BUF 

NUM 

0 

C231 

P0045 

14FA 


JMP- 

( ADISF) 

0232 



if- 



0233 

P0046 

0 0 00 

TOTAL 

NUM 

0 

023h 

P0047 

0 0 00 

CURTPT 

NUM 

0 

0235 

P0048 

0 0 00 

TEMP 

NUM 

0 

0237 



V- 




SET UP BUFFER LOG. 

UPDATE SIZE OF MESSAGE 

GET NO. OF WORDS IN MESSAGE 


MORE DATA IN BUFFER, SKIP 
MESSAGE EXHAUSTED, GO UPDATE 

CHECK FOR TERMINATOR 
NO, SKIP 

ALL DONE, EXIT OT "SOMMOR* 


GO, ENTRY UNUSED 
BUMP BUFFER LOG. BY 1 
BUMP TO MESSAGE LOCATION 


N533 0 138 
N530 0 1B9 
N533 0 190 
N5300191 
N5300192 
N53Q0193 
N5300194 
N530Q195 
N553 019fa 
N530 0197 
N53Q 0198 
N5300199 
N53 0 0 20 C 
N53Q0201 
N530 0 202 

PROPER POINTERS N5300203 

N330 Q2Qh 
N5300205 
N530 0 20 6 
N'.30Q207 
N530Q 206 
N53 0 0 209 
N53 0 0 210 
N5300211 
N53 0 0 212 
N530 0213 
IN SYSTEM. N530u21h 

N5300215 
N53j 0216 
N530 0217 
N530G218 
N530Q 219 
N5330220 


SKIP ON HEADING 

BUMP ENTRY COUNT BY 1 

GET ENTRY AND CHECK IF DEFINED 


ALL NMEMONICS, ONE AT A TIME, 
BY DX 

F-WRITE 

RETURN 

THREAD 

LOGICAL UNIT (FILLED) 

SIZE (FILLED) 

BUFFER LOC. (FILLED) 


CAN BE STOPPED 


N530 0222 
N530 0223 
N5300224 
N530 0225 
N5330226 
N53Q0227 
N53 0 0 228 
N5300229 
N55Q023Q 
N530 0231 
N53G 0232 
N5300233 
N530 0234 
N5300235 


N5300237 


1 cTPPn 


PAGE 


6 


DATEJ 01/27/99 



o 


N530 0 238 
N530 0 239 
N533G240 
N5300241 
N530 0 242 
N5300243 
N5 3 0 0 244 
N530 0245 

M5300246 
N5300247 
N530 0248 
N53002W9 
N530025C 
N53Q 0251 
N53Q 0252 


N550 0 254 
N53Q 0255 
N530 025b 
N5300257 
N5500258 
N530 0259 
N530 0260 
N53u 0261 
N530 0262 
N53G 0 26 3 
N530 0264 
N5300265 
N5300266 
N5330267 
N53002&6 
N5300269 
N530 0 270 
N53Q0 271 
TA IN N5300272 
N53Q0273 
N530Q27Mr 
N533 0 275 
N53D 0 276 
N53Q0277 
N5300278 
N530 0 279 
N530 0 28 0 
N 53 0 0 291 

N53Q 0 28 3 
N53Q0284 
N53Q0235 
N530 0 286 


O 

O 

o 

o 

o 

V...' 

o 

u 

o 

c 

o 

o 

c 


o 


o 


LSTREQ 


PAGE 


7 


date: 01/27/99 


0288 

0289 

029 0 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 
Q3D0 

030 1 

0302 

0303 

0304 

0305 
030 6 
03 0 7 




P006C 

E8 0A 

NEDROM 

LDQ^ 

CURTPT 

P006D 

C8D8 


LOA^ 

TOTAL 

P006E 

63 D9 


STA» 

TEMP 

PO 06F 

0 ADD 


ENA 

0 

POQ70 

60FF 


STA- 

I 

P0071 

CAOC 

MOVDAT 

LDA^ 

MES^Q 

P0072 

690B 


STA'^ 

MES,I 

P0073 

DOFF 


RAO- 

I 

P00 74 

C8D3 


LDA^ 

TEMP 

PD075 

09FE 


INA 

-1 

P0Q76 

0103 


SAZ 

SETB 

P0077 

6800 


STA^ 

TEMP 

PO 078 

ODOl 


INQ 

1 

P00 79 

18F7 



MOVDAT 

PD07A 

68CC 

SETB 

STA^ 

CURTPT 

P00 7B 

COFF 


LDA- 

I 

P007C 

18DC 


JMP» 

N1 


MOVE UNUSED MESSAGE UPWARD 
SET UP INDEXES 

MOVE DATA TO TOP OF 
FOR NEW DATA i 

decrement no. of WO 

SKIP WHEN DONE 
otherwise BUMP POIN 


AND READ OVER MORE MESSA 


MESSAGE BUFFER MAKE ROOM 
AT BOTTOM) 

RDS REMAINED 
TERS 


N53j 0288 
GEN53G0289 
N5 30 0 290 
N5300291 
N53Q0292 
N5300293 
N5300294 
N53 0 0 295 
N5 3 0 0 29 5 
N5300297 
N530 Q298 
N5300299 
N5300 30 0 
N5300 301 
N530 0 302 
N53Q0303 
N530 0 304 
N53Q0305 
N5SQ 0 30 6 
N5330307 


0309 

0310 

0311 

0312 

0313 


0315 

0316 

0317 

0318 

0319 

0320 


0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 
Q33Q 

0331 

0332 

0333 
033-i 

0335 

0336 
033 7 


V- 


P007D 

0 0 74 


MES BZS 

MES (NO96+20) 




w 


COMMANDS El 




•V* 


ENTRY POINT 




* 


ORDERS 

POOFl 

7FFF 

X 

ENTABL ADC 

LHXREQ 

01. 

POO F2 

7FFF 

X 

ADC 

LITREQ 

28. 

P00F3 

7FFF 

X 

ADC 

LA3REQ 

3 2 • 

P00F4 

7FFF 

X 

ADC 

LSPREQ 

3 6. 

PQ0F5 

7FFF 

X 

AOC 

LDPREQ 

38. 

P00F6 

7FFF 

X 

ADC 

DPCREQ 

02. 

P00F7 

7FFF 

X 

AOC 

OICREQ 

25. 

POOFS 

7FFF 

X 

ADC 

DASREG 

33. 

PQ0F9 

7FFF 

X 

ADC 

DSPREQ 

37. 

PDOFA 

7FFF 

X 

AOC 

ODPREQ 

39 * 

POOFB 

7FFF 

X 

ADC 

LHMREQ 

24. 

POOFC 

7FFF 

X 

ADC 

LIMREQ 

29. 

POOFO 

7FFF 

X 

AOC 

LAMREQ 

6 2. 

PO QFE 

7FFF 

X 

AOC 

LSMREQ 

63. 

POOFF 

7FFF 

X 

ADC 

LDMREQ 


POlOO 

7FFF 

X 

ADC 

LHCREQ 

22. 


MESSGAE IS LIMITED TO 20 WORDS OR LESS, THEREFORE 
BUFFER {'MES') MUST SET UP FOR ONE SECTOR + 


entry POINTERS 


N530 0 309 
N5300310 
20 WORDN530u311 
N53B0 312 
N53D0313 


N530 0 315 
N53QQ316 
N5300 317 
N5300 318 
N53DG319 
N53u0320 


LOAD HEXADECIMAL N2|00322 
LOAD DECIMAL (INTEGER) N5300323 
LOAD ASCII 

LOAD SINGLE PRECISION 

LOAD DOUBLE PRECISION N530G326 
DUMP HEXADECIMAL Np30p27 
DUMP DECIMAL (INTEGER) 

DUMP ASCII N3330329 
DUMP SINGLE PRECISION N53G033Q 
DUMP DOUBLE PRECISION N=jQ0331 

MODIFY MASS MEMORY HEX N5300332 

MODIFY MASS MEMORY (INTEGER) N3300333 
MODIFY MM (ASCII) N^30 0o3h 
LOAD MM SINGLE PRECISION (SAME AS 60) N^SOOSS^ 
MODIFY MM (DOUBLE PRECISION) N-j3Q 033o 
MODIFY CORE IMAGE ASCII N5300337 


LSTREQ 


8 


DATE 


01/27/99 


o 


0338 

POlOl 

7FFF 

X 

ADC 

0339 

P0102 

7FFF 

X 

ADC 

0340 

PG103 

7FFF 

X 

ADC 

0341 

P0104 

7FFF 

X 

ADC 

0342 

POlO 5 

7FFF 

X 

ADC 

0343 

P0106 

7FFF 

X 

ADC 

0344 

P0107 

7FFF 

X 

ADC 

0345 

P01Q8 

7FFF 

X 

ADC 

0 3 4 6 

P01D9 

7FFF 

X 

ADC 

0347 

POlOA 

7FFF 

X 

ADC 

0348 

POlOB 

7FFF 

X 

ADC 

0349 

POIOC 

7FFF 

X 

ADC 

0350 

POIOD 

7FFF 

X 

ADC 

0351 

POlOE 

7FFF 

X 

ADC 

0352 

POlOF 

7FFF 

X 

ADC 

0353 

POllO 

7FFF 

X 

ADC 

0354 

POlll 

7FFF 

X 

ADC 

0355 

P0112 

7FFF 

X 

ADC 

0356 

P0113 

7FFF 

X 

ADC 

035 7 

P0114 

7FFF 

X 

ADC 

0358 

poll 5 

7FFF 

X 

ADC 

0359 

PQ11& 

7FFF 

X 

ADC 

0360 

poll 7 

7FFF 

X 

ADC 

0361 

P0118 

7FFF 

X 

ADC 

0352 

P0119 

7FFF 

X 

ADC 

0363 

PQllA 

7FFF 

X 

ADC 

036h 

PCllB 

7FFF 

X 

ADC 

0365 

POllC 

7FFF 

X 

ADC 

0366 

POllD 

7FFF 

X 

ADC 

0357 

PQllE 

7FFF 

X 

ADC 

0368 

PQllF 

7FFF 

X 

ADC 

0369 

P0120 

7FFF 

X 

ADC 

0370 

P0121 

7FFF 

X 

ADC 

0371 

P0122 

7FFF 

X 

ADC 

0372 

P0123 

7FFF 

X 

ADC 

0373 

P0124 

7FFF 

X 

ADC 

0374 

P0125 

7FFF 

X 

ADC 

0375 

P0126 

7FFF 

X 

ADC 

0376 

P0127 

7FFF 

X 

ADC 

0377 

P0128 

7FFF 

X 

ADC 

0378 

PG129 

7FFF 

X 

ADC 

0379 

P012A 

7FFF 

X 

ADC 

0380 

P012B 

7FFF 

X 

ADC 

0381 

P012C 

7FFF 

X 

ADC 

0382 

P012D 

7FFF 

X 

ADC 

0383 

P012F 

7FFF 

X 

ADC 

0384 

P012F 

7FFF 

X 

ADC 

0385 

P0130 

7FFF 

X 

ADC 

0386 

P0131 

0 0 00 

P 

ADC 


PAGE 


LICREQ 

LACREQ 

LHOREa 

LIOREQ 

LAOREQ 

LSOREQ 

LOOREQ 

OMHREQ 

DMIREQ 

DMAREQ 

DM3 RE Q 

DMOREQ 

MSOREQ 

RCDREQ 

RDKREQ 

WCOREQ 

WDKREQ 

ADFREQ 

BSFREQ 

ADRREQ 

BSRREQ 

WEFREQ 

REWREQ 

UNLREQ 

SLOREQ 

SCNREQ 

SMMREQ 

SETREQ 

SMPREQ 

SPEREQ 

CPPREQ 

SPPREQ 

SCHREQ 

ALCREQ 

RELREQ 

PTHREQ 

DACREQ 

DPTREQ 

MBCREQ 

MMMREQ 

CCCREQ 

CCMREQ 

CMMREQ 

ADHREQ 

SBHREQ 

ML'JREQ 

CLUREQ 

CWAREQ 

lstreq 


56. 

57. 
23. 

58. 

59. 

60. 
61. 

45. 

46. 

47. 

48. 

49. 
26. 
31, 

41. 
30. 
40 . 
16. 
17 . 
18. 

19. 

20 . 
21 . 
54. 
55 . 

03. 
53. 

04. 

42. 

07. 

08. 

09. 
06. 
12 . 

13. 
15. 

14. 
35. 

05. 
44. 

43. 

51. 

52. 

10 . 
11 . 
34. 
27. 

50. 
65 . 


MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
MODIFY 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
LIST 
READ 
READ 
WRITE 


CORE 

CORE 


IMAGE 

IMAGE 


ORDINAL 
ORDINAL 
ORDINAL 
ORDINAL 
ORDINAL 
MASS MEMORY 
MASS MEMORY 
MASS MEMORY 
MASS MEMORY 
MASS MEMORY 
HASS MEMORY 
TO CORE FROM MM 
FROM MASS MEMORY 
CORE TO MM 


(DECIMAL) 

(ASCII) 


HEX 

(DECIMAL) 

(ASC II) 

(SINGLE PRECISION) 
(DOUBLE PRECISION) 


DECIMAL 

(ASCII) 

SINGLE PRECISION 

DOUBLE PRECISION 


TO CORE 


WRITE TO DISK FROM CORE 
ADVANCE FILE 
BACKSPACE FILE 
ADVANCE RECORD 
BACKSPACE RECORD 
WRITE END OF FILE 
REWIND TAPE 
UNLOAD TAPE 
SELECT DENSITY 
SEARCH COR 

SEARCH MM FOR PATTERN 

SET CORE TO PATTERN 

SET MASS MEMORY TO PATTERN 

SEARCH CORE FOR PARITY ERROR 

CLEAR PROTECT BITS 

SET PROTECT BITS 

SCHEDULE PROGRAM 

ALLOCATE CORE 

RELEASE CORE 

PRINT THREAD 

LIST ALLOCATABLE CORE MAP 
LIST PARTITION CORE MAP 
MOVE BLOCK OF CORE 
MOVE MASS MEMORY 
COMPARE CORE TO CORE 
COMPARE CORE TO MASS MEMORY 
COMPARE MASS MEMORY TO MM 
ADO HEX. NUMBER 
SUBTRACT HEX. NUMBER 
CHANGE MASS MEMORY UNIT 
CHANGE LIST UNIT 

CONVERT WORD ADO. TO SECTOR/WORD 
LIST COMMAND 


ADD. 


N53Q 0 33 8 
N53Q03S9 
N530Q340 
N533 0 341 
N53I 0 342 
N5300343 
N5 3 0 0 344 
N53'J 0 345 
N53Q 0346 
N53G0347 
N5300348 
N530 0 3h 9 
N5330350 
N530G351 
N5300352 
N5 3 J 0 35 3 
N5330354 
N530 0 355 
N530 0 35b 
N53Li 0 357 
N530 0 358 
N5300359 
M530 0360 
N53D 0 361 
N53Q0362 
N53Q0363 
N5300364 
N553 0 365 
N53Q 0366 
N530 0 367 
N5300368 
N533 0369 
N55D0370 
N5300 371 
N5300372 
N5300373 
N530 0 374 
N5300375 
N5300376 
N530D377 
N5300378 
N530D379 
N5300 380 
N5 3 0 G 381 
N5300382 
N53Q0383 
N5300384 
N530 0 385 
N530 0386 


C 

o 

o 



i’ ! 




r' 


o 


o 


C) 

o 


0388 


N530 0383 



o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


■s_^ 

o 

N530Q389 
N53Q 0 39 0 

N53GQ391 O 

N530 0 392 

N5300393 

■ o 
^ o 

C' 

o 

o 

• o 
o 

' o 
o 
o 

u 

o 

n 

• C) 


('■ 

o 


LSTREQ 

PAGE 10 

DATE? 01/27/99 

■ r : 

n 

E Q U I V 

A L E N 

C E S 




o 

n 

DEF.tINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

: O 


0 QOO 

I 

OOFF 

( 000255) 

0153, 0295, 

0298, 0306 



0112 

AMONI 

00F4 

(000244) 

0168, 0224 




0112 

ADISP 

QOEA 

( 000234) 

0177, 0231 


■ 

u 

0 112 

LPMSK 

00 0 2 

( G0Q002) 

0215, 0266 



0112 

NZERO 

0012 

(030018) 





0 112 

ZROBIT 

0033 

(000051) 




Q 

0113 

FIVE 

004 3 

(000067) 



o 

0113 

SIX 

0044 

( 00006 8) 


0243, 0252 



0113 

ZERO 

0022 

( OC0034) 

0164, 0209, 



0 113 

ONEBIT 

0 023 

(0 00035) 



- 


0 113 

SIXTEN 

0 027 

( 0Q0039) 



o 


011'^ 

COMMA 

002C 

(003044) 





0114 

SLASH 

002F 

(000047) 





0114 

ASTRIC 

002A 

(.0 000 42) 





0115 

EIGHT 

0026 

(000038) 



o 

0115 

NINE 

0045 

(000069) 





0115 

THREE 

0 0 0 4 

( 00D0Q4) 





0115 

ONE 

0 0 0 3 

( 0 00003) 



, o 

O 

0115 

TWO 

0024 

(000036) 



0116 

TEN 

0046 

(000070) 




0117 

MASK 

00 03 

( 0 000 03) 

0169, 0225 




0119 

CHRSLV 

0007 

(OOOOQ7) 




0 120 

EXTBV4 

00E9 

C0G0233) 

0236 


: 0 

o 

0121 

ASMOD 

lOOQ 

(004096) 

* 


0122 

MASSLU 

08C2 ■ 

(002242) 

0172 




0123 

MSPG 

0 0 08 

(000008) 


0313 

: O 


0124 

N096 

0060 

(000096) 

9173, 0191, 


0127 

GETFLO 

0 002 

(000002) 




0128 

ASC HEX 

00 03 

( 0 00003) 


* 



0129 

A SC DEC 

00G5 

(000005) 





0132 

HANDLE 

0 00 1 

{ 0 0 Q 0 0 1 ) 

0 161 , 0 250 


; O 

o 

0133 

BMSG 

0 0 0 2 

(000002) 



0134 

S CMMOR 

0 0 0 3 

(000003) 

0 208 




0 135 

lOERR 

0 0 0 4 

( OOOOOh) 

Q 2 42 


; O 

Q 

0136 

LISTLU 

0005 

(000005) 

0154 


013 7 

COMOLU 

00 0 6 

(oaooo'6) 




0138 

NEWMLU 

0007 

1000007) 




o 

0139 

PROGl 

000 8 

( 000008) 



o 

o 







, O 

o 







o 

Q 






- 

i 








_ _ — - 
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o 



0 140 

PR0G2 

00 09 

(000009) 


0141 

BITFLG 

OOOA 

(000010) 

o 

0142 

BUFCNT 

OOOB 

( OQOOli) 

0143 

FIELD 

QOOC 

(000012) 


0144 

SLASHF 

0010 

(000016) 


0145 

8UFFMT 

0011 

(000017) 


0146 

BUFFER 

0012 

(000018) 


o 




O 

o 

o 

o 

o 

o 

I o 


o 


o 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 


LSTREQ 
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DATE! 01/27/99 


o 

o 

o 

o 

o 

o 

o 

0 

o 

n 

••w-' 

o 


SYMBOLS 


DEF.LINE MAME 


0 03 5 
0168 
0169 

0174 

0175 

0176 
0 180 
0183 
0185 
0188 
0195 
0 20 4 
0 20 7 
0 210 
0 218 
0219 
0 225 
0228 
0229 
0 230 
0 233 
0234 
0 235 
0 240 
0 241 
0245 
0257 
0 260 
0267 
0275 
0 284 
0285 
0 28 6 
0 291 
0 296 
0 305 
0313 
0 322 
0389 
0 390 
0 391 


LSTREQ 

REPEAT 

XFRCD 

XFBF 

XFRMSB 

XFRLSB 

0TB 

OFTB 

XFRET 

REDOK 

TERMCK 

CKTY 

DONE 

MESTYP 

NOHEAD 

ASMPNT 

PNTCO 

OTLU 

NOWORD 

BUF 

TOTAL 

CURTPT 

TEMP 

RET 

ERIO 

WRTOK 

NEXTLN 

N1 

STL 

AD JBUF 

BASE 

OOUNT 

MODE 

NEOROM 

HOVDAT 

SFTB 

MES 

ENTABL 

SA65 

SP65 

DB65 


ADDRESS 

00 0 0 
OOOD 
OGOE 

0013 

0014 

0015 
0017 
OOIA 
QOIB 
OOID 
0 0 2 4 
0C2D 
0030 
0033 
Q03C 
0 0 30 
003F 
0 0 42 
0 043 
0044 
0 046 

0047 

0048 
0 049 
00 4A 
004D 
0056 
0059 
0 0 60 
0 0 52 
0069 
Q06A 
006B 
006C 
0071 
007A 
007D 
uQFl 
00 0 3 
00 0 4 
0180 


REFERENCED AT LINE NUMBER 


0 0 35, 
0263 

0386 

0260 

0170, 

0261 

0 174, 


0 166 , 

0265 


0165, 

0262, 

0267 

0159, 

0 16 0, 

0163, 0248 


U C- T I 

0 170 
0185 
0281 
0202 


O 

o 

o 

o 

o 

o 


0 206 
0 210 
0216 
0188, 

0 226, 

0279 






0156 
0197 , 

0213 


0280 




o 

0 190-, 

0218, 

0219, 

0257, 

0 2 92 



0 192, 

0193, 

0201, 

0204, 

0305 


0 189, 

0194, 

0259, 

0275, 

0277, 

0 291, 

o 

0199, 
0 226 

0276, 

0 293, 

0299, 

e 302 




0 186 
Q217, 
0246 
0 307 
0264 

0 240 






c 

0258 
0 152, 

0207, 

0241 , 

0249 




o 

0 211 , 
0 155 

0212 







0 203 
0 30 4 
0 301 
0 174, 

0188, 

0195, 

0 2 0 5, 

0260 , 

0279, 

0296, 0297 

o 



W t- a. 

0390 
0 391 
0 392 


o 


o 


LSTREQ 
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date: 01/27/99 


o 

o 

o 

‘U 

ij 

o 

o 

o 

o 

o 


o 

o 

o 

o 

Q 

O ' 

o 

C' 

o 

o 

o 




' n 

o 








V... 



LSTREQ 

PAGE 14 date: 01/27/99 


o 





o 

o 

or 

UJ 
1 — 
X 
LJ 

N A L S 




C) 

DEF. LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

' o 

0 0 38 

MSG 

0018 

0 181 



0 039 

OFF 

QOIA 

0183 


o 

GO^tO 

MMAODR 

0017 

0 180 

■ o 

0 041 

CHRSFG 

004E 

0245 



0 0 42 

NAMEMS 

0019 

0 182 



0045 

LHXREQ 

OQFl 

0322 


•‘*'N 

0 046 

DPCREQ 

Q0F6 

0 327 

C\ 


0 047 

SCNREQ 

oil A 

0363 



0 048 

SETREQ 

one 

0 3 65 



0 049 

MBCREQ 

0127 

0 376 



0050 

SCHREQ 

0121 

0370 

D 


0 051 

SPEREQi 

OllE 

0 367 



0 0 52 

CPPREQ 

OllF 

0 368 



0 0 53 

SPPREQ 

0120 

0369 


C) 

0 0 5 4 

ADHREQ 

012C 

0 381 

C) 

0 055 

S8HREQ 

012D 

0 382 



0 056 

ALCREQ 

0122 

0 3 71 



0 0 5 7 

RELREQ 

0123 

0372 


o 

0 0 56 

DACREQ 

0125 

0 374 


0 059 

PTHREQ 

0124 

0 373 



0 0 60 

ADFREQ 

0112 

0355 



0 061 

8SFREQ 

0113 

0 356 

■ o 


0 062 

ADRREQ 

0114 

0 357 

o 

0 063 

BSRREQ 

0115 

0 358 



0 0 64 

WEFREQ 

0116 

0 359 



0 065 

REWREQ 

0117 

0 360 


o 

0 066 

LHCREQ 

0100 

0337 

' o 

0 067 

LHOREQ 

0103 

0 3 40 



0 068 

LHMREQ 

OOFB 

0 332 



0 069 

DICREQ 

0QF7 

0 328 

■ o 


0 070 

MSDREQ 

olon 

0350 


0071 

CLUREQ 

012F 

0 384 


0 0 72 

LITREQ 

C0F2 

0 323 



0 073 

LIMREQ 

QOFC 

0 333 



0 074 

WCDREQ 

0110 

0 353 

: O 

\ } 

0 075 

RCDREQ 

OlOE 

0 351 


00 76 

LASREQ 

00F3 

0324 



0 077 

DASREQ 

OOFS 

0329 


o 

0 078 

MLUREQ 

012E 

0 383 

0 

0 079 

OPTREQ 

0126 

0375 

n 

0 080 

LSPREQ 

Q0F4 

0 325 

o 


o 

r""\ 


O 


LSTREQ 


PAGE 15 


0 0 81 
0 082 
0 083 
0 0 8 A 
0 08 5 
006 6 
0 0 87 
0 0 88 
0 089 
0 090 
0 091 
0 092 
0 093 
0 0 9 A 
0 0 9 5 
0 096 
0 0 97 
0 098 
0 100 
QlOl 
0102 

0103 

0104 
010 5 
010 6 
010 7 
010 8 
0109 


DSPREQ 

00F9 

0330 

LDPREQ 

Q0F5 

0326 

DDPREQ 

QOFA 

3 331 

WDKREQ 

0111 

0 354 

RDKREQ 

OIQF 

0 3 52 

SHPREQ 

OllD 

0 366 

CCCREQ 

0129 

0 378 

hhmreq 

0128 

0 377 

DMHREQ 

0108 

0345 

OMIREQ 

0109 

0346 

DMAREQ 

010 A 

0 347 

DMSREQ 

010 B 

0 348 

DMDREQ 

OlOC 

0 3 49 

CWAREQ 

0 130 

0 385 

CCM REQ 

012A 

0379 

CMMREQ 

012B 

0 380 

SMNREQ 

OllB 

0364 

U ML REQ 

0118 

0 3 61 

SLDREQ 

0119 

Q 362 

LICREQ 

0101 

0 333 

LACREQ 

0102 

0339 

LIOREQ 

0104 

0 3 41 

LAOREQ 

010 5 

0 342 

LSOREQ 

0106 

0 3 43 

LDOREQ 

0107 

0344 

LAMREQ 

COFD 

0334 

LSMREQ 

OOFE 

0 335 

LDMREQ 

OOFF 

0 336 


L-' 

LSTREQ 

r'i 



ft 1 

P H A 

B E T I 

o 

ADFREQ 

0060 

ADHREQ 


ASMOD 

0121 

ASHPNT 


BUFCNT 

0142 

BUF ENT 


CMMREQ 

0 09 5 

COMMA 


DB65 

0391 

ODPREQ 


OPDREQ 

0 04 6 

DPTREQ 


GETFLD 

012 7 

HANDLE 

. V 

LDORFQ 

010 6 

LOPREQ 


LISTLU 

0136 

LITREQ 


MBCREQ 

0049 

MES 


MS3 

0038 

MS PC 


NOHEAD 

0218 

NO WORD 

o 

PMTCD 

0225 

PROGl 


RET 

0240 

REW R EQ 


SIXTEN 

G113 

SLASH 


SPPREQ 

0053 

STL 

■:J 

WCDREQ 

0074 

WDKREQ 


ZERO 

0113 

ZROBIT 


O 


o 

o 

o 

n 



PAGE 

16 


CAL 

SORT 

0 F 

S Y M B 

0 054 

ADISP 

0112 

ADJBUF 

0 219 

ASTRIC 

0 114 

BASE 

0145 

BUFFER 

0146 

CCCREQ 

0114 

COMOLU 

0137 

COUNT 

0 083 

DICREQ 

0 069 

DMAREQ 

Q 079 

DSPREQ 

0 081 

EIGHT 

0132 

I 

0 0 00 

lOERR 

0 0 82 

LHCREQ 

0 0 66 

LHNREQ 

0 072 

LPMSK 

0 112 

LSMREQ 

0313 

MESTYP 

0 210 

MLUREQ 

0123 

N1 

0260 

NAMEMS 

0229 

NZERO 

0112 

OFF 

0 139 

PR0G2 

0140 

PTHREQ 

0065 

SA65 

0 3 89 

SBHREQ 

0 114 

SLASHF 

0144 

SLDREQ 

0267 

TEMP 

0 235 

TEN 

0 084 
0 112 

WF.FREQ 

0064 

WRTOK 


date: 01/27/99 


0 L S 




0275 

ADRREQ 

0 06 2 

ALCREQ 

0284 

BITFLG 

0141 

BMSG 

0087 

CCMREQ 

0095 

CHRSFG 

0285 

CPPREQ 

00 52 

CURTPT 

0091 

DHDREQ 

0093 

DMHREQ 

0115 

ENTABL 

0322 

ERIC 

0135 

LACREQ 

0102 

LAMREQ 

0068 

LHOREQ 

0067 

LHXREQ 

0108 

LSOREQ 

0105 

LSPREQ 

0078 

MMADOR 

0040 

MMMREQ 

0042 

NEDRO M 

0291 

NEWMLU 

0 039 

OFTB 

018 3 

ONE 

0059 

RCDREQ 

QG75 

RDKREQ 

0 0 5 5 

SCHREQ 

005 0 

SCNREQ 

010 0 

SMNREQ 

0097 

SNPREQ 

0116 

TERMCK 

0195 

THREE 

Q2h5 

XFBF 

017 4 

XFRCD 


0056 
0133 
0041 
0234 
0089 
0 241 
010 7 
0 04 5 
0080 
0088 
0138 
0115 
0085 
0047 
0 086 
0115 


AMONI 0112 
BSFREQ 0061 
CHRSLV 0119 
CWAREQ 0094 
DMIREQ 0090 
EXTBV4 0120 
LAOREQ 0104 
LICREQ 0101 
LSTREQ 0035 
MODE 0286 
NEXTLN 0257 
ONEBIT 0113 
REDOK 0188 
SETB 0305 
SOMMOR C134 
TOTAL 0233 
XFRET 0185 


ASCDEC 

0129 

BSRREQ 

0063 

CKTY 

0204 

DACREQ 

0 05 8 

DMSREQ 

0092 

FIELD 

014 3 

LASREQ 

0 076 

LIHREQ 

0 073 

MASK 

0117 

MOVDAT 

0 29 6 

NINE 

0115 

0TB 

0 18 0 

RELREQ 

0057 

SETREQ 

0048 

SP65 

0390 

TWO 

0 115 

XFRLSB 

0176 


ASCHEX Q128 
BUF 0230 
CLUREQ 0071 
DASREQ 0077 
DONE G2Q7 
FIVE 0113 
LDMREQ 0109 
LIOREQ 0103 
MASSLU 0122 
MSOREQ Qu7u 
M096 0124 
OTLU 0228 
REPEAT 0168 
SIX 0113 
5PEREQ 0051 
UNLREQ 0098 
XFRHSB 0175 


o 

o 

o 



o 

o 

o 

o 


o 

{ ; 

o 

o 

o 

o 

o 

o 

o 

o 

o 


PRI NT 


PAGE 


1 


OATEJ 01/27/99 


0001 
000 2 
0003 
OOOA 
00 0 5 
00 0 6 
000 7 
00 06 
00 0 9 
0010 
0011 
0012 
QQ13 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0030 

0031 

0033 
00 3 4 
0035 


V- 

V- 


NAM PRINT DECK-IO N54 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS OIVISIONt LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


a-v- * ***^^ !^^^ v-!(- 



THIS 

SUBROUTINE PRINTS MESS 


THE 

MESSAGE INDEX. 


INDEX 

: MESSAGE 


0 

DEBUG IN 


1 

DEBUG OUT 


2 

D8 I/O ERROR 


3 

NEXT 


4 

DB FORMAT INCORRECT 


5 

DB INVALID REQUEST 


6 

CELL CONTENTS 


7 

DB SEARCH FINISHED 


8 

DB NO CORE AVAILABLE 


9 

OB ILLEGAL LU 


10 

DB ILLEGAL MM ADD. 


11 

OB ORDINAL OVER MAX. 

¥ 

¥■ 

12 

DB ORDINAL LENGTH ZERO 

¥ 


ENTRY N 


ENT 

PRINT 

if- 


EXTERNAL 


EXT 

MSG 


EXT 

ERROR 


NAME 


SUMMARY- 116 *-’^^’^-^’^- 
N540 0 00 2 
N540Q003 
N540 0004 
’^^MSOS4.0’i‘’'‘N540 0Q0 5 
N54000Q6 
N5400007 
N5400U06 
N54Q 0 009 
N5400Q10 
N5400011 
N54a0012 
N5400013 
N54Q 0014 
NS40 0015 
N5 40 0 016 
N540QQ17 
N5 40 0 01 6 
N540 0019 
N54Q 0020 
N540 QQ21 
N54Q 0022 
N54G 0 025 
N5 4D 0 0 24 
N54Q0025 
N54Q0026 
N5400027 
N5400Q28 

N5400030 
N54D0O31 

N543 lI 033 
N5400Q3<u 
N5400Q35 


0037 

0038 00F4 
0 OEA 
0 0 02 
0 0 12 
0 033 

0039 0 0 43 
0 0 44 
0 0 22 
0 0 23 
0 027 

0040 fl02C 
0 02F 
G02A 


*EQU» TABLE 

EQU AMONI ($F4) ,AOISPl$EA» ,LPMSK (2 ) , NZ ERO { $12) ,ZR08IT($33) 
EQU FIVE I $43 ), SIX ($44) ,ZERO ($22) , ON EBIT ($23 ) , SIXTEN ($27) 
EQU COMMA ($20 ,SLASH ($2F) ,ASTRIC ($2A ) 


N540 0037 
N54ij 0 03 8 


N540 0 039 


N540 0 0 40 


PRINT 


PAGE 


2 


DATEi 01/27/99 


00^1 


9 0 26 


EQU 

EIGHT (S 26) , NINE ($45 ) , THREE ( 4 ) , ON E ( 3 ) , TWO ( $24 ) 

N5400941 



0 0 45 
0 0 04 
00 03 
0 0 24 






0042 


0 0 46 


EQU 

TEN($46) 


^^msosa.o^-^^nsaqoqhb 

0044 





PARAMETER LOCATION (OFFSET FROM BASE) 

N549 004L 

0045 


0 0 01 


EQU 

HANDLE( 1) 

"HANDLE" 

N5490045 

00 46 


D002 


EQU 

BMSG(2) 

"MSG" ENTRY 

N540 0046 

0047 


0 0 03 


EQU 

S0MM0RC3) 

"SOMHOR" ENTRY 

N549 C Q47 

0048 


00 C4 


EQU 

I0ERR(4) 

"lOERR" ENTRY 

M543 0 048 

0049 


00 05 


EQU 

LISTLU(5) 

LIST OUTPUT "LISTLU" 

N5400 049 

0050 


0 0 06 


EQU 

COHOLU (6) 

"COHOLU" 

N5400G50 

0051 


0 0 07 


EQU 

NEWMLU(7> 

"NEWMLU" NEW MM LU 

N54QQ051 

0052 


0 0 06 


EQU 

PROGl (3 ) 

"PROGl" 

N5 40 0 0 5 2 

0053 


0 0 09 


EQU 

PR0G2 (9) 

"PR0G2" 

N540U 053 

005 4 


00 OA 


EQU 

QITFLG(IO) 

"BITFLG" 

N540 p 0 5 4 

00 5 5 


0 0 08 


EQU 

BUFGNK 11) 

"BUFCNT" 

N5 40 0 0 5 5 

005 6 


00 OC 


EQU 

FIELD (12 ) 

"FIELD" 

N5400056 

0057 


0010 


EQU 

SLASHF ( 16) 

"SLASHF" 

N5 hO 0 0 5 7 

0058 


00 11 


EQU 

BUFEMT (17) 

"BUFEMT" 

N540 0 0 5 6 

0059 


0012 


EQU 

BUFFER(18) 

"BUFFER" 

N5 49 0 0 5 9 

0061 





VARIABLE EQUS 

N54Q0061 

0062 


0 0 07 


EQU 

CHRSLV( 7) 

LEVEL OF THIS PROGRAM 

11 6^ 4 36 

006 4 



if- 


EQUS 

FOR LOGICAL UNITS 

N540 Q 0 6*^ 

005 5 


0 8 PC 


EQU 

COMOUT ( $8FC) 

TYPE OUTPUT LOGICAL UNIT 

N540 0065 

0056 


08FD 


EQU 

C0MLU($ 8F0) 

INPUT COMMENT LOGICAL UNIT 

N540 0066 

0067 


0 8C2 


EQU 

MAS3LU ( S8G2) 

MASS MEMORY LOGICAL UNIT 

N5400067 

0058 


1000 


EQU 

ASMOO($lQuO) 

ASCII MODE OUTPUT 

N54Q0068 

007 0 



if 




N54D 0070 

0071 





¥■ If - p 

ROGRAM START 

N540Qu7l 

0072 



¥ 




N5 40 0072 

007 4 

PO 000 

0 0 0 0 

PRINT 

0 

0 


N540 0 074 

0075 

POOCl 

681C 


STA» 

BASE 

SAVE PARAMETER BUFFER ADDRESS 

N54Q 0 075 

0076 

P0 0 02 

60FF 


STA- 

I 


N5430076 

0077 

P0003 

Cl 06 


LDA- 

COMOLUt I 

GET COMMENT LOGICAL UNIT 

N540Q 077 

007 8 

POO 04 

881A 


ADD^‘ 

MODE 

+ MODE (ASCII) CODE 

N54Q C 078 

0079 

P0005 

680A 


STA^ 

OTLU 


N5 40 0 0 79 

00 8 0 

P0 006 

OFAl 


QLS 

1 

ADJUST INDEX FOR 2 WD ENTRY IN TBL. 

N5400080 

0081 

P0 0 0 7 

CA18 


LOA^ 

HESTBL, Q 

STORE REL. ADDRESS AND LENGTH IN 

N5 40 0 0 81 

008 2 

P00 08 

6809 


STA^ 

ME3P+5 

WRITE REQUEST 

N54G 0082 

00 83 

P0 0 09 

CA17 


LDA^ 

MEST8L-t-l,Q 

N540 0 083 

008 4 

POOGA 

68 06 


STA^ 

MESP+4 


N543 0 084 





PRINT 


PAGE 


3 


date: 01/27/99 


1 



o 

C) 


o 


'D 





o 

o 

o 

o 

o 

o 


0035 

PO OOB 

54F4 



RTJ- 

(AMONI) 

INITIATE MESSAGE 


0086 

POOOC 

0507 


MESP 

ADC 

$50 0 + CH RSLV 



0087 

POOOO 

0 0 07 



ADC 

MESCOM- MESP 



0088 

PO COE 

00 00 



0 

0 



0089 

POOGF 

0 00 0 


OTLU 

NUN 

0 

LOGICAL UNIT (TO 

BO FILLED) 

0090 

PQOlO 

00 00 



ADC 

0,0 




POOH 

0 QGO 







0091 

P0012 

14EA 



JMP- 

(ADISP) 



0092 

P0013 

0 1 68 


MESCOM 

SQP 

MESNOE 

SKIP IF NO I/O ERROR 

0093 

POO 14 

E809 



LOQ^ 

BASE 

EXIT TO "ERROR" 


009 4 

P0015 

C805 



LOA^ 

OFTB 



0095 

P0016 

9805 



SUB» 

OFTBf 1 

CALCULATE "ERROR" 

ADDRESS 

0096 

P0017 

82 02 



ADD- 

3MSG,Q 



0097 

P0018 

0 822 



TRA 

Q 



0098 

PGQ19 

1622 



JMP- 

(ZERO ) , Q 



0100 

POOIA 

7FFF 

X 

OFTB 

ADC 

ERROR 

0. "ERROR" 


0101 
CIO 2 

P0018 

7FFF 

X 


ADC 

MSG 

1. "MSG" 


0103 

POOIC 

1CE3 


MESNOE 

JMP<^ 

(PRINT) 

RETURN TO CALLER 



0105 ^ 

01G6 POOID OOQQ BASE NUN 0 

0107 POOIE 1000 NODE ADC ASMOO 

010 8 ^ 

0109 TABLE OF RELATIVE ADDRESSES (REL. TO START OF 

0110 ^ WRITE REQUEST) AND LENGTHS FOR MSG. SKELETONS 

0111 


0112 

POfllF 

0 0 2D 

MESTBL ADC 

HESO-MESP 

0 

0113 

PQ02G 

0 0 06 

AOC 

LMESO 


0114 

PO 021 

0 033 

ADC 

MESl-MESP 

1 

0115 

P0022 

0 0 07 

ADC 

LMESl 


0116 

P0 02 3 

C0 3A 

AOC 

MES2-MESP 

2 

0117 

P0024 

0 0 08 

ADC 

LMES2 


0118 

P0Q25 

0 0 42 

ADC 

HES3-MESP 

3 

0119 

PO 026 

0 0 Ot? 

AOC 

LMES3 


0120 

PC027 

0 0 47 

AOC 

MES4-MESP 

4 

0121 

P0028 

OOOC 

ADC 

LMES4 


0122 

P0 029 

0 0 53 

ADC 

HES5-MESP 

5 

0123 

P0Q2A 

OOOB 

AOC 

LMES5 


0124 

P0028 

0 0 5E 

AOC 

MES6-MESP 

6 

0125 

P002C 

0 0 01 

ADC 

LMES6 


012 6 

PC02O 

0 Q5F 

ADC 

ME37-MESP 

7 

0127 

PC02E 

00 OB 

ADC 

LMES7 


0128 

PG02F 

0 0 6A 

ADC 

MES8-MESP 

8 

0129 

P0 030 

OOOC 

AOC 

LHE38 


0130 

P0031 

0 0 76 

ADC 

HES9-MESP 

9 

0131 

PG032 

0 0 09 

ADC 

LMES9 


0132 

P0033 

0 0 7F 

AOC 

MESIO-MESP 

10 

0133 

P0Q34 

OOOB 

ADC 

LMESIO 


0134 

PO 035 

0 0 8A 

ADC 

MESll-MESP 

11 

0135 

P0036 

OOOC 

ADC 

LMESll 



o 


N540QQ85 
N543 0 085 
N540Q087 
N5400038 
M5 4-0 0 0 89 
N54Q 0 090 

N5hD 0 091 
N540 0092 
N5430 093 
N540 0 094 
N5 40 0 0 9 5 
N5430096 
N540 0 09 7 
N540 0 098 


N540D1QQ 
N540 0101 
N540 0 10 2 
N54Q0103 

N5400105 
N540 0106 
N540 0 1Q7 
N54D 0108 
N54Q 0 109 
N540 0 110 
N540ulll 
N543ull2 
N540G113 
N540Q llii 
N540011 5 
N5400116 
N5400117 
N540 0 118 
N5430119 
N540012C 
N5400121 
N540D122 
N540 012 3 
N5400124 
N540 012 5 
N54G0126 
N54Q 0 127 
N5400128 
N54Q0129 
N5400 130 
NP4Q0131 
N5400132 
N54Q0133 
N540 013 4 
N3 40 0 13 5 


o 

o 

o 

o 

o 

o 

I 

r\ 

o 

o 

s..-- 

o 

o 

o 

O 



o 

o 

o 

o 

o 

r") 


o 

o 

o 


o 


o 

o 

o 

o 

o 




PRINT 



PAGE 4 date: 01/27/99 

0136 

P0 037 

0 0 96 


ADC 

MES12-MESP 12 

0137 

0133 

PO 038 

GOOD 

* 

ADC 

LMES12 

0139 




MESSAGE SKELETONS 

0140 



>>■ 



0141 

PQ039 

G AGO 

MESO 

NUM 

$A0O 

0142 

P003A 

4445 


ALF 

4, DEBUG IN 


PQD3B 

4255 





PQ03C 

4720 





P003D 

494E 




0143 

PO 03E 

OACD 


NUM 

SAOO 

0144 


0 0 06 


EQU 

LMES0{^-MES0) 

0145 

P003F 

CAOO 

MESl 

NUM 

SAOD 

0146 

P0040 

4445 


ALF 

5, DEBUG OUT 


PQ041 

4255 





PGQ42 

4720 





P0043 

4F55 





P0044 

5420 




0147 

P0045 

OAOD 


NUM 

$Aon 

0148 


3 0 0 7 


EQU 

LMESl (^-MESl) 

0149 

PO 046 

OAOO 

MES2 

NUM 

SAOD 

0150 

P0047 

4442 


ALF 

6,DB I/O ERROR 


PO 048 

20 49 





P0049 

2F4F 





P0 04A 

2 0 45 





P004B 

5252 





PQ04C 

4F52 




0151 

P0Q4D 

OAOD 


NUM 

SAOD 

0152 


0 0 08 


EQU 

LMES2 (»-MES2) 

0153 

P004E 

OAOD 

MES3 

NUM 

$AQO 

0154 

POOhF 

4E45 


ALE 

3, NEXT 


P0G50 

5354 





P0051 

20 20 




015 5 

PO 052 

OAOD 


NUM 

SAOD 

015 6 


0 0 05 


EQU 

LMES3 (=^-MES3) 

0157 

P0053 

OAOD 

HES4 

NUM 

SAOD 

0158 

P0054 

4442 


ALF 

10, OB FORMAT INCORRECT 


P0Q55 

2 0 46 





P0056 

4F52 





PQ057 

4D41 





P0058 

5420 





P0059 

4 9 4E 





P005A 

434F 





P005B 

5252 





P005C 

4543 





P005D 

5420 



SAOD 

0159 

P0 05E 

OA OD 


NUM 

0160 


GOOD 


EQU 

LMES4{’-MES4) 

0161 

P0 05F 

OAOD 

NFS 5 

NUM 

SAOD 

0162 

P0060 

4442 


ALF 

g,D3 INVALID REQUEST 


P0061 

20 49 





PD062 

4E56 





P0063 

41 4C 





P0064 

4944 





N5 4Q013 6 
N5400i37 
N5 hO D136 
N54Q0139 
N540 0 140 
N540 0141 
Np 40 0 142 


N5 40 0 143 
N540 0144 
N5 40 0 1 *+ 5 
N5 400 146 


N54Q 0147 
N54a0148 
N543 0149 
N540 0160 


N540Q151 
N540G152 
N54D 0 16 3 
N540Q154 


N5 43 0 15 5 
N54D0156 
N540015 7 
N540 0 15 8 


N540 0 159 
N540 0 16 0 
N 5 •+ 0 0 1 6 1 
N5400162 


o 

o 

o 

o 


C' 


o 

o 

o 


o 


o 

o 

c 


o 


o 


o 


PRINT 


PAGE 5 


DATE! 01/27/99 


n 

o 

o 

o 

o 

1.3 

O 

o 

(3 

O 

o 

o 

o 

o 

o 

o 


P0065 2052 
PG066 4551 
P0067 5545 
P0068 5354 

0163 P0069 OAOD 

0164 OOOB 

0165 P006A OAOD 

0166 

0167 0001 

0168 PD06B OAOD 

0169 P006G 4442 
F0G6D 20 53 
P006E 4541 
P006F 5243 
P0Q7Q 4820 
P0C71 4649 
P0072 4E49 
P0073 5348 
P0074 4544 

0170 PQ075 QAOO 

0171 uGOB 

0172 P0076 OAOO 

0173 P0077 4442 
P0Q78 204E 
P0079 4F20 
P007A 434F 
P007B 5245 
P0Q7C 2041 
PD07D 5641 
P0Q7E 494C 
PD07F 4142 
P0080 4C45 

0174 POOai OAOD 

0175 flOOC 

0176 PQ082 OAOD 

0177 P0083 4442 
P0084 2049 
P0085 4C4C 
P0Q86 4547 
P0087 414C 
P0088 204C 
P0089 5520 

0178 P0Q8A OAOO 

0179 0009 

0180 P008B OAOD 

0181 PQ08C 4442 
P008D 2049 
P008E 4C4C 
P008F 4547 
P0090 414C 
P0091 204D 
P0092 4D20 
PG093 4144 
P0094 442E 


MES6 

V- 

MES7 


NUM 

EQU 

NUM 

EQU 

NUM 

ALF 


$A0D 

LME35 (’^-HES5) 
$A0D 

LHES6 (^-MES6) 


2 CAROS 


$A0D 

g,D8 SEARCH FINISHED 


deleted 


MES8 


NUM $A0D 

EQU LMES7 (*^-MES7) 

NUM SACO 

ALF 10, OB NO CORE AVAILABLE 


MES9 


NUM $ADD 

EQU LME38 -MES8) 
NUM SADD 

ALF 7, OB ILLEGAL LU 


MESIO 


NUM SAOD 

EQU LHES9 (^-MES9) 

NUM SAOD 

ALF 9,QB ILLEGAL MM ADO. 


N5400163 
N5400164 
N543 0 165 
69^1567 N5400156 

N54Q 0167 
N54Q 016 8 
N5 40 0 15 9 



o 


o 


N540 0 170 
N5400171 
N5400172 
N5400173 


N540 0174 
N540 0 17 5 
N5400176 
N54Q0177 


o 



N540Q178 

N54GD179 

N5400180 

N5400181 


o 

o 



o 



PRINT 


PAGE 6 


DATE: 01/27/99 



N5h0 0 182 
N5400183 
N5 4Q 0184 
N5 40 0 1 8 5 


N540 0186 
N5h00187 
018 8 
N5400189 


N540 0190 
N5400191 


N54D0193 
N54D 0 19^ 
N54Q 0 19 5 
N540 0196 
N54Q 0197 
N54DQ198 


O 

o 

o 

o 

o 

o 

o 

c 

o 

c 

o 

o 

o 

o 


PRINT 


PAGE 
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DATES 01/27/99 






o 

E Q U I V 

A L E N 

C E S 

o 

DEF.LINE 

NAME 

VALUE 

0 QQO 

I 

OOFF 


0 038 

AMONI 

00F4 

o 

0 038 

ADISP 

OGEA 

0038 

LPMSK 

00 0 2 


0 038 

NZERO 

0012 


00 38 

ZROBIT 

0033 


0039 

FIVE 

0043 


0 059 

SIX 

0044 


0 039 

ZERO 

0U22 


0039 

ONEBIT 

0023 


0 039 

SIXTEN 

0027 

'■J 

0040 

COMMA 

002C 


0 0 40 

SLASH 

002F 


0 0 40 

ASTRIC 

002A 


0 041 

EIGHT 

0026 

'■u 

0 041 

NINE 

0045 


0041 

THREE 

000 4 


0 041 

ONE 

000 3 

o 

0 041 

TWO 

0 02 4 

0042 

TEN 

0046 


0 04 5 

HANDLE 

U 00 1 


0 046 

BMSG 

0002 


00h7 

SOMMOR 

G 0 0 3 

o 

0048 

lOERR 

00 0 4 


0 0 49 

LISTLU 

00 0 5 


0 0 50 

COMOLU 

0006 


0 051 

NEWMLU 

0 0 0 7 


GQ52 

PROGl 

0008 


0 0 53 

PR0G2 

00 0 9 


0 0 54 

8ITFLG 

000 A 


0 055 

8UFCNT 

00 OR 


0056 

FIELD 

OOOC 


0057 

SLASHF 

0010 


0 058 

BUFEMT 

0011 

0 

0 059 

BUFFER 

0012 

0 0 62 

CHRSLV 

000 7 


0 065 

COMOUT 

08FC 


0 066 

COMLU 

08FO 


REFERENCED AT LINE NUMBER 

I00Q255) 0076 

(000244) 0085 

(000234) 0C91 

( 000002 ) 

(000018) 

(000051) 

(000067) 

CO 00068) 

(000034) 0098 

(000035) 

(000039) 

(0 00044) 

IQ00047) 

(000042) 

(000038) 

(000069) 

( 0 0 00 04) 

(000003) 

(000036) 

(0 00070) 

(OOQQOl) 

(GOQ002) 0096 

( 0 OODD3) 

(000004) 

( 0 0000 5) 

C 0 00006 ) 0 077 

( OQ0007) 

(000008) 

(000009) 

( 000010 ) 

( 000011 ) 

( 000012 ) 

( 0 00016) 

(000017) 

(000018) 

(000007) 0086 

(002300) 

(002301) 


0 










C) 



PRINT 


PAGE 

8 

date: 01/27/99 




■ O 

n' \ 

0G67 

MASSLU 

08C2 

C 002242) 








0 0 66 

ASMOO 

1000 

(004096) 

0107 





O 

o 

0144 

LMESO 

0 0 0 6 

(000006) 

0 113 





0 148 

LMESl 

00 0 7 

(000007) 

0115 






D 15Z 

LMES2 

0008 

(000008) 

0 117 







015 6 

LMES3 

000 5 

( 000005) 

0119 





^ o 

o 

0 160 

LMES4 

OQOC 

(000012) 

0 121 





0164 

LMES5 

000 B 

(000011) 

0123 







0167 

LNES6 

0001 

(000001) 

0125 







0171 

LMES7 

OOOB 

1 GCQOll) 

0127 






•‘'V 

017 5 

LMES8 

OOOC 

( 0 00012) 

0129 





o 

( ) 

0179 

LMES9 

000 9 

(000009) 

0131 






0183 

LMESIO 

QQOB 

( 000011) 

0133 







018 7 

LMESll 

OOOC 

( 000012) 

0135 





o 

o 

Q191 

LMES12 

OOOD 

(000013) 

0 137 
















o 










^ 0 

o 










o 

o 











0 










c 

o 










o 

o 










o 

o 










o 

o 










o 

o 










o 

T') 










o 




PRI NT 


PAGE 9 


DATE: 

01/27/99 

J 

0 









o 

o 

S Y M E 0 

L S 






o 

DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 


^ o 


0 0 31 
0 08 6 

PRINT 

MESP 

000 0 
oooc 

0 0 31 , 
0 0 82, 

0103 

0084, 

0087, 0112, 

0114, 0116, 0118, 0120, 0122, C124, Q126, 0128, 0130, 0132, 0134, 0136 


Q 

0 0 89 

OTLU 

OOOF 

0 0 79 




: C 

0092 

MESCOM 

0013 

0 037 

0 095 




0 100 

OFTB 

OOIA 

0 094, 





0103 

MESNOE 

OOlC 

0092 






010 6 

BASE 

OOID 

0 0 75 , 

0 093 



■ o 

'J 

010 ? 

MODE 

GOIE 

0 0 78 

0 083 





0112 

MESTBL 

OOIF 

0 0 81 , 





OlLl 

MESO 

0039 

0112, 

0144 





Q1L5 

MESl 

00 3F 

0114, 

0148 



- 

0149 

MFS2 

0046 

0116, 

0152 





0153 

MES3 

D04E 

0 118 , 

0156 





0157 

MES4 

0053 

0120 , 

0 160 





0161 

MES5 

005F 

0122, 

0164 



( ’] 

) 

0165 

MES6 

DO&A 

0124, 

0167 





0168 

MES7 

006B 

0126, 

0171 





0172 

MES8 

007 6 

■ 0128, 

0175 





0176 

MES9 

0082 

0130, 

0179 




o 

0 180 

MESIO 

OG8B 

0 132, 

018 3 





0184 

MES 11 

0096 

0134, 

0187 





0188 

MES12 

00A2 

0136, 

0191 




o 

0194 

SA19 

0 00 1 

0195 




; 0 

0195 

SP19 

00 02 

0196 




o 

0 19 6 

DB19 

OOCO 

0197 




o 

o 









o 








o 

0 








■ o 

o 








o 

o 








o 

o 










PRINT 


PAGE 10 


date: 


X T E R 

N A L S 



DEF.LINE 

name 

VALUE 

REFERENCED AT LINE NUMBER 

0 9.3 4 

MSG 

QOIB 

0 101 

0035 

ERROR 

OOIA 

0100 


01/27/99 



PRI NT 


PAGE 
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DATES 01/27/99 









A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H B 

0 L S 











ADISP 

BUF FER 

FIELD 

LMESll 

LMES9 

MES3 

MESP 

ONEBIT 

SLASHF 

0038 
0059 
0056 
018 7 
017 9 
015 3 
0 08 6 
0 03 9 
0 057 

AHONI 

CHRSLV 

FIVE 

LMES12 

LPMSK 

HESi+ 

H ESTBL 

OTLU 

SOHMOR 

0 038 
0 062 
0 039 
0191 
0 038 
0157 
0112 
0 089 
0 047 

ASMOD 

COMLU 

HANDLE 

LMES2 

MASSLU 

HES5 

MODE 

PRINT 

SP19 

0 068 
0 0 66 
0 0 45 
0152 
0 067 
0161 
0107 
0 031 
0195 

ASTRTC 

COMMA 

I 

LMES3 

MESO 

MES6 

MSG 

PROGl 

TEN 

0040 
0040 
000 0 
0156 
0141 
016 5 
0034 
0052 
0042 

BASE 

COMOLU 

lOERR 

LHES4 

MESl 

MES7 

NEWHLU 

PROG2 

THREE 

010 6. 
0050 
0048 
016 0 
0145 
0168 
0 051 
0053 
0 0 41 

BITFLG 

COM OUT 

LISTLU 

LMES5 

MESie 

MESS 

NINE 

SA19 

TWO 

0054 
0065 
0049 
016 4 
018 0 
0172 
0041 
0194 
0041 

BMSG 

DB19 

LMESO 

LMES6 

MESli 

MES9 

NZERO 

SIX 

ZERO 

0 0 46 
019o 
0144 
0167 
0184 
0176 
00 38 
00 39 
09 39 

BUFGNT, 

EIGHT ■ 

LMESl 

LMES7 

MES12 

MESCOM 

OFTB 

SIXTEN 

ZR08IT 

0055 
0 041 
0148 
0171 
018 8 
0 092 
0100 
0 039 
0038 

BUFEHT 

ERROR 

LMESIO 

LMES8 

MES2 

MESNOE 

ONE 

SLASH 

0 058 
GC35 
C183 
017 5 
0149 
010 3 
C U4l 
0 0 40 


date: 01/27/99 


C.-' 




o 

0 0 0 1 
00 0 2 
0 0 03 

000 4 


GD05 
000 6 
00 0 7 

1 ) 

00 08 

o 

00 09 
0010 
0011 

0 Q 1 2 


0013 

0014 

0015 

0 

0017 

0018 


o 

0020 

o 

00 21 
00 22 

■ \ 

o 

0023 


0024 

o 

o 

002 5 

o 

0027 

0028 

0029 

o 

QQ30 
0031 
00 32 
0 033 

o 

003 4 


GETFLD 


PAGE 


V- 

>/■ 

•V- 

V 

V- 

■¥■ 

* 

V- 

*■ 


NAH GETFLD DECK-ID N55 MSOS 5.0 

MASS STDRAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION^, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

THIS SUBROUTINE l^INDS THE NEXT FIELD THAT IS 
TERMINATED BY A COMMA SLASH OR ASTERISK 
AND PLACES IT IN THE FIELD SUFFER. 

IF THE BUFFER WAS EMPTY BLANKS ARE RETURNED. 
IF THE SLASH FLAG IS SET BLANKS ARE RETURNED 
THE NO. OF CHARACTERS IN THE FIELD ARE 
SPECIFIED IN THE Q-REGISTER. ONLY THE 
SPECIFIED NO. OF CHARACTERS PRECEDING THE 
CONTROL CHARACTER ARE SENT. 

THF CONTROL CHARACTER IS ALSO SENT. 


SUMHARY-11GN55G 0 00 1 
N55QQ002 
N5500U03 
N550 OOOA 
N55 0 0 0 0 5 
N550 0 0 0 6 
N56G0007 
N550 OGOB 
N55D 0 0 09 
N5500ulG 
N550Q011 
N5 5 0 0 012 
N55Q0013 
N55Q 0014 
N 5500015 




ENTRY NAME 

ENT GETFLD 


N5 5 3 G 0 1 7 
N5500018 


0 0F4 
0 OEA 
0 0 02 
0012 
0 033 
GO 43 
0 0 4h 
0 0 22 
0 023 
0 0 27 
0 0 2C 
0 02F 
C02A 
0 0 26 
0 0 45 
3 0 0 ^ 
0 0 03 
0 0 24 
0 0 4b 


'ECU' TABLE N5 5 3 0020 

EQU AMONI (SF4) , AD ISP (SEAT , L?MSK( 2 ) , NZ ERO ($123 ,ZROBIT ($33) N5500a21 

EQU FIVEl$43),SIX ($U4) ,ZERO ($22 ) ,ONEBIT ($23 ) , SI XTEN ($27) N5500022 

EQU COMMA ($20 ,SLASH($2F) ,ASTRIC (S2A) N550Q023 

EQU EIGHT ($26) , NINE ($45 )» THREE (41 ,0NE(3) , TW0($24) N5500024 

EQU TEN($46) ■’^■^MS0S4. G ’^'’"N55Q li 025 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
0 0 06 
00 07 


PARAMETER LOCATION (OFFSET FROM BASE) 
EQU HANDLE(l) "HANDLE" 

EQU MSG (2) "MSG" ENTRY 

EQU S0MH0R(3) "SOMHOR" ENTRY 

EQU I0ERR(4) "lOERR" ENTRY 

EQU LISTLU(5) LIST OUTPUT — "LISTLU" 

EQU C0M0LU(6) "COMOLU” 

EQU NEWMLU(7) "NEHHLU" NEW MM LU 


N3500027 
N550002B 
N55G0Q2? 
N 55 0 fl 0 3 u 
N55u 0 031 
NpBQG 332 
N5500033 
N550 Q03i+ 


O 

c 

o 


o 

o 


o 

L..' 

o 

o 


o 


c 


o 


o 




GETFLD 



PAGE 2 

0 0 3 5 


0 0 08 


ECU 

PROGl (8) 

00 3 6 


0 0 09 


EQU 

PR0G2 (9 ) 

0 0 3 7 


00 OA 


EQU 

BITFLG( 101 

0038 


Q 0 OB 


EDU 

BUFCNT (11) 

0039 


OOOC 


EQU 

FIELD(12) 

0040 


00 10 


EQU 

SLASHF116) 

00 4't 


00 11 


EQU 

BUFEMT(17) 

00 42 


0012 


EQU 

BUFFER(18) 

0044 






0045 



¥ ¥• 



004 6 



if- 



00 4 8 

POOOQ 

0 0 0 0 

GETFLD 

0 

0 

0049 

POOOi 

6871 


STA^ 

BASE 

0050 

P0002 

60FF 


STA- 

I 

0051 

P0003 

8112 


Aon- 

8UF PER , I 

00 5 2 

P0Q04 

6821 


STA^ 

INBUF 

0 0 5 4 

P00Q5 

486E 


STQ^ 

NOCHAR 

0055 

P00D6 

CG 00 


LDA 

= A00 


PO 007 

3030 




0056 

P0 008 

OC03 


ENQ 

3 

0057 

P0009 

630C 

GET 001 

STA- 

FIELD, B 

0058 

POOQA 

ODFE 


INQ 

-1 

0059 

PQOOB 

0141 


SQZ 

GETOO 2-~-“l 

0 0 5 0 

POOOC 

18FC 


JMP^ 

G ET G 0 1 

0Q61 

poaoD 

Clio 

GET 00 2 

LOA- 

SLASHF, I 

0062 

PO OOE 

0104 


SAZ 

GET 003“^'-1 

0063 

POOOF 

CO 0 0 


LDA 

= A , 


POOlO 

20 2C 




006 4 

POOH 

610C 


ST A- 

FIELD , I 

006 5 

PD012 

ICED 

GET XI T 

JMP» 

(GETFLD ) 

0066 

P0013 

Clll 

GETOO 3 

LOA- 

8UFEMT , I 

0067 

P0014 

01 03 


SAZ 

GET 0 Q 4-^-1 

0068 

PQQ15 

0 AOG 


ENA 

0 

0069 

P0016 

610C 


STA- 

FIELD , I 

007 0 

P0017 

18FA 


JMP^ 

GETXIT 

0071 

P0018 

OA 03 

GETGG 4 

ENA 

3 

0072 

P0019 

685D 


STA-»- 

F I EL D X 

0073 

POOIA 

OAQQ 


ENA 

0 

0074 

POOIB 

68 59 


STA^ 

GETCHC 

007 5 

POOiC 

ClOB 


LOA- 

BUFCNT, I 

007 6 

POOlO 

FI OA 


LDQ- 

BITFLG, I 

QQ 77 

PO OlE 

60FF 


STA- 

I 

0078 

POOIF 

685C 


STA^ 

TEMP+1 

0079 

P0 020 

01 45 

GETOO 5 

SQZ 

GET00 6-^-l 

0080 

P0021 

0 8 42 


CLR 

Q 

0081 

P0022 

DOFF 


RAO- 

I 

0082 

PC023 

D858 


RAO’^ 

TEMP+1 

003 3 

P0024 

1803 


JMP«^ 

GETQ07 


OATEJ 01/27/99 


■■PROGl“ 

••PR0G2" 

"BITFLG" 

"BUFCNT” 

••FIELD" 

"SLASHF" 

••BUFEMT'* 

"BUFFER" 


PROGRAM START 




(RETURN ) 

SAVE PARAMETER BUFFER ADDRESS 
GALCULATE BUFFER ADDRESS 


SAVE NO. OF CHARACTERS 
BACKGROUND WITH ZEROS 

WITH BLANKS 


IS SLASH FLAG SET 
YES, SET CONTROL CHARACTER 
TO COMMA 

RETURN TO CALLER 
IS BUFFER EMPTY 

SET TO NO CONTROL CHAR, 


SET FIELD INDEX TO 3 

INITIALIZE NO, OF CHAR. IN FIELD COUNTER 

GET BUFFER COUNTER 
IS NEXT CHAR. IN HI BITS 


YES, CHANGE TO LO 
BUMP BUFFER INDEX 


N553 0035 
N550 D036 
N550 0 037 
M55D0038 
N550 0 039 
N5500040 
NSSOOOti 
N5500Q42 


N5 50 Q 0 4 4 
N55D0045 
N5 5 0 0 0 46 


N 5 5 0 0 0 4 8 
N550 0 049 
N550 0060 
N55 0 0 05 1 
N55Q0052 

N5500Q54 
N55Q 0 055 

N5SQ 0 0 5 6 
N550 0 0 57 
N55G 0 058 
N553 0 05 9 
N55Q0060 
N5500Q51 
N55G 0062 
N5500 063 


N5 5u 0 0 6 h 
N 5500Q55 
N550 0 066 
N5500067 
N550Q 068 
N55Q 0069 
N550 0070 
N5500071 
N550Q 072 
N3500073 
N550 0074 
N55 0 0 0 7 p 
N550 0076 
N550007F 
N550 0 078 
N550 0079 
N550 0080 
N5500081 
N550 0032 
N5500083 


GETFLD 


PAGE 


3 


date: Dl/27/99 


00 8 4 
00 8 5 

P0025 

0 0 00 

¥ 

INBUF 

NUM 

0 

0 08 6 
0087 

PO 026 

OC 01 

GET 006 

END 

1 

00 88 

P0027 

COED 

GET&07 

LDA^ 

(INBUF) ,I 

00 89 

PQ028 

0151 


SQN 

GETQG8-^-l 

009 0 

P0D29 

OF 48 


ARS 

8 

0091 

P002A 

AO OA 

GET 008 

AND- 

LPMSK+8 

0092 

P0 02B 

684A 


STA^ 

T1 

0Q93 

P002C 

BO OA 


EOR- 

LPMSK+8 

0094 

Pfl02D 

0109 


SAZ 

GETCCH-+-1 

009 5 

P0 02E 

C8 47 


LDA--*^ 

T 1 

00 96 

P002F 

B848 


EOR^ 

COM MAC 

0097 

P0030 

0 106 


SAZ 

GETCCH-^-1 

0098 

PC031 

BO 44 


EOP- 

SIX 

0099 

P0O32 

0104 


5 AZ 

GETCCH-+-1 

0100 

PQ03S 

BO 43 


EOR- 

FIVE 

0101 

PD034 

0102 


SAZ 

GETCCH-’^-l 

010 2 

P0035 

083F 


RAQ^ 

GETCHC 

0103 

P0036 

18E9 


JMP* 

GET005 

010 4 
010 5 

P00 37 

C 8 3E 

>(■ 

GETCGH 

LDA» 

PUT CO.NTRO 
T1 

0106 

PQ038 

68 42 

IGOTFD 

STA» 

TEMP 

0107 

P0039 

C839 


LDA^ 

BASE 

0108 

P003A 

60FF 


STA- 

I 

0109 

POO 3B 

G840 


LOA-> 

TEMP+1 

0110 

PQ03C 

610B 


STA- 

BUFCNT, I 

0111 

P003D 

C83D 


LDA^- 

TEMP 

0112 

P 003E 

61 OC 


STA- 

FIELD, I 

0113 

P0 0 3F 

410A 


STQ- 

BITFLG, I 

0114 

P00 40 

4335 


STQ^ 

T1 

0115 

PQ041 

C833 


LDA^ 

GETCHC 

0116 

P0042 

9 831 


SUB» 

NOCHAR 

0117 

P0043 

0124 


SAP 

GETOlO-^-1 

0118 

P0044 

C83D 


LDA^ 

GETCHC 

0119 

PQ045 

682E 


STA^ 

NOCHAR 

0120 

PO 046 

0111 


SAN 

GETOlD-'^-l 

0121 

P0047 

1821 


JMP^ 

GETIO 3 

0122 

P0048 

C833 

GET 010 

LOA^ 

TEMP+1 

0123 

P0049 

Q9FE 


INA 

-1 

0124 

P0 0 4A 

60FF 


STA- 

I 

012 5 

P0048 

6830 


STA» 

TEMP+1 

0126 

P004C 

0145 


SQZ 

GETIO 0-+-1 

0127 

P0C4D 

QCOl 


ENQ 

1 

0128 

PO 0‘.E 

CFD6 


LOA^ 

(INBUF) , B 

0129 

P00 4F 

EDD5 


LOQ^ 

(INBUF) ,I 

0130 

PO 0 50 

0F68 


LRS 

3 

0131 

P0051 

1302 


JMP^ 

GET 101 

0132 

P0G52 

CDD2 

GETIO 0 

LDA^ 

(INBUF) ,I 

0133 

P0053 

E81F 

GETlOl 

LDQ^ 

BASE 

013 4 

P0054 

40FF 


STQ- 

I 

0135 

P0055 

E31E 


LDQ^ 

NOCHAR 

0136 

P0Q56 

0 DEE 


INQ 

-1 


•’BUFFER" ADDRESS (TO BE FILLED) 

NO, CHANGE TO HI 
GET WORD 

POSITION TO LOW BITS 
(SAVE IT) 

IS IT END OF TEXT($FF) 


IS IT COMMA 
IS IT ASTERISK 
IS IT SLASH 

TALLY NO. OF CHAR. IN FIELD COUNTER 
NOT A CONTROL CHAR. 

CHARACTER IN FIELD 
GET CONTROL CHARACTER 
SAVE CONTROL CHAR. 

RESTORE PARAMETER ADDRESS 

SAVE WORD COUNT IN BUFFER 

SAVE WORD COUNT IN BUFFER 

IS ACTUAL NO. OF CHAR. IN FIELD 
LESS THAN NO, OF CHAR. DESIRED 
SKIP NO 

SET DESIRED =ACTUAL 

SKIP IF FIELD NOT BLANK 

RESTORE WORD COUNT 
DECREASE BUFFER COUNT BY 1 
AND SAVE 

SKIP IF CONTROL CHAR. IN HI BITS 


GET WORD FROM BUFFER 


GET WORD FROM BUFFER 

RESTORE PARAMETER BUFFER ADDRESS 

DECREASE NO. OF CHAR. BY 1 


N55Q 008R 
N550D085 
NB^D 0086 
N55QQ087 
N5500088 
N550 0089 
N550 0 090 
M550 0091 
N55 00092 
M5500093 
N55u 0 09A 
N5500 G95 
N55Q0096 
N550 0 097 
N550 0 098 
N550 0 099 
N55 0 0 iu C 
N55001Q1 
N5500i02 
N550G103 
N550 0 10 A 
N5500105 
N550C106 
N550 010 7 
N550010S 
N550ei09 
N55Q 0110 
N550Ci111 
N5500112 
N-55Q0113 
N5 5 0 0 11 H 
N55jgil5 
N5 5 3 u 11 6 
N55 J 0117 
N550 9 118 
N950Q119 
N55Q 0 120 
N55Q0121 
N5ED0122 
N550 0123 
N5590124 
N550Q129 
N5500126 
N553 0 127 
N5530128 
N5500129 
N5500130 
N553 0131 
N?5QQ132 
N55i3 0133 
N550 0 134 
N5500135 
N55 3 0 13 b 


GETFLD 


date; 01/27/99 


0137 P00&7 i*81C STQ^ 

0138 P0 058 0 1 55 SQN 

0139 P0059 AQ OA AND- 

0140 PD05A B31F EOR» 

0141 P005B E81B LDQ^ 

0142 P005C 630C STA- 

0143 P005D 180B JMP^ 

0144 PQ05E E818 GET 102 LDQ» 

0145 P005F 630C STA- 

0146 P0060 DOFE INQ 

0147 P0061 4815 STO^ 

0148 P0062 call LDA^ 

0149 P0063 09FE INA 

0150 P0064 680F STA* 

0151 P0Q65 0102 SAZ 

0152 P0066 E80F LDQ^ 

0153 P0067 18E0 JMP^ 

0154 P0068 CIOC GET103 LOA- 

0155 P0069 BOOA EOR- 

0156 P006A 0802 SET 

0157 P006B 0111 SAN 

0158 P006C 4111 STQ- 

0159 P006D CIOC GET104 LDA- 

0160 P006E B80A EOR» 

0151 P0D6F 0111 SAN 

0162 P0070 4110 STQ- 

0163 PDQ71 18AO GET105 JMP'=^ 


NOCHAR 
GET102-^-l 
LPHSK+8 
TTHOUS 
FIELDX 
FIELD 
GET103 
FIELDX 
FIELD, B 
-1 

FIELDX 

NOCHAR 

-1 

NOCHAR 

GET103-»-l 

T1 

GET 01 0 
FIELD, I 
LPMSK + 8 
Q 

GET104-»-1 
8UFEMT, I 
FIELD, I 
SLASHC 
GETIO 5-^-1 
SLASHF, I 
GETXIT 


SKIP IF NOT DONE 
OR IN BLANK TO HI BITS 
HEX 3G00 

STORE IN FIELD WORD 
STORE IN FIELD WORD 
DECREASE FIELD INDEX BY 1 
DECREASE NO. OF CHAR. BY 2 


SKIP IF FILD COMPLETE 
RESTORE CHAR. POSITION 
GO TO GET ANOTHER CHAR. 

IS IT $FF CONTROL CHAR. 
(EOT ) 

SET BUFFER EMPTY 
SKIP IF EOT CHAR, 

IS IT SLASH CONTROL CHAR. 


RETURN TO CALLER 



016 5 




♦ 

NUM 


0166 

P0072 

0 0 00 


BASE 

o 

016 7 

POO 73 

0 0 0 0 


NOCHAR 

0 

0168 

PO 074 

0 0 0 0 


GETCHC 

0 


0169 

P0075 

0 0 00 


T1 

0 


0170 

P007& 

0 0 00 


FIELDX 

0 

© 

0171 

P0077 

0 02C 


COMHAC 

NUM 

0172 

P0Q78 

0Q2F 


SLASHC 

NUM 


0173 

P0079 

300D 


TTHOUS 

NUM 


0174 

PC07A 

0 0 00 


TEMP 

NUM 

o 


P007B 

0 0 00 




0 

017 6 
017 7 


0 0 01 

P 


ECU 

o 

017 8 


00 02 

P 


EQU 

0179 


OOCO 

P 


ECU 


018 0 

P007C 

QQhk 



BSS 


0181 





END 

o 








PGM = 

OOCO 

{ 

192) COM = 


$3000 

0,0 


NO. OF CHARACTERS _ 

NO. OF CHAR . IN FltiLD COUNTER 

TEMPORARY STORAGE 

FIELD WORD INDEX 

ASCII FOR COMMA 

ASCII FOR SLASH 


0) DAT = 0000 ( 


o 


o 


N5500137 
N550 0138 
N55C 0139 
N550Q140 
N553Q141 
N55DQ142 
N550G143 
N55 0 0 144 
N55Q 0145 
N55DG146 
N550 0147 
N550 0148 
N55Q0149 
N550 015 0 
N550 0151 
N550 0152 
N550 0 153 
N5 5 3 0 15 4 
N5 5 0 0 15 5 
N553 0 15 6 
N5 50 0 1 5 7 
N55Q 0158 
N5 5 0 Q 15 9 
N5 50 0 lo 0 
N550fll6i 
N5 5 u 0 1 6 2 
N5500163 

N5530165 
N 5 500156 
N5500167 
N55Q 0 168 
N5500169 
N550C170 
N5500171 
N5 5 0 0 17 2 
N5 5 0 0 17 3 
N55D0174 


O 

O 

O 

O 

o 

o 

o 

o 

Q 

c> 

o 


N5500176 
N5500177 
N550 0178 
N55G0179 
N550C 180 
N5500181 


O 

O 

O 


O 


GETFLD 


PAGE 


5 


date: 01/27/99 



o 

; o 

' O 

o 

/' \ 

• o 
o 
o 

: O 
o 

015%, 0159 

, O 

' o 
o 
o 

o 


GFTFLD 


PAGE 


6 


date: 01/27/99 


! \ 

s..." 


SYMBOLS 


DEF. LINE 

NAME 

address 

REFERENCED AT 

LINE 

NUMBER 



0 018 

GETFLD 

00 0 0 

0018, 

0 0 6 5 





0 0 57 

GETOGl 

00 09 

0060 






0 0 61 

GET 002 

GOOD 

0 0 59 






0 06 5 

GETXIT 

0012 

0070, 

0163 





0 0 66 

GET 003 

C013 

0 0 62 






0 0 71 

GETC04 

0018 

0 067 






0 0 79 

GET0Q5 

002 0 

0 103 






0 0 85 

INBUF 

0025 

0 0 52 , 

0088, 

0128, 

0129, 

0132 


0 0 87 

GETC06 

002 6 

0 G 79 






0 088 

GET 007 

0027 

0 0 83 






0 091 

GET 008 

0 02A 

0 0 89 






010 5 

GETCCH 

0037 

0094, 

0097, 

0099, 

0101 



0106 

IGOTFD 

0038 







0122 

GETOlO 

0048 

0 117 , 

0 12 0, 

0 153 




0 132 

GETlOa 

00 52 

0126 






0133 

GETlOl 

0053 

0 131 






0 1 A4 

GET102 

005 E 

0138 






0 154 

GET103 

00 68 

0121, 

0143, 

0151 




0159 

GETIQ 4 

0Q6D 

0157 






0163 

GET105 

00 71 

0161 






0166 

BASE 

00 72 

0 0 49 , 

0 107, 

0133 




016 7 

NOCHAR 

00 73 

0 0 54, 

0 116, 

0119, 

0135, 

0137 , 

0 148, 

0168 

GETCHC 

G074 

0 0 74 , 

0102, 

0115, 

0118 



0 169 

T1 

0075 

0 092 , 

0095, 

010 5, 

0114, 

0152 


0 170 

FIELDX 

00 76 

0 0 72, 

0141, 

014h, 

0147 



0 171 

COMMAC 

0077 

0 096 






0172 

SLASHC 

0 078 

0160 






0173 

TTHOUS 

0079 

0 140 






0 174 

TEMP 

0 0 7A 

0078, 

0082, 

0106, 

0109, 

0111, 

0122, 

0177 

SA2C 

00 0 1 

0178 






0178 

SP20 

0 0 0 2 

0179 






0 179 

DB2Q 

ooco 

0180 







o 

■ o 
o 

: O 
O 

■ o 
o 
c 

0150 

O 

O 

0125 

; O 

; O 
O 

o 


o 


GFTFLO 


PAGE 


7 


DATE: 01/27/99 



o 

AOISP 

0021 

AMONI 


GOMMAC 

0171 

COMOLU 


GET 003 

0G56 

GET0G4 

o 

GET 1C 2 

0144 

GET103 

I 

0000 

IGOTFD 


NOCHAR 

0167 

NZERO 


SLASH 

0023 

SLASHC 

o 

TTHOUS 

0173 

TWO 

C' 

0 




o 




o 





0 021 


0 033 


0 071 
0 154 
0106 
0021 


0172 


0 0 24 


SORT 

0 F 

S Y 8 

0 L S 



ASTRIC 

0 023 

BASE 

016 6 

BITFLG 

003 7 

DB20 

0179 

EIGHT 

002-+ 

FIELD 

0Q39 

GET0G5 

0 0 79 

GET0Q6 

00 87 

GET007 

0G88 

GETIO 4 

0159 

GET105 

0163 

GETCCH 

010 5 

INBUF 

0 085 

lOEPR 

0031 

LISTLU 

0032 

ONE 

0 0 24 

ONEBIT 

0022 

PROGl 

003 5 

SLASHF 

0 0 40 

SOMHOR 

0Q30 

SP20 

017 8 

ZERO 

0 0 22 

ZRORIT 

0021 




o 

o 


{ ^ 


o 

o 


o 


BUFCNT 

0038 

BUFEHT 

0041 

FIELOX 

0 17 0 

FIVE 

0022 

GET008 

0091 

GETOlO 

0122 

GETCHC 

0168 

GETFLD 

0018 

LPMSK 

0021 

MSG 

0029 

PR0G2 

003 6 

SA20 

0177 

T1 

0169 

TEMP 

0174 


BUFFER 0042 COMMA 0023 
GETOOl 0057 GET002 0061 
GET 100 0132 GETICI 0133 

GETXIT 0065 HANDLE 0028 
NEWMLU 0034 NINE 0024 
SIX 0022 SIXTEN 0022 

ten 0025 THREE 0D24 


i" ' ■ 

o 

o 

o 

o 

o 

0 

1 t 

o 

Q 

o 

o 

o 

o 

o 

o 


o 


ASHX 


PAGE 


DATE! 01/27/99 


QOOi 
00 0 2 
00 03 
000 i* 
00 0 5 
00 0 6 
000 7 
00 08 
00 0 9 
0010 


* 

* 

«■ 

¥ 

V 

4 - 


MAM ASHX DECK-ID M56 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-110N560 0LiCl 
N560 0002 
N56000D3 
N5 60 0 0 0 A 
N56000G5 


ASCII TO HEX CONVERSION VALUE OF CHARACTERS IN FIELD 
ARE STORED IN WORD FOLLOWING RTJ TO ASCHEX. CONTROL IS 
RETURNED TO SECOND WORD AFTER RTJ. (NUMBERIC CONVERSIONS) 
ANY NON HEX CHARACTER CAUSES PROGRAM TO CLEAR OUT VALUE 
SO FAR ACCUMULATE IN CELL FOLLOWING RTJ AND CONTINUE. 


N5600006 
N560 0 007 
N560Q008 
N5600009 
N560C01C 


0012 

0013 


ENTRY NAME 

ENT ASCHEX 


N5600012 
N5 50 0 013 


0015 

0016 

0017 

0018 
0019 

00 20 


0 0 F4 
0 0 EA 
0 0 02 
0012 
0 033 
0 0 43 
0 0 44 
0 0 22 
0 0 23 
0 0 27 
0G2C 
002F 
0 0 2A 
0 0 26 
QO 45 
0 0 04 
0 0 03 
0 024 
0 0 46 


EQU 


'EQU' TABLE ^ 

AMONI 13F4) ,A'OISP{$EA) ,LPMSK( 2) , MZERO { $12) ,ZR0BIT{$33) 


N560 0 015 
N5600016 


EQU FlVEt$4 3),SIX (S44) , ZERO C$2 2 ), ON EBIT { $23 ) ,SIXTEN($27) 


N560 0 01 7 


EQU COMMA C$2C) ,SLASH($2F) , ASTRIC ($2A) 

EQU EIGHT (S 26) , N I NE C$45 ) , THREE (4) ,0NE C3) , TWO C $24) 


N5bu 0 018 
N560 0 019 


EQU TEN ($46) 


^♦MSOS4.0'^'^N560 0 020 


0022 


0023 

aool 

002 4 

00 02 

00 25 

0 0 03 

00 2 6 

0 0 04 

0027 

0 0 05 

002 8 

0 0 06 

0029 

0 0 07 

003 0 

0 0 08 

0031 

0 0 09 

003 2 

OOOA 

0033 

OODB 

003 4 

flOOC 


EQU HANDLE(l) 
EQU MSG (2) 

EQU SOMMORC3) 
EQU I0ERRC4) 
EQU LISTLUC5') 
EQU G0M0LUC6) 
EQU NEWMLUC7) 
EQU PROGK3) 
EQU PROG2C9) 
EQU 3ITFLGC10) 
EQU BUFCNTCll) 
EQU FIEL0(12) 


PARAMETER LOCATION (OFFSET FROM BASE) 


'HANDLE 
••MSG" ENTRY 
••SOMHOR" ENTRY 
"lOERR” ENTRY 
LIST OUTPUT -- 
"COMOLU 
"NEWMLU 
"PROGl" 

"PR0G2" 

"BITFLG 
••BUFCNT 
"FIELD" 


■LISTLU* 


NEW MM LU 


N5600022 
N560il023 
N560Q024 
N5600025 
N563 0 026 
N5600027 
N560 0 028 
N56 j 0 029 
N563 0 030 
N5600031 
N5600Q32 
N56QD 033 
N5630034 


C") 


o 

o 

00 3 5 
003 6 
00 3 7 


<'J 

0C39 

0340 


0041 



0043 

PGOOO 


0044 

POOOl 


0045 

P00G2 


0046 

PD003 


0 0 47 

PO 0 0 4 

0043 

POO 05 


0049 

P00Q6 


005 0 

PQ007 


0051 

P G 0 0 8 


00 52 

P0 009 


00 5 3 

POOOA 


0054 

POOOB 


005 5 

POOOC 

u 

00 56 

POOOD 


0057 

POOOE 


0058 

POOOF 

o 

0059 

POQIO 

0060 

POOli 


0061 

P0012 


00 62 

P0Q13 

O 

0063 

P0Q14 

0 0 6 4 

P0015 


0065 

P0016 


00 6 6 

P0017 

O 

00 67 

PO 018 

0068 

P0019 


0069 

POOIA 


00 7 0 

P0018 

O 

0071 

POOIC 

0072 

POOlO 


00 7 3 

POOIE 


00 7 4 

POOIF 


0075 

P0020 


0076 

P0021 


00 77 

P0G22 


0078 

P0023 


0079 

P0G24 

u 

008 0 

P0025 


00 81 

P0026 


0082 

P0027 

O 

0083 

P0028 

0084 

P;G029 


0 0 3 5 

P002A 


o 


ASHX 


0010 
00 11 
0012 

V- 

V. If. 
‘r 

0 0 00 
60FF 
C102 
682E 
6842 
4CFA 
482C 
482C 

ASCHEX 

CiOE 

NXOIGl 

01 51 
OF 48 

NEXOIG 

A009 

09CF 

0130 

0822 

09F5 

012C 

LFGSET 

CCEE 
0FC4 
0 8 74 

ASCALC 

6CEB 
C81E 
E81C 
OlOE 
01 4D 
D3E6 
1CE5 

ASCUP 

0C04 

1C15 

ASCCLR 

09F8 
0 121 
18FB 

CHKALF 

S 822 
09F9 
0131 
18F7 

ALF OK 

ODOA 

18EB 

ALFOKl 

0145 
O80C 
0 8 42 
4809 

WORONE 

ClOF 

WORTWO 


PAGE 2 


EQU SLASHFC16) 
EQU BUFEMT(17) 
EQU BUFFERdS) 


NUM 

if JMMf «■ 

0 

STA- 

I 

LDA- 

MSG, I 

STA^ 

EXTMSG 

CLR 

Q 

STQ^ 

(ASCHEX ) 

STQ» 

LOWFLG 

STQ» 

PASCTR 

LOA- 

FIELD + 2 , 1 

SQN 

LFGSET-^-l 

ARS 

8 

AND- 

LPHSK+7 

INA 

-$3 0 

SAM 

ASCCLR-^-1 

TRA 

Q 

INA 

-S3A+$30 

SAP 

CHKALF-^-1 

LDA^ 

(ASCHEX ) 

ALS 

4 

EAQ 

A 

STA^ 

(ASCHEX) 

LDA^ 

PASCTR 

LOQ^ 

LOWFLG 

SAZ 

WORONE- ^-1 

SQZ 

WORONE-^-1 

RAO’^ 

ASCHEX 

JMP» 

(ASCHEX) 

ENQ 

4 

JMP» 

(EXTMSG ) 

INA 

-S41+S3A 

SAP 

ALFOK-«^-l 

JMP» 

ASCCLR 

TRA 

Q 

INA 

-$4f+$41 

SAM 

ALFOKl-^-1 

JMP» 

ASCCLR 

INQ 

10 

JHP» 

ASCALC 

SQZ 

ASCHI-^-1 

RAO» 

PASCTR 

CLR 

Q 

STQ’f- 

LOWFLG 

LDA- 

FIELO+3 ,I 


date: 01/27/99 


"SLASHF" 

"OUFEHT" 

"BUFFER" 


ROGRAf-l START 


FETCH "MSG" ADDRESS 


INITIALIZE 


GET "FIELD+2" 
CHECK BIT FLAG 


START OF NUMBERS 
ILLEGAL-CLEAR yALUE 

END OF ASCII NOS. 

SEE IF ALF HEX NUMBER 


UPDATE IN (ASCHEX) 


CHECK WORD 

SECOND WORD-CHECK BITS 
DONE EXIT 


ASSII ALF NOS. 


GET TO TRUE VALUE 

DO NEXT DIGIT 
ON TO WORD 2 




N5600035 
N560 tj 036 
N5b0 0 037 


N5600Q39 
N553 0 OAC 
N56C 0041 


N560 0 0 43 
Np60 0 04 4 
N5 60 0 04 6 
N56Q 0 046 
N560 0 047 
N560 0046 
N5 60 0 049 
N560 0 05 0 
N560 0 051 
M56Q 0 052 
N56D0Q53 
N5600054 
N56 0 0 05 5 
N 5600056 
N560 0057 
N560 005 8 
N5600059 
Np 60 0 06 0 
N560 0 0 61 
N5600Q62 
N56Q0063 
N5fa0 0 064 
M 5 6 0 0 0 6 5 
N563 0 066 
N5600067 
N5 60 0 06 8 
N5 bC u 0 69 
N560 0G7Q 
N560G071 
N56 o 0 072 
N5600073 
N56G007H 
N56Q0075 
N56000 7b 
N5600077 
N560 0 078 
N56D0Q79 
N5 63 0 0 80 
N56D 0 0 81 
N5600082 
N56CQ083 
N56Q 0 0 8 4 
N56U0085 


o 

o 

o 

o 

C) 

o 

(”) 

o 

o 

o 

o 

o 


o 


o 


o 



o 


ASHX PAGE 3 


("1 



0 0 8 6 

PO 02B 

18DD 


JMP- 

nexoig 


00 8 7 

P002C 

OCOl 

aschi 

ENQ 

1 

o 

0088 

P002D 

4805 


STQ-'*‘ 

LOWFLG 

008 9 

P0 02E 

01 Q1 


saz 

WDOME- 


009 0 
0091 

PQ02F 

P0030 

18FA 

1807 

WDONE 

JMP'-^ 

JMP’^ 

WORTWO 

NXDIGl 

o 

0093 

0099 

P0 031 

0 0 0 0 

EXTH5G 

NUN 

0 


date: ul/27/99 


009 6 

0097 P0032 0000 

0098 P0033 0000 

0099 PQ03i* 00 05 


LOWFLG NUM 
PASCTR NUM 
BZS 



O 

o 


.'•"N 


N 560 0086 
N560 0 087 
N560 0 088 
N5600089 
N5b0 0 0 90 
N? 6 0 0 0 91 

N5600093 

N5o0Q09h 


N560 0 096 
N56G 0 097 
N56Q 0 098 
^N560 0 099 


O 

O 

O 

O 

o 


N56001D1 
N560Gi02 
N560Q103 
N56G OIOh 
N 5b00i05 
N 5 6 0 0 i 0 6 



o 



o 

o 

o 

o 


- - 

- 



— 

— - - - - 















ASHX 


PAGE 4 

DATE; 01/27/99 

o 

o 








o 

E Q U I V 

A L E N 

C E S 




^ o 


DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

; O 


0 000 

I 

OOFF 

(000255) 

0 044 




0016 

AMONI 

00F4 

1000244) 



O 


0 016 

ADISP 

OOEA 

( 000234) 



o 

0 016 

LPMSK 

00 0 2 

(000002) 

0 9 r>4 




0016 

NZEPO 

0012 

(000018) 





0 016 

ZROBIT 

0033 

(000051) 



■ o 


0017 

FIVE 

0043 

(000067) 



o 

0017 

SIX 

0044 

(000068) 





0017 

ZERO 

0 0 22 

(000034) 





0017 

ONEBIT 

0023 

(000035) 



o 


0017 

SIXTEN 

0027 

(000039) 



o 

0018 

COMMA 

002C 

(000044) 





Q 018 

SLASH 

002F 

(00Q047) 





0018 

ASTRIC 

002A 

(000042) 



■ o 


0019 

EIGHT 

0026 

( 000038) 



'■J 

0019 

NINE 

0045 

(000069) 





0019 

THREE 

000 4 

(000004) 





0 019 

ONE 

0003 

(000003) 



■ c' 


0 019 

TWO 

0024 

{ 000036) 



Q 

0 020 

TEN 

0046 

(000070) 





0 023 

HANDLE 

0001 

(OOOCOl) 



, 


0 02 4 

MSG 

G002 

(000002) 

0 045 


■ o 


0 0 2 5 

SOMHOR 

0D03 

C Q 0GOQ3) 




0 026 

lOERR 

000 4 

( 00000 4) 





0 027 

LISTLU 

000 5 

(000005) 





0028 

COMOLU 

00 06 

(008006) 



. © 

/l*N 

0 0 29 

NEWMLU 

000 7 

( 0OAOO7) 



dy 

0030 

PROGl 

000 8 

(000008) 





0031 

PR0G2 

000 9 

C000009) 





0 0 32 

BITFLG 

OOOA 

(000010) 



- 0 


0 033 

BUFCNT 

OGOB 

(000011) 



''w 

0 034 

FIELD 

oooc 

(000012) 

0Q51» 0085 




0 035 

SLASHF 

0010 

( 000016) 





0 036 

8UFEMT 

0011 

(000017) 




o 

0037 

BUFFER 

0012 

( 00QQ18) 



■ o 

o 







■ o 

o 







; O 

o 







_ o 









o 







Lx- 



ASHX 


PAGE 5 


DATE; 

01/27/99 

y M B 0 

L S 






DEF.LINE 

NAME 

address 

REFERENCED AT 

LINE NUMBER 


0013 

ASCHEX 

00 0 0 

0 0 13 , 

0 048, 

0060, 0063, 

0063, 0069 

0 051 

NXDIGl 

00 0 8 

0 0 91 




0052 

NEXDIG 

0009 

0 086 




0 05 4 

LFGSET 

OOOB 

3 0 52 




0 060 

ASCALC 

0011 

0 0 80 




0063 

ASCUP 

0014 





0 070 

ASCCLR 

OOIB 

0 0 56 , 

0 074 , 

0 078 


0 0 72 

GHKALF 

OOlO 

0 0 59 




0075 

ALFOK 

0020 

0 073 




0079 

ALFOKl 

002 4 

QQ77 




0081 

WORONE 

0 026 

0 0 66, 

0 067 



0 08 5 

WORTWO 

002A 

0 090 




0 0 8 7 

ASCHI 

002C 

on 81 




0 091 

WDONE 

0030 

0 089 




0094 

EXTMSG 

0031 

0 0 46 , 

0 071 



0 097 

LOWFLG 

0032 

0 0 49, 

0 065, 

0084, C088 


0098 

PASCTR 

0033 

0 0 50 , 

0 0 6 4, 

0 0 82 


0099 

CORRT2 

0034 





0102 

SA21 

QOOG 

0103 




0103 

SP21 

00 01 

0 104 




010 4 

0B21 

0 0 60 

0105 





n c' u V 


PACF ft 


date: 01/27/99 



o 


ASCGLR 

CHKALF 

HANDLE 

NEXDIG 

SA21 


TWO 


0070 
0072 
0023 
0 052 
0102 
0019 


ASCHEX 

COMMA 

I 

NINE 

SIX 

WOONE 


0013 

0018 

OOOu 

0019 

0017 

0091 


ASCHI 

COMOLU 

lOERR 

NXDIGl 

SIXTEN 

WORONE 


0 087 
0 028 
0 026 


0 051 


0017 


0 081 


ASGUP 

CORRT2 

LFGSET 

NZERO 

SLASH 

WORTWO 


0G63 
0 099 
0 0 5 L 
0G16 
GD16 
C 085 


o 

o 

o 

c 

o 

o 

o 


o 

o 

o 

o 

o 

o 
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000 1 
0 0 0 2 
00 0 3 
0004 
000 5 
0006 
OQ 07 
0008 
00 09 
0010 
0011 
0012 

0013 

0014 

0015 


0017 

0018 




4 - 


^ABSOL RTJ 
ADC 

^RELAT RTJ 
^ ADC 
^ ADC 


NAM DMPBUF DECK-ID N57 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

THIS SJBROUTINE PRINTS OUT CORE CELLS ON 
COMMENT OUTPUT DEVICE. TWO TYPES OF 
CALLS ARE SHOWN BELOW. ONLY ONE 
LINE IS OUTPUT. FOUR SPACES BETWEEN CELL 
AND FIRST CONTENTS THE TWO SPACES 
DMPBUF Q REG HAS NO OF CELLS 

STARTING CELL ^ ^ 

DMPBUF Q REG HAS NO. OF CELLS 

(RELATIVE START ADDRESS OF BUFFER TO BE OUTPUT) 
ADDRESS FROM WHICH DUMP COMES (FOR PRINTOUT) 


ENT DMPBUF 


ENTRY 


name 


SUMMARY- 116 ^^’’^’f--*‘ 
N57Q 0Q02 
N57Q0Q03 
N57C 0 0 0 4 
N5 75 0 0 0 5 
N570 00 06 
N57Q 0 0 07 
N570G008 
N5 7C 0 0 09 
N57C 0 010 
N570 0011 
N5700012 
N57^0013 
N570 0 014 
N5700 015 

N5 7U 0 01 7 
N5700018 


0020 

Q021 

0023 
002 4 
0025 




E X 

T 

E 

R 

N 

A 

L 

S 

EXT 

CHRSFG 

E X 

T 

r- 

C 

R 

N 

A 

L 

S 

EXT 

MSG 









EXT 

OFF 










N57oOiJ2G 

N5700Q21 

N5700023 
N57Q 0 024- 
N570 0025 


0027 


0028 

0 0F4 
0 OEA 
0 0 02 
0012 
0 0 33 

EQU 

0029 

0 0 43 
u 0 44 
0022 
0 0 23 
0 027 

EQU 

0 03 0 

0 0 2C 
6 0 2F 
0 0 2A 

EQU 

0031 

0 0 26 
0 0 45 
0 0 04 
0 0 03 
0 0 24 

EQU 

0032 

0 0 46 

EQU 


^EQU’ TABLE 

AHONI (SF4) , AO ISP (SEA) ,LPMSK (2 ) , NZ ERO ( $12) ,ZR0BIT($33) 


FIVE ($43) , SIX ($44) ,Z£RO ($22),ONE8IT {$ 23 ) , SI X TEN ($ 27 ) 


COMMA ($20 ,SLASH($2F) ,ASTRIC($2A) 

EIGHT ($26) , NINE ($45) , THREE (h) , ONE ( S ) , TWO ( $2 4 ) 


TEN($46) 


N575uQ27 
N5 70 0 u 2 8 

N57G0529 

N570 0 030 
N57Q 0 031 


»^HSOS4.0'^*N57G0 032 
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PARAHETER LOCATION (OFFSET FROM BASE) 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
0 0 06 
0 0 07 
0 0 06 
0 0 09 
00 OA 
OQ 08 
00 OC 
0010 
aoii 
0 012 


HANDLE( 13 
BMSG ( 2) 
SOMMOR( 3) 
lOERR (4 ) 
LISTLUCS) 
C0M0LU16) 
NEWMLU{73 
PROGl (8 ) 
PR0G2 (9 ) 
BITFLG(IO) 
BUFCNTdl) 
FIELD (12) 
SLASHF( 15) 
8UFEMTI17) 
8UFFER(18) 


•’HANDLE" 

•■MSG" ENTRY 
"SOMHOR" ENTRY 
"lOERR" ENTRY 

LIST' OUTPUT 

"COMOLU" 

"NEWMLU" NEW MM 

"PROGl" 

"PROG2" 

••3ITFLG" 

■■BUFCNT" 

••FIELD^* 

"SLASHF" 

"BUFEMT" 

"BUFFER" 


■LISTLU' 


0 0 07 


VARIABLE EQUS 

CHRSLV(7) LEVEL OF THIS PROGRAM 


0 8FC 
08FO 
0 8C2 
1000 


EQUS 

COHOUK $8FC) 
COMLU ($ 8FD) 
MASSLU ( $eC2) 
ASMOD{3;iOQ 0) 


FOR LOGICAL UNITS 
TYPE OUTPUT LOGICAL UNIT 
INPUT COMMENT LOGICAL UNIT 
MASS MEMORY LOGICAL UNIT 
ASCII MODE OUTPUT 


V- 


PROGRAM 


START 


POOOO 0000 
POOOl 4840 
P0002 6877 
P00U3 60FF 
P0004 8112 
P0005 6846 

POQ06 0842 
P0007 C109 
P00D8 09FE 


P0 0 09 
POOOA 
PO ODB 
POOOC 
POOOD 
PODGE 
POOOF 


3027 
683F 
G2 23 
E83D 
AA70 
01 01 
DOFF 


DHPB'JF NUM 0 

STQ^ TRAP 
STA^ BASE 
STA- I 

ADD- BUFFER,! 
STA^ BUFADD 


SAVE Q-REGISTER 

SAVE PARAMETER BUFFER ADDRESS 

CALCULATE "BUFFER" ADDRESS 


CL R Q 

LDA- PR0G2,I DETERMINE LIST UNIT BY ENTRY TYPE 

INA -1 

ISOLATE ENTRY WITH MASK TO DETERMINE LU 
IF NON-ZERO, LIST LU IS LIST COMMENT UNIT 
DVI- ONEBIT+4 
STA^ OTLU 

LOA- ONEBIT,Q GET BIT MASK TO ISLOATE LU 

LDQ^ OTLU RECALL LU MASK INDEX (WORD INDEX) 

AND^ LUMSKtQ 

SAZ LUTY3 SKIP IF IT IS FOR LIST UNIT 

RAO- I SET FOR •■COMOLU" COMMENT UNIT 


o 


N573 0 034 
N573 0 035 
N5700Q36 
N57JQ037 
N5730038 
N57Q 0 039 
N570 0 040 
N5700041 
N57Q 0 042 
N57D0043 
N5 70 0 0 44 
N573 0 045 
N5 7 00046 
N57DQ 047 
N573 0 048 
N5 70 0 049 


N5 70 0 05 1 


N5 70 0 0 5 4 
N5700G55 
N5700056 
N570 0057 
N5 70 C05 8 


N5 70 0060 
N57D0 061 
N57 00062 


N57CQ 064 
N5 70 0 Q 6 5 
N5700066 
N570G067 
N57G0068 
M57Q 0 069 

N5700071 
N5 70 007 2 
N5 70 0 073 
N5 70 0 0 74 
N5 70 0 0 7 5 
N57C0Q7b 
N570Q 077 
N57GG 078 
N57Q0079 
N5700aSG 
N570G381 
N570 0082 


G 

O 

O 

O 

o 

o 

r' 

's-r*' 

o 

r> 

O 

O 

o 

c 

o 
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c 



00 83 

POOlO 

C105 

LUTY3 

LDA- 

LISTLU, T 


00 8 4 

POOH 

883C 


ADO"^ 

MODE 


0085 

P0Q12 

6837 


STA^ 

OTLU 

O 

008 6 

PD013 

E82E 


LDQ^^ 

TRAP 


0 088 

P0014 

OAOO 


ENA 

0 

o 

00 89 

PC015 

60FF 


STA- 

I 


0091 

PD016 

CCE9 


LDA^ 

IDMPBUF ) 


0092 

P0017 

ODEF 


INQ 

-16 

o 

0093 

P0018 

0174 


SQM 

NOTREL 

009h 

P0019 

38E6 


ADD^ 

DMPBUF 


0095 

POOIA 

683F 


STA^- 

DMPADD 


0 0 96 

PO OIB 

483F 


STQ^ 

DMPCTR 


0097 

POGIC 

1809 


JMP^ 

DMPOOl 

O 

0096 

POOlO 

ODIO 

NOTREL 

INQ 

16 


0099 

POOIE 

683B 


STA^ 

DMPADD 

O 

OlOC 

POOIF 

483B 


STQ» 

DMPCTR 


0102 

P002G 

CCDF 


LDA^ 

IDMPBUF ) 

o 

0103 

P0Q21 

583B 


RTJ^ 

PUTINB 

0104 

P0022 

E838 


LDO^ 

DMPCTR 


010 5 

PQ023 

0161 


SQP 

DMPGOl-^-1 


0106 

P0024 

180F 


JMP^ 

GOOUT 

o 

0107 

P0025 

C836 

DMPOOl 

LOA^ 

SPACE2 

0108 

P0026 

6025 


STA^ 

(BUFAQD) ,I 


0109 

P0027 

DOFF 


RAO- 

I 


0110 

P0028 

6D23 

0 MPLOP 

STA^ 

(BUFA DO ) ,I 

.•"“s 

0111 

PG029 

DOFF 


RAO- 

I 


0112 

P002A 

CC2F 


LOA^ 

( DHPAOO > 


0113 

P0D2B 

5831 


RTJ^ 

PUTINB 


0114 

P002C 

D82D 


RAO'f 

DMPADD 

o 

0115 

P002D 

C82D 


LDA^ 

DMPCTR 

0116 

PO 02E 

Q9FE 


INA 

-1 


0117 

P002F 

0103 


SAZ 

GOOUT-^-1 


0118 

P0030 

682A 


STA» 

DMPCTR 

o 

0119 

P0031 

C82A 


LOA^ 

SPACE2 

0120 

PQQ32 

18F5 


JHP^ 

OMPLOP 


o 

o 

o 


0122 





BUFFER FULL 

0123 

POO 33 

COFF 

GOOUT 

LDA- 

I 

0124 

P0034 

6816 


STA^ 

0 HP LEM 

012 5 

PQ035 

C400 

X 

LDA 

CHRSFG 


PG036 

7FFF 

X 



0126 

P0037 

E842 


LDQ’f 

BASE 

0127 

P0038 

0117 


SAN 

DMPCON-'^-l 

0128 

POO 39 

CS05 

DMPEXI 

LDA^ 

OFTB 


DATES Dl/27/99 


GET LIST UNIT ACCORDINGLY 
+ NODE (ASCII) CODE 

RECALL Q-REGISTER 


N57Q 0 063 
N57Q 0 084 
N570Q085 
N5700086 


N573 0 088 
N5700089 


Q GREATER THAN 16 MEANS RELATIVE 
-- USED BY HSO PROCESSOR 
REMOVE BIAS FROM COUNT 


SET UP COUNTER 


N570 0 091 
’^5^MSOS4.0^^N57Q0092 
^^MSOS4.0»^N5700093 
»^MSOS4.0-^^N570 0 094 
^’MSOS4.G’-^N57Q 0 095 
»»MSOS4.0^^N57Q0096 
"^^MSOS^.G’f^NpTOO 097 
^^HSOSh.0^^N5700098 
»»MSGS4.0^»N570Gi399 
N570 U1G0 


PUT ASCII CODE IN BUFFER 
SKIP IF NOT 1 WORD PRINT-OUT 


4 SPACES 


GET CELL VALUE 


N5700102 
N570 010 3 
N 5 700104 
N570 QIO 5 
N5700106 
N570 010 7 
N570 0108 
N570 0109 
N5700110 
N570ulll 
N5700112 
N57U0113 
N5700114 
N570011 5 
N5700116 
N5700117 
N57D0118 
N57D0119 
N57 j 0 120 


SET UP LENGTH 

CHECK IF PROGRAM TO 
SET UP PARAMETER ADDRESS 
CALCULATE "OFF" ADDRESS 


N5700122 

N9700123 

N57G0124 

BE TURNED OFF N570D125 

N57G012b 

N5730127 

N57G0128 


O 


o 

o 

o 

o 

o 

o 

o 


o 

f"'! 

o 

o 

o 

o 

o 

o 

o 


o 
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0129 P003A 9805 

0130 P003B 8202 

0131 P003C 0822 

0132 PG03D 1622 


SUB» OFTB+1 
ADD- 9MSG,Q 
TRA Q 

JMP- IZERO),Q EXIT TO “OFF" 


o 

o 

'■j 

o 

o 

o 


013t ^ 

0135 P003E 7FFF X OFTB 

0136 P003F 7FFF X 
013 7 


ADC OFF 
ADC HSG 


0. “OFF" 

1, "MSG" 


0139 

0140 P0G40 5801 

0141 P0041 0800 
01h2 P0042 C8FE 

0143 PQQ43 0900 

0144 PQG44 6803 

0145 P0045 54F4 

0146 P0Q46 QC07 

0147 P0047 0000 

0148 P0048 0000 

0149 P0G49 0000 

015 0 P004A ooeo 

0151 P0O4B 0000 

0152 P004C 14EA 

0153 

0154 P0040 1000 
015 5 


DHPCDN RTJ^ TRAP 
TRAP NOP 0 

LDA^- TRAP 
INA DHPEXT-TRAP 
STA^ DMX 
RTJ- (AMONI) 

DMPCAL ADC BCOO+CHRSLV 
OMX NUM 0 
NUN 0 
OTLU NUM 0 
DMPLEN NUM 0 
SUFADO NUM 0 

JMP- lADISP) 

MODE ADC ASHOD 


GENERATE EXIT ADDRESS 


EXIT ADDRESS CTO BE FILLED) 
LOGICAL UNIT (TO BO FILLED) 
"BUFFER" ADDRESS (TO BE FILLED) 


o 


o 

o 


0157 

0158 P004E 0163 

0159 P0Q4F E82A 

0160 P0050 E204 
0151 P0051 1622 


^ SET UP FOR NEXT CELL INCASE LONG PRINTOUT 

ONPEXT SOP DMPOKl-^-1 CHECK FOR I/O ERROR 

i BASF CALCULATE ’ lOERR ADDRESS 


LDO- IOERR,Q 
JMP- (ZERO),Q 


EXIT TO "lOERR" 


O 

O 


0163 P0052 CGAD 

0164 P0053 0908 

0165 P0054 6GAB 

0166 P0055 D8AA 

0167 P0056 1CA9 


DMPOKl LOA^ OMPBUF) 
INA 8 

STA^ (DMPBUF) 
RAO^ DMPBUF 
JMP^ (DMPBUF ) 


O 0159 ^ FLAGS, COUNTERS ETC 

0170 P0057 0000 PIBFLG NUM 0 

O 



O 


N570G129 
N57Q0130 
N570 0 131 
N57Q0132 


N5700134 
N573Q135 
N57 00136 
N570 0137 


N57Q 0139 
N57QQ 140 
N57Q0141 
N5700142 
N570 Q 143 
N57Q 0144 
N570 0145 
N5 70 014 6 
N570Q147 
N573 0 148 
N57Q0149 
N5 70 015 0 
N5700 151 
N5700152 
N5 70 015 3 
N5 7 J u 15 4 
N57D0155 



N570 0157 
N5700158 
N57Q 0159 
N5 70 0160 
N570 0161 


N5700163 
N573 0 164 
N570 0 16 5 
N5730166 
N570 0 167 


o 

c 

o 

o 


N5700169 
N5 7 0 0 17 U 




O 
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0171 PQQ58 DODO 

0172 P0059 GOOD 

0173 P005A 0000 

0174 P005R 2020 


DHPTMP NUM 0 
DMPAQD NUM 0 
UHPCTR NUM 0 
SPACE2 ALF 1, 


2 SPACES 


N570 0171 
N57Q0172 
M57G0173 
N570 0 17 4 


0176 

0177 

0178 

0179 

0180 
0181 
0182 
0163 
0184 
018 9 
0186 

018 7 
0188 

0189 

0190 

0191 

0192 

019 3 
0194 
019 5 

0196 

0197 

0198 

019 9 

020 Q 
0201 
020 2 
0203 
020 4 
020 5 

020 7 
0208 
0209 
021D 
0211 
0212 


P005C 
P005D 
PD05E 
PD05F 
P0060 
P0Q61 
P0062 
P0063 
P0064 
PC 065 
P0066 
PC067 
P0068 
P0069 
P0 06A 
P006B 
P006C 
PQ06O 
PG06E 
P0Q6F 
P0D70 
PC071 
P0072 
P0073 
P0D74 
POO 75 
P0076 
P00 77 
P0 078 


0 0 00 
681D 
0 8 *+4 
681C 
OCOl 
481B 
0 8 42 
C817 
QFE4 
6815 
0814 
09F5 
0 121 
09F8 

0 9 41 
F8 10 

01 53 
0FC8 
68 CD 
18F2 
0 3 74 
6D09 
DOFF 
E8 09 
0143 
QDFE 
4805 
18E9 
1CE3 


PUTINB 


DEXOO 1 
OEX002 
DEX003 


DEXQ04 


OEXOO 5 


DEXOO 6 


SUBROUTINE 
0 0 
STA^ DEXHEX 
CLR A 
STA^ DEXCH 
ENQ 1 
STQ^ OEXCNT 
CLR Q 
LDA^ DEXHEX 
LLS 4 
STA^ DEXHEX 
TRD A 
INA -SA 
SAP DEX004-^-l 
INA $3A-$41 
INA $41 
LDQ^ DEXCH 
SQN DEXfl05-^-l 
ALS 8 
STA^ DEXCH 
JMP’- OEX003 
EAQ A 

STA^ (BUFAOD ) ,I 
RAO- I 
LDO^ OEXCNT 
SQZ OEXD06-^-l 
INQ -1 
STQ^ DEXCH 
JMP^ OEXOO 2 
JMP» (PUTINB) 


TO STORE VAL IN A REG INTO BUFFER 
SAVE HEX NO. 

INITIALIZE ASCII WORD TO BE MADE 
INITIALIZE COUNTER FOR 2 WDS. 

GET A HEX DIGIT 


SKIP IF DIGIT A THRU F 
CONVERT TO ASCII 

SKIP IF NOT FIRST CHAR. FOR WORD 


GO TO GET NEXT HEX DIGIT 
BUILD ASCII WORD 
STORE WORD IN BUFFER 


P0079 0000 

P007A 0000 
P007B GOOD 
P007C 0000 


BASE NUM 0 

^ CONSTANTS 

DEXHEX Q 0 

DEXCH 0 0 

OEXCNT 0 0 


SKIP IF DONE 
INITIALIZE ASCII WORD 
RETURN TO CALLER 


HEX NUMBER 

STORAGE FOR ASCII WORD BEING BUILT 
ASCII WORD COUNTER 


N5700176 
N5730177 
N570 0 178 
N570Q179 
N57D 0 18U 
N5700181 
N57Dijl82 
N570G183 
N5 70 0 1 8 4 
N570 0185 
N570 018 6 
N57D0187 
N57J 0138 
N57D0189 
N57QG190 
N57Q0191 
N5700 192 
N57Q 0193 
N57Q0194 
N5 7u 0 19 5 
N57g0196 
N570 0197 
N57Q0196 
N573 0199 
N570 0 2G0 
N5700201 
N57GG2Q2 
N570G 203 
N573 0 20 4 
N57G 0 20 5 

N57D0 207 
N5 70 020 8 
N570 0209 
N57Q0210 
N57Q0211 
N5700212 


* 




LIST LOGICAL UNIT MASK 

BIT ASSIGNMENT WORD 1 BIT 0 IS CORRESPONDING 


N5700 214 
N5700215 
N5 7Q 0 21 b 
N57G G217 


0218 
0219 
022C 
0221 
0222 
0223 
022 4 
022 5 
0226 
0227 


0 23 0 

0231 

0232 

0233 

0234 

0235 


PGM= 


OMPBUF 
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PQ07D FFF9 
P007E FCFF 
P007F OBAA 
P0080 FFF2 


¥■ r- ¥ » 


^ If. If. ^ 

V--5- V- ^ 
V- 


LUMSK NUM 


TO ENTRY 1 

BIT IS RESET (=0) IMPLIED LOGICAL UNIT FROM 'LISTLU^ 
OTHER WISE LOGICAL UNIT IS OBTAINED FROM *COMOLU' 

FOR EXAMPLE — 'DPC^ IS ENTRY 2 AND ITS LOGICAL UNIT 
IS OBTAINED FROM 'LISTLU'. ITS MASK IS IN BIT 1 
OF WORD 1 AND IT IS RESET 

$FFF9 ,$FCFFt$0BAA,$FFF2 


N570Q 218 
N57Q0219 
N57QQ 220 
N5700221 
N5730222 
N5700223 
N570e224 
N57Q 0225 
N570 0226 
N57Q0227 


-V- 


0 0 01 

P 

EQU 

SA22 {^/96) 

0 0 02 

P 

EOU 

SP22 {SA22 + D 

OOCO 

P 

EQU 

DB22<SP22-‘96) 

PGQ81 003F 


BSS 

END 

XDB22-^) 


OOCO ( 192) COM = QQOG ( 0) DAT = 


N570023C 
N5700231 
N57Q 0232 
N570 0233 
N5700234 
N570 0235 


OOuO ( 0) 


C'- 

c 

o 


o 


u 


I ! 


n 


O 

O 

C 

O 

O 


nMPRIlF 
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DATEi 01/27/99 



0199 


O 

o 

o 

o 

o 

o 

C) 

C‘ 

C) 

o 

o 

o 

o 

o 

o 

o 








f 
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O ’ 

00 57 
0G58 

MASSLU 08C2 
ASMOD 1000 

(002242) 

(004096) 0154 



C’ 

0 






o 

o 






o 

o 






; O 

o 






' C 

0 







'D 







O 






• o 

O 






o 







: Q 

o 






■ O 

o 






• O 

o 






O 

o 






O 

o 






O 

o 






o 





... 

- - . 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DEF.LINE 

NAME 

ADDRESS 

Q 018 

OMPBUF 

00 00 

0 083 

LUTY3 

0010 

0 0 98 

NOTREL 

OOID 

0107 

DMPOOl 

002 5 

0 110 

DKPLOP 

0028 

0123 

GOOUT 

0033 

0 128 

OMPEXI 

0 0 39 

0135 

OFTB 

U03E 

0 14G 

DMPCON 

00 40 

0141 

TRAP 

0041 

0146 

DM PGA L 

0046 

0147 

DMX 

0047 

0149 

OTLU 

0049 

0 150 

DMPLEN 

004A 

0151 

BUFAOD 

0 048 

0154 

MODE 

004D 

0158 

DMPEXT 

0D4E 

0163 

DMPOKl 

0052 

D17D 

PIRFLG 

0 057 

0171 

DMPTMP 

0058 

G 17? 

OMPADO 

0059 

0173 

DMPCTR 

005A 

0174 

SPACE2 

005B 

017 7 

PUTIN8 

005C 

0181 

DEX GOl 

0060 

0182 

OEX002 

0061 

0183 

DEX003 

00 62 

0191 

DEXQ04 

006A 

0197 

DEX 005 

0070 

0 20 5 

DEX006 

0078 

0208 

BASE 

0079 

0 210 

DEXHEX 

007A 

0 211 

DEXCH 

0Q7B 

0212 

OEXCNT 

0 0 7C 

0 227 

LUMSK 

00 70 

0 231 

SA22 

0001 

0232 

SP2? 

30 02 

0233 

DB22 

OOCO 


o 


REFERENCED AT LINE NUHBER 


OOia, 0091^ Q094» 0102, 
0 0 81 


0128, 0129 
0127 

0065, 0086, 
0144 

00^7, 0079, 
0124 

0069, 0108, 

0 084 

0143 

0158 


0095 , 
0096, 
0107 , 
0103, 

0 2 04 
0 196 
0189 
0193 
0 201 
0 0 66 , 
0178, 
0180, 
3 182, 
0 0 80 

0232 

0233 
0 234 


0 099 , 
0 100 , 
0119 
0113, 


0126, 
0184, 
0192, 
0 20 0 


0140, 

0 085 

0110 , 


0112 , 

0104, 

0203 


0142, 

0198 

0114 
Oil 5, 


0163, 


0143 


0118 


0165, 



o 


O 

o 

o 

■ o 

0166, 0167 

: O 

; O 

o 

^ o 

■ C‘ 

o 

■ o 

■ o 
o 

' o 
o 
o 

o 



o 

0 

r-i 

o 

o 

o 

o 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DMP3UF 
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date: 01/27/99 



o 

o 

o 

o 


A L 

P H A 

B E T I 

CAL 

SORT 

ADISP 

0023 

AHONI 

0 028 

ASHOO 

BUFEMT 

0048 

BUFFER 

0 049 

CHRSFG 

DEXODl 

0181 

DEX002 

0182 

OEX003 

DMPOOl 

010 7 

DHPAOD 

0172 

nMPBUF 

DNPLOP 

0110 

DMPOKl 

0163 

OHPTMP 

I 

000 0 

10 ERR 

0 038 

LISTLU 

NEWMLU 

0041 

NINE 

0031 

NOTREL 

PIBFLG 

0170 

PROGl 

0 0 42 

PROG2 

SOMMOR 

0037 

SP22 

0232 

SPACE2 


0 F 

S Y M B 

0 L S 

* 


0 058 

ASTRIC 

0030 

BASE 

0 20 8 

0 021 

CHRSLV 

0052 

COMLU 

0056 

0183 

DEX004 

0191 

DEXG05 

0197 

0018 

OMPCAL 

0146 

DMPCON 

0140 

0171 

DHX 

0147 

EIGHT 

0031 

0 039 

LPMSK 

0028 

LUMSK 

022 7 

0098 

NZERO 

0028 

OFF 

0 02 5 

0 0 43 

PUTINS 

0177 

SA22 

0231 

0174 

TEN 

0032 

THREE 

0031 




o 


o 

o 

o 

o 

o 

o 


BITFLG OOAA 
COMMA 0030 
DEX006 0205 
OMPCTR 0173 
FIELD 0046 
LUTY3 0083 
OFTB 0135 
SIX 0029 
TRAP 0141 


BMSG 0036 
COHOLU 0040 
OEXCH 0211 
OMPEXI 0128 
FIVE 0029 
MASSLU 0057 
ONE 0351 

SIXTEN 0029 
T WO 0 0 3 1 


BUFADD 0151 
COMOUT 0055 
DEXCNT 0212 
DMPEXT 0158 
GOOUT 0123 
MODE 0154 

ONEBIT 0G29 
SLASH 003Q 
ZERO 0029 


BUFCNT 0Qh5 
0B22 0233 

DEXHEX 0210 
OHPLEN U150 
HANDLE 0035 
HSG 0024 

OTLU 0149 
SLASHF 0047 
ZROEIT 0028 


C" 

Q 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

»«-*v 

{ f 

v.'* 


QQOl 
Q002 
00 0 3 
0 0 0 ^ 
00 0 5 
00 0 6 
00 07 
00 0 8 
00 0 9 
0010 
0011 
0012 

0013 

0014 

0015 

0017 

0018 


0020 

0021 


0022 


0023 


0024 


002 5 
0026 


0028 
0029 
003 0 

0031 

0032 


ASCDEC 


page 1 DATE: 01/27/99 


jf- 

V- 

* 

* 

Af- 

Af- 

Af- 

Af- 


NAM ASCDEC DECK-ID Np 8 HSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 3.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CA^FORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197b 


THIS SUBROUTINE CONVERTS ASCI I ( REPRESEN TIN G 
A SIGNED DECIMAL NO.) TO BINARY. ASCII CHARACTERS 
ARE IN BUFFER{FIELO + l,2 ,3) . 

RESULT IS RETURNED IN A-REG. 

LEGAL CHARACTERS ARE +,-,0-9 

ILLEGAL CHAR. AND +,- ZEROS OUT ACC UM MUL ATION 
DECIMAL VALUE .GT. 2^->15-l WILL RESULT IN ERROR 


SUMMARY-liON580OODl 
N580Q002 
N583 0 003 
N58Q 00 0 4 
N580 0 0 0 5 
N58D 0 0 06 
N580 0 0 0 7 
N580 0 00 8 
N58Q 0 -0 0 9 
N580 0 010 
N580 0 01 1 
N580 0 01 2 
N5 8 0 0 013 
N58Q 0 014 
N 38 O 0 01 5 




ENTRY NAME 

ENT ASCDEC 


N 38 O 0 017 
N56G0018 


0 0F4 


EQU 

AHONI ($F4) 

COEA 
0 0 02 
0012 
0 0 33 
0 0 A3 


EQU 

FIVE ($43) , 

0 0 4^ 
0 0 22 
0 0 23 
0 0 27 
GQ2C 


EQU 

COMMA ($20 

0 G2F 
0 0 2A 
0 026 


EQU 

EIGHT {$ 26) 

0 0 45 
QO 04 
0 0 03 
0 024 
00 46 


EQU 

TEN ($46 ) 

0 0 20 


EQU 

SPACE ($20) 

002 c 

0 02D 
0 0 01 


EQU 

PAR 

HANDLE (1) 

0 0 02 


EQU 

HSG(2) 

00 03 


EQU 

SOMMOR ( 3) 

00 04 


EQU 

I0ERR(4) 


' E Q U * 


TABLE 


++MS0S4 


••HANDLE" 

"MSG*’ ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 


N5 8 0 G 02 G 
N5 80 0 0 2 1 


N5830022 


N580 0 025 


N5 80 0 0 2 4 


0’^»N'3 83 0 Q2 5 
N583 0 026 


N58L 0 02 8 
N583G029 
N580 0 030 
N58Q0031 
N580 0 032 


ASCDEC 


PAGE 2 


DATE". 01/27/99 


0 0 05 

EQU 

LI3TLU(5) 

0 0 06 

EQU 

COMOLU (6) 

0007 

EQU 

NEWMLU(7) 

0 0 08 

EQU 

PROGl (8 ) 

0 0 09 

EQU 

PROG2 (9 ) 

0 0 0 A 

EQU 

aiTFLG(lO) 

OOOB 

EQU 

BUFCNT (11) 

Q 0 OC 

EQU 

FIELD (12) 

0010 

EQU 

SLASHF(16) 

0011 

EQU 

BUFEMT (173 

0012 

EQU 

BUFFER(18) 


LIST OUTPUT "LISTLU' 

"COHOLU" 

"NEWHLU" NEW MM LU 

"PROGl" 

••PROG2" 

"BITFLG" 

"BUFCNT” 

•■FIELD" 

"SLASHF" 

"8UFEMT'* 

"BUFFER** 


■1^ 

* 


PROGRAM 


START 


POOOO 
POOOi 
P0 00 2 
PD003 
POQ04 
P0005 
P 0 0 0 5 
PQQ07 
PO 0C8 
P00 09 
PO OOA 
PO OOB 
POOC c 
POO GO 
PO ODE 
POOQF 
POOiD 
POOH 
PC012 
POO 13 

P0014 
PODIA 
POOIB 
POOIC 
POOlO 
POOIE 
PO OIF 
P0 020 
PO 021 
P0 022 
PO 023 
P0024 
PO 025 
PO 026 


0 0 00 
60FF 
0 8 

c8 38 
6836 
0C02 
0300 
AO OA 
OF A1 
6A OC 
0F21 
C3 0O 
OFGfl 
AO OA 
GFAl 
6A 05 
0F21 
ODFE 
01 77 
18F2 

0 0 06 
OAOO 
6QFF 
C9F7 
09D3 
01 03 
G9FE 
0 114 
Q AFF 
6819 
0 8 44 
180B 
C9FC 
0122 


ASCDEC 


OECOOl 


DECOD 2 
OECOlO 


DEC 00 3 

OEC004 
DECOG 5 


0 i 
STA- 
CLR i 
STA^ I 
STA^ i 
END 
LDA- 
AND- 
QLS 
STA* 
DRS 
LOA- 
ALS 
ANO- 
DES 
STA^ 
QRS 
INQ 
SUM 
jMpv 
TABLE 
BZS 
ENA 
STA- 
LDA^ 
INA 
SAZ 
INA 
SAN 
ENA 
STA^ 
CLR 
JMP* 
INA 
SAP 


0 

1 
A 

DECSGN 

DEGACC 

2 

FIELO + 1 ,B 
LPMSK+8 
1 

0ECCHR+1,( 

1 

FIELD+1, B 
8 

LPMSK+8 

1 

DECCHR, Q 
1 

-1 

DECGG2-^- 
DECOOl 
: TO HOLD 
DECGHR( 6) 
0 
I 

DECCHR, I 
-PLUS 
DEC003-^- 
-NEG+PLUS 
DECOQS-^- 
-0 

DECSGN 

A 

OECQ09 
-$30+NEG 
OEC00 6-^- 


INITIALIZE SIGN AND 
ACCUMMULATION 

GET AND STORE ONE CHARACTER 
PER WORD 
(GET LSD) 


SKIP IF DONE 


CHARACTERS 


SET INDEX FOR CONVERSION 
TO DECIMAL 
GET CHAR. 

SKIP IF PLUS SIGN 

SKIP IF NOT N£G. SIGN 
SET SIGN FLAG NEG. 

CLEAR ACCUMMULATION 

IS CHAR. A DECIMAL DIGIT 
SKIP OK 


N5800033 
N580 0 03 4 
N5 8 00035 
N5bOG 036 
N58Q0037 
N5 80 0 038 
N580 0 0 39 
N580 0 OaO 
N58U 0 j41 
N5800042 
N58G 0 0^+3 


N58D 0045 
N5 8 0 13 0 1 b 
N5aa 0 0 47 


O 


N580 0 049 
N5800Q5G 
N5800Q51 
N58a 0 052 
N5800053 
N58G 0 05 4 
M583 0 055 
N5800 056 
M5800 057 
N58Q0058 
N583 0 059 
N580006G 
N530 0 061 
N5 80 0 u 6 2 
N5 8 0 0 0 6 3 
N580 0 064 
N5 8 3 0 Q b 5 
N583 0 056 
N5 80 G 0 57 
N583 0 068 
N58Q0 Q69 
N5800070 
N5800071 
N589 0 072 
N580 0 073 
N5800074 
N58 D u 0 75 
N5800076 
N580 0 077 
N580 0078 
N5800Q79 
N5tt00080 
N5 80 0 081 
N5 80 0 08 2 
N58Q 0 083 


o 

o 

o 

Q 

{ I 

o 

o 

o 

o 




ASCOEC 


PAGE 


3 


DATE; Oi/27/99 


008A P0027 084A 

0085 P0028 18F9 

0086 P0029 09F5 

0087 P002A 0131 

0088 P002R 18F8 

0089 P002C 090A 

0090 P002D 290F 
00 91 P0Q2F 83QC 

0092 P002F 68QB 

0093 P0Q30 COFF 

0094 PQ031 09FA 

0095 POD32 0102 

0096 P0033 DOFF 

0097 P0034 18E7 

0098 P0035 C805 

0099 P0036 E805 

0100 P0037 0161 

0101 PQQ38 0864 

0102 P0039 1CC6 

0103 PQQ3A 0000 

0104 P0D3B 0000 

0105 

0106 P0Q3C 0300 

0107 poosn 2710 

0108 P003E 03E8 

0109 P003F 0064 
QUO PC040 GOOA 

0111 PQ041 0001 

0112 


DEC007 CLR A 

JMP^ DEC0Q3 
DEC 00 6 INA -$3A+$30 

SAM OECG08-'— 1 
JMP^ DEC007 
DEC 00 8 INA $A 

MUI^ DFCTENiI 
ADD^ DEGACC 
DEC0Q9 STA^ DEGACC 
LDA- I 
INA -5 

SAZ DECQll-'^-l 
RAO- I 
JMP» DECOlO 
OECGll LDA^ DEGACC 
LDQ» OECSGN 
SQP DEC0l2-»-l 
TCA A 

DEC 012 JMP» CASGOEG) 
DEGACC 0 0 

OECSGN 0 0 

^ TABLE OF POWERS 

OECTEN NUM 0 

NUM IGOOO 
NUM 1000 
NUM 100 
NUM 10 
NUM 1 


SKIP OK 


CONVERT TO HEX 

CONVERT TO DECIMAL 

ADD TO ACCUMMULATED VALUE 

CONVERSION COMPLETE 

SKIP YES 

GO TO CONVERT NEXT DIGIT 
IS SIGN NEG. 

SKIP NO 

COMPLEMENT RESULT 
RETURN TO CALLER 
STORAGE FOR ACCUMMULATION 
SIGN FLAG 
TEN 
Q 
1 
2 

3 

4 

5 



O 

o 

o 

( ) 


N58u0064 
N58D0085 
N5800086 
N5830087 
N580 0 088 
N5800089 
M5800Q90 
N58Q 0091 
N5800Q92 
N580QQ93 
N58QQ094 
N58Q0095 
N530 0096 
N5800097 
N58Q0 098 
N58G0099 
N58Q0100 
N580 0101 
N583 DIQ 2 
N533 0103 
N58C 0104 
N5800105 
N5800106 
NPSOaiO 7 
N580 0108 
N5800109 
N5800110 
N58QG111 
N5800112 


N5800114 
N5800115 
N580Q lib 
N58a0117 
N5800118 
N5800119 


C) 

O 

C) 

o 

o 

o 

o 

C"'* 

o 

o 

o 

o 

o 


o 



C’’-' 


ASCDEC 
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DATE: 01/27/99 

•• 

0 







c 

o 

E Q U I V 

A L E N 

C E S 




o 

o 

DEF.LINE 

MAME 

VALUE 


REFERENCED AT 

LINE NUMBER 

■ o 

0 GGD 

I 

OQFF 

(000255) 

0050, 0072, 

0093, 0096 



0 0 21 

AMONI 

00F4 

(000244) 




o 

0 0 21 

ADISP 

OOEA 

( OG0234) 




00 21 

LPMSK 

00 0 2 

(000002) 

0056, 0062 




0 0 21 

NZERO 

0012 

(000018) 





0 0 21 

ZROBIT 

0033 

(000051) 




o 

0 0 22 

FIVE 

0043 

( 0D0067) 



' o 

0 0 22 

SIX 

0044 

( 000 063) 




0 0 22 

ZERO 

0022 

(000034) 





0 022 

ONEBIT 

0 023 

( 0Q0035) 





0022 

SIXTEN 

002 7 

(000039) 




u 

0 023 

COMMA 

002C 

( 000044) 





0023 

SLASH 

G02F 

( 0 00 047) 





0 0 23 

ASTRIC 

002A 

(000042) 




o 

0 0 2 i. 

EIGHT 

0 026 

(G0G038) 



n. 

0 024 

NINE 

0045 

(000069) 





0 024 

THREE 

00 04 

( 000004) 





0 024 

ONE 

00 03 

(0 00003) 




o 

0 0 24 

TWO 

002 4 

(000036) 



O 

0 025 

TEN 

00 46 

(000070) 




C 026 

SPACE 

0020 

(000032) 





0 026 

PLUS 

002C 

(000044) 

0074, 0076 




0 0 2 6 

NEG 

G02D 

(000045) 

0076, Q082 


o 

0 029 

HANDLE 

0 0 01 

( 0 0 0 Q 0 1 ) 




0 030 

MSG 

000 2 

(000002) 




' 

0 0 31 

S CMMOR 

0 00 3 

(000003) 





0 032 

10 ERR 

000 H 

(QO0G04) 



; O 


0 0 33 

LISTLU 

00 0 5 

( 00 0005) 




0 03 4 

COMOLU 

0 006 

(000006) 





00 35 

NEWMLU 

000 7 

(000007) 





0 0 36 

PROGl 

0 0 0 8 

( Q0.Q008) 



■ 


0 037 

PR0G2 

0009 

(000009) 





0 038 

BITFLG 

OOOA 

( OOOOID) 





0 039 

3UFCNT 

OOOB 

(000011) 

0055, 0060 



o 

0 040 

FIELD 

OOOC 

(000012) 


o 

0 041 

SLASHF 

OQIO 

(000016) 




0 0 42 

BUFEMT 

0011 

(000017) 





Q 0 43 

BUFFER 

0012 

(000018) 




o 







o 

o 







: O 

o 







O 

o 







C 


... _ 











- - • . — - _ - - 
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DAT 


01/27/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 


( , 

V J 

o 

o 

o 

o 

r\ 

o 

o 

o 

c 

o 

o 

o 

o 
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DATE; 01/27/99 


S Y M B 0 L S 


C) 

DEF.LINE 

NAME 

ADDRESS 

REFERENCED AT 


0 018 

ASCDEC 

QQQ 0 

0 G18, 

0102 


0 05 5 

DEC GUI 

00 0 6 

0 068 



0 070 

DECCHR 

0014 

0 0 58 » 

0 0 6 A , 

O' 

0 071 

OEC002 

OOIA 

0 067 



0 073 

DEC 010 

QOIC 

0 097 



0079 

DEC 003 

0022 

0 0 75 , 

0 08 5 


0 0 81 

DEC 004 

002 4 



o 

0082 

DECCC5 

0025 

0 0 77 



0 084 

DEC007 

0027 

0 088 



0086 

DEC 006 

0029 

0 0 83 



0 089 

DEC 003 

002C 

0 0 87 



0092 

DEC 0 09 

002F 

0 0 81 



0 098 

DECOli 

0035 

G 0 95 



01G2 

DEC012 

0039 

0100 


o 

0 103 

OECACC 

003A 

00 53, 

0091 , 

0104 

DECSGN 

00 3B 

0 0 52 , 

0 079, 


0106 

DECTEN 

003C 

0 0 90 



0115 

SA23 

0000 

0116 



0116 

SP23 

000 1 

0 117 


u 

0117 

DB23 

0060 

0118 



ASCDEC 
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DATE: 01/27/99 


o 


A L 

P H A 

R E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



ADISP 

0021 

AMONI 

0 021 

ASCDEC 

0018 

ASTRIC 

0023 

BITFLG 

0 03 8 

COMOLU 

003 4 

DB23 

0117 

DECOOl 

0 0 55 

DEC002 

0071 

DECOO 3 

0079 

DEC0D8 

0089 

OEC009 

0 092 

DECOlO 

0 0 73 

OECOil 

0 0 98 

DEC012 

0102 

EIGHT 

0 02 4 

FIELD 

0 040 

FIVE 

0 022 

HANDLE 

0029 

I 

QQO 0 

NEG 

0 02 6 

NEHMLU 

0 035 

NINE 

0 024 

NZERO 

0021 

ONE 

0024 

SA23 

0115 

SIX 

0 0 22 

SIX TEN 

0 0 22 

SLASH 

0023 

SLASHF 

0041 

THREE 

002 4 

TWO 

0 024 

ZERO 

0 022 

ZROBIT 

0021 




o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 


BUFCNT 0Q39 
DEC0Q9 0081 
DECAGC 0103 
lOERR 0032 
ONEBIT 0022 
SOMMOR 0031 


BUFEMT 0042 
OECOG5 0082 
DECCHR 0070 
LISTLU 0033 
PLUS 0026 

SP23 0116 


BUFFER 0043 
DEC 0 06 0 08 6 

DECSGN 0104 
LPMSK 0021 
PROGl 0036 
SPACE 0026 


COMMA 0023 
0ECDC7 0084 
DECTEN 0106 
MSG 0030 
PR0G2 0037 
TEN 0025 


O 

O 

O 

o 

o 

o 

S,,-' 

o 

o 

o 

o 

o 

o 

o 

o 


/ A 




HXAS 
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DATE: 01/27/99 



o 

OOOi 




NAH 

HXAS 


DECK-ID N59 MSOS 5 . 0 

SUMMARY- 

110N5900001 

00 0 2 




MASS 

STORAGE OPERATING SYSTEM VERSION 5.0 


N590 0002 


0 0 03 




SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 


N590 0003 

o 

00 0 4 




COPYRIGHT CONTROL 

DATA CORPORATION 1976 


N590 0004 

00 0 5 









N59000Q5 


00 0 6 



if. 

THIS 

SUBROUTINE 

CONVERTS HEX NUMBER TO 


N59Q 0 006 


00 0 7 




TWO 

WORD ASCII 

FOR PRINTING. 


N593 0007 

o 

000 8 




Q-REG.=HEX NUMBER 



N590 0008 

00 0 9 




WORD FOLLOWING 

CALL CONTAINS RELATIVE 


N59b 0009 


0010 




INCREMENT TO 

WHERE ASCII IS TO BE STORED. 


N590 Q 010 


0011 




RETURN IS MADE 

TO 

SECOND WORD FOLLOWING CALL. 

N590 0 011 


0012 









N59Q Q 012 

L.-’ 

0014 





E N 

T 

R Y NAME 


N590 0014 


0015 




ENT 

HEXASC 




N590 0015 

o 

0017 





•* E 

Q 

U " TABLE 


N5 9J0 017 

0018 


0 0 02 


EQU 

ZER0C2) ,MASK13) 


N590 0018 




0 0 03 







o 

0020 









N59Q0020 


0021 



if. 



P 

ROGRAM START 


N59Q0021 


0022 









N5900022 

'■u 

0024 

P 0 0 0 0 

0 BOO 

HEXASC 

NOP 

0 


ENTRY 


N59jQ02h 

; O 

0025 

POOOl 

4821 


STQ^ 

HEXHEX 


SAVE HEX NO. 


N5900025 

0026 

P00 0 2 

CCFD 


LDA^ 

{HEXASC ) 


CALC. ABS. LOG. TO PUT 


N590 0 026 


0027 

P00 03 

88FC 


ADD + 

HEXASC 


ASCII CHARS. 


N590 0 027 


0028 

P00Q4 

681F 


STA^ 

HEXLAS 




N593 0028 

■ o 

00 29 

P00 05 

D8FA 


RAO"^ 

HEXASC 


BUMP RETURN AROUND PARAMETER 

N59G0029 

003 0 

P0 00 6 

0 8 44 


CLR 

A 




N590 0U3D 


0031 

P0Q07 

6 810 


STA^ 

HEXCH 


INITIALIZE ASC WORD TO BE 

MADE 

N5900Q51 


0032 

P0008 

OCGl 

HEXODl 

END 

1 


INITIALIZE COUNTER FOR 2 

WDS. 

N590D032 

: o 

0033 

P0009 

481C 

HEXQ02 

STQ^ 

HEXCNT 




N5900 033 

00 3 4 

PQOOA 

0 8 42 

HEX003 

CLR 

Q 


GET A HEX DIGIT 


N590 0 03«t 


0035 

POOOR 

C817 


LDA + 

HEXHEX 




N590 0 035 


0036 

PQOOC 

0FE4 


LLS 

4 




N590 0 036 

■ o 

0037 

POOOD 

6815 


STA^ 

HEXHEX 




N59Q0037 

0038 

POOOE 

08 14 


IRQ 

A 




N590 0 038 


0039 

POOGF 

09F5 


INA 

-$A 




N5900039 


004D 

POOlO 

0 121 


SAP 

HEX004- ’■-1 


SKIP IF DIGIT A THRU F 


N590004G 

o 

0041 

PO Oil 

C9F8 


INA 

S3A-$4i 




N59Q0041 

0G42 

PO 012 

0 9 41 

HEX004 

INA 

$41 


CONVERT TO ASCII 


N5900042 


0Q43 

P0013 

E811 


LOQ» 

HEXCH 


GET ASC WORD 


N590 0043 


0044 

POO 14 

01 53 


SQN 

HEX005-^-i 


SKIP IF THIS IS NOT FIRST 

CHAR. FOR WORD 

N5900044 

0 

0045 

P0015 

0FC8 


ALS 

8 




N590Q045 

0046 

PD016 

68 OF 


STA-'^ 

HEXCH 




N593 0 Oh-6 


0047 

P0017 

18F2 


JMP^^ 

HEX003 


GO TO GET NEXT HEX DIGIT 


N5900047 


0048 

PO 018 

0 8 74 

HEX005 

FAQ 

A 


BUILD ASC WORD 


N590G 048 

o 

0049 

P0019 

F8 OA 


LDQ^ 

HEXLAS 


STORE IT IN SPECIFIED 


N59Q 0049 

005 0 

POOIA 

6602 


STA- 

(ZERO ) , Q 


LOCATION 


N590 0 05 G 



o 




HXAS 


PAGE 2 


date; Ql/27/99 


0051 

PDOIB 

D806 



00 52 

POOIC 

E8 09 



0053 

POOID 

0143 



0054 

POOIF 

QDFh 



0055 

PCOIF 

48 05 



00 56 

PQ020 

18E8 



005 7 

P0D21 

ICOE 


HEX006 

0058 




* 

0059 





0060 

P0022 

0 000 


HEXHEX 

0061 

P0023 

0 0 0 0 


HEXLAS 

006 2 

PG024 

0 0 0 0 


HEXCH 

0063 

P002 5 

0 0 00 


HEXCNT 

0064 
006 5 


0 000 

P 

* 

0066 


0 0 01 

P 


0067 


0060 

P 


00 66 
0069 

PO 026 

003A 




RAO^ HEXLAS 
LDQ^‘ HEXCNT 
SQZ HEX006-^-i 
INQ -i 
STQ^ HEXCH 
JMP^ HEX002 
JMP» <HEXASC) 

CONSTANTS 
0 0 
0 0 
C 0 
0 0 

EQU SA25(^/96) 

EQU SP25!SA25+1) 
EQU OB25{SP25^96 ) 
BSS 10825-^) 

END 


BUHP TO NEXT LOG. 

SKIP IF DONE 

INITIALIZE ASC WORD TO BE MADE 
RETURN TO SENDER 

HEX NUMBER 

LOC. TO STORE ASCII 

STORAGE FOR ASCII WORD BEING BUILT 

ASCII WORD COUNTER 


N590 0051 
N59Q 0052 
N59GD053 
N5900 05i* 
N5 9 0 0 05 5 
N5900Q55 
N590Q057 
N590 0 058 
N5900059 
N590 0060 
N590 0061 
N590 0062 
N590 0063 
»^HSOSi*.0»^^N590 006L 
^*MSOS4.a«-^N590 0 065 
»*MSOS4.0*-»N590 0 066 
»’^-MSOS4.Q^’^N5900067 
^»MS0S4. 0^^N590 0 068 
N5900069 


O 

o 

o 

o 

o 

o 


96) COM = 


0 ) 


PGM = 


0060 I 


0000 { 


DAT = OODO ( 


0 ) 


HXAS 


PAGE 


3 


DATE5 Oi/27/99 


EQUIVALENCES 


DEF. LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 

D OOC 

I 

OOFF 

(000255) 


0018 

ZERO 

000 2 

(000002) 

0 0 50 

0 018 

MASK 

00 0 3 

(000003) 


HXAS 

o 


o 

S Y M B 0 

L S 


o 

DEE. LINE 

NAME 

ADDRESS 


0 015 

HEXASC 

0 0 0 0 


0032 

HEXOOl 

00 08 

o 

00 33 

HEX002 

0 0 0 9 

0 03L 

HEX003 

OOOA 


00 A2 

HEX004 

0012 


0 0 48 

HEX005 

0018 

o 

0 057 

HEX006 

0021 

0 060 

HEXHEX 

0022 


0 061 

HEXLAS 

0023 


0062 

HEXCH 

002 4 


0 063 

HEXCNT 

0025 

U ■ 

006 5 

SA25 

OOOC 


0066 

SP2 5 

00 0 1 

o 

006 7 

DB25 

0060 


o 


o 

o 

o 

o 

o 

o 

o 


page date: 01/27/99 


REFERENCED AT 

LINE NUMBER 

0015, 

0 0 56 
0 0 47 
00 40 
0 044 
0 0 53 

0 0 2 6, 

0027, 0029, 0057 

0 025, 

0 035, 

0 037 

0 028 , 

0 049, 

0051 

0 0 31, 
0 0 33 , 
0 066 
0 067 

0 043, 
0 052 

0046, 0055 


0 068 


o 



u 

o 




D062 


HEX005 0048 HEXQ06 0057 HEXASC 0015 HEXCH 

SA25 0065 SP25 006d ZtRO 0018 


o 

o 

o 

o 

o 

o 

o 

c 

o 

C' 

o 

o 

o 

o 

C'\ 


0001 
C002 
00 0 3 
000 4 
00 0 5 
00 0 6 
00 07 
00 0 8 
00 0 9 
0010 
0011 
0012 

0013 

0014 

0016 

0017 

0019 

0020 

0022 
00 23 

002 4 


0026 

0027 


00 28 


00 29 


0030 


0031 

0032 


003 4 


OECDMP 


PAGE 1 date: 01/27/99 


¥■ 

V- 

¥ 

♦ 

* 

-¥■ 

* 


NAH OECDMP DECK- ID N60 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-116^^^’^^’-'^’^ 
N60Q0002 
N6 00 0 0 0 3 
N6GG0004 
^^MSOS‘-.Q^’‘N600 0 00 5 


THIS SUBROUTINE PRINTS OUT CORE CELLS IN DECIMAL 

FORMAT ON THE COMMENT OUTPUT DEVICE. THE CODE 
IS VERY SIMILAR TO THE HEX FORMAT ROUTINE. 


NO 


Q REG HAS NUMBER OF CELLS TO OUTPUT 
Q GREATER THAN SIXTEEN INDICATES A RELATIVE CALL 
WITH A BIAS OF SIXTEEN 

ADDRESS TAG IS PRINTED (ROUTINE WOULD EXCEDE 


^^MSOS4.0*-*^N600 0 Q06 
«-«^MSOS4.0’^-N600 0 0D7 
^^MSOS4.0^-N60Q 0 00 8 
»-MSOS‘t. 0*^'^N60Q 0 009 
«^^MSOS4.0^-^N&0>j0010 
’^^MSOSh.G ^^N503 0 Gil 
^»MSOS4.0’^^N600 QQ12 
A REA 3) ^»MSOS4.0^»N6 00 0 G13 
^*MS0S<4.Q»^N5GG[)Q1h 




V- 


«■ 


ENT 

DECDMP 

r— 

c 

N 

T 

R 

Y 


NAME 

N6Q0 OOlb 
MdOQDOIT 

EXT 

CHRSFG 

E 

X 

T 

E 

R 

N 

A L • 

N603 0 019 
N603002G 

EXT 

EXT 

MSG 

OFF 

E 

X 

T 

E 

R 

N 

A L S 

NoOuOGZZ 
N600 0 023 
N600 0 024 


u 0F4 
QQEA 
0 0 02 
0012 
0 0 33 
0 0 h3 
0 0 44 
0 022 
0 023 
0 027 
0 02C 
D02F 
0 0 2A 
0 026 
0 0 45 
0 0 04 
0 0 03 
0 024 
G 0 46 
0 0 03 


'EQU' TABLE N60a0Q26 

EQU AMONI (SF4) , A D IS P ( $ E A ) , LPHS K ( 2 J ,NZER0('il2) ,ZROBIT ($33) N600 0 027 

EQU FIVE ($43), SIX ($44) , ZERO ($22) ,0NEBIT($23) ,SIXTEN ($27) N6000028 


EQU COMMA ($20, SLASH($2F) ,ASTRIC($2A) N603 0 0 29 

EQU EIGHT($26) ,MINE($45),THRE£(4) ,0NE(5),TW0($24) N600 C)Q30 


EQU TEN ($46) 
EQU MASK(3) 


^«^MSOS4.0^^N6000Q31 

N&C00032 


V- 


PARAMETER LOCATION (OFFSET FROM BASE) 


NoOO 0034 


00 3 5 
00 3 6 
0037 
0 038 
0039 
00 40 

0041 

0042 

0043 

0044 
0 0 4 5 

0046 

0047 
00 48 
0049 


0051 

0052 


005 4 

0055 

0056 

0057 
00 58 


0060 

0061 

0062 


006 4 

0065 

0066 

0067 

0068 
0069 
00 7 0 

0071 

0072 

0073 

0074 

0075 

007 6 

007 7 

0078 

0079 

0080 
0081 
0082 

008 3 


DECDHP 


PAGE 
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0 0 01 
0 0 02 
0 0 03 
00 04 
0 0 05 
0 0 06 
0 0 07 
0 0 08 
0 0 09 
OOOA 
00 OB 
GOOD 
0010 
0011 
0012 


EQU HANDLE(l) 
EQU BMSG(2) 

EQU S0MM0R(3) 
EQU I0ERR(4J 
EQU LISTLU(5) 
EQU C0M0LU(6) 
EQU NEWMLU(7) 
EQU PROGK8) 
EQU PR0G2(9) 
EQU BITFLGdOJ 
EQU BUFCNTdl) 
EQU FIELD (12) 
EQU SLASHF(16) 
EQU 8UFEMTC17) 
EQU BUFFERdS) 


"HANDLE" 

"MSG" ENTRY 
"SOMMOR" ENTRY 
"lOERR" ENTRY 

LIST OUTPUT 

"COMOLU" 

"NEWHLU" NEW 

"PROGl" 

"PR0G2" 

"BITFLG" 

"BUFCNT" 

"FIELD" 

"SLASHF" 

"BUFEHT" 

"BUFFER" 


LISTLU 
NM LU 


<• 


N603GQ3p 
N600D036 
N60D 0 0 37 
N&DQQ038 
N60D 0 039 
N60 0 0 040 
N6000 J4l 
No0a0042 
N600 0043 
N600Q044 
N6090G45 
N600 0 046 
N60Q 0 047 
N6GG0048 
N600 0 049 


0 0 07 


EQU 


VARIABLE EQUS 
CHRSLV(73 LEVEL OF 


THIS PROGRAM 


N6000051 


08FC 
0 8FD 
G8C2 
1 Q 0 0 


EQU 

EQU 

EQU 

EQU 


EQUS 

COMOUT ( $8FC) 
COMLU (S 8FD) 
MASSLU( 28C2) 
ASMOD (SIOOO ) 


FOR LOGICAL UNITS 
TYPE OUTPUT LOGICAL UNIT 
INPUT COMMENT LOGICAL UNIT 
MASS MEMORY LOGICAL UNIT 
ASCII MODE OUTPUT 


N600 0054 
NdOu 0 055 
N603005O 
N6C0 G 05 7 
N5G3u058 









POOOQ 

0 BOO 

DECOMP 

NOP 

0 

POOOl 

6840 


STA^ 

BASE 

P00 02 

60 FF 


STA- 

I 

P 00 0 3 

8112 


AOD- 

BUFFER, I 

P 0 00 4 

6837 


STA-> 

CHEAP 

PQ005 

683A 


STA’' 

BUFADD 

POOQ 6 

09FE 


INA 

-1 

P000 7 

63 37 


STA^ 

TEMP 

P00G8 

0902 


INA 

2 

P0 0 0 9 

6837 


STA^ 

BUFAOD+1 

POOOA 

C105 


LDA- 

LISTLU, I 

P0008 

8832 


ADD+ 

MODE 

POQOC 

6820 


STA» 

OTLU 

POOQD 

CCF2 


LDA^ 

(OECDMP ) 

POOOE 

ODEF 


INQ 

-16 

POOOF 

0173 


SQM 

NTREL 

POOlO 

88EF 


AOD^ 

DECDMP 

PQQll 

AOll 


AND- 

MASK+14 

P0012 

1802 


JMP^ 

OLN301 

PQ013 

OOlO 

NTREL 

INQ 

16 


PROGRAM START 




N6G00060 
N603 0051 
N5090062 


SAVE PARAMETER BUFFER ADDRESS 
CALCULATE "BUFFER" ADDRESS 

"BUFFER"-! 

"BUFFER“+1 

GET LIST LOGICAL UNIT 
+ MODE (ASCII) CODE 

SKIP IF NOT RELATIVE 


^^^MSOS4.0»*N60ap&4 
No 0 G 0 0 6 5 
N6G0 0 06b 
N603Q067 
N6 C 0 0 0 5 8 
N6G j 0 069 
NoOOQ 070 
N5000G71 
N600D072 
NoQQ 0073 
N600 0 374 
Nb 0 3 0 0 7 5 
N60G u 076 
-^’^MSOS4,0»-»Nb00 0 077 
»^MSOS4.0»-^H600 0 07 8 
^^MSOS4.G5^^N60QOQ79 
*^HSOS4.0«^^N5QOQ080 
N6Q0 0081 
^^HSOS4.0*’‘N60GQ 03 2 
»’fMSOS4.0^^N500 0 0 33 


OECDMP 
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0100 
0101 
0102 
010 3 
0104 
DIO 5 

010 6 
0107 
010 8 

0109 

0110 
0111 
0112 


POO 14 
P0015 
P0016 
P0017 
P0013 
P0019 
POOIA 
POOIB 
PQOIC 
POOlO 
PO OlE 
PDOIF 
P0020 
P0021 
PQ022 


P0023 
P0 024 
P0D25 
PQ026 
P0Q27 
P0028 
P0029 
P0 02A 
P0028 
PO 02C 
PQ02D 


68 3 7 
4837 
0 8 42 
40FF 
C835 
6D26 
DOFF 
CC30 
5835 
082E 
C8 2E 
0 9FE 
0 102 
6828 
18F5 


GOFF 
6 316 
C400 
7FFF 
E81A 
0117 
C805 
9305 
8202 
0822 
1622 


DLN301 STA^ 
STQ^- 
CLR 
STQ- 
DLN006 LDA^ 
DLNG07 STA^ 
RAO- 
LDA^ 
RTJ^ 
RAO» 
LDA^‘ 
INA 
SAZ 
STA^ 
JMP» 


DLNADD 

OLNCTR 

Q 

I 

DLNSP2 
tBUFADO ) 
I 

(DLNADD) 

DLNPIB 

OLNAOD 

DLNCTR 

-1 

DLNOUT 
DLNCTR 
DLNOO 6 


^ BUFFER FULL 

* 

DLNO'JT LDA- I 

STA» DLNLEN 
X LDA CHRSFG 

X 

LOQ^ BASE 
SAN DLNCON 
LDA’ OFTB 
SUB^ OFTB+1 
ADD- BMSG,Q 
TRA Q 

JMP- (ZERO),Q 


STUF 2 SPACES 


CONVERT AND STUF A WORD 


SET UP LENGTH 

CHECK IF PROGRAM TO BE 

RESTORE PARAMETER ADDRESS 
TURNED OFF 

CALCULATE "OFF" ADDRESS 


TO "OFF", EXIT 


0114 » 

0115 PQ02F 7FFF X OFTB ADC OFF 

0116 PQ02F 7FFF X ADC MSG 

0117 


0. "OFF" 

1. "MSG" 


P0030 
P0031 
P0Q32 
PQ033 
P0034 
P0035 
PO 036 
P0037 
P 0038 
P0039 
P0 03A 
P0038 
P 003C 


58 01 
0 BOO 
C8FE 
0911 
6 3 03 
5 4F4 
0G07 
0 0 00 
QOQO 
0 0 0 0 
3 0 0 0 
0 0 00 
14EA 


DLNCON 

TRAP 


DLNCA L 
DLX 

OTLU 

DLNLEN 

CHEAP 


RTJ^ TRAP 

NOP 0 

LOA-^ TRAP 

INA QLMEXT-TRAP 

STA* DLX 

RTJ- (AMONI) 

ADC $COO + CHRSLV 

NUM Q 

NUM 0 

NUM 0 

NUM 0 

NUM 0 

JMP- (ADISP) 


GENERATE EXIT ADDRESS 


EXIT ADDRESS (TO BE FILLED) 
LOGICAL UNIT (TO BO FILLED) 


P0D3D 1000 


ASMOD 


O 


^’^MSOS4.0’^-N600fl084 
^’^MSOS4.Q»^N60Q0 085 
»«MSOS4.Q^’^N6000 086 
’^^MSOS4.D»^N6000 037 
^«‘MSOS4.0’f^N6QQ 0 088 
N600 0 089 
^•^MSOS4.O’f^N6OOO09O 
^^MSOS4.0<^^N600G091 
’^^MSOS4,0^^‘N600 0 092 
♦^HSOS4,0*^N6000G93 
^«-HSOS4.a^*N6000 Q9‘+ 
»»HSOS4.0»=^N600 0095 
^^fMSOS4.0^»N50QG096 
»^^MSOS4.0»»Nb00 0 097 
»»MSOS4.0*'^N&0CG098 

»’^MSOS4.Q»^N6000 iOQ 
»^MSOS4.0^»N600010i 
»^MSOS4.0^-^N6 00 0102 
^»MSOS4.0^^N6G00103 
»^^MS0S4 .0 *M6eO 0 10 ‘T 
N6D0 0105 

N600 0106 
■*f^MSOS4,Q»^N&00G107 
N600 0 10 8 
N600 010 9 
N600Q 110 
N6GD 0111 
N500D112 


N6000114 
N6 00 Oil 5 
N60a0116 
N5000117 


N600Qlig 
N6D.3 0 12 0 
N6GQ 0121 
N6030122 
N60GQ123 
N&DO 0124 
N6G00i25 
N600 0126 
*^MSOS4.0’-*NoCQ0127 
N6030128 
^^HSOS4.G«^^N6QOQ129 
N6Q00130 
^^MSOS4.u*^^N60GG13i 
N6000132 
N6000 133 


c 

!C’ 

O 

o 

o 

L..' 

o 

o 

o 

o 

o 

o 

o 

o 


o 



DEGDHP 
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0135 ^^BUFADD'^DONTAIN “BUFFER” ADDRESS TO BE FILLED 

0136 G03F P BUFAOD EQU BUFADOC TEMP+1 ) 

0137 ♦ 


N6 00 0 13 4 
N6000135 
N6DC 0136 
M6QG0137 


0139 

0140 P0041 0000 

0141 

0142 

0143 P0D42 0163 

0144 P0Q43 E8FD 

0145 P0G44 E204 

0146 P0045 1622 


jf- 

BASE NUM 0 

♦ SET UP FOR NEXT 

OLNEXT SQP OLNOK 
LDQ» BASE 
LDQ- lOERR.Q 
JMP- (ZERO),Q 


CELL IN CASE LONG PRINTOUT 

RESTORE PARAMETER ADDRESS 
CALCULATE “lOERR" ADDRESS 
EXIT TO “lOERR" 


N600 0139 
N6u00l4D 
^^MSOS^.Q’'^N6000141 
♦»MSOS4.0»^N6GQD142 
’^^MS0S4. 0^’^N6000143 
N6000144 
N60Q 0145 
N6G0 C 1 h6 


0148 PC046 CCB9 

0149 P0047 0908 

0150 PD046 6CB7 

0151 P0049 D8B6 

0152 POOi-A 1CB5 

0153 

0154 

0155 P004B 0000 
015b P004C 0000 
0157 P0Q4D 2020 
‘0158 PQQ4E 00 00 
0159 P004F 2B00 
0150 P0050 2000 
0161 

0162 

0153 

0164 P0051 OBOO 

0165 P0052 68F8 

0166 P0053 0125 
016 7 PO 054 0 8 64 
0163 P0055 68F8 

0169 P0056 C8F9 

0170 P0057 6DE7 

0171 P0058 1803 

0172 PQ059 C8F5 

0173 P005A 18FC 

0174 P005B C8F2 

0175 P005C G842 

0176 P005D 3046 

0177 P005E 0D30 

0178 P005F DOFF 

0179 P0060 4D0F 

0180 P0061 0842 

0181 P0062 3046 

0182 P0063 0D30 

0183 P0064 OFFO 
Q18-+ PCC65 0FC8 
0185 P0066 BDD9 


OLNOK 


* 

V- 

DLNADD 

DLNCTR 

DLNSP2 

DLNTMP 

OLNPLS 

OLNMNS 

DLNPI8 


OLNCIO 
DLNOD 9 
DLN008 


LOA^- (DECDMP) 
INA 8 

STA^ (DECDMP) 
RAO^ DECDMP 
JMP» (DECOMP) 


FLAGS, COUNTERS 
NUM 0 
NUM 0 
ALF 1» 

NUM 0 
NUM $2B00 
NUM 32D00 


£ TC • 

WORD ADDRESS 
WORD COUNTER 
2 SPACES 

PLUS SIGN 
MINUS SIGN 


SUBROUTINE TO STORE VAL IN A REG INTO 
DECIMAL ASCII FORMAT 


NOP 

0 

STA^ 

DLNTMP 

SAP 

DLN0Q9 

TCA 

A 

STA^ 

DLNTMP 

LOA^ 

OLNMNS 

STA^ 

(BUFAOD ) ,I 

JHP^ 

DLN008 

LOA^ 

OLNPLS 

JMP» 

OLNOIG 

LDA'f 

DLNTMP 

CLR 

Q 

DVI- 

TEN 

INQ 

$30 

RAO- 

I 

STQ^ 

( BUFADD + 1) , r 

CLR 

Q 

DVI- 

TEN 

INQ 

$30 

LLS 

16 

ALS 

8 

EOR^ 

(BUFADO+1) ,I 


CHECK FOR SIGN 
MINUS 

PLUS 

CONVERT TO DECIMAL 


BUFFER IN 


»»MSOS4,0^^N50Q0l48 
«‘’^MSOS4.0«-»N6DQ Q 149 
»»HSOS4.0»-*^N60 0 015 0 
=^-^MSOS4.G^-5^N6D0 0151 
’^»^MSOS4.0»^Nb00 0 152 
»^MSOS4.0^^N6000153 
^^MSOS4.0^^N60 0 015 4 
MSOS4.0 5^"^N6C0 0 Ip 5 
*^MSOS4,0»»N5D00156 
^^MSOS4,0^^N6D0015 7 
’‘^MSOSi^.O^^NBOO 0158 
^’^HSOS^. O^'^NoOO 0159 
^»MSOS4.0’-'*^N60Q 0160 
^^MSOS4.fl*’*^N&DQ0161 
»^MSOS4.0»^N&00G 162 
’^«^MSOS4.0’^NbG0 0163 
^’^MSOS4.0’-^N60GQ16 4 
^^MSOS4,0»^N&DG 016 5 
^^MS0S4.0^*N&C00io6 
^«‘MSOS4,0»’-N6 00 0167 
^^MSOS4.0’^^N600 G168 
^^MSOS4.0’^-^N6GOQ159 
N60 J 0 17 0 
^^^MSOS4.0»^N6GQ 0171 
*^MS0S4. 0^ ^NoOO 0 17 2 
^»^HSOS4.G’^'^N6000 17 3 
^^■*MSOS4.0^»N6G00174 
»^MSOS4.0^*N6G0 017 5 
^^MSOS4.0^^N6BGQ176 
»’^HSOS4.0*^N&00 0 17 7 
^^■»MSOS4,0»^N60GQ178 
NbOQ 0 179 
^^MSOS4.0«^*N60 0 0 18 0 
’^»MSOS4.0'^*N60CG181 
»»MSOS4.0«^^N6eGG182 
^«-MSOS4.G’^»N60 0 0185 
»»MSOS4.0*‘*N60Q0184 
N6G 0 0 18 5 


DECOMP PAGE 5 DATE: 01/27/99 


0186 P0067 6DD8 STA^ (BUFADD+1),I 

018 7 P0 068 0 814 TRQ A 

r, 0188 PG069 0 8 42' CL R Q 

0189 P006A 30 46 DVI- TEN 

0190 P006B 0D3O INQ $30 

0191 P006C 4DD2 STQ^ (BUFAOD),! 

0192 P0G6D C842 CLR Q 

0193 P0Q6E 30 46 DVI- TEN 



0194 

PD06F 

0D30 


INC 

$30 


0195 

P0070 

OFFO 


LLS 

16 


0196 

P0Q71 

0FC3 


ALS 

8 

O ' 

0197 

P0072 

BDCC 


EOR^ 

CBUFAOD) ,I 


0198 

P0073 

6DC8 


STA» 

(BUFADO ) ,I 


0199 

P0074 

0,814 


TRQ 

A 


020 0 

P 0 0 75 

0 8 42 


CLR 

Q 

. J 

0201 

P0076 

3 0 4b 


OVI- 

TEN 


0202 

P0077 

0030 


INQ 

$30 


020 3 

PC 0 78 

0 814 


TRQ 

A 

•' \ 

020t 

P0079 

BDC4 


EOR^ 

(BUFADD-1) ,I 

i, 1 

020 5 

P0Q7A 

60C3 


STA^' 

(BUFAOO-l) 


02 0 6 

P007B 

DO FF 


RAO- 

I 


020 7 

PD0 7C 

DO FF 


RAO- 

I 


0208 

P007D 

1CD3 


JMP^ 

tDLNPIB) 


0210 



¥■ 




0211 


0 0 01 

P 

EQU 

SU07 (-if/ge) 


0212 


0 0 02 

P 

EQU 

SB07(SU07+1) 


0213 


GOCO 

P 

EQU 

OS0 7 iSB0 7’9.6) 


0214 

PQ07E 

0 0 42 


BSS 

■(D3Q7-») 


0215 




END 



PGM= 0 0 CO ( 192 ) COM = 0 00 0 { 0 ) OAT = OOOO ( 0 ) 

O 

O 

O 

O 

o 


o 


No 0 J 0 1 8 6 
»'^MSOS4,fl»»N6000187 
^^MSOS4.0»»N6C0C188 
^»MSOS4.Q»^N5000189 
-^MSOS4.0^^N6000i9G 
N6000 191 
♦»MSOSH.0'^*N500 ui92 
•^»MSOS4.0’^N6000193 
»»MSOS4.0»^N6000194 
^->MSOS4.0*‘»N600 0195 
*»MS0S4.Q^’^No00 0 196 
N&000197 
N6G0 0198 
»«^MSOS4.0'^«^N600 0199 
^»MSOS4.0 s^^NoOO 0 20 0 
^^MSOS4.0»^N60] 0201 
»»MSOS4.0»»N60QG202 
*»HSOS<-.0’*‘^N6G0 0 2Q3 
No 0 0 0 20 4 
NbOO Q205 
-■5^MSOS4.0=^^No0G 0206 
»^MSOS4. 0»^N6D00207 
»^MSOS4.0»^N6CCC208 


N600Q210 
No 00 0 211 
N600 0 212 
Nb000213 
N5Q0 0214 
N60Q0215 


O 

O 

O 

o 

o 

C'''i 

o 

o 


Q 

O 

O 

O 

O 

o 















1 

o 


OECDMP 


PAGE 5 

DATE: 

01/27/99 





r\ 

o 

E a u I V 

A L E N C 

E S 









■ o 


DEF. LINE 

NAMF 

7ALUE 


REFERENCED AT 

LINE NUMBER 






; O 


OQOQ 

I 

OOFF 

(00G255) 

0066, 0067, 

0090, 0103, 

0178 , 020 6, 0207 







0 027 

AHONI 

00F4 

(00Q244) 

0 124 









002 7 

ADISP 

OOEA 

t C0C234) 

0131 







■ ( ) 


0027 

LPMSK 

00 02 

(000002) 










0 027 

NZERO 

8012 

(000018) 










0 0 27 

ZROBIT 

0033 

(000051) 









o 

0 028 

FIVE 

0043 

(000067) 








■ O 

0 028 

SIX 

0044 

(CC0068) 










0 0 28 

ZERO 

0022 

(030034) 

0112, 0146 









0 026 

ONEBIT 

0023 

(000035) 










0 0 28 

SIXTEN 

0027 

(300039) 










0 0 29 

0 ON HA 

002C 

(000044) 










0 0 29 

SLASH 

002F 

(000047) 










0029 

ASTRIC 

002A 

(000042) 










00 30 

EIGHT 

0026 

( 000038) 








(_) 

) 

0 030 

NINE 

004 5 

(0000693 










0 030 

THREE 

000 4 

( 00000 4) 










0 0 30 

ONE 

00 03 

(000003) 








■ o 


0 0 30 

TWO 

002 4 

1 003036) 








'-x) 

0031 

TEN 

0046 

(000070) 

0176, 0181, 

0189, 3193, 

0 201 







0 0 32 

MASK 

0003 

( 000003) 

0 0 81 









0 03 5 

HANDLE 

0 001 

1 QOODOl) 








• o 


0 036 

BMSG 

0002 

( 000002) 

0110 







Q 

0 03 7 

SOMMOR 

0003 

(000003) 










0038 

1 0 E RR 

000 4 

(00QQ04) 

0145 









0 039 

LISTLU 

000 5 

(000005) 

0 074 







• © 


0040 

COMOLU 

0006 

( 003006) 








'X'’ 

0041 

NEWMLU 

00 0 7 

(D00007) 










0 0 42 

PROGl 

000 8 

(000008) 










0 0 43 

PROG2 

00 09 

( 0Q0009) 








■ © 


0044 

0ITFLG 

OOOA 

(000010) 








o 

0 045 

8UFCNT 

0 DO e 

(000011) 










00 46 

FIELD 

oooc 

(000012) 










0 047 

SLASHF 

0010 

( 000016) 








■ o 

n 

‘w^ 

0 048 

BUFEMT 

0011 

( DQ0017) 








0 0 49 

BUFFER 

0012 

(000018) 

0 067 









0 0 52 

CHRSLV 

0 00 7 

(000007) 

0125 









0 0 55 

COMOUT 

08FC 

(002300) 








r^\ 

O 












o 

o 












; O 

o 












■ o 













o 

o 


















. 




- — ' ■ 







DECOMP 

PAGE 7 

date: 01/27/99 

0 0 5 6 

COMLU 08FD 

I 002301) 


0 0 57 

MASSLU G8C2 

1002242) 


0 058 

ASMOO 1000 

(004096) 0133 



o o 


o 




o 


o 


o 


o 




'O 




^ ) 


o 


‘■-J 


o 


o 


n 


O 


O 


{ _1 





DECDHP 


PAGE 


8 


DATE! 01/27/99 



o 

o 

o 


o 

o 


REFERENCED AT LINE NUMBER • Q 


0017, 
0079 
0 0 82 
0 098 

0 077, 

0G8Q, 

0148, 

0150, 

0151, 0152 

^ o 

0 096 
0108 , 
0107 

D1Q9 





; O 

0119, 

0121, 

0122 





0 123 
0 0 76 
0 10 4 






r^j 

•w--' 

0 068 







0 0 75 






- ( ) 

0 071, 
0 0 69 , 

0136 
0 073, 

GO 89, 

0 170 , 

0179, 

0185, 0186, 0191, 0197, 0198, 02Gh, 0205 


0 0 65 , 
0122 
0143 

010 6, 

01h4 




: 


0084, 0091, 0093 


0 0 85 , 
0 0 88 

009 4, 

0 097 

o 

0 1 65 , 
0172 

0168, 

0174 


0169 




0 0 92 , 
0173 

0208 


' u 

0165 
0171 
0 212 
0 213 
0 214 



■ O 



O 


o 

o 

c 


o 


page 9 date: 01/27/99 


REFERENCED AT LINE NUMBER 

0105 
0 116 
0 115 

o 

o 

o 

o 

o 

o 

o 

o 

n 

o 

o 


r",: 

OECDMP 

c* 


C') 

E X T E R 

N A L S 


O 

DEF.LINE 

NAME 

VALUE 

0 0 20 

CHRSFG 

0026 


0 023 

MSG 

002F 

o 

0 0 2 4 

OFF 

002E 


c" 

o 

o 

o 

n 



O 


o 




O 

O 

O 

O 

O 


o 


o 



o 

o 


o 

o 



o 

o 


o 


c;. 

o 


8ITFLG 

QQ4i+ 

BMSG 

0036 

BUFADO 

013 6 

BUFCNT 

0045 

O 

COHLU 

0 056 

COMMA 

00 2 9 

COMOLU 

0040 

COMOUT 

0 055 


OLNOlO 

0 17 0 

DLN301 

00 8 4 

DLNAOD 

015 5 

OLNCAL 

0125 


DLNOK 

0148 

OLNOUT 

010 3 

DLMPIB 

016 4 

DLNPLS 

0159 

■ O 

FIELD 

C046 

FIVE 

00 2 3 

HANDLE 

0 035 

I 

0 0 00 


MOD E 

0133 

MSG 

00 2 3 

NEWMLU 

0041 

NINE 

0 03 0 


ONEBIT 

0028 

OTLU 

0128 

PROGl 

0042 

PROG2 

0 0 43 


SOMMOR 

0 037 

SU0 7 

0211 

TEMP 

0134 

TEN 

0 0 31 

o 


o 

n 

O 

O 

o 

o 

o 

o 

o 

D 


FETMM 


PAGE 


DATE! 01/27/99 


r-' 


0 00 1 
00 0 2 
00 0 3 
000 4 
00 0 5 
00 0 6 
00 0 7 
00 0 8 
00 0 9 
0010 
0011 
0012 
0013 
001*4 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
00 23 

0024 

0025 

0026 

0027 

0028 
0029 
003 0 

0031 

0032 
00 33 

0034 

0035 

003 7 
0038 

0040 

0041 


0043 


-f 

if- 

>r 

>/■ 

Jf- 

>h 

* 

Jf 

¥ 

* 

Af 

Jf 

Jf 

Jf 

Af 

Jf 

Jf 

Jf 

Jf 

Jf 

Jf 


NAM FETMM DECK-IO N61 HSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS OIVISIONt LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

4i;VJ*fJfJf'fJfJf*fJfJfJf«f«^»'=<‘^ Jf Jf Y- Jf Jf Jf Jf Jf Jf JfJf Jf Jf 4^ lY-^fJfY-JfJfJfJfJfJfJf^fJfJfJfJf 
Jf ^ 

^ ROUTINE TO GET AND CHECK MM ADDRESS * 

Jf * 


MASS memory ADDRESS INPUT FORMAT 


( 1 ) 

(21 

(31 


CALLING SEQUENCE 

RTJ 

ADC 


MSB SECTOR 

LSB 

WORD 


HANDLE 

BUFFER 


Q-REGISTER CONTAINS REQUEST CODE 

0 = RETURN WITH WORD ADDRESSING 

1 = RETURN WITH MSB, LSB AND WORD 

2 = ADDRESSING CONVERSION ONLY 

BUFFER CONTAINS MM LU AT ENTRY 
BUFFER CONTAINS MSB AND LSB IN 
RETURN 


ENT FETMM 


EXT LOGIA 


ENTRY 


NAME 


EXTERNAL 


45 CARDS DELETED 


SUMMARY-ISE^^^^^^’-’-- 
N6ig0002 
N6 lu U 3 0 3 
NdIOOQO^ 
N610 0 00 5 
N61G 0 0 0 6 
N613 0 00 7 
N61Q 0 008 
N61G 00Q9 
N610G010 
N610 0 Oil 
N6100012 
N6100013 
N5100014 
No 10 0 015 
N610 0 015 
N613 0 017 
Noiaooia 
N610 0 019 
N61Q0020 
NdIGO 021 
N&1QG022 
N61J 0 02 3 
N610 0 024 
N 6 1 0 0 0 2 5 
Nolp 0 026 
N5lLiGG27 
N6100 023 
N 0 IOOO 29 
N61U 003 0 
N610Q031 
N61UUG32 
N6100Q33 
N610D03H 
N6100035 

N610 0 03 7 
N61u 0038 

N6100Q4D 
N610 0 041 


132’^4963«^^-*^»’^-s'-^^ 


o 

o 

o 

r') 


{ 


O 

o 

o 

o 

o 

o 


o 


0045 

0046 


0 0F4 
OOEA 
0 0 02 
0012 


EQU AMONI ($F4f ,ADISP($EA) ,LPMS K ( 2 ) , NZ ERG ( $1 2 ) ,ZR0BIT($33) 


N610 0 089 
N6100090 


n 


O 


o. 



FETMM 



PAGE 2 

date: 01/27/99 




0 

o. 

0047 


0 0 33 
0 0 43 


Eau 

FIVE{$43) ♦ 

SIX ($44) ,ZERO ($22) , ON EBIT ($23) , SIXTEN ($27) 

N 6 II 1 0 091 



n 

o 



0 0 i*4 
0 0 22 
0 023 
0 0 27 








; 0 

o 

OQ 48 


0 0 2C 
0 0 2F 
0 0 2A 


FQU 

COMMA (S2C ) 

tSLASH ($2F) ,ASTRIC ($2A) 

N61Q 0 092 



■ C 


oottg 


0026 
C 0 45 


EQU 

EIGHT (B26) 

,NINE ($45 ) , THR£E( 4.) ,ONE (3) , TWO ($24) 

N6100093 



C'- 

I \ 



00 04 
0 0 03 
0 0 24 








V,..' 

o 

0050 


0 0 46 


Eau 

TEN{$46) 

»^MS0S4. 0*^^N610 0 09- 



' 0 

0051 


0 0 03 


EQU 

MASK (3) 

ONE BIT MASK 

N61QQ095 




0 053 


0 0 07 


EQU 

CHRSLV17) 

LEVEL OF THIS PROGRAM 





o 

005 4 


1000 


EQU 

ASMOO($1DOO) OUTPUT ASC MODE 

N6100093 





0 05 6 





ASCII CHARACTER CODES 

N&lOOlOO 





0057 


GO 30 


EQU 

KAR0t$30 ) 

CHARACTER =0 

N610G1Q1 





0058 


0 0 39 


EQU 

KAR9{$39) 

CHARACTER =9 

N6100102 



r"'’ 

0059 


0 0 41 


EQU 

KARA($41) 

CHARACTER = A 

N610 010 5 



d- 


0060 


0 Q 46 


EQU 

KARF ($46) 

CHARACTER = F 

N5 10 010 4 




.'**S 

u 

0062 





PARAMETER LOCATION (OFFSET FROM BASE) 

N510 QlOb 



: C- 


0063 


0 0 01 


EQU 

HANDL£{ 1) 

"HAN'OLE” 

N610 010 7 





0064 


00 02 


EQU 

MSG (2) 

••MSG" ENTRY 

N6100108 




'■ \ 

0 06 5 


0 0 03 


EQU 

SOMMOR(3 ) 

"SOMMOR" ENTRY 

N610 0109 



0 

1 

0066 


03 04 


EQU 

lOERR (4 ) 

"lOERR" ENTRY 

N&lOOllO 




0057 


0 0 05 


EQU 

LISTLU(5) 

LIST OUTPUT "LISTLU” 

N6l0fllll 





0068 


0 0 06 


EQU 

COMOLU( 6) 

"COMOLU" 

N610 0 112 




Q 

0069 


0 0 07 


EQU 

NEWMLU (7) 

"NEWMLU" NEW MM LU 

N610Q113 



1'^ 1 

007 0 


0 0 08 


EQU 

PROGl (3 ) 

"PROGl" 

NolO 0 114 





0L71 


0 0 09 


EQU 

PROG2 (9 ) 

"PR0G2" 

N613G115 





007 2 


00 OA 


EQU 

SITFLGdO) 

"BITFLG" 

N6100116 




o 

00 7 3 


00 OB 


EQU 

BUFCNT (11) 

"BUFCNT" 

N61Q0117 



0 

007 h 


09 OC 


EQU 

FIELD (12) 

"FIELD" 

NblO 0 11 8 




0075 


0 010 


EQU 

SLASHF ( 16) 

"SLASHF" 

N619 0 119 





0076 


0011 


EQU 

BUFEMT { 17) 

"BUFEMT" 

Noli 0 120 




o 

0077 


0012 


EQU 

BUFFERdS) 

"BUFFER" 

N6100121 



• 0 

o 

007 9 







N51Q 0123 



0 

008 0 






PROGRAM START 

N51Q012H 




008 1 



¥ 




N610 0125 




o 

0083 

PQOuG 

OBOQ 

FETMM 

NOP 

0 

ENTRY 

N610 0127 



; 0 


QQ 8i- 

POOOl 

48 67 


STQ^ 

REQTYP 


N61Q 0128 




o 

o 











■ 0 

0 



r-. 

V. 

FETMM 


C) 



0085 

P00 02 

632B 


008 6 

P00G3 

60FF 

o 

0087 

P00 04 

8112 

0088 

P00 05 

682B 


00 89 

P0QG6 

ClOl 


0090 

P0007 

6827 

o 

0091 

POOCS 

C1Q2 

0092 

P0 0 0 9 

6826 


00 93 

POOOA 

GCF5 


0094 

POOOB 

88F4 

o 

009 5 

POOOC 

68 5B 

009 6 

PQOQD 

08F2 


0097 

POOOE 

ODFD 


0098 

POOGF 

0152 

o 

0099 

POOlO 

13 0 0 

0101 

POOH 

Q 0 A8 


0102 

P0012 

El CA 

■w’ 

0103 

P0013 

4819 


0104 

POO 14 

C108 


0105 

P0015 

6 OFF 


010 6 

PO 016 

GAOO 

i ) 

010 7 

P0017 

6814 


0108 

P0018 

6810 


0109 

PQ019 

6810 

o 

0110 

POOIA 

6810 

0111 

P0018 

0142 


0112 

POOIC 

OCFE 


0113 

POOID 

DOFF 


0114 

POOIE 

OD 01 

o 

0115 

Olio 

PQOIF 

48 OD 


Oil 7 

P0020 

CDIO 


0118 

P0021 

0151 


0119 

P0022 

0F48 


0120 

P0023 

AO OA 


0121 

P0024 

6804 


0122 

P0025 

BO OA 

u 

0123 

P0026 

QUA 


0124 

P00 27 

1830 

o 

0126 

PQ028 

0 0 04 


0127 

P002C 

0 0 00 


0128 

PO 02D 

0 0 00 

o 

0129 

P0 02E 

00 00 


0130 

P0 02F 

0 0 00 

o 

0131 

0132 

P003Q 

0 0 00 

0133 

PGQ31 

C8F6 


0134 

P0032 

0 9D3 


O 


PAGE 3 



STA^ 

BASE 


STA- 

I 


AOD- 

BUFFER, I 


STA» 

BUFADO 


LDA- 

HANDLE, I 


STA^ 

EXTHAN 


LDA- 

MSG,I 


STA=^ 

EXTMSG 


LDA^‘ 

(FETMM) 


ADD^ 

FETMM 


STA^ 

PAR 


RAO^ 

FETMM 


INQ 

-2 


SON 

FM 


JMP 

CONADR 

V- 

FM 

LDQ- 

8ITFLG, I 


STO^^ 

HILO 


LOA- 

8UFCNT, I 


STA- 

I 


ENA 

0 


STA^ 

TEMP+3 

FMAl 

STA- 

TEMP 


SIA’^ 

TEMP+1 


STA^ 

TEMP+2 

FMA4 

SQZ 

FMAIO 


END 

-1 


RAO- 

I 

FMAIO 

INQ 

1 

if. 

STQ’- 

HILO 


LDA^ 

IBUFA DD ) , I 


SQN 

FMA12 


ARS 

8 

FMA12 

ANO- 

LPMSK+8 


STA^ 

TEMP 


EOR- 

LPMSK+8 


SAN 

FMA15 


JMP- 

FMA50 


TEMP 

BZS 

TEMP(4) 

HILO 

NUM 

0 

BASE 

NUM 

0 

EXTHAN 

NUM 

0 

EXTMSG 

NUM 

0 

BUFADD 

if. 

NUM 

13 

FMA15 

LOA^ 

TEMP 


INA 

-COMMA 


DATE; 01/27/99 
CALCULATE INPUT BUFFER ADD. 


GET PARAMETER ADDRESS 


SET EXIT 
CHECK IF FOR 
NO, SKIP 


ADDRESSING CONVERSION 


SKIP IF NO CHNAGE IN CHAR. POSITION 
UPDATE BYTE POSITION FLAG AND SAVE 

ISOLATE CHARACTER 

CHECK IF END OF TEXT ($FF) 


"BUFFER" ADDRESS 
CHECK FOR COMMA 


N6100129 
N&IC G130 
N6100131 
N6100132 
N61Q0133 
N610 Q13A 
Nol3 013 5 
N610013& 
N6100137 
N610 0138 
N610 0 139 
N6100 lAO 
N610 GlAl 
N61Q0142 
N5100143 


N6 10 0145 
N619 0 14b 
N61Q0147 
Noia 0148 
N6100149 
NolO 0150 
N6130131 
N61Q 0 152 
N510 0153 
NolQ 0154 
NblO 0 15 5 
NblOOlb'o 
N61Q0157 
N6100158 
N6100159 
N61D0 160 
NblO 0 161 
N6100162 
NblO 0163 
NblO Oi&H 
NblO 0165 
NblO 016 6 
No 10 Q 167 
NblO 0168 


NblO 0 17 0 
NblO 0 171 
NblO 0 172 
N6100173 
N6iaGl74 
N61j0175 
Nbia 0176 
NblO 0177 
N611C178 


O 

c 

o 

o 

o 

o 

o 

o 



C3 

C) 

o 

u 

o 

Q 

L. 


U 






FETMM 
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date: 01/27/99 



r) 

C' 

0135 

P0 033 

0111 


SAN 

FHA17 



N610Q179 


0136 

P0034 

1826 



FMA53 



NolOQ 180 


o 

013 7 

P0 035 

09FC 

FBA17 

INA 

-SLASH4COMMA 

CHECK FOR SLASH 


N5100181 

O 

0138 

P0036 

0114 


SAN 

FMA19 



M6100182 


0139 

0140 

P0037 

C8F3 


LDA^ 

TEMP+3 

FOR SLASH, MAKE SURE ALL 3 

FIELDS ARE IN 

N&IG 13183 



P0038 

09FO 


INA 

-2 



N&10Q18 4 


o 

0141 

P0039 

0 lie 


SAN 

FMA20 

ERROR, SKIP 


N61Q0185 

: O 

0142 

P003A 

1820 


JMP» 

FMA53 



N6130186 


0143 

P003B 

C8EC 

FMA19 

LDA^ 

TEMP 

RECALL CHAR. AND CHECK FOR 

NUMBER (0-9) 

N6lJ 0187 



014 4 

P0 03C 

09CF 


INA 

-KARO 



N610 0188 



0145 

P003D 

3 lOD 


SAZ 

FMA27 



N6100189 


u 

0146 

P0G3E 

0137 


SAN 

FMA20 

ERROR 


N610G19G 



014 7 

PO 03F 

09F5 


INA 

-KAR9 + KAR0-1 



N610 0191 



0148 

P0040 

0138 


SAM 

FHA23 



N61G 0192 


/'‘'a 

0149 





CHECK 

FOR A--F 


N61D0193 

o 

o 

015 0 

PG041 

09F8 


INA 

-KARA+KAR9+1 



N61G0194 


0151 

P0042 

0 106 


SAZ 

FMA23 



N&100195 



0152 

P0043 

0132 


SAM 

FMA20 



N61Q 0196 



0153 

PQ 044 

09F9 


INA 

-KARF+KARA-1 



N51Q 0197 

C) 


0154 

P0045 

0132 


SAM 

FHA22 



N610Q198 



015 5 








N513 0199 



0156 

P0046 

0CQ4 

FMA20 

ENQ 

4 

FORMAT ERROR 


N&10 0 2GC 


(■"■) 

015 7 

P0047 

1CE7 


JHP» 

lEXTMSG) 



NolO 0 20 1 

O 

0158 








N610C2Q2 


0159 

P0Q48 

09 06 

FMA22 

INA 

6 



N610i3 203 



0160 

P0049 

0901 

FMA23 

INA 

1 



N610G20 4 


.-v 

0151 

P0 0 4A 

0909 

FMA25 

INA 

9 



N&10D2G5 

: O 


0152 

P0048 

5 8 DC 

FHA27 

STA^ 

TEMP 



N610 0 206 


0153 

P0 04C 

C027 


LDA- 

ONEBIT+4 

CONVERT ASCII TO HEX 


N5 10 G 20 7 



0154 

PQ04O 

28DB 


MUI^ 

TEMP+1 



N51G 0 208 



0165 

PO 04E 

8809 


ADD^ 

TEMP 



N61GQ2Q9 

O 

u 

0166 

P004F 

68D9 


STA^ 

TEMP41 



N610Q 210 


0167 

P0050 

D8D9 


RAO^ 

TEMP+2 

BUMP NO. OF CHAR. COUNT BY 

1 

N610 0 211 



0168 

P0051 

C8D8 


LDA» 

TEMP+2 



N6100212 



0169 

P0052 

Q9FA 


INA 

— 5 



N6100213 

, O 

o 

0170 

P0Q53 

0131 


SAM 

FMA32 



N51Q02i4 


0171 

P0054 

18F1 


JMP» 

FMA20 



N613Q 215 



0172 

P0 05 5 

E8 06 

FHA32 

LDQ^ 

HILO 

RECALL BYTE POSITION 


N6100216 


o 

0173 

P0056 

1 8C4 


JMP«^ 

FMA4 



NS1Q0217 

^ O 


0175 



¥■ 





N610 0 219 


o 

017 6 





TERMATOR ENCOUNTERED. FIELD 

TERMINATOR (COMMA) 

.N6ia0220 

: O 

0177 



¥■ 



OR INPUT TERMINATOR 

N6100221 


0178 








N61Q0222 



0179 

PD057 

C012 

FHA50 

LDA- 

LPMSK+16 



N61Q0223 


o 

0180 

P0053 

E804 


LDQ^ 

BASE 



Nolj C 22 4 

O 

0181 

P0059 

6211 


STA- 

BUFEMT, Q 



N6 10 0 22 5 


018 3 





COMMA 

ENCOUNTERED 


N51D0227 

O 

o 

0184 

P005A 

E8D0 

FHA53 

LDQ^ 

TEMP+3 

INCREMENT ADD. FIELD COUNT 

BY 1 

No 10 0 22 8 


018 5 

PC05B 

ODOl 


INQ 

1 



N61G0229 



O ; o 


O 


FETMH PAGE 5 DATE: 01/27/99 


0186 

P005C 

48CE 


STQ» 

TEMP+3 






N61i3 0 230 

018 7 

P0 050 

C8C8 


LDA^ 

TEMP+1 



RECALL ADD. AND SAVE ACCORDINGLY 



N6100 231 

0188 

P 005E 

6A24 


STA-> 

HAD~1,Q 






NolO 0232 

0159 

P005F 

ODFC 


INQ 

-3 






N6100233 

0190 

P006G 

0148 


SQ2 

FMA60 



ALL 3 ADD. ARE IN, SKIP 



N&IO 0234 

0191 

P0061 

C8C6 


LDA^^ 

TEMP 



MAKE SURE IS COMMA 



N81u 0235 

0192 

P0062 

0903 


INA 

-COMMA 






N6100236 

0193 

P0063 

0101 


SAZ 

FMA55 



YES, SKIP 



No 10 0 23 7 

0194 

P0064 

18E1 


JMP’^ 

FMA20 






N610Q238 

0195 

P0 065 

E8C6 

FHA55 

LDQ^ 

HILO 






N613 0 239 

0196 

P0066 

18B1 


JMP» 

FMAl 






N610 0 240 

0197 

P0067 

0 000 

PAR 

NUM 

0 






N610 0241 

0198 

P0068 

0 0 00 

REQTYP 

NUM 

0 






N61i3 0 242 

0200 











N610 02‘t4 

0201 






ALL 

MM 

ADDRESS DATA ARE IN, MAKE SURE LSB 

LESS 

N 6 1 0 0 2 4 5 

0202 






THAN/ 

EQUAL TO $7FFF 



N610 0 24d 

020 3 










N61002^7 

0204 

PQ069 

C81B 

FMA6C 

LOA^ 

MAD + 1 



CHECK IF LSD IS POSITIVE 



N6100248 

0205 

PO 06A 

0121 


SAP 

FMA62 



YES, SKIP 



N613 0 249 

020 6 

P0068 

1 8DA 


JMP»^ 

FMA2Q 



NO, TO PRINT FORMAT ERROR 



N610025G 

020 7 

P006C 

EQFF 

FMA62 

LOQ- 

I 






N610u251 

020 8 

P006D 

C8 BF 


LOA-^ 

BASE 






N610 0252 

020 9 

PQ06E 

60FF 


STA- 

I 






N6100253 

0210 

P006F 

410B 


STQ- 

8UFCNT, 

I 


SAVE "BUFFER" COUNT AND BYTE FLAG 



N510 0254 

0211 

P0070 

C8P8 


LDA» 

HILO 






N610 0255 

0212 

PQ071 

610A 


STA- 

BITFLG, 

I 





NblQ 0 256 

0213 

P0072 

C8B5 


LOA^ 

TEMP 



SET NEXT FIELD ACCORDINGLY — (COMMA 

OR EOT) 

N5100257 

0214 

P0073 

610C 

FMA65 

STA- 

FIELD, I 






N6100258 

0216 



V- 








N6100260 

0217 






TO 

CHECK FOR MAX. SECTORS (PHYSICAL LIMIT 

OF 

MM) 

N610 0 2ol 

021 8 








FIRST CONVERT WORD INTO SECTOR 



NdIO 0262 

0219 

P0074 

can 

F20 

LDA^ 

FT + 2 



CONVERT WORD INTO SECTOR IF MORE THAN 

96 

N610 0263 

022 Q 

P0Q75 

ocoo 


ENQ 

0 






N610 0 264 

0221 

POO 76 

3000 

N096 

DVI 

= N96 






NolJ 0 265 


P0Q77 

0 060 









N513 0 266 

0222 

P0078 

P0079 

4812 


STQ«^ 

FT + 7 






0223 

6800 


STA^ 

FT + 3 






N6100267 

0224 

F007A 

E8 09 


LOQ^ 

FT 



SUM UP ALL SECTORS 



No Ij 0 25 8 

0225 

P007B 

C8 09 


LDA^ 

FT+l 






N610 0269 

0226 

P007C 

880A 


ADD^ 

FT + 3 





121^4487 + »<‘»«‘’- + ’^ 

0227 

P0Q7D 

0122 


SAP 

F24 



SENSE NO OVERFLOW 


121-^4487» + »»»+^^ 

0228 

P007E 

GO 01 


INQ 

1 





121 + £++87 + + ++-’^ + * + 

0229 

P007F 

AO 11 


ANO- 

HASK+14 





121^4487+ + ^^ + + + + 

0230 

PQ08G 

68 0 6 

F24 

STA^ 

FT + 3 



SAVE FINAL MSB, LSB 


121^^487^+-^ + »*‘ + 

0231 

P0081 

4806 


STQ» 

FT+4 






N610 0 27b 

0232 










N613 0277 

0233 

P0082 

1809 


JMP» 

F42 







FETHM 


PAGE 


0 


DATE! 01/27/99 


o 


0235 

0236 P0083 0008 FT 

0237 0083 P 

0238 


BZS 

EQU 


STORAGE 


FT(8) 
MAO (FT) 


15 CARDS DELETED 


N&IO 0295 
N6100296 
N&lu 0297 
132 ^ 4953 »‘^*-’-»^»’^ 


o 


0240 

0241 

0242 

0243 


0244 

0245 

0246 

0247 
0243 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 
025 7 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 
0269 
027 G 


0271 

0272 

0273 


0274 


0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 
028 6 


P0Q8B OAOO 
P0Q8C 68FB 
P008D C8F9 
P008E 0106 
PD08F 28E7 
P0Q9G OFFO 
P0091 0122 
P0092 QDOl 
PD093 AQll 
P0094 48F3 
P0095 68F3 
P0 096 0 A60 
P0097 28EE 
P0098 OFFl 
P0099 OFCF 
P009A F8ED 
P009B 48EC 
PQ09C 88EC 
P009D 681B 
P0Q9E C8EB 
P009F 0122 
POOAO D8E7 
PQQAl AOll 
P00A2 8816 
PQ0A3 OCOO 
P00A4 OFEl 
P00A5 OFCF 
PD0A6 F8E1 
P0QA7 4CBF 
P00A8 D8BE 
PG0A9 6CBD 
POOAA E8BD 
POOAB 014A 
POOAC ODFD 
POOAD 0148 
POOAE OCQl 
POOAF CAD2 
POOBO 6EB6 
POOBl ODOl 
POOB2 0814 
P0 0B3 09FB 
P00B4 0101 
P00B5 18F9 
P00B6 ICOO 
P00B7 FF48 


V- 


F42 


NOMSB 


F44 


F50 


F56 


CONVERT TO WORD ADDRESSING 


ENA 

0 

STA^ 

FT + 5 

LDA» 

FT+4 

SAZ 

NOMSB 

MUI^ 

N096+1 

LLS 

16 

SAP 

NOMSB-1 

INQ 

1 

AND- 

MASK+ 14 

STQ«^ 

FT+5 

STA^ 

FT+6 

ENA 

96 

MUI^ 

FT + 3 

LLS 

1 

ALS 

15 

AOQ^ 

FT + 5 

STQ^ 

FT+5 

ADD^ 

FT + 6 

STA- 

TEMPI 

LDA^ 

FT+7 

SAP 

F44 

RAO^ 

FT + 5 

AND- 

MASK+14 

ADD^ 

TEMPI 

ENQ 

0 

LLS 

1 

ALS 

15 

ADQ^ 

FT+5 

STQ^ 

(PAR) 

RAO-^ 

PAR 

STA» 

(PAR) 

LDQ^ 

reqtyp 

SQZ 

F56 

INO 

-2 

SQZ 

F56 

ENQ 

1 

LO A^ 

FT-1,Q 

STA'^ 

(PAR) ,Q, 

INQ 

1 

IRQ 

A 

INA 

-4 

SAZ 

F56 

JMP^ 

F5C 

JMP 

(FETMM) 


7.ER0 OUT WORD ADDRESSING COUNTERS 
CHECK IF MSB USED 

YES, ^CONVERT MSB INTO WORD ADDRESSING 


CONVERT LSB 
LSB^96 


SAVE MSB FOR CALLER (WORD ADDRESSING) 

SAVE LSe FOR CALLER 
nHFOK FOR REQUEST TYPE 


PICK UP ALL 3 ADDRESSES AS INPUT 


CHECK IF DONE 


RETURN 


No 10 0 314 
N6100315 
N610Q 316 
N61G0317 
N610 0 318 
N6100319 
N6100320 
N610 0 321 

121 * 4487 *^^^’^*^^ 
N513032n 
NolO 0 327 
N610 0 328 
N61G 0 329 
No 10 u 33 0 
N6100331 
N610 0 332 
N613 0533 
No iJ 0 33 4 
Nb 10 0 33 5 
Nol00336 
N6100337 

132 ^ 5140 ^’^^’^^*^^ 

132 ^ 5140 *^^'^'’^'^^'''^ 

N610 0339 
N610 0 340 
No 10 0 o4l 
N6100 342 
Nb 10 C3 43 
N6100344 
N61D 03 h5 
N610 0 346 
N61Q 0 347 
N61D 0348 
NoIG Q 349 
N610C350 
N610 0 35 1 
N61LI 0352 
N6 1 0 0 3 5 3 
N510 0 354 
N61JQ355 
No ID 0 35 6 
N61 00357 
N613 0 358 


O 

O 

O 

o 

o 

o 

o 


o 

o 

o 

o 


FETHH 


PAGE 


7 


date; Ci/27/99 


023 7 

P00B8 

00 00 

TEH PI 

NUH 

Q 


132 5140 9- ‘f- 9- ^ ^ 

0289 





FOR 

ADDRESSING CONVERSION ONLY 

N610 0 360 

0290 

P00B9 

0822 

CONADR 

TRA 

Q 


N610 0 361 

0291 

POOBA 

C622 


LDA- 

(ZERO),Q 

SET UP MSB, LS3 AND WORD 

FOR CONVERSION N6100362 

0292 

POOBB 

68CB 


STA^ 

FT + 4 

GET AND SAVE MSB 

No 10 0 363 

0293 

PCOBC 

C201 


LDA- 

1,Q 

GET AND STORE LSB 

N61C 0 364 

029^ 

POOBO 

68C8 


SIA’f- 

FT + 3 


N61Q 0 365 

0295 

POOBE 

C202 


LDA- 

2,Q 

GET WORD 

N61C 0 366 

0296 

POOBF 

68 CA 


STA^ 

FT + 7 


N610 0367 

0297 

PQOCC 

18CA 


JMP^ 

F42 


No 10 0 36 8 

0299 






49 CARDS DELETED 

132-4963^»»’^^^--»- 


0301 



If 



N61G0420 

0302 


0 0 02 

P 

EQU 

S811I ^/96) 

N6100421 

0303 


0 0 03 

P 

EQU 

SUll ISBil+l) 

No 10 0 h2 2 

030 4 


0120 

P 

EQU 

DSlitS'J11^96) 

No 10 0 42 3 

0305 

PO OCl 

CO 5F 


BSS 

(DSll-^^ ) 

N6 ID 0 ,2 4 

0306 




END 


N610 0 42 5 

PGH = 

0120 

{ 

288) 

COM = 

0000 ( 0 ) DAT = 0000 t 0 ) 



FETHM 


PAGE 


8 


date: 01/27/99 



E 0 U I V 

A L E N 

C E S 

0 

DEF .LINE 

NAME 

VALUE 

0 OCG 

I 

GOFF 


00 46 

AMONI 

00F4 


0 046 

AOISP 

ODEA 

0 046 

LPMSK 

000 2 


00 46 

NZERO 

0012 


0 Q46 

ZROBIT 

0033 


0 0 47 

FIVE 

0043 


0Qi^7 

SIX 

0044 


0 0 47 

ZERO 

0022 


0047 

ONEBIT 

0023 

0 

0 047 

SIXTEN 

0027 

OOi^S 

COMMA 

00 2C 


00 48 

SLASH 

0G2F 


0 048 

ASTRIC 

002A 

o 

0 049 

EIGHT 

0 02 6 


NINE 

0045 


0 0i^9 

THREE 

00 0 4 


0049 
0 0i^9 

ONE 

00 03 


TWO 

0024 

u 

0 050 

TEN 

0046 


0 0 51 

MASK 

00 0 3 


0 0 53 

C H R SL V 

0007 

• •'S 

005 4 

A SHOD 

1000 

u 

0 057 

KARO 

Q03Q 


00 58 

KAR9 

0039 


0 0 59 

KARA 

0041 

O 

0 060 

KARF 

0 0 46 

0 063 

HANDLE 

0 001 


0 064 

MSG 

0 0 0 2 


0 065 

SOMMOR 

00 0 3 


0 06 6 

10 ERR 

00 0 4 


0 06 7 

LISTLU 

000 5 


0 068 

COMOLU 

00 0 6 


0069 

NEWMLU 

00 07 

o 

0070 

PROGl 

GOO 8 

0 071 

PROG2 

000 9 


0072 

BITFLG 

OOOA 


0 0 73 

BUFCNT 

oooe 


o 


REFERENCED AT LINE NUMBER 


(090255) 
< 000244) 

0 0 86 , 

010 5, 

0113, 0207 

(000234) 

1000002) 

(000018) 

(000051) 

0 120 j 

0122 , 

0179 

(G00067) 

(0DG068) 

(00D034) 

3 2 91 



( Q0QG35) 

0 163 



( 000039) 
(000044) 

0134, 

0 137, 

0192 

(000047) 
(000042) 
( 0G0038) 
(0CG069) 
(00GC04) 

0137 



( 0 0QG03) 
{ 000036) 
( 000070 ) 
(000QQ3) 
( 0Q0OQ7) 

0229, 

0 251, 

0 263 


(004095) 

(000048) 

0 1 44 , 

014 7 


(000057) 

0147, 

0 150 


( 00QG65) 

0150, 

0153 


( 0 D0C70) 

0 153 



(000001) 

0 0 89 



(000002) 

(000003) 

0 0 91 



(000004) 

(000005) 

(000006) 




(000007) 




(000098) 

(000009) 




( 000010) 

0102, 

0212 


( C 00011) 

0 104, 

0 210 



0 20 9 


o 


o 

o 

o 

o 

c 

o 

o 



o 

o 


o 

o 

o 

o 

o 


O 


FETMM 


PAGE 9 


date: 01/27/99 


FIELD OuOC 
SLASHF 0010 
BUFEMT 0011 
BUFFER 0012 


( 000012 ) 
too 0 016) 
(000017) 
(000018) 


o 


FFTMH 


DATE: 01/27/99 


PAGE 10 


S Y M B 0 L S 


D£F. LINE 

NAME 

ADDRESS 

referenced at 

LINE 

NUMBER 












0 038 

FETMM 

0 0 00 

00 38 , 

0 093 , 

0094, 

0096, 

0286 











B102 

FM 

0012 

0 098 















0 108 

FMAl 

0018 

0 196 















0 111 

FMA4 

0016 

0173 















0114 

FMAIO 

OQIE 

Dili 















0 120 

FMA12 

0023 

0 118 












0167, 

0168, 

0184 

0 12 6 

TEMP 

0 02 8 

0 10 7, 

0108, 

0109, 

0110, 

0121 , 

0133, 

0139, 

0143 , 

0162, 

0164, 

0165, 

0166, 




0187, 

0191, 

0213 













0 127 

HILO 

G02C 

0103, 

0115, 

3172, 

0195, 

0211 











0128 

BASE 

002D 

0085, 

0 160 , 

0208 













0129 

EXTHAN 

002E 

0 0 90 















Q 130 

EXTMSG 

002F 

0092, 

0157 














0131 

BUFAOD 

0030 

0 0 88 , 

0117 














0133 

FMA15 

0031 

0123 















0137 

FMA17 

0035 

0135 















0143 

FMA19 

003B 

0138 















0156 

FHA20 

0046 

0141, 

0146, 

0152, 

0171, 

019 4, 

0 20 6 










0159 

FMA22 

0048 

0154 















0 160 

FMA23 

0049 

0 1-+8 , 

0151 














0161 

FMA25 

Q04A 
















0162 

FMA27 

0 0 4 E 

0145 















0172 

FMA32 

0055 

0 170 















0179 

FMA5Q 

0057 

0 124 















0184 

FMA53 

005 A 

0136, 

0142 














0195 

FMA55 

0065 

0193 















0197 

PAR 

0067 

0 095, 

0 271, 

0272, 

0273, 

0280 











0198 

REQTYP 

0068 

0 0 84 , 

0274 














0 20 4 

FMA60 

0069 

0190 















020 7 

FMA62 

QQ6C 

0 205 















0 214 

FMA65 

0073 
















0219 

F20 

0 0 7 4 
















0 221 

N096 

0076 

0247 















0 230 

F24 

0080 

0 227 









0244, 


0252, 

0253, 

0255, 

0 258 

0236 

FT 

0 0 83 

0219, 

0222, 

0223, 

0 224, 

0225, 

0226, 

0230, 

0231, 

0237, 

0 2 4s, 



0 260 , 

0262, 

0264, 

0 270 , 

0279, 

0292, 

0294, 

0296 








0237 

MAD 

0083 

0188, 

0204 














0 243 

F42 

D08B 

0 233, 

0297 














0 253 

NOMSB 

0095 

0 246, 

0249 














0266 

F44 

Q0A2 

0 263 















Q 279 

F50 

00 AF 

0285 















0 286 

F56 

fl0B6 

0275, 

0277, 

0284 














0186 


0259 



FETMH 


028 7 

TEMPI 

00 B 8 

0 290 

CONADR 

00B9 

0 30 2 

sell 

00 02 

0303 

sun 

00 0 3 

0304 

DSll 

0120 


o 


PAGE 11 


0261, 0266 
0 0 99 

0303 

0304 
0 30 5 


DATE; 01/27/99 


o 

o 

o ■ 

o 

o 

o 

o 


o 


C' 

o 

o 

o 

o 

o 

o 

C) 

c 

o 

o 

o 

o 

o 

o 

o 


o 


FETHH 


PAGE 12 


DATE; 01/27/99 


I 


o 

EXTERNA LS 




DEF.LINE NAME 

VALUE 

REFERENCED AT LINE NUMBER 


0Q41 LOGIA 

7FFF 



O 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

D 


o 

o 

o 

o 

( 2 ) 

O 

C 

O 

Q 

o 

o 

o 

o 

o 

o 


FETMM 


PAGE 13 


DATE; 01/27/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 


ADISP 

0046 

AHONI 

0 046 

ASMOD 

0 054 

ASTRIC 

0048 

BASE 

BUF FER 

0077 

CHPSLV 

0 0 53 

COMMA 

0 0 48 

COMOLU 

0068 

CONADR 

F20 

0 219 

F24 

0 230 

F42 

0 2 43 

F44 

0266 

F5D 

FM 

0102 

FMAl 

0108 

FMA 10 

0114 

FMA12 

0120 

FNA15 

FMA23 

0 16 0 

FHA25 

D 161 

FMA27 

Q162 

FMA32 

0172 

FMA 4 

FMA 62 

020 7 

FMA65 

3 214 

FT 

0 236 

HANDLE 

0 0 6 3 

HILO 

KARA 

0059 

KARF 

006C 

LISTLU 

0 067 

LOGIA 

0041 

LPMSK 

NINE 

0049 

N096 

0 221 

NOMSB 

0 253 

NZERO 

0 0 46 

ONE 

REQTYP 

019 8 

SBll 

0 302 

SIX 

0 0 47 

SIXTEN 

0047 

SLASH 

TEHPl 

0287 

TEN 

0050 

THREE 

0 0 49 

TWO 

0049 

ZERO 


0128 

BITFLG 

0072 

BUFADD 

0131 

BUFCNT 

0 073 

BUFEHT 

0 076 

0290 

DSll 

0304 

EIGHT 

00 49 

EXTHAN 

0129 

EXT MSG 

013 0 

0279 

F56 

0286 

FETMM 

00 3 8 

FIELD 

0 07 4 

FIVE 

0 047 

0133 

FMA17 

0137 

FMA19 

0143 

FMA20 

0 15 6 

FMA22 

0159 

0111 

FMA 5 0 

0179 

FMA53 

0164 

FMA55 

019 5 

FMA60 

0 20 4 

012 7 

I 

000 0 

lOERR 

00 66 

KARC 

0 057 

KAR9 

0 C58 

0046 

MAD 

0237 

MASK 

0051 

MSG 

0 064 

NEWMLU 

0 069 

0049 

ONEBIT 

0047 

PAR 

0197 

PROGl 

0070 

PR0G2 

0 071 

0048 

0047 

SLASHF 

ZROOIT 

0075 
0 046 

SOMMOR 

03 65 

SUil 

0 30 3 

TEMP 

u 126 


PNTMO 


PAGE 


1 


date: 01/27/99 


000 1 


NAM 

■,= NTMD DECK-ID N62 MSOS 5.0 

SUMMARY-11 

000 2 


MASS 

STORAGE OPERATING SYSTEM VERSION 5.0 



N6200002 

00 0 3 


SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 



N620 u 0 C 3 

00 0 4 

V- 

COPYRIGHT CONTROL DATA CORPORATION 1976 



N620 G U 0 4 

00 0 5 






N6200005 

00 0 6 






N620 good 

0007 





N620 0 0 0 7 

000 8 



V- 

if 


N52DOii08 

00 0 9 



^ ROUTINE TO PRINT HASS MEMORY DATA WITH 

if 


N62Q 0 0 0 9 

0010 

If. 


ITS LOCATION 

if 


N6200010 

0011 




if 


N520 0011 

0012 





N62D 0 012 

0013 

if- 





N620 0 013 

0014 






N620 0014 

0015 

V.V-V- 


CALLING SEQUENCE : 



N620 0 015 

0016 






N620 Q016 

0017 



RTJ PMTMD 



N62G 0317 

0018 






N620 0018 

0019 



ADC HMADO-^ HH ADO. LOC. 



N520 0 019 

0020 

if 


ADC INDEX--^ DATA INDEX LOC. 



N52Q0U2Q 

0021 



ADC DATLO-^ DATA LOC. 



N620 0 021 

0022 






N620 0 022 

0023 

if 


ONLY 1 PARAMETER FOR CODE 4 



N620Q 023 

002 4 

if 


IT IS FOR CORE LOCATION 



N62G 0 024 

002 5 

if 





Nd2 0 0 0 2 5 

0026 

if 


Q-REGISTER CONTAINS REQUEST TYPE CODE 



N6200026 

0027 

if 


0 = HEADING, 1= INSERT MM LOC/DATA 

IN 1 

COLUMN 

1N62C 0 027 

0028 

if 


2 = INSERT MM LOC/DATA IN COLUMN 2 

AND 

PRINT 

N62C0 028 

0029 

if 


3 = INSERT MM LOC/DATA IN COL. 1 AND PRINT 

N620 0 029 

0030 

if 


4 = INSERT CORE LOC/DATA IN COL. 1 

AND 

RETURN 

N620 0 03 C 

003 1 

if 





N6200031 

0032 

if 





N6200032 

0033 

if 





N620 G 033 

0034 

ifif^^if ^ 


OUTPUT FORMAT : 



N62D0034 

0035 

If. 





N620 0 0 35 

003 6 

if 


MASS MEMORY DATA 



N6200 036 

0037 

if 





N62D0037 

0038 

if 


MMLLLL/WWHW (XXXX) 



N62D 0 038 

0039 

if 





N62ju039 

0040 

if 


MMLLLL/WWWW <XXXX) MMLLLL/WWWW 

(YYYY) 

Nb2u 0040 

0041 

if 





N5200041 

0042 

if 


CCCC (XXXX) MMLLLL/WWWW 

(YYYY ) 

Nd200042 

0045 

if 





N620 0 043 

004 4 

if 





N620 0 044 

0046 

if 


ENTRY NAME 



N6 2 C 0 0 M-D 

0047 


ENT 

PNTHD 



N620 0 047 

0049 

if 


'EQU' TABLE 



N62G 0049 


0050 


0051 


0052 


0053 


005 4 
005 5 

0057 

0058 


0060 

0061 

0062 

0053 

0064 

0065 

0066 
00 5 7 
0068 
0069 
007G 
007 1 

0072 

0073 

0074 

0075 


0077 

0078 

0079 


008 1 
0082 
0083 
006 4 


PNTMD 


0 0F4 
00 EA 
0 0 02 
DQ12 
0 0 33 
0 0 43 
0 0 44 
0022 
0 023 
0 027 
0 0 2C 
u02F 
0 0 2A 
0 0 26 
Q 0 45 
0G04 
0 0 03 
0 0 24 
0 0 46 


PAGE 2 DATE: 01/27/99 

EQU AMONI ($F4) ,ADISF($EA) ,LPMSK (2) , NZERCt S;i2) ,ZROBIT ($33) 

EQU FIVE ($43 ), SIX ($44) » ZERO ( $ 22 ) , ON EBIT { $ 23 ) , SI XTEN ($27) 

EQU C0MMA($2C) , SL ASH ( $2F ) , AS TRIG ( $2 A ) 

EQU EIGHT ($ 26 ),NINE ($45) ,THRE£(4) » ON E ( 3 ) t T WO ( $2 4) 


N62Q 0050 

N6200051 

N62G0052 
N620 0053 


EQU TEN($46) 



0 0 03 


EQU 

HASK(3) 

ONE BIT MASK 


0 0 07 


EQU 

CHRSLV(75 

LEVEL OF THIS PROGRAM 


IQGQ 


EQU 

ASMOD ($1000) 

OUTPUT ASC MODE 





PARAHETER LOCATION (OFFSET FROH 


0 0 01 


EQU 

HANDLE ( 1) 

"HANDLE" 


0 0 02 


EQU 

MSG(2) 

"MSG" ENTRY 


0 0 03 


EQU 

SOHMOR( 3 ) 

"SOHMOR" ENTRY 


0 0 04 


EQU 

I0ERR(4) 

"lOERR" ENTRY 


00 05 


EQU 

LISTLU (5) 

LIST OUTPUT "LISTLU" 


3 0 06 


EQU 

COMOLU (6) 

"COMOLU" 


0 0 07 


EQU 

NEWHLU (7) 

"NEWMLU" NEW M^S LU 


00 08 


EQU 

PROGl (8 ) 

"PROGl" 


0 0 09 


EQU 

PR0G2 (9 ) 

"PR0G2" 


00 OA 


EQU 

BITFLG(IO) 

"BITFLG" 


0 0 0 8 


EQU 

BUFCNT( 11) 

"BUFCNT" 


OOOC 


EQU 

FIELD (12) 

"FIELD" 


0010 


EQU 

SLASHF (16) 

"SLASHF" 


0011 


EQU 

BUFEMT( 17) 

"BUFEMT" 


0012 


EQU 

BUFFER (18) 

"BUFFER" 





T). if 3}. If. p 

ROGRAM STAR 

POOOO 

OBOO 

PNTMD 

NOP 

0 

ENTRY 

POOOl 

685A 


STA^ 

BASE 


peoo 2 

60FF 


STA- 

I 


P00 03 

4859 


STQ^^ 

QSAVE 

SAVE Q-REGISTER 


N620 0054 
N520 0 0 5 5 

N52Q 0 058 


N620 0060 
N&2000&1 
N62QC 062 
N6200063 
N62'j0u64 
N623 0 065 
N62 j 0 0 6 5 
N6200Q67 
N62i! 0 068 
N62Q 0 069 
N52j 0 070 
N62Q 0 071 
N62j 0 0 7 2 
N6200073 
N620 0 374 
N620Q Q75 




N620 0 077 
N520 0078 
N620 0 079 


N6200081 
N52fl0Q82 
N620 0083 
N620G 084 




PNTfID 



PAGE 3 

date: 01/27/99 



008 5 

P0 0 0 4 

C105 


LDA- 

LISTLU, I 

GET LIST LOGICAL UNIT 


N62 J 0 0 8 5 

0086 

PO 0 0 5 

8858 


ADD^ 

MODE 

+ ASCII MODE 


N62 J 0 0 8 6 

008 7 

PQ006 

684C 


STA^ 

OTLU 



N62C0087 

006 9 



* 





No23GG89 

0090 






1 CARO DELETED 


N62J 0090 

0091 

P0Q07 

0151 


SQN 

PNIO 



N62Q 0091 

0092 

P0DD8 

1840 


JHP^ 

PN3 0 



N620 0 092 

0093 

P0 009 

OAGO 

PNIG 

ENA 

0 



N620 0 093 

009 4 

POQOA 

ODFD 


INQ 

-2 

CHECK FOR REQUEST CODE 2, BUMP 

INDEX 

N6200 094 

0095 

POOOB 

0151 


SQN 

PNll 



N620 0 095 

0G96 

PODOC 

090D 


INA 

MFS25-MES21 



No20 0 Q96 

009 7 

POGOO 

60FF 

PNll 

STA- 

I 



N620 Q 09 7 

0098 

POODE 

ECFl 


LOQ» 

(PNTHD) 

GET MM ADURESS LOCATION 


N620 0 0 98 

0099 

POO OF 

F8F0 


ADQ^ 

PNTMD 



No20 0 0 99 

010 0 

POOlO 

484E 


STQ^ 

TLO 



N62Q0i00 

0101 

POOH 

C622 


LDA- 

(ZERO ) » Q 

GET MSB 


N620 0 101 

010 2 

P0012 

E84A 


LDQ^ 

QSA VE 

CHECK IF CODE 4 


N6200102 

010 3 

P0013 

ODFB 


INQ 

-4 



N620Q1C3 

010 4 

°0 014 

01 49 


SQZ 

PN15 



N620 010 4 

010 5 

P0015 

5851 


RTJ^ 

CV4A 

CONVERT TO ASCII AND SAVE 


N6 2 0 0 1 0 5 

0106 

P0016 

D848 


RAO^ 

TLO 



N620 010 6 

010 7 

P0017 

6978 


STA’^ 

MES21,I 



N52G 0 107 

0108 

PG018 

CC46 


LDA^ 

(TLO) 

GET LSR 


N620 u lu 8 

0109 

PG019 

5840 


RTJ» 

CV4A 



N62G0iO9 

0110 

PflOlA 

49 76 


STQ^ 

MES22 , 1 



N620 0 11 C 

0111 

POOIB 

6976 


STA^ 

MES22 + 1 , I 



N62D 0111 

0112 

POOIC 

0842 


RAO« 

TLO 



No 20 u 112 

0113 

POOID 

CC41 


LDA^ 

(TLO) 

GET WORD, CONVERT AND SAVE 


N62D 0113 

0114 

POOIE 

58 48 

PNl 5 

RTJ^ 

CV4A 



N&20Q114 

Oil 5 

POOIF 

6840 


STA^ 

TLO+1 



N520 0 11 5 

0116 

P0Q20 

0814 


IRQ 

A 



N620 0116 

0117 

P0021 

E83B 


LDQ- 

QSAVE 

CHECK FOR CODE 4 


No2Q 0117 

0118 

Pfl 022 

ODFB 


INQ 




N&20G118 

0119 

P0 02 3 

0142 


SQZ 

PNl 7 



N620 0119 

0120 

PO 024 

0C2F 


ENQ 

SLASH 

INSERT "/•■ IN CONJUNCTION WITH 

WORD POSITION 

No2t]012G 

0121 

P0C25 

1802 



PN18 



No 2 0 0 121 

0122 

P0u26 

0C20 

PN17 

ENQ 

$20 

INSERT SPACE CODE 


N620 0122 

0123 

P0 027 

0FE8 

PN18 

LLS 

8 



N62D 0123 

0124 

P00 28 

496A 


STQ^- 

MES23 ,I 



N620 0 12 4 

0125 

P0029 

F836 


LDQ^ 

TLO+1 



N62j 0 l2 5 

012 6 

P0 02 A 

0FC8 


ALS 

8 



N62Q 0126 

0127 

PO 02B 

OFFS 


LLS 

24 



N620 012 7 

0128 

P002C 

0920 


INA 

$20 



N520 0 128 

0129 

P002D 

4966 


STQ^ 

MES23 + 1 ,I 



N62S 0129 

0130 

PO 02E 

6966 


STA» 

HES23+2 , I 



Nd20 0 13 0 

0131 








N620 0131 

0132 

P002F 

0800 


RAO^ 

PNTMD 

INCREMENT TO INDEX LOC. 


N6200132 

0133 



* 


FOR 

CODE 4, SKIP NEXT 2 PARAMETERS 


N620 013 3 

0134 

P003Q 

C82C 


LDA^ 

QSAVE 



N620 0134 

0135 

P0031 

Q9FB 


INA 

-4 



N620 0 135 

0136 

P003P 

0113 


SAN 

PN21 

NOT CODE 4 


N52j 0136 

0137 

P0033 

FC2B 


LDQ^ 

(TLO) 

GET CORE data 


No 20 0 137 


PMTMD 


PAGE 4 


DATES ul/27/99 


0138 

P0034 

C622 


LOA- 

(ZERO) , Q 



0139 

P0Q35 

180A 


JMP» 

PN23 

TO INSERT CORE DATA 


0140 

P0036 

CCC9 

PN21 

LDA^ 

{PNTHD) 



0141 

P0037 

88C8 


ADD^ 

PNTMD 



014? 

P0038 

6826 


STA^ 

TLO 



0143 

P0039 

D8C6 


RAO* 

PNTMD 

BUMP TO DATA LOC. 


0144 

P003A 

ECC5 


LDQ* 

(PNTMD) 

GET DATA BASE LOC. + 

INDEX 

0145 

P0 03B 

F8C4 


ADQ* 

PNTMD 



0146 

0147 

P0Q3C 

P0030 

FC22 
C62 2 


ADQ* 

LDA- 

{ TLO) 
(ZERO) ,Q 

GET DATA AND CONVERT 

TO ASCII AND SAVE 

0148 

P0Q3E 

08C1 


RAO* 

PNTMD 

SET EXIT 


0149 

P0Q3F 

5827 

PN23 

RT J* 

C\/4A 



0150 

P0340 

49 57 


STO* 

MES24,I 



0151 

PCQ41 

6957 


ST A* 

MES24+1 » I 



0152 

0153 

P0D42 

E81A 

¥ 

LOQ* 

QSAVE 

CHECK FOR REQUEST TYPE 

0154 

P0043 

ODFE 


INQ 

-1 



0155 

P0044 

01 42 


SQZ 

PNEX 



0156 

P0045 

ODFC 


INQ 

-3 



015 7 

P0Q46 

0151 


SQN 

PN3 0 



0158 

PQ047 

iCP8 

PNEX 

JMP* 

(PNTMD) 

RETURN 


0160 



>(■ 


PICK 

UP MESSAGE LOC. AND SIZE 

0161 

P0048 

E814 

PN30 

LDQ* 

QSAVE 



0162 

P0049 

OF A1 


QLS 

1 



0163 

P0Q4A 

CA16 


LOA* 

MESTBL, 0 



0164 

PG048 

EA16 


LDQ* 

MEST8L+1,Q 



0165 

PD04C 

68 08 

PN31 

STA* 

DMPL 



0166 

P004D 

48 06 


STQ* 

MPZ 



016 7 

P004E 

54F4 

PN32 

RTJ- 

( AMONI) 



0168 

PO 04F 

0 507 

DMPCD 

ADC 

S5Q 0 + CH RSLV 



0159 

PQ050 

0 0 07 


ADC 

DMPRT-DMPCD 

RETURN 


017 0 

0 0 5 1 

0 0 0 0 


NUM 

0 

T HREA D 


0171 

PQ 052 

0 0 3 0 

0 TLU 

NUH 

0 

LU (TO be; FILLED) 


0172 

POO 53 

flODO 

MPZ 

NUM 

0 

SIZE ( TO BE FILLED ) 


0173 

PO 054 

0 0 0 0 

DNPL 

NUM 

0 

LOC. (TO BE FILLlD) 


G17*r 

PC 05 5 

14FA 


vJMP- 

( AD ISP) 



017 5 








017 6 

PO 056 

0171 

OHPPT 

SQM 

PN4 0 



017 7 

POO 57 

18EF 


JMP* 

PNEX 



0178 

P0G56 

F8 03 

PN4Q 

LOQ* 

BASE 

EXIT TO "lOERR" 


0179 

P0 059 

F? 04 


L DQ- 

IOERR,Q 



0180 

PQ05A 

1522 


JNP- 

(ZERO ) , Q 



0182 








018 3 

PO 05R 

0 000 

BASE 

NUM 

0 



018 4 

P0 05C 

0 0 00 

QSAVE 

NUM 

0 



013 5 

P0 050 

1C- GO 

NODE 

ADC 

ASMOO 



0186 

PO 05E 

00 00 

TLO 

NUM 

0^0 



018 7 

PO 05F 

0 0 00 




15 CAROS DELETED 



N623 0138 
N6230i39 
NS20 Q IhO 
N62G0i-^l 
N520 Ql‘t2 
N620 0143 
N520 0144 
N620 014t> 
N6200146 
N62DG 147 
N6200148 
N620 0149 
N520C150 
N6200151 
M52Q 0152 
N&200153 
N623 0154 
No20 0 155 
N6200156 
N62G0 157 
N620 0 1 p 8 

N&20 0 160 
N6200161 
N&200162 
N52Q 0 153 
N623 016^ 
No 2 0 U lb 5 
N52QG166 
N&20 0 157 
N520 0 168 
No20 0159 
No20G170 
No2G 0 171 
N&2G 0172 
N62tj 0173 
N52 j j 17-* 
M 6 2 0 u 1 7 b 
N6 2G U 176 
No2 j 0 17 / 
Nu2C 0176 
N o 2 G 0 1 7 9 
N62 00180 


N52Q 0 182 
No23 G1S3 
N623 C18-+ 
Nb2G 018 5 
No2GQ186 


N623 Q 187 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 

o 

o 

o 



D 

O 

C) 

o 


o 

o 

'D 

O 

O 

o 

o 

o 




PNTHD 
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0189 

pQoeo 

u 0 36 

MESTPL 

ADC 

MtSl-DMPCD 


0190 

PO 061 

0 0 GA 


ADC 

LMESl 


019 1 

PC 062 

0 0 40 


ADC 

MES2-OMPCD 


0192 

PC 063 

00 OB 


ADC 

LMESZ 


0193 

PQ Od 4 

DO 40 


AOC 

HES2-DMPCD 

MESSAGE LOC. 

0194 

PG065 

0019 


ADC 

LMES2 

MESSAGE SIZE 

0196 



¥• 



: TO CONVERT TO I-WORD ASCII 

0197 





ROUTINE 

0198 



>(■ 




0199 

PQ 066 

CBOQ 

CV4A 

NOP 

0 

ENTRY 

020 0 

P0 067 

OCOO 


ENQ 

0 


02Q 1 

P0068 

■*815 


STQ^ 

Cl 

SET U<= INDEX 

02 0 2 

P0Q69 

OF EC 

Cl 

LLS 

12 

EXTRACT 4-BIT TO A-REG. 

0203 

P0G6A 

0FC4 


ALS 

4 

SAVE REMAINDER 

020 4 

PO 06B 

48QD 


STQ^ 

CT 

020 5 

P0 06C 

09F5 


INA 

-10 

SET UP CHAR. AS NO. OR A-F 

02 0 6 

P006D 

0131 


SAM 

NOAFi 


020 7 

PO 06E 

09 07 


INA 

7 


020 8 

PQ06F 

Q93A 

MOAFl 

INA 

T3A 

RECALL IMUEX T.O SAVE CHAR. 

0209 

PC07G 

E8 OD 


LDQ^ 

Cl 

0 210 

P0071 

6 A 08 


STA^ 

CU,Q 


0211 

P0 07 2 

ODFC 


INQ 

-3 

CHECK IF DONE 

0212 

P0 073 

G1 4A 


SQ7 

Cti 

SKIP WHEN DOME 

0213 

P 0 0 7 4 

0809 


RAO-^ 

Cl 


021^ 

P 0 0 7 5 

CCOO 


FNO 

0 

TO PROCESS ANOTHER ONF 

0215 

PGG 76 

C8 02 


LDA- 

CT 

0 216 
0217 

P0Q77 

18 FI 

¥ 

JMP^ 

Cl 


0218 

PO 078 

0 0 0 0 

CT 

NUM 

0 


0219 

POO 79 

G u 04 

CU 

BZS 

CU(4) 


022C 

PGQ7D 

CO OQ 

Cl 

NUM 

0 


0221 







0222 

PQ07E 

F8Fn 

CE 

LOQ-*^ 

GUI- 3 

ASSEMBLE INTO 2-CHAR. WORD 

0223 

PC 07F 

0FA8 


QLS 

8 

0224 

POO 80 

F8FA 


ADQ^ 

CU + 2 


0225 

P0D81 

C8F8 


LDA^ 

CU + 1 


022 6 

PO 082 

0FC8 


ALS 

8 


0227 

PC083 

8 8F5 


ADD'- 

CU 


0 22 8 

POO 84 

ICFl 


JMP-” 

CCV4A ) 

R P T U R N 


023 0 

0231 

0232 

P0 085 

OAOO 

if. 

HE5 1 

NUM 

SAOD 

MFSSAGF 

0233 

POO 86 

4041 


ALF 

8, MASS 

MEMORY DATA 


P00 87 
PQ088 
POO 89 
PD08A 
POQ 8B 

5353 
20 4D 
454D 
4F52 
5920 






M62: G 139 
N620 0 19u 
N62C e 191 
N620 C192 
N&2C 0193 
N52Q0194 


N62G 0196 
N620 0197 
N&200 198 
N52G0199 
N62002UG 
H52G Q 201 
N62C 0 20 2 
N62u 0 20 5 
N623 0 20 4 
N62C 0 20 6 
N620 0206 
N62 ^ u 2 0 7 
N6 Zj 0 20 8 
N520 0 2G9 
N62J j 21^ 
N62u 0 211 
N62C G 212 
No2uu21 3 
N6 2u u 21‘- 
No2u u 21 5 
No 20 0 21 6 
N6 20 0 217 
N62G u 218 
N620 Q219 
N62G 0 220 
N52 j u 221 
N52a0222 
N62QQ223 
N62GG2Z‘+ 
N62i0225 

Nb2u 0 22o 

Nb20 0 227 
No 2 0 0 22 8 


N o 2 1. 0 23 0 
N&2C0231 
N62C 0232 
N62u 0 233 


L.': 


O 

O 

c 

c 


r\ 


o 


o 

o 

o 

o 

o 

o 

o 


o 


o 


PNTMD 


PAGE’ 6 


DATE! Oi/27/99 


P0 08C 

P008D 59A1 


o 

023 4 

PO 08F 

0 A QD 



NUM 

3A0D 


0235 
023 o 


0 0 GA 



EQU 

LHESi (» “HESD 




0 23 7 


QQ8F 

P 

MES2 

EQU 

HES2 ( ^) 


o 

023 8 

PO Q8F 

20 20 


MES21 

ALF 

1 , 

MSB OF BLOCK 

0239 

P 0 0 9 0 

2C 20 


NES22 

ALF 

2, 

LSB 



P0 091 

20 20 






0240 

P0Q92 

2F20 


MES23 

ALF 

3,/ 

WORO 

C) 


PO 093 

2 0 20 






poog^ 

2020 







0241 

<^0 095 

20 20 



ALF 

2, ( 




PO 096 

20 28 





o 

0 2 42 

P 0 0 9’’’ 

20 20 


MES24 

ALF 

2, 

BLOCK 1 DATA 



PD 098 

20 20 






0243 

PO G99 

2920 



ALF 

1 » ) 



u 2 4ii 

P0D9A 

20 20 


HESXX 

ALF 

2, 




P0Q9B 

20 20 







02i*5 

P0 09C 

20 20 


MES25 

ALF 

1, 

MSB BLOCK 2 


0246 

P0D9D 

2Q20 


MES26 

ALF 

2, 

LSB 



PQ09E 

2020 





o 

0247 

poogp^ 

2F2Q 


MES27 

ALF 

3,/ 



POO AO 

2020 








POOAi 

2020 








P 0 0 A 2 

20 2 0 



ALF 

2, ( 


o 


P 0 0 A 3 

20 2 8 





0249 

POOAi- 

20 20 


MES28 

ALF 

2, 

BLOCK 2 DATA 



P 0 Q A 5 

2020 






025 e 

PQ0A6 

2920 



ALF 

i> ) 


o 

0251 

P00A7 

0 AQD 



NUM 

SAon 


0252 


0019 



EQU 

LMES2 (^-HES2) 



0 25 3 


0 0 03 



EQU 

LMESZ (MESXX-MES2) 

o 

0255 

0256 


0 0 01 

P 

4 

EQU 

SBia ( ^/96) 


o 

025 7 


0 0 02 

P 


EQU 

SUIQ {SBlOi-1) 


0258 


QOCO 

P 


EQU 

DBl 0{SUlC-96 ) 



0259 

PO GAS 

S 0 18 



BSS 

(DBID-^ ) 



0 26 0 





F HP 



o 


PGM= QCCG ( 192) COM = QOOO ( D) OAT = OCGu’ ( 


O 




/ 


o 


N62u 0 23-* 


NS 20 0 23 5 

O 

Nd2jG235 


N623 0 237 


N520 0 238 


N620G239 

O 

No2j G 24C 



■ C 

No20 C 241 


N62C 02ii2 



C 

N52G 0 243 


06200244 


M62GC2h5 


N62u 0 24b 


N623 0247 

■ o 

N 6 2 j 0 2 4-8 


Mb2G 0 2 49 

■ C'j 

N b 2 ii G 2 5 G 


No 20 g 251 


N62u C 2d 2 

0 

N52G 0 2d3 



o 

N62G 0 255 


N6 20 0 25 6 


N62G 0257 


M62Q 0258 

o 

N62G 0 259 


Mb 20 0 2b u 



o 


o 

o 

o 

o 


PNTMO 


PAGE 


7 


DATE; 01/27/99 


EQUIVALENCES 


DEF.LINE NAME VALUE RE'ERENCED AT LINE NUMGER 


0 0 G 0 

I 

OOFF 

(000255) 

0 0 83 , G G97 

0050 

AM ONI 

00F4 

(000244) 

0167 

0 0 50 

AOISP 

OOEA 

{ 00 0234) 

0174 

0 050 

LPMSK 

GO 0 2 

(000002) 


D050 

NZERO 

0 012 

( 000018) 


0 050 

ZROBIT 

00 35 

( D 0 3G51) 


0 0 51 

FIVE 

00 43 

(QG0067) 


0 051 

SIX 

0044 

(0 00 06 8) 


0 0 51 

ZERO 

0022 

(000034) 

0101, 0138, G147, 0180 

0C51 

ONEBIT 

0G23 

( 0 00035) 


0 0 51 

SIXTEN 

0027 

(000039) 


0 0 52 

COMMA 

0020 

(0000^4) 


0 0 52 

SLASH 

002F 

(000047) 

0120 

0 0 52 

ASTRIC 

0Q2A 

(000042) 


0 0 53 

EIGHT 

0 0 26 

(000038) 


0 0 53 

NINE 

0 0 *i- 5 

(G CO 069) 


0 0 53 

THRPF 

CO 0 4 

( 000004) 


0 0 53 

ONE 

0 G 0 3 

(000003) 


0C53 

TWO 

00 2 4 

(000036) 


0 0 5 4 

TEN 

0 0 4 6 

( 0 C 0 0 7 0 ) 


0 0 5 5 

MASK 

0 0 0 3 

(0 0000 3) 


0 0 5 7 

CHRSLV 

00 0 7 

( 0 00007 ) 

0 168 

0 0 58 

ASMOD 

IGOG 

(004Q96) 

0185 

0 0 61 

HANDLE 

0 00 1 

{ 00 0001) 


0 062 

MSG 

0 0 0 2 

( 090002) 


0 0 63 

SOMMOR 

0 00 3 

(000003) 


0 0 64 

lOERR 

00 0 4 

(0 00 00 4) 

0 179 

0 06 5 

LISTLU 

00 0 5 

( QOQ005) 

0 G 85 

0 C66 

CGHOLU 

0 0 0 6 

(000006) 


0 G f 7 

NEWMLU 

00 0 7 

(000007) 


0 0 6 8 

PROGl 

0 0 8 

(000008) 


0 0 69 

PPOG2 

QO 09 

(000009) 


0 0 7 0 

BITFLG 

0 C 0 A 

{ 0 Q 0 0 1 0 ) 


0 3 71 

buecnt 

0 0 u B 

(Ou-Jull) 


0 0 72 

FIELD 

0 0 0 C 

(000012) 


0 0 73 

SLASHF 

OQIG 

( 00Q016) 


0 0 7 4 

BUFFMT 

0011 

(000017) 


Q 0 7 5 

BUFFER 

0012 

(000018) 




PNTMD 


PAGE 

8 

DATE! Cl/27/99 

0 355 

LHr SI 

000 A 

( 0 0 0 0 1 0 ) 

0 190 


0 2 5? 

LMFS2 

0019 

( G C 0 G 2 5 ) 

0 194 


0253 

LMESZ 

DODB 

( OQOGii) 

0 192 



PNTHD 


PAGE 


9 


date: Gi/ 27/99 




u 



S Y M B 0 

L S 


■"■'I 

DEF . LINE 

NAME 

ADDRESS 


0 0 47 

PNTMD 

0 0 0 0 


0 093 

PNIO 

00 09 

D 

0 097 

PNli 

GOOD 

0 114 

PN 15 

OCIE 


0 122 

PN 17 

0 0 26 


0123 

PN 18 

0 0 27 


C 140 

PN 21 

0 0 3 6 


0149 

PN 23 

0 0 3 F 


01 F 8 

PNEX 

0 0 47 


0 161 

PN 3 G 

0 0 48 


016 5 

PN 31 

0 0 4 C 


016 7 

PN 32 

<1 0 4 £ 


0168 

GMPCD 

0 0 hF 


C 171 

0 TLU 

0 05 2 

'■J 

C 172 

MPZ 

0 0 53 

0 173 

OMPL 

0 0 5 4 


Q 17 6 

OMPPT 

0 0 5 6 


D 178 

PN 4 C 

0 0 5 8 


0 183 

BASE 

0 0 5 B 

\^J 

0184 

QSAVE 

0 05 C 


018 5 

MODE 

0 0 5 D 


0 18 6 

TLO 

0 05 F 


0189 

HESTRL 

006 u 


0199 

CV 4 A 

0 066 


0 202 

Cl 

0069 


0 2 08 

NOAFl 

0 0 6 F 


0 218 

CT 

0078 


0 219 

cu 

0 079 


0 220 

Cl 

DO 7 D 


0222 

CE 

007 E 


0 2 32 

MESl 

008 5 


0237 

MES 2 

0 08 F 


0 238 

MES 21 

00 8 F 


0239 

MES 22 

0090 

O 

0 24 0 

MES 23 

0 0 9 2 

0 24 Z 

MFS 24 

0097 


0244 

MESXX 

G 09 A 


0 2 45 

MES 25 

009 C 

o 

0 2^6 

MES 26 

0 0 9 P 

0 2^7 

MES 27 

009 F 


0 249 

M F S 2 8 

G 0 A 


O 


REFERENCED AT LINc. NUMBER 


0 0 47 , 
0 091 
0 095 
0104 
0 119 
0 121 
0136 

0 098 , 

0 G 99 , 

0132 , 

Oi-rO , 

0 141 

0139 
0155 , 

G 177 





0 0 9 2 , 

0157 





0 169 , 
0 0 87 
0156 
0165 
0 169 

0 18 9 , 

0191 , 

0193 



0176 
0 0 8 2 , 

0 17 8 





0 0 84 , 
0 0 86 

0102 , 

0 11 7 , 

013 ^, 

015 3 , 

0161 

0 10 0 , 

010 6 , 

0108 , 

0112 , 

0113 , 

0 115 

0 16 3 , 

016 4 





3 105 , 
0 216 

0109 , 

3 114 , 

U 1 9 , 

3 228 


0 206 
0 20 -f, 

0215 





0 210 , 

0222 , 

0224 , 

0225 , 

0227 


0 2 01 , 

0209 , 

0 213 




0 212 
0189 , 

0235 





0 191 , 

0 193 , 

0252 , 

0253 



0 0 96 , 

0107 





QUO , 

0111 





0124 , 

0129 , 

0 13 0 




9150 , 
0 2 53 

0151 





0 096 







o 


o 


0143 , Oli-u, D 14 i>, Oi^R, Q 156 


■G 12 E, 0137 , Ll 42 , Q 14 o 


C) 

O 

O 

P’l 

Q. 

O 

o 

o 

o 

o 

o 

o 

o 


r\> r\5 f\D 


u 



PHTMD 


PAGE 10 

56 

SBIO 

0 0 0 1 

0 257 

57 

SUIO 

OC 02 

0 258 

' 5 fi 

DBiO 

GOCO 

0259 


date; 01/27/99 


o 

o 

o 

o 

o 

O 


O 

Pi 

o 

L/ 

o 

o 

o 


o 


PNTHD 
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date; Cl/27/99 



ft L 

P H A 

B E T I 

CAL 

SORT 

0 F 

o 

ADISP 

0Q50 

A MON I 

0 050 

A SHOD 

0 0 58 


Cl 

G20 2 

C E 

0 222 

CHRSLV 

0 0 57 


OBiC 

0258 

OMPCO 

0168 

DM PL 

0173 


lOERP 

0 06 4 

LISTLU 

C 065 

LMESi 

0 23 5 

',^1 

MES21 

0238 

MES2 2 

0 239 

MES23 

0 2 40 


Mf^S/X 

0244 

MODE 

Q185 

MPZ 

0 1 72 


ONEPIT 

0051 

OTLU 

3171 

PNIO 

0 093 


PM 3 D 

0161 

PN31 

C 165 

PN32 

0 167 

u 

SBl 0 

025 6 

SIX 

0 0 51 

SIXTEN 

Q 0 pi 


TLO 

C18 6 

TWO 

0 0 53 

ZERO 

0 0 51 


SYMBOLS 


ASTRIC 0052 BASE 

Cl 0 22 0 COMMA 

OHPRT 0176 EIGHT 

LMES2 0252 LHESZ 

HES24 02p2 MES25 

MSG 0 062 NEWHLLI 

PNll 0097 PM15 

PNi-G 0173 PMEX 

SLASH 0032 SLASHF 

ZkOBIT 00 5 G 


0183 

CC52 


0 0 5 3 
0 2!?’' 
P W 


G 

Oil 


015 


0 07 3 


O' 


o 

Q 

r"\ 

O 

o 

o 

o 


o 


Co-F 'vl'JV. 




C‘ 


BITFLG 

007 0 

BUFCNT 

0 0 71 

BUFEMT 

0 07 -T 

BUFFER 

Gu75 


COMOLU 

0 06 6 

CT 

0218 

CU 

0 219 

CV4 A 

0199 


FIELD 

GG72 

FIVE 

0 0 51 

HANDLE 

u G 6 1 

I 

C L D >- 


LPMSK 

0 u 5 0 

MASK 

0 0 5 p 

MESl 

0 232 

M £S2 

0 23 7 

O 

HES2o 

0 246 

HES27 

■U 2 4 7 

H&S28 

3 2-9 

!*1 F S T B L 

b 18 9 

N I N r 

G 0 5 3 

MOAFl 

0 2 0 8 

nzfmo 

^ GpC 

ONE 

j l'; 5 3 


PN17 

0122 

PN18 

0125 

PN21 

G 1-*C 

PN2 3 

b 1 4 9 


PNTMD 

G G 4 7 

PROGl 

u G c 8 

»PO G2 

0 jo9 

nSAVE 

b 1 8 -t 

: O 

S OHM OR 

00 53 

SUi 3 

0 2 5 7 

JZli 

0 0 5 4 

THREE 

C C p 3 


( J 


l:-' 

c 

Q 

O 

O 

O 

o 

o 

o 

o 

o 


MASOT 


PAGE 


1 


date; Gl/27/99 


OGGi 
0 Q 0 2 
G303 
G 0 C 4 
QD 0 5 
00 0 6 
G007 
000 8 

0 0 0 9 
0010 
0011 
QG12 
0013 

001 H 

0015 

0016 

0017 

0018 
0019 
00 2 0 
0021 
0022 
0G25 

002 4 

0 0 2 5 
0 0 2 6 
0027 
0 0 28 
00 29 

003 0 
0031 
0G32 
0 0 3 3 
Q03 4 

QG3 5 
00 36 
00 3 7 
G038 
00 39 
00 40 
0G41 
Q042 
0043 

00 44 

0045 
004b 
0 0 4 7 
00 4 B 
0049 
0 0 5 0 
0 05 1 
0C52 
00 53 


•V- 

V’ 

V' 

if. 


if. 

1” 

■V- 

if. 

if. if. 

if. if. if. if. 

if. 

if. 

if. 

if. 

if 

if. 

if 

if 


NAM MASDT DECK- 10 M63 HSOS 5.G 

MASS STDPAQi^ OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197d 


A- A?- A<- •¥■ AT- -? -¥• if- ■¥■ V V A?- if- A'- ai Jf *?■ A"- Ar Af- -V- AMr ■?■ A?- ?• 

A-. ^ 

^ ROUTINE TO PRINT MASS MEMORY DATA WHICH ^ 

IS IN CORE MEMORY ^ 

FORMATS ARE : (l)HbX., (2)DECIMAL, AND ^ 

^ (3) ASCII * 

ifififi^sfifif if ifif.ififififif^’- if if 


CALLING SEQUENCE 
RTJ HA SOT 


SUMMARY- 116 '^^^"'^-'^-'"- 
No5 j Q 0 0 2 
N 6 3 3 G G 0 3 
N630 0^0 4 
N63jUQD5 
Nb3D OGCb 

No-ijUJU/ 

N630 G0C8 
N63Q0QQ9 


ADC 

ADC 

ADC 


MMAUa)-^ 

NVi-^ 

OATLO-- 


MM aOO. log. 
NO. OF WORDS 
DAI A LOG. 


0-PEG ISTER CONTAINS REQUEST TYPE 


0 = FOR HEX. 

1 = FOR DECIMAL 

2 = FOR ASCII 


OUTPUT FCRMATS ! 

(1) FOR HFX. 

MMLLLL/WWNW XXXX XXXX XXXX - 

(2) FOR ASCII 

MMLLLL/WWWW AA GB CC 

(3) FOR DECIMAL 

MMLLLL /WWWW +DOQQD -DDDDO 


WHFPF MM = SFCTOR MSB (HFX.) 

LLLL = SECTOR LSB (HcX. ) 
WWWW = WOPvO (HEX.) 

8 HEX. DATA IN A LINE 


N63C 0 ull 
N53G0G12 
N63; 0 G13 
N63ij 0 Q14 
N&3-G Gib 
N b 3 j 0 0 i b 
N 6 3 C Q 0 1 7 
N 6 3 G G G 1 6 
N b 3 j b J 1 9 
N 6 w b b u 2 G 
No3. G U21 
N 6 3 'J u 0 2 Z 
N 6 3 J G 0 2 3 


No 3. 
Nbo . 
N 6 3 i 
N63: 
N630 
No 3 J 


0 u 2 4 

u G 2 b 
! u 0 2 6 
G 0 2 7 
G 02 8 
02 9 
No30 3030 
N630 G J31 
N 6 3 0 0 U 3 2 
No 3 G G 0 3 3 
N 6 3 0 0 0 5 4 
N530G035 
Nb33GG36 
N63G 0 037 
N633 D G36 
N o 3 j j 0 5 9 

N 6 3 Li u J 4 0 

N 6 5 0 0 0 4 1 
N o 3 0 u 0 4 2 
N b 3 J 0 G - 3 

N o b - G u 4 4 

N 6 3 J u 0 - b 
N 6 ? 0 G 0 4 L‘ 
N D 3 0 G G 4 7 
N 6 3 :j 0 0 
N63G 0 0 
N D 5 u o 
N63C G 
N b 3 u b' 


8 
9 

•"! r i'i 

351 

G5E 


N63 G u Qb 3 


MASOT 


PAGE 


DATE: 01/27/99 


0 0 5 4 







16 ASCII DATA IN A LINE 

0055 
0 0 5 6 







8 DECIMAL DATA IN A LINE 

0 0 5 7 








0059 




E 

N 

T 

R Y NAME 

006 0 


ENT 

MASOT 





0 0 5 2 

nr 



F 

X 

T 

E R N A L S 

0 063 


EXT 

CHRSFG 





0 0 5 4 


EXT 

OFF 





0 0 5 5 


EXT 

HANDLE 






N 533035*^ 
No33 0 Q55 
N65j 'jQpo 
N530Gu57 

N6300059 
N63G 0 060 

N633 0 0 62 
N63 0 0 063 
N63 3 0 06-^ 
N633 0 055 


0 0 6 7 
0 0 5 8 


0 0 6 9 


Q07Q 


0071 


00 72 
00 73 

00 75 
0 Q 7 6 
00 77 


0 GF4 

0 0 EA 
0 0 G2 
0 0 12 
0 0 33 
0 0 43 
0 C 44 
0 0 22 
0 0 23 
0 0 27 
J 0 2C 
0 0 2F 
0 0 2A 
0 0 26 
G 0 45 
0 u 04 

9 0 03 
0 0 24 
0 0 46 
OG 03 

0 0 07 

10 GO 
G 0 27 


'EOU' TABLE 

EQU AMDN1I(3F4) ,ADISP(SEA) >LPMSK(2),MZER0(S12),ZR0BIT($33) 


N53G 0 067 
N53a0Q68 


FQLI FIVE ( 343 ), SIX ($4^) , Z'KO ( $ 2 2 ) , OH EO I T ( $ 23 ) , SI XT EH ($27) H63^ 0 3 69 

EQU COMMA ($20 ,SLASH{$2F) ,ASTRIC ($2A) H633 0 G7L! 

EQU EIGHT ($26) ,NIHE ($-+5 ) , THREE (-+) ,ONE( 5) , TWO ($24) Ho3ijGw7l 


EQU TEH ($46) 

EQU HA3K(3) ONE BIT MASK 


H530G072 
N630 G G73 


EQU CHRSLV(7) 

EOU ASMOD($1UOO) 
EOU N039(39) 


LEVEL OF THIS PROGRAM 
OUTPUT ASC MODE 
39 WOROS/LINE 


116 - 4360 ^--’-'^^^^- 
N630uu7o 
H 6 5 0 3 0 7 7 


0079 
0Q8C 
0 0 8 1 
00 8 2 
3 0 8 3 
0GB 
GOB 5 
008 6 
0D87 




0 0 0 1 
0 0 02 
C G 0 3 
L u 0 4 
DQG5 
0 0 06 
0 0 07 
0 0 08 


FQU 

EOU 

EOU 

FQU 

EQU 

EOU 

EQU 

EQU 


RHAN (1 ) 
MSG ( 2 ) 

SOMHOPs( 3) 

lOEPR (4 j 
LISTLU(5) 
COMOLU ( 6 ) 
NEWMLU(7) 
PROGl ( 8 ) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE' 

•■f1SG" ENTRY 
"SOM MOP" ENTRY 
"lOERR" ENTRY 

LIST OUTPUT ■ 

"COMOLU" 

"NEWMLU" new 

"PROGl" 


LI S TLIJ' 
HM LU 


No 3 j 3 'j 7 9 
N o 3 G ij G 3 C 
N o 3 i. u J 8 1 
No3 J w 3 S 4 
N 6 Z G G 3 8 3 
M 63 3 u u 8 -f 
N 6 5 3 G C 8 
N63 3 u 3 8 D 
N630 0 0 87 



O' 


o 

o 

o 

o 

o 

o 


u 

o 

o 

o 


o 


o 
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0088 

0 0 09 

EQU 

PR0G2 (9 ) 

’•PROG2" 

N65 0 0 088 

0089 

GG OA 

EQU 

BITFLG(IO) 

"BITFLG” 

N53JJ‘jS9 

00 9 0 

00 OB 

EQU 

aUFCNT (11) 

"BUFCNT" 

N530 0 09G 

009 1 

OOOC 

EQU 

FIELD (12 ) 

"FIELD" 

No30 0 09 1 

0D9? 

00 10 

EQU 

SLASHF (16) 

"SLASHF" 

N633C092 

00 93 

DOll 

EQU 

BUFEMT ( 17) 

"BUFEMT" 

Nb3Q0093 

0Q9A 

0012 

EQU 

BUFFERdB) 

"BUFFER" 

N63 G 0 0 9 4 


0096 




”1* 




N630 0 G96 

009 7 




>1- 9-^ V-'-/- 


4 4 4 •¥• 

PROGRAM START 

N633 0 0 97 

0C98 








N B 3 0 0 G 9 8 

0100 

P 0 0 D G 

QBGG 


HASOT 

NOP 

0 

ENTRY 

N630 3103 

010 1 

POOCl 

4853 



STQ-'^ 

QSAVE 

SAVE REQUEST TYPE 

No 300101 

0102 

P00 0 2 

6853 



STA^ 

BASE 


N 0 3 a Q 1 0 2 

0103 

P00D3 

60FF 



STA- 

I 


No3Qul03 

010 A 

POu Qii 

8112 



AOD- 

BUFFER, T 

CALCULATE BUFFER ADO. 

N633 0 10 4 

010 5 

POOG 5 

6800 



STA 

BUFADO 


N63G 0 10 5 


P 0 0 06 

0 0 90 







010 6 

P00 0 7 

CA57 



LDA^ 

LNSZ,Q 

GET NO. OF DATA (MAX.) PER LINE 

N633 GlOb 

010 7 

PG008 

68 53 



STA- 

SIZLN 


No 3 0 010 7 

DIGS 

P0C09 

C400 

X 


LDA 

C HRS EG 

CHECK IF "OX" 

N65 0 0 10 8 


POGOA 

7FFF 

X 






010 9 

PO OCB 

01 17 



SAN 

MOT 

NO, ASSEMBLE DATA AND PRINT 

N63301D9 

0110 

POODC 

C8 06 


GETOJT 

LDA^ 

OTB+1 

CALCULATE 'OFF' ADDRESS 

N&3 0 0 11 U 

0111 

POO on 

98 04 



suo^ 

0TB 


N630 Dili 

0112 

PODGE 

81 01 



AOD- 

SHAM, T 


N D 3 3 G 1 1 2 

0113 

P 0 D 0 F 

0 822 



TRA 

Q 


N63 00113 

0114 

P 0 C 1 0 

1622 



JM?“ 

(ZERO) , Q 

EXIT TO "OFF" 

N63 3 g 11 

Oil 5 

PCOll 

7FFF 

X 

0TB 

ABC 

HANDLE 

0. "HANDLE" ENTRY 

N b 3 j 0 11 b 

0 1 1 6 

P 0 0 1 2 

7FFF 

X 


Aur 

OFF 

1. "OFF" INTFd 

No 3 3 3 11 r 

0118 






GET 

PAPAMFTERSs (i) MM ADO. LOC., (2) DATA LOO. 

N6 3 3 0 118 

0119 

F 0 0 1 3 

FCFQ 


MOT 

LOG* 

(MASOT) 


NbbOullB 

0120 

P0014 

F8EB 



AOQ^- 

HASOT 


Nb53 012C 

0121 

P0015 

C622 



LDA- 

(ZERO ) , Q 

GET MSB 

Nq3j u 121 

0122 

P 0 0 1 6 

68£^1 



STA-'^ 

HMADD 


N63CG122 

0123 

pool 7 

C201 



LQA- 

1 ,Q 

GET LSB 

Nb300123 

0124 

POO 18 

6 8 40 



STA^ 

MMAOD+1 


Nb 3 G 012 4 

0125 

P0019 

C202 



LOA- 

2»Q 

GET WORD 

N633 0 12 5 

0126 

POOIA 

683F 



STA^ 

MMAOD+2 


N63 00126 

0127 

POO IP. 

D8E4 



RAQ^ 

MASOT 

BUMP TO NEXT PARAMETER 

N6330127 

0128 

POOIC 

ECE3 



LDQ^ 

(MASOT) 

GET NO. OF WORDS IN DATA 

N63G 0128 

0129 

POOlO 

F8E2 



ADQ» 

MASOT 


N633 0 129 

0130 

PO OlE 

C622 



LOA- 

(ZERO) ,Q 


N630013D 

0131 

PODIF 

6 8 3D 



STA» 

NW 


N63 G 0 1 3 1 

0132 

P0020 

D8DF 



RAO^ 

MASOT 


N63G0132 

0133 

PG021 

CCOE 



LOA^ 

(MASOT) 


N53 00133 

0134 

P00 22 

8800 



ADD^ 

MASOT 


No30C134 
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0135 

P0 0 23 

6837 


STA^ 

OATLO 


N630 0 13 5 

0136 

P0024 

D8DB 


RAO» 

MASOT 

SET EXIT 

N630 013 6 

0137 

P0 025 

Cl 05 


LDA- 

LI3TLU, I 

GET LIST LOGICAL UNIT 

N630 013 7 

0138 

P0026 

8830 


ADO^ 

MODE 


M53G0138 

0139 

P0 0 27 

6800 


STA 

OTLU 


No 3 j 015 9 


PQ028 

0 0 79 






0141 





INITIALIZE 

N630 0 141 

0142 

PG029 

OA 00 

MAZO 

ENA 

0 


N530 0 142 

0143 

POO 2A 

6833 


STA^ 

COUNT 


N630D143 

0145 

P002B 

C8 78 

MAIO 

LDA» 

BUFADO 


N633 0145 

0146 

PO 02C 

09FE 


INA 

-1 


N630 0 146 

0147 

P0 02D 

60FF 


STA- 

I 


N633 0 l‘+7 

0148 

P0 02E 

OC CO 


ENQ 

0 

FILL BUFFER WITH SPACE 

No3i] 0148 

0149 

P002F 

CO 00 

MA12 

LOA 

= A 


N630 0149 


PO 030 

20 20 






0150 

P0031 

63 01 


STA- 

1,B 


N63u 0 15 0 

0151 

P0G32 

DDOl 


INO 

1 


No30 0 151 

0152 

PO 033 

0814 


TRQ 

A 


N630 0 152 

0153 

PO 054 

09D7 


INA 

-40 


N63u 0 153 

0154 

P0 035 

0101 


SAZ 

MA14 


N633 0 15 

0155 

P0036 

18F8 


JMP«^ 

HA12 


N630Q155 

015 6 







N63Q 015o 

015 7 

PO 037 

.C820 

HA 14 

LDA^ 

MMADO 

CONVERT MSB TO ASC 

N&3Q C 157 

0158 

P0038 

5329 


RTJ» 

Cy4A 


N530 0 158 

0159 

P0039 

6101 


STA- 

1,1 


N630 0 159 

0160 

P00 3A 

C81E 


LDA* 

MMAOD+1 

GET LSB AND CONVERT TO ASC 

N63Q U 160 

0161 

P003B 

5826 


RTJ» 

CVi+A 


N630 0 163 

0162 

P003C 

4102 


STQ- 

2,1 


N63u 0 162 

0163 

PQ03D 

6103 


STA- 

3,1 


N630 0 163 

0164 

P0Q3E 

C81B 


LDA* 

HMADO+2 

GET WORD 

No 3 J 0 1 6 4 

016 5 

P003F 

5822 


RTJ^ 

CV4A 


N630G165 

016 5 

P0040 

6821 


STA^ 

CV4A 


N630 016 6 

0157 

PO 041 

0814 


TRQ 

A 


N53D 0167 

0168 

PD042 

0 C2F 


ENQ 

SLASH 

INSERT V' BETWEEN SECTOR AND WORD 

N633 0168 

0169 

P 0 C 4 3 

0FE8 


LLS 

8 


N&3C 0 169 

0170 

9004^+ 

4104 


STQ- 

4,1 


N630 0170 

0171 

P0045 

E81C 


LDQ^ 

CV4A 


N630 0 171 

0172 

PO 0 46 

0FC8 


ALS 

8 


N63D 0172 

0173 

PO 047 

OFFS 


LLS 

24 


N63Q3173 

0174 

P0 048 

0920 


INA 

$20 


N630 017 4 

0175 

P0Q49 

6106 


STA- 

6,1 


N630 017 5 

0176 

POOi-A 

4105 


STQ- 

5,1 


N633 0176 

0177 







N630 0177 

017 8 

P004B 

COFF 


LOA- 

I 

UP DATE BUFFER TO DATA STORAGE LOG. 

N530 0 178 

0179 

P004C 

09 07 


INA 

7 


N630 0 179 

0180 

P004D 

6QFF 


STA- 

I 


N630018D 

0181 







N630 Q 181 

0182 

PO O^E 

E8 06 

RECALQ 

LDQ^ 

QSAVE 

RECALL REQUEST TYPE AND GO TO THE PROPER 

N630 Q 182 

0183 

P004F 

CCOB 


LOA» 

1 DATLO) 

GET DATA 

N&3QG183 

0184 

P0050 

lAOl 


JMP^ 

TYDAT, Q 

ASSEMBLE TYPE PROCESSING 

N63Q 0184 

018 5 

P0051 

18 67 

TYDAT 

JHP» 

HEXDAT 

0. HEX. DATA 

N6300185 




HA SOT 


o 

0186 

P005 2 

1 8 6C 


JMP- 


018 7 

P0Q53 

18 20 


JMP«^ 

o 

0189 



* 



0190 

P0054 

0 0 00 

QSAVE 

NUM 


0191 

P0055 

0 0 00 

BASE 

MUM 

o 

0192 

P0 056 

1000 

MOOE 

AOC 

0193 

P0057 

Q 0 03 

HNADD 

BZS 


0194 

PQU5A 

0 000 

OATLO 

NUM 


0195 

P005B 

DOOG 

SIZLN 

NUM 

0 

0196 

P0 05C 

0 0 0 0 

NW 

NUM 

0197 

P005D 

0 0 0 0 

COUNT 

NUM 


0198 

PD05E 

00 08 

LNSZ 

MUM 



P0 05F 

0 0 08 



o 


P0 060 

0010 



0199 



* 



020 1 





o 

0202 






0203 



* 



020 4 

PQQ61 

Q BOO 

CV4A 

NOP 

o 

0205 

P0062 

OCOO 


ENQ 

020 6 

P0063 

4815 


STQ^ 


0207 

P0064 

OFEC 

Cl 

LLS 


020 8 

POO 65 

0FC4 


ALS 

o 

0209 

PD066 

4800 


STQ» 

0210 

P0G67 

09F5 


INA 


0211 

Pfl 068 

0131 


SAM 


0212 

PQ069 

090 7 


INA 


0213 

P006A 

093A 

NOAFl 

INA 


0214 

P0G68 

E8 DO 


LDQ^ 


0215 

POO 6C 

6A0 8 


STA^ 


0216 

PO 060 

ODFC 


INQ 

/ 

0217 

PD06E 

014A 


SQZ 

1 J 

0218 

P006F 

0809 


RAO«^ 


0219 

P0G70 

OCOO 


ENQ 


0220 

P0071 

C8 02 


LDA^ 


0221 

0222 

P0072 

18F1 


JMP^ 

NUM 


0223 

PO 073 

0 0 00 

CT 


0224 

P0074 

00 04 

CU 

BZS 

o 

0225 

P0 078 

0 0 0 0 

Cl 

NUM 

0226 




LDQ^ 


0227 

P00 79 

F8FD 

CE 


0228 

P007A 

OF AS 


QLS 

o 

0229 

P007Q 

F3FA 


AD 

0230 

P007C 

C3F8 


LOA^ 


0231 

P0 07D 

0FC8 


ALS 


0232 

P0 07E 

88F5 


AOD^ 

Q 

0233 

P0G7F 

ICEl 


JMP^ 


0235 






o 


PAGE 

5 

date: 01/27/99 

OECD AT 


1. DECIMAL DATA 

A SODA T 


2. ASCII DATA 

S 

T 0 

RAGE 

0 


REQUEST CODE 

0 

ASMOD 
HHAOO {3 ) 


PARAMETER BASE ADD. 

0 

0 

0 

0 

8,8,16 


DATA LOC. 


NO. OF DATA WORDS 


SIZES FOR NO. OF DATA/LINE 
15 CARDS DELETED 


ROUTINE TO CONVERT TO I-WORD ASCII 


0 

0 

Cl 

ENTRY 


SET UP INDEX 


12 

extract 4-bit to 

A-REG. 

4 



CT 

-10 

NOAFl 

7 

$3A 

Cl 

SAVE REMAINDER 
SET UP CHAR. AS 

NO. OR A-F 

RECALL INDEX TO 

SAVE CHAR. 

CU, 0 
-3 
CE 
Cl 
0 

CT 

CHECK IF DONE 
SKIP WHEN DONE 


TO PROCESS ANOTHER ONE 

Cl 



0 

CU(4) 

0 



CU+3 

8 

CU + 2 
CU+-1 
8 

CU 

{CV4A) 

ASSEMBLE INTO 2- 

■CHAR. WORD 

RETURN 


ASCII 

DATA 



No 5 J 018 b 
N53Q0187 

N63JQ189 
N6300 190 
N63QQ191 
N630Q 192 
N63Q0193 
N6300199 
N63u 0 19 5 
N633 0 I9b 
N63G 0197 
N630 C198 


No3j0199 


N6300201 
N6S0 G 202 
N630G 203 
N&3Q 0 204 
N&3002G5 
N63302Db 
No30 0 20 7 
No30 0 20 8 
No30 0209 
N63CD21G 
N633 0 211 
M63G G212 
N6300213 
N630 0 214 
Nd 30 0215 
N630021fa 
N650G217 
N6330218 
N63Q 0219 
N630 0 220 
N6330221 
N6300222 
N63D0223 
N630 0 224 
N63 0 0 22 5 
N633 0 22b 
N63 3 0 22 7 
N633 0228 
N63G0229 
Nb33 0 230 
N63C 0 231 
N63G 0232 
N630 0 233 

N633 0235 


o 

o 

o 


Q. 

o 

o 

c 

o 



n 


O 

O 

o 

o 


o 


o 


C' 



MASOT 
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□ate: 01/27/99 


t \ 

o 

023 6 

P0080 

0322 


ASCDAT 

TRA 

a 

DATA TO Q-REG. 

N630 C 236 

o 


0237 

POO 81 

C8DB 



LDA^ 

COUNT 

CHECK IF HI-CHAR. POSITION WORD 

N63Q 0237 


o 

0233 

P0 082 

A023 



AMD- 

ONEBIT 


N63D 0238 

o 

0239 

P0083 

0108 



SAZ 

ASC3 

yes, SKIP 

N6300239 


0240 

PO 084 

0 814 



IRQ 

A 

ASSEMBLE 2-SPACE WITH CHAR. 

N630 0 240 



0241 

P0085 

0C20 



ENQ 

$20 


N630 0241 



0242 

P0Q86 

0FE8 



LLS 

8 


N630 02h2 

' o 

u 

0243 

PO 087 

0920 



INA 

$20 


N630 02h3 


0244 

P0088 

4101 



STQ- 

1,1 


N63j 0244 



0245 

P0089 

6102 



STA- 

2,1 


N63D 0245 
N63Q 0 246 


O 

0246 

P008A 

DOFF 



RAO- 

I 


■ (~'\ 

0247 

P0Q8B 

1802 



JMP’^ 

ASC4 


N630 0247 

L..' 


0248 

PO 06C 

4101 


ASC3 

STQ- 

1,1 


N630 0 248 



0249 

P0Q8D 

DOFF 


ASC4 

RAO- 

I 

UP DATE STORAGE INDEX 

N630 0249 


o 

0250 

PO 08E 

D8CB 



RAO^ 

DATLO 

BUMP DATA LOCATION BY 1 (ADVANCE TO NEXT 

DATA )N6300250 

c 


0252 






DATA 

EXHAUST OR LINE FULL CHECK 

N630 0 252 



0253 

P008F 

C8GC 



LDA^ 

NW 

DECREMENT NO. OF WORDS BY 1 AND CHECK IF 

N63U0253 



0254 

P0Q9Q 

09FE 



INA 

-1 

DATA EXHAUSTED 

N63Q 0 254 

o 

o 

0255 

poogi 

68CA 



STA» 

NW 


N53G 0 255 


0256 

P0092 

0 105 



SAZ 

PNT 

DATA EXHAUSTED, SKIP 

N6300256 



025 7 

PQQ93 

D8C9 


CK3 

RAO’^ 

COUNT 


N633 025? 


0* 

0258 

PQ094 

C8C8 



LDA^ 

COUNT 


N63u 0 258 

o 

0259 

PG095 

98C5 



SUB^ 

SIZLN 


N630 0259 


0260 

P0096 

0101 



SAZ 

PNT 

LINE FULL, SKIP 

N630 0 250 



0251 

P0097 

18 B6 



JMP» 

RECALQ 

TO REPEAT 

N53G0261 

^ o 


0263 






PRINT 

DATA 

N630G263 


0264 

P0098 

58 01 


PNT 

RTJ» 

SELF 


N63 0 0 26 4 



0265 

FO 099 

OBOO 


SELF 

NOP 

0 


N6300265 

o 

O 

0266 

PG09A 

G8FE 



LDA^ 

SELF 


NB3 0 0 26 6 


0267 

P009B 

0 9 OC 



INA 

PNTRT-SELF 


N630 0267 



0268 

PD09C 

68 03 



STA» 

RT 


N630 0268 


o 

0269 

PG09D 

54F4 



RTJ- 

(AMONI) 


N630 0 269 

o 

0270 

P009E 

CC07 


PNTCD 

ADC 

$COQ+CHRSLV 

F-WRITE 

N630 0270 


0271 

P009F 

GOOO 


P^T 

NUN 

0 

RETURN ADD. (FILLED) 

N6300 271 



0272 

POOAO 

0000 



NUM 

0 


N6300272 



0273 

POOAl 

0 0 0 0 


OTLU 

NUM 

0 

LU (FILLED) 

N63Q0273 

C; 


0274 

PC 0A2 

0 0 27 



ADC 

N039 

SIZE 

N630C274 


0275 

P0QA3 

OD 00 


BUFADD 

NUM 

0 

BUFFER (FILLED) 

N63G 0 275 



0276 

P00A4 

14EA 



JMP- 

(ADISF) 


N6300276 


o 

027 7 




* 




N633 0277 

o 

0278 

P00A5 

C8AF 


PNTRT 

LDA^ 

BASE 


N6300278 


0279 

P00A6 

60FF 



STA- 

I 

SET UP 'BASE' ADDRESS IN I-REG. 

N630D279 



0280 

P00A7 

0162 



SQP 

PNTOK 


N530 0 280 



0281 

POO A8 

El 04 



LDQ- 

ioerr,i 

TO 'lOERR' (I/O ERROR EXIT) 

N63G0281 

• o 


0282 

P00A9 

1622 



JMP- 

(ZERO) ,Q 


N6300282 


0285 

PQOAA 

C4Q0 

X 

PNTOK 

LOA 

chrsfg 

CHECK FOR 'OX' AFTER EACH LINE 

N5300283 




PO OAB 

00 OA 

X 







o 

0 2 84 

POOAO 

0112 



SAN 

REPNT 

NO 'DX' GO PRINT MORE IF NEEDED 

N63G 0284 

o 

0285 

POOAO 

1800 



JMP 

GETOUT 

'DX' SET, GO TO GET OUT 

N630 0285 

o 


PO QAE 

FF5D 







o 

{’~'j 










o 



/ "l, 







( i 



MASOT 



PAGE 

o 

0286 

POOAF 

C8AC 

REPNT 

LDA^ 

NW 


0287 

POOBO 

0105 


SAZ 

DONE 


0288 

POOEl 

C3 A7 


LD A^ 

MM A DO + 2 

u 

0289 

P00B2 

88 A8 


ADD^ 

SIZLN 


029 0 

P0DE3 

68A5 


STA^ 

MNADO+2 


0291 

P0084 

18 00 


JMP 

MAZD 



PO0B5 

FF73 




O ' 

0292 

P0GB6 

iCOG 

DONE 

JMP 

(MASOT) 



PO 0B7 

FF48 





0294 



V- 



o 

0295 

P00B8 

58 A8 

HEXDAT 

RTJ^ 

CV4A 


0296 

P00B9 

4101 

HEl 

STQ- 

l.I 


0297 

POOBA 

6102 


STA- 

2 » I 


0298 

POOBB 

DOFF 


RAO- 

I 


0299 

POOBC 

DOFF 


RAO- 

I 


0300 

POOBO 

18CF 


JMP» 

ASC4 


030 2 



>(■ 



1 1 

0303 

POD BE 

EOFF 

DECDAT 

LDD- 

I 


030 4 

POOBF 

4829 


STO^ 

ISA VE 


0305 

PCOCO 

OCOO 


END 

0 


030 6 

PQOCl 

48 28 


STQ^ 

SIGN 

i \ 

0307 

PC0C2 

40FF 


STQ- 

I 


0308 

P0QC3 

0122 


SAP 

DE3 


0309 

P00C4 

D825 


RAO^ 

SIGN 

O 

0310 

PO 0C5 

0 864 


TCA 

A 

0311 

P00C6 

3924 

DE3 

DVI^ 

FACTENt 


0312 

P00C7 

481C 


STO^ 

TEMP 


0 313 

P00C8 

691C 


STA» 

TEMPf 1, 


0314 

P00C9 

DOFF 


RAO- 

I 


0315 

POOCA 

CQFF 


LDA- 

I 


0316 

POOCB 

0 9FB 


INA 

-4 


0317 

POOCC 

0103 


SAZ 

DEo 


0318 

POOCO 

C816 


LDA^ 

TEMP 

( ) 

0319 

POOCE 

OCOO 


ENQ 

0 


0320 

POOCF 

13F6 


JHP^ 

D E3 


0321 

POODG 

C818 

DE6 

LDAv 

ISAVE 


0322 

POODl 

60FF 


STA- 

I 

o 

0323 

P0GD2 

U A2B 


ENA 

$2B 


0324 

PG0D3 

E8 16 


LDQ^ 

SIGN 


0325 

P00D4 

0141 


SQZ 

OE8 


0326 

P00D5 

09 02 


INA 

2 

u 

0327 

P00D6 

0FC8 

DE8 

ALS 

8 


0328 

P00D7 

880D 


ADD^ 

TEMP-t-1 


0329 

P00D8 

0 930 


INA 

$30 


0330 

P00D9 

6101 


STA- 

Ul 

u 

0331 

POODA 

DOFF 


RAO- 

I 


0332 

POGDB 

E80A 


LDQ» 

T EM P+2 


0333 

PDOOC 

C80B 


LDA^ 

TEMP+4 


0334 

POODO 

0FE8 


LLS 

8 


0335 

PGODE 

F308 


ADQ» 

TEMP+3 


0336 

PGODF 

83 04 


ADD^ 

TEMP 


7 date: Gl/27/99 

CHECK IF ALL DONE 
UP DATE WORD ADD. 

TO REPEAT 
RETURN 


ASSEMBLE HEX, DATA 

CONVERT TO HEX, 


AND SAVE DATA 


ASSEMBLE DECIMAL DATA 


I 

I 


RESET SIGN AND INITIALIZE INDEX 

SKIP IF VALUE IS POSITIVE 

NFOATTVE AND SAVE VALUE W/O SIGN 


DIVIDED NO. BY TEN FACTOR 
SAVE NO. 


SKIP WHEN DONE 


RESTORE DATA BUFFER 
SET FOR "+" (SIGN) 

CHANGE TO NEGATIVE 
+ MSD 

ASSEMBLE 2-3 DIGITS 


o 




o 


N63] G 286 


N630 0287 


N63J 0288 

o 

N63S 0 239 

N63Q 0290 


N63G 0291 


N63D 0 29 2 

" u 

N630 0294 

Q 

N6300295 . 


N630 0296 


N6300 297 


N650 0298 

O 

N630 0299 


N63G 0 300 


N630 Q 302 

O 

N630Q303 

N63fl03Q4 


N63G 030 5 


N630 D 30 6 

n 

N630 0307 


N63G 0308 


N530 0309 


N630 G310 

C 

N630 0311 

N5300312 


N63G 0 313 


N633 0 314 

■ 

N633 G315 


N63 u 0 316 


No33 0 51 7 


N63Q0 318 

^ C) 

No30 0319 

N6300320 


N630 D 321 


N630 D 322 

o 

N6300323 


N6300324 


N630 0325 


N630 C 326 

o 

N630Q327 

N63Q 0 328 


N630 0329 


N630Q 330 

o 

N630 0331 


No3Q 0 332 


N&300333 


N530 u 334 

' o 

N630 0 335 

N630 0 336 







o 


o 


HA SOT 
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date: 01/27/99 


0337 

0338 

0339 

POOEO 

PflOEl 

P00E2 

F80E 
88 0D 
18D6 


AOQ-> 

ADO^ 

JMP^ 

NOBASE 

NOBASE 

HEl 

+ $3030 

N63G 0337 
N630 0 338 
N630 0 339 

03A0 

P0 0E3 
P00E4 
P00E5 
P00F6 
P00E7 

0 00 0 
0 0 00 
0 0 0 0 
0 0 00 
0 0 0 0 

TEMP 

NUN 

0,0, 0,0 ,0 


N630.0340 

0341 

PD0E8 

0 00 0 

ISAVE 

NUM 

0 


N630 0 341 

0342 

P00E9 

0 0 00 

SIGN 

NUM 

0 

SIGN 

N630C 342 

0343 

POOEA 

POOEB 

POOEC 

POOED 

2710 
03E8 
0 0 64 
00 OA 

FACTEN 

NUM 

10000,1000 

1 1. 0 0 ii 1 Q 

N530 0 343 

0344 

PO OEE 

3 0 30 

NOBASE 

NUN 

$ 30 3 0 


N6300 344 


0346 


* 



N635 0 346 

C347 


00 02 P 

EQU 

SBll{’/96) 

N533 0 347 

0348 


0 0 03 P 

EQU 

SU1KS311 + 1) 

N630 0 346 

0349 


0120 P 

EQU 

0S11{SU11^96) 

N530 0 340 

0350 

PCOEF 

0 0 31 

BSS 

(DSll--> ) 

N630 0 350 

0351 



END 


N6300 351 

PGM = 

0 120 

( 288 ) 

COM = 

0000 ( 0) DAT = QuQO ( 0) 



o 


HASOT 


PAGE 9 


DATE; 01/27/99 



E Q U I V 

A L E N 

C E S 


o 

DEF,LINE 

NAME 

VALUE 



0 0 0 0 

I 

OOFF 

1000255) 


0 068 

AMONI 

Q0F4 

C000244) 


0 068 

ADISP 

OOEA 

IQ00234) 


0 068 

LPMSK 

000 2 

IOQQ002) 


0 0 68 

NZERO 

0012 

C 0000183 


0 068 

ZROBIT 

0033 

(000051) 


0 069 

FIVE 

0043 

(000067) 

u 

0 0 69 

SIX 

00 4 4 

(000063) 


0069 

ZERO 

0 0 22 

(000034) 


0 069 

ONEBIT 

0 0 23 

■(0G0Q353 

O 

0 069 

SIXTEN 

0027 

(000039) 

0 070 

COMMA 

0G2C 

(000044) 


0 0 70 

SLASH 

G02F 

(000047) 


0070 

ASTRIC 

0 02A 

(000042) 


0 0 71 

EIGHT 

0026 

(000038) 

j 

0071 

NINE 

0045 

(G00069) 


0 0 71 

THREE 

GGQ 4 

( 030004) 


0 071 

ONE 

00 0 3 

( 0 000 03) 


0 0 71 

TWO 

002 4 

(000036) 


0072 

TEN 

0046 

(000070) 


0 0 73 

MASK 

00 0 3 

(000003) 


007 5 

CHRSLV 

00 07 

(000007) 


0 0 7 6 

ASMOD 

1000 

(004096) 


00 77 

N039 

0027 

( QQ0039) 


0 080 

BHAN 

0001 

( 000001) 


00 81 

MSG 

000 2 

(000002) 


0 082 

SOMMOR 

000 3 

(000003) 


0 0 83 

lOERR 

00 0 4 

( 00000 4) 


0084 

LISTLU 

00 0 5 

(000005) 


0 08 5 

COHOLU 

000 6 

(000006) 


3 0 8 6 

NEWMLU 

0 00 7 

(000007) 


0 087 

PROGl 

0008 

(000008) 


0 088 

PROG2 

00 09 

(000009) 


0 089 

BITFLG 

0 0 0 A 

(000010) 


0090 

8UFCNT 

OQOB 

(OGOOll) 


0 091 

FIELD 

OOOC 

( 0G0012) 


0092 

3LASHF 

0010 

( 000016) 


0 093 

BUFEMT 

0011 

( OOQQ17) 


o 


o 


o 



PEFERENCEn AT LINE NUMBER 

0103, 0147, 0178, 0180, 0246, 0249, 


0114, 0121, 0130, 0282 
0238 


0168 


0270 
0192 
0274 
0 112 


0 281 
0137 


0279, 0298, 0299, 0303, 0307, 0314, 0315, 0322, 0331 


f 

o 

o 

n 

r) 

o 

o 

o 

o 

C') 

o 

o 

o 

o 



o 

HASOT 

o 

0094 BUFFER 0012 

G 

PAGE 10 
(000018) 0104 

DATE! 01/27/99 


o 

o 
• o 
o 

T'l 

•v—/ 

o 




o 

C) 

o 

■3 




o 

0 

O 

'0 

O 




c 
o 
■ o 

O 

o 




■ o 
o 

o 




o 

o 




o 

o 




o 

(’ j 






MASOT 


PAGE ii 


OATES 01/27/99 


r-. 


o 

o 

o 

o 

T) 


S Y M B 0 L S 


u 


O 

O 

O 

O 

o 

o 


DEF.LINE 

NAME 

ADDRESS 

REFERENC 

0 0 60 

, MASOT 

0 0 0 0 

00 60 , 

0 110 

GETOUT 

OOOC 

0 285 

0 115 

0TB 

0011 

QUO, 

0 119 

MOT 

0013 

0109 

014? 

MAZO 

0029 

0 291 

0145 

0149 

MAIQ 

MA12 

0 0 2 B 
QQ2F 

0155 

0157 

MAI 4 

0037 

0154 

0182 

RECALQ 

D04E 

0 2 61 

018 5 

TYDAT 

0051 

0184 

0 190 

QSA VE 

0054 

0101, 

0191 

BASE 

0 0 5 5 

0102, 

0 192 

MODE 

0056 

0138 

0193 

MM ADD 

Q057 

0122, 

0194 

DATLO 

0G5A 

0135, 

019 5 

SIZLN 

Q05B 

0107, 

019 6 

Nil 

005C 

0131, 

019 7 

COUNT 

0 050 

0 1 43 , 

0198 

LNSZ 

50 5E 

010 6 

0204 

CV4A 

0061 

0158, 

0 207 

Cl 

0064 

0 2 21 

0213 

NOAFl 

B06A 

0 211 

0 223 

CT 

0073 

0 2 09, 

0224 

CU 

007 4 

0215, 

0225 

Cl 

0078 

Q 2 06 , 

0227 

CE 

0079 

0 217 

0 236 

ASCDAT 

0080 

0 1 87 

0248 

ASC3 

008C 

0 239 

02h9 

ASC4 

008D 

0 2 47, 

0257 

GK3 

0093 

0 2 56 , 

0 264 

PNT 

0098 

0 265 

SELF 

0099 

0 2 64, 

0 27 0 

PNTCD 

009E 

0 268 

0 271 

RT 

QG9F 

0 273 

OTLU 

0 0 A1 

0139 

0 275 

BUFADD 

00A3 

0105, 

0 278 

PNTRT 

00A5 

0 267 

0283 

PNTOK 

00 AA 

0 280 

0 28 6 

RE PNT 

OOAF 

0 2 84 

0292 

DONE 

Q0B6 

0 287 

0295 

HEXDAT 

00B8 

0185 


0127 > 0123 » '3 129, 0132, 0133, 0134, 013 6, 0292 


0102, 0278 

0122, 0124, 0126, 0157, 0160, 0164, 0288, 

0135, 0183, 0250 

0107, 0259, 0289 

0131, 0253, 0255, 0286 

0143, 0237, 0257, 0258 

0158, 0161, 0165, 0166, 0171, 0233, 0295 

0 221 


0 29 0 


0 209, 0 220 

0215, 0227, 0229, 0 230, 0232 
0206, 0214, 0218 


O 

o 

o 

C-- 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



MASOT 


PAGE 12 



DATE! 

01/27/99 

0 296 

HEl 

O0B9 

0 339 





0303 

DECDAT 

008E 

0 186 





0 311 

DE3 

00C6 

0 308 , 

0 320 




0 321 

0E6 

OGDO 

0 317 





0 32 7 

DEB 

00D6 

0 325 





0 340 

TEMP 

00E3 

0312, 

0 313, 

0318, 

0328, 

0332, 03 

D 341 

ISAVE 

00E8 

0 304, 

0321 




0 342 

SIGN 

C0E9 

0306, 

0309, 

0 324 



0 3 43 

FACTEN 

OQEA 

0311 





0 344 

NOBASE 

OQEE 

0337, 

0338 




0347 

SRll 

00 0 2 

0 3 48 





0348 

sun 

00 03 

0349 





G349 

DSll 

0120 

0 350 






o 

o 

0335, Q336 

■ O 
O 
O 

Q 


MASOT 
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DATE: 01/27/99 


o 


o 

E X T E R 

M A L S 


o 

def.line 

NAME 

VALUE 


0 063 

CHRSFG 

OOAB 


0 064 

OFF 

0012 

o 

0 065 

HANDLE 

0011 


o 

o 

o 

o 

o 

o 

o 

o 

o 

n 

o 

o 


referenced AT LINE NUMBER 

0108, 0283 
0 116 
0115 


C; ' 

O 

O 

O 

O 

C:' 

r \ 

v.--' 

o 

o 

V.*'' 

o 

o 

o 

o 

o 


MASOT 
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DATE: 01/27/99 



lJ 

O 

O 

o 

o 


»»» A L 

P H A 

B E T I 

CAL 

SORT 

ADISP 

0 068 

AMONI 

0 068 

ASC3 

BITFLG 

0089 

BUFADD 

0275 

BUFCNT 

Cl 

0 22 5 

CK3 

0 257 

COMHA 

DE3 

0 311 

DEB 

0 321 

DE8 

FIVE 

0 069 

GETOUT 

0 110 

HANDLE 

LNSZ 

019 8 

LPHSK 

0 0 68 

NAIO 

MODE 

0192 

HOT 

0119 

MSG 

NZERO 

0 068 

OFF 

0 064 

ONE 

PNTRT 

0278 

PROGl 

0087 

PROG2 

SIGN 

0342 

SIX 

0 069 

SIXTEN 

TEN 

0072 

THREE 

0071 

TWO 


0 F 

S Y M B 

0 L S 



0 2 48 

ASC4 

0249 

ASCOA T 

0236 

0 0 90 

BUFEHT 

0093 

BUFFER 

0094 

0 0 70 

COMOLU 

0085 

COUNT 

0197 

0327 

DECDAT 

030 3 

DONE 

0292 

0 065 

HEl 

0296 

HEXOAT 

0295 

0145 

M A12 

0149 

MA14 

0157 

0 0 31 

NEWMLU 

0086 

NINE 

0071 

0071 

ONEBIT 

0069 

0TB 

oil 5 

0 0 88 

QSAVE 

019 0 

RECALQ 

0182 

0 0 69 

SIZLN 

0195 

SLASH 

0070 

0 071 

TYDAT 

0185 

ZERO 

0069 


o 

o 

o 

o 

o 

{J 

o 

o 

C) 


ASMOD 

0076 

ASTRIC 

0070 

BASE 

0191 

BHAN 

0 Q 80 


Cl 

020 7 

CE 

022 7 

CHRSFG 

0063 

CHRSLV 

0 075 


CT 

0 22 3 

CU 

G22h 

CV4A 

0204 

DATLO 

0194 


DSll 

0349 

EIGHT 

00 7 1 

FACTEN 

0343 

FIELD 

0091 

o 

I 

000 0 

lOERR 

00 83 

ISA VE 

0 341 

LISTLU 

0 08h 


MASK 

0073 

HASOT 

0060 

MAZO 

0142 

MMADD 

0193 


N039 

0077 

NOAFl 

0213 

NOBASE 

0344 

NW 

0196 


OTLU 

0273 

PNT 

0264 

PNTCD 

0 270 

PNTOK 

0283 

C) 

REPNT 

0286 

. RT 

027 1 

sell 

0 347 

SELF 

0265 


SLASHF 

ZROBIT 

0092 

0068 

SOHMOR 

00 82 

sun 

0348 

T EMP 

0340 

■ o 


o 

o 

o 

r'\ 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


n 


0001 
00 0 2 
00 0 3 
00 0 4 
0 0 0 5 
00 0 6 
00 07 
0Q08 
00 0 9 
ODIO 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0 023 

0024 

0025 

002 6 
0027 
0023 

0029 

0030 
GQ31 

0032 

0033 

0034 
00 3 5 

0036 

0037 

0038 
0 039 

0040 

0041 

0042 

0044 

0045 


0047 

0048 


CONFM 


D 0F4 
DOHA 
0 9 02 


PAGE 


DATE; 01/27/99 


* 

* 

V- 

V- 

■r 

~r 

Jf 

* 

¥■ 

tf. 

V- 

3 S. 

V- 

3 f. 

If 

If 


NAM CONFM DECK-ID M64 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


^f ^ 

^ ROUTINE TO PRINT 'NEW' AND 'OLD' DATA ^ 

^ AND READ OPERATOR CONFIRHATIO 

ifjfif ^ff:^^>fif3f3f^:^if::f.^:f.^^3fifjf3f:f. :;.if 3f ^ ^ 3f 3f ^ ^ sf 9- ^ 




CALLING SEQUENCE 
RTJ CONFM 
ADC NEWDAT 


NEW DATA BUFFER 


"BUFFER" CONTAINS OLD DATA 
Q-REGISTER CONTAINS TYPE (BITS 15-08) 
OF WORDS (BITS 07-00) 


SUHHARY- 116 ^^’^'*^^^-^-^ 
N640 0002 
N64G 0 0 0 3 
Nb'iO 0 U C 4 
N640 0 0 05 
N64Q a 00b 
No400u'G7 
Nd40 0008 
N 64C 0 0 0 9 
N o 4 0 fl 0 1 0 
N540 0 011 
N64O 0 012 
N6400013 
N640 OQlw 
N6400015 
N&4O 0 016 
N64Q 0017 
N640 0018 
N640 0 019 
N640 0020 
Nb^'O 0 021 
N643 0 022 
N643 0 02 3 


AND NUMBER 


OUTPUT 

NEW 


FORMAT 

OLD 


DATA 


XXXX YYYY 


VERIFY 


IF DATA 
"BUFFER' 


IS GOOD, OPERATOR 
' CONTAINS 0 = FOR 
1 = FOR 


ENTERES *OK* FOR APPROVAL 

APPROVAL 

DISAPPROVAL 


ENT CONFM 


ENTRY 


NAME 


•EQU' TABLE 

EQU AMONI ($F4) , AOISPCSEA) ,LPMSK(2) ,NZERO( $12) ,ZROBIT($3 3) 


N64'3G024 
N64O 0025 
N643G026 
N540 0 02 7 
N540 0028 
N54Q 0029 
N 6 4 J u 0 3 0 
N64aG031 
N&400032 
Ndh-GO 0 33 
N540 0 034 
N643 0 035 
N643 0 036 
N640 0 037 
N640 0 038 
N640 0039 
N643 0 O 4 O 
N64 j 0 04l 
N 6400042 

N64O 0 0 44 
N&4J 0 0 45 


No40 0 047 
N64Q 0 0 4 8 


o 

o 

o 

o 

o 

o 

n 

S.,.* 

o 

o 

o 

o 

o 

o 

o 

o 

r-> 


0049 


0050 


0051 


0052 
00 5 3 

0055 
005 6 
0057 


0059 

0D60 

0051 

005 2 
0G63 

006 4 

006 5 
006 6 
0057 
005 5 
0059 

0070 

0071 
00 7 2 
0073 

007 4 


0076 

0077 

0078 


00 8 0 
0081 
0082 
0083 
QQ8 4 
008 5 


CONFM 
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DATES 01/27/99 


0012 
0 0 33 
0 0 43 
0 0 44 
0 0 22 
0 023 
0 0 27 
0 02C 
GQ2F 
a02A 
0 0 26 
0 0 45 
0 0 04 
0 0 03 
0 0 24 
G 0 46 
00 03 

0 D 07 
1000 
0 8FD 


EQU FIVE ( $43 ), SIX ($44) , ZERO ($22) ,ONEBIT ($ 23 ) , SIXTEN ($27 ) N64j0049 

EQU COMMA ($20 ,SLASH($2F) ^ASTRIC ($2A) N64D 0 05Q 

EQU EIGHT($26) ,NINE($45),THR£E(4),0NE(3),TW0($24) N640 lIu51 


EQU TEN($46) 

EQU MASK(3) ONE BIT MASK 


N64D0052 

N6400053 


EQU 

EQU 

EQU 


CHRSLV(7) LEVEL OF THIS PROGRAM 

ASNOO($100Q) OUTPUT ASC MODE 
C0MLU($8FD) INPUT COMMENT UNIT 


N64 0 0 0 5 b 
N640 0 05 7 


0 0 01 
eOG2 
0 0 03 
0 0 04 
00 05 
00 06 
0 0 07 
0 0 08 
0 0 09 
90 CA 
00 OB 
0 0 QC 
0010 
0011 
0012 


EQU HANDLE(l) 
EQU MSG(2) 

EQU SOMMOR(3) 
EQU I0ERR(4) 
EQU LISTLU(5) 
EQU C0M0LU(6) 
EQU NEWMLU(7) 
EQU PROGi(8) 
EQU PR0G2(9) 
EQU BITFLG(IO) 
EQU BUFCNT(li) 
EQU FIELO(12) 
EQU SLASHF(16) 
EQU BUFEMT(17) 
EQU 8UFFER(18) 


PARAMETER LOCATION (OFFSET FROM BASE) 


■HANDLE 
”MSG** ENTRY 
••SOMMOR" ENTRY 
••lOERR" ENTRY 

LIST OUTPUT 

”COMOLU 
"NEWMLU 
"PROGl" 

"PR0G2" 

"BITFLG 
"BUFCNT 
"FIELD" 

"SLASHF 
"BUFEMT 
"BUFFER 


■LISTLU' 


NEW KM LU 


N640U059 
NShO 0 060 
N&4G 0 0 0 1 
N8400Q62 
No40u053 
N640 G 0 o 4 
N640 0 G6lp 
No4u 0 066 
N64j 0067 
N64G 0 068 
N6 h0 0 Q 69 
N 64 O U 0 7 0 
N640 0 071 
N64u0072 
N 6 4 0 0 0 7 3 
N6420074 







PROG 

POOOO 

OBOQ 

CONFM 

NOP 

0 

ENTRY 

POOQl 

60FF 


STA- 

I 


P0 0 0 2 

6868 


SIA^ 

BASE 


P C 0 0 3 

8112 


ADD- 

BUFFER,! 


POO 0 4 

6867 


STA^ 

BUFAOD 


P0 0 0 5 

C1C6 


LDA- 

COMOLU, I 



No40Q 075 

AM START N643 0 Q77 

N54J 0 078 


N543 0 080 
N&40 0 081 
N&43 0 082 
N640 0 0 8 3 
Nb40 0 084 
N640 0 0 8 5 


o 


u 

o 

o 

Q 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 


CONFM 


PAGE 


0 0 8 6 
0087 
00 88 
00 89 
0090 
Q091 

0092 

0093 

009 4 

0095 

0096 
00 9? 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

010 5 
0106 

0107 

0108 

0109 

0110 
0111 


0113 

0114 

0115 
Oil 6 
Oil 7 
0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 
0127 
0126 


013 0 

0131 

0132 

0133 

0134 


P0 0 0 6 

8866 


ADD^ 

MODE 

POO 0? 

685B 


STA^ 

OTLU 

P0 0 08 

OAOO 


ENA 

0 

P0 009 

0F68 


LRS 

8 

PO OOA 

OF 48 


ARS 

8 

POOOB 

6862 


STA* 

NW 

POOOC 

4862 


STQ^ 

PROTYP 

POOOO 

CCF2 

CON2 

LOA^ 

(CONFM) 

POOCE 

83F1 


ADD^*^ 

CONFM 

POOOF 

6860 


STA* 

PAR 

POOlO 

D8EF 


RAO^ 

CONFM 

POOH 

OAOO 


ENA 

0 

P0012 

6857 


STA^ 

COU NT 

P0013 

P0014 

C8 50 


LOA^ 

MESTB 

E85D 


LOQ--^ 

MEST8+1 

P0015 

5846 


RTJ^ 

WRI 

P0016 

COOO 


LDA 

= A 

P0017 

pooia 

2020 

686F 


STA* 

MES21+2 

P0019 

68 73 


STA-’^ 

MES22+2 

POOIA 

E84F 

GETOA 

LOQ^ 

COUNT 

POOIB 

CE54 


LDA^ 

(PAR) ,Q 

POO 1C 

E8 52 


LOQ^ 

PROTYP 

POOID 

lA 01 


JMP» 

INSDA ,Q 

POGIF 

18 OC 

INSDA 


HEXOAT 

POOIF 

1814 


JMP* 

OECDAT 

P0020 

1801 


JMP^ 

ASCDA T 


P0021 
P0022 
P0C23 
P0024 
P0025 
P0026 
PG027 
P0028 
PO 029 


6 8 65 
GOOD 
2020 
6861 
6865 
E843 
CE44 
6863 
1 811 


* 

if- 

if 

if 


if 
if 
if 

if if if if if if if* if if* 


date: 01/27/99 


SEPERATc NO. OF WORDS AND DATA TYPE 
SAVE NO. OF WORDS AND DATA TYPE 
GET BUFFER 

SET EXIT 

PRINT HEADING 


GET CURRENT OATA 
INSERT ACCORDING TO TYPE 

0. HEX. 

1. DEC. 

2. ASC. 


2. ASCII DATA 


ASCII 


DATA 


if 
if 
¥ 

jf, # jf. ifif-ifif ^ !f If. ifif. if if. if if ifif. if if if ¥ ¥ 


PROCESS 


ASCDAT STA^ MES21+1 
LDA =A 

STA^ MES21 
STA» HES22 
LOQ^ COUNT 
LOA» (BUFADO),Q 
STA^ MES22+1 
JMP» GONPT 


¥ 

¥ 

¥ 

¥ 

¥ 


STORE NEW DATA 

INSERT SPACE 

GET AND SAVE OLD DATA 
TO OUTPUT AND UPDATE 

0, HEX. DATA 


ETC. 


f.f.g.ififififif¥¥¥¥¥¥¥¥-¥ 
¥ 

* HEX. 


OATA 


PROCESS 


¥ 

¥ 


N64G 0 0 86 
N6400Q87 
N6400Q88 
N64D0089 
N64G 0 09 0 
N6400G91 
N64D 0 092 
N640 Q 093 
N6400Q94 
N5400395 
N&400096 
N64Q 0 097 
NB40 0 098 
N640 0099 
N640 0100 
N640 Jlfll 
N64D0102 

N640 0 103 
Nb40 0 IQ 4 
No 4 J 0 1 0 5 
N64u0106 
Nb'+OOlO? 
Nb4001Q8 
M640 C109 
Nb40 0110 
Nb43Qlii 


Nb400113 
Nd40 u 11 4 
Nd4u u 11 5 
N 6 4 0 0 1 1 b 
N64Q 0117 
N6 4 0 Q 11 8 
Nb40 0 119 
N643 U 120 
N643 0 121 
N64Q0122 

Nb400i23 
Nb40 0124 
N6400125 
N64!}012b 
N64D0127 
Nb40G128 


N643 013 0 
N640 0131 
N54GQ132 
N64GC133 
Nb4[jQi34 


O 

O 

O 

O 

(D 

o 


O 

O 

O 

o 

o 

o 

o 

o 


o 



CONFH 


DATE! 01/27/99 




P002A 5872 HEXDAT PTJ» CV4A 

P002B 485A STQ^ MES21 

P002C 685A STA* MES21+1 

P002D E83C LOO^ COUNT 

PDG2E CE3D LDA^ (BUFAOD)tQ 

P002F 5860 RTJ» CV4A 

P0030 485A STQ» MES22 

P0031 685A STA^ MES22+1 

P0CS2 1808 JMP^ CONPT 


CONVERT TO HEX. AND SAVE 


GET OLD DATA AND INSERT 


TO UPDATE, OUTPUT.... ETC. 


N643 G135 
Nb40 0136 
N6‘+0 0137 
N540 0158 
N640 0139 
N&400140 
N640 0 141 
N64DG 142 
N640 0 143 
No4D 0144 
N64G0145 
N6400146 


1. DECIMAL DATA 


P0033 
P 0 0 3 4 
P00 35 
P0036 
P00 37 
P0038 
P0039 


58 00 
0081 
0 0 50 
E833 
CE34 
5870 
OG 51 


DECIMAL 


PROCESS 




DECDAT RTJ CV60 


ADC ME321-^ 
LDQ’^ COUNT 
LDA^ (BUFADD),Q 
RTJ^ CV6D 
ADC MES22-’ 


CONVERT AND INSERT DECIMAL DATA 


GET OLD DATA 

CONVERT AND INSERT DECIMAL DATA 


N640 0148 
M64D0149 
N5400 150 
N64GQ151 
N640 0152 
N6400153 
N640 0154 
No40 015 3 
N640 0156 

NO400157 
N64J 0158 
N643 0159 
N640 0160 
N64Q 0161 


P003A 

P003B 

P003C 

POC30 

P003E 

P003F 

P0C40 

P0041 

P0042 
PQ043 
P0044 
P0045 
PO 0 46 
PO 047 
PQ 048 
P 0 a 4g 
P0G4A 


C838 
E8 38 
581F 
D8 2C 
C8 2B 
982E 
0 101 
18D8 

C832 
E832 
5817 
54F4 
0907 
0 0 07 
0 0 0 0 
0 8FO 
00 01 


CONPT 


GETWD 


FROCD 


UPDATE 

EDA^ HEST8+2 
LDQ- HESTB+3 
RTJ^ WRI 
RAO^ COUNT 
LDA^ COUNT 
SUB=^ NW 
SAZ GETWD 
JMP^ GETDA 

LDA’*^ MESTB + 4 
LDQ» ME3TB+5 
RTJ’ WRI 
RTJ- CAMONI) 

ADC S900+CHRSLV 
ADC GEIRT-FRDCD 
NUM 0 
ADC COMLU 
NUM 1 


PRINT 


TO PRINT 


UPDATE COUNT BY 1 AND CHECK IF ALL DATA 


TO GET CONFIRMATION OK. 

NO, REPEAT 

INSERT WORD 'VERIFY' PRIOR TO READ 


F-READ 

RETURN 


WORD 


N64G 0163 
N5400154 
N640 0 16 5 
N640 0 166 
N64Q0167 
No40 016 6 
PRINT N64D0169 
N643 0 170 
N64Q 0171 
N6400172 
N6400173 
N54G0174 
N640 017 5 
N640Q176 
N640 0177 
N640 0178 
N640 0179 
N64GQ1SG 
N5400181 
N6400182 
N6400133 


I 


CONFM 
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DATE: 01/27/99 



o 

o 

o 


018i* P004B 0 0 23 
0185 POO^+G IAEA 
0166 

0187 POOaD 0163 

0188 P004E E81C 

0189 P004F E204 

0190 P0050 1622 

0191 P0051 CflOO 
P0052 4F4B 

0192 PG053 9816 

0193 P0054 0104 

0194 P0C55 C821 

0195 P0056 E821 

0196 Pa057 5804 

0197 P0058 GAOl 

0198 P0059 6C12 

0199 P005A 1CA5 


AOC COUNT-FRDCD 
JMP- (ADISP) 

GETRT SUP REDOK 
COMER LDQ^ BASE 

LDQ- I0ERR,a 
JMP- (ZERO) ,Q 
REDOK LDA =AOK 

SUB^ COUNT 
SAZ ANSW 
LDA^ MEST8+6 
LDQ^^ MEST3+7 
RTJ'^ WRI 
ENA 1 

ANSW STA^ (BUFAOO) 
(COMFH) 


TO 'lOERR' 

CHECK IF OK BY OPERATOR 

TO PRINT RE GUEST ABORTED 

SET NO GOOD 
RETURN TO CALLER 


o 

o 

o 

0 

o 

o 


0201 

D2D2 

0203 

0204 P005B OBOO 

0205 P005C 6308 

0206 P0050 4806 

0207 PflOSF 54F4 

0208 P005F 0507 

0209 P0960 0007 

0210 P0061 0000 

0211 P0062 0000 

0212 P0063 OQOO 

0213 P0064 0000 

0214 P0065 14EA 

0215 005F P 

0216 P0066 0161 

0217 P0067 18E6 

0218 PQ068 1CF2 

0220 P0069 0000 

0221 P006A COCO 

0222 PQ06B 0000 

0223 PQQ6C 1000 

0224 PQC6D 0000 

0225 P0Q6E 0000 

0226 P006F 0000 


If 




jf. 


WRI 

NOP 

0 

ENTRY 

STA^ 

WRB 



STQ^ 

WRZ 



RTJ- 

(AMONI) 

WRITE 

WRCD 

AOC 

S5C0+CHRSLV 

ADC 

WRET-WRCD 

RETURN 


NUM 

0 

LU (FILLED) 

OTLU 

NUM 

0 

WRZ 

NUM 

0 

SIZE 

WRB 

NUM 

0 

BUFFER 

JMP- 

(ADISP) 



EQU 

CONGO (WRCO ) 


WRET 

SQP 

WREX 



JMP^ 

CONER 

RETURN 

WREX 

JMP^ 

(WRI) 

COUNT 

NUM 

0 


BASE 

NUM 

0 


BUFADD 

NUM 

0 


MODE 

ADC 

ASMOD 


NW 

NUM 

0 


PROTYP 

NUM 

0 


PAR 

NUM 

0 





O 

o 


0228 

0229 POD70 0019 

0230 P0071 OOOC 

0231 P0072 0025 

0232 P0073 0009 

0233 P0074 002E 


MESTB ADC ME51-CONCD 
AOC LMESl 
ADC ME32-C0NC0 
ADC LMES2 
ADC MES3-C0MCD 


0 . 
1 . 
2 . 

3. 

4. 





N640 018h 
N64Q018 5 
Nd^ J 0 18 6 
N643Q187 
N640 0188 
N6400189 
N64uG190 
N640 0191 

N&400192 
N640 0 19 3 
N54G0194 
N640 019 5 
N5400196 
N649 0 197 
N64Q0198 
N 640 G 19 9 


u 

Q 

O 

o 

o 

o 


N64Q 0 20 1 
No^u 0 20 2 
N6h0u203 
N640 0 204- 
N640 0205 
N&4G 0 2 0 6 
N64QG207 
N54Q02QS 
N640 0 20 9 
N640 0 210 
N64 G G 21 1 
N640 0 212 
N640D213 
N54G 0 21 4 
N64G 0 215 
N6430216 
N64G 0 21 7 
N643 0218 

N 64 G 0 22 0 
N64G 0 221 
N640 0222 
N640 G223 
Nb4C 0 224 
N6400225 
N&43 0226 


o 

o 

o 

o 

o 

o 

o 


No^O 0 22 8 
N64Q 0229 
N540 0 23G 
N640 0 231 
N640 0232 
N643 0233 


O 

O 


O 



CONFM 
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6 


date: Ql/27/99 


( ) 



0234 

PO 075 

0 0 05 


ADC 

LMES3 5. 


0235 

P0076 

0 0 33 


AOC 

MES4-C0NC0 6. 

o 

023 6 

P0077 

DO 0 A 


ADC 

LMES4 . 7 . 

023 7 





MESSAGE 


0233 

P0073 

C AG 0 

HESl 

NUM 

$A0D 


0239 

P0079 

204E 


ALF 

11, NEW OLD 

o 


P007A 

4557 





P007B 

2020 






P007C 

2020 






P007D 

2020 






PO 07E 

20 4F 






P007F 

4C44 






P0080 

2020 






P0 081 

20 20 






PD082 

20 20 






P0083 

2020 





0240 


0 0 OC 


EQU 

LMESl (^-MESl) 


0241 

PO 084 

OAOO 

MES2 

NUM 

$A0D 


0242 

P0085 

2020 

HES21 

ALF 

3 , 

U 


P0086 

20 20 






P0Q87 

2020 





0243 

PG 088 

2020 


ALF 

2 » 



P0G89 

2020 




•«w-2 

0244 

P0 06A 

20 20 

MES22 

ALF 

3 1 



PO 08E 

2020 






P0Q8C 

20 20 





0245 


0 0 09 


EQU 

LHES2 (^-MES2) 

u 

0246 

P0060 

OAOD 

MES3 

NUM 

$A0O 


0247 

P008E 

5645 


ALF 

4, VERIFY 



P008F 

5249 






P0090 

46 59 




' \ 


P0Q91 

20 20 





0248 


0 0 05 


EQU 

LME33 (^-MES3) 


0 249 

P0092 

OAOD 

MES4 

NUM 

$ AG D 


0250 

P0093 

4442 


ALF 

9,DB REQUEST ABORTED 

( ) 


P0094 

2052 






P009 5 

4551 






P00 96 

5545 






PQ097 

5354 




o 


P0C98 

20 41 






P0099 

424F 






P009A 

52 54 






PO 0 9B 

4544 




•[J) 

0251 


00 OA 


EQU 

LMES-+ (^-MES4) 

O 

0253 

0254 



* 


ROUTINE TO CONVERT TO I-WORD ASCII 


0255 

0256 

P009C 

OBOO 

¥■ 

CV4 A 

NOP 

0 ENTRY 

O 

0257 
02 5 8 

P0G9D 
POO 9F 

OCDQ 

4846 


ENQ 

STQ^ 

Cl SET UP INDEX 

1 

0259 

P0 0 9F 

OFEC 

Cl 

LLS 

12 EXTRACT 4-BIT TO A-REG. 


o 


NoA J G 23 4 
N64Q 0235 
N643 0236 
M640G237 
N640 0 238 
N640Q239 


N640 0 240 
N54li 0 241 
N64DQ242 


N6‘*Q 0243 
N640 0 244 


Nd‘t] 0 245 
N640 0246 
N643 0 24? 


N64j C 2 m- 8 
N64G 0249 
Nb4U 0 250 


N643 G 251 


N&4Q 0253 
N64D 0 2b 4 
N6400255 
N640 0 256 
N640 0 25 7 
N64C 0258 
No^tO 0259 



c 

o 

o 

o 

o 

o 

C) 

C' 

o 

O' 

o 

o 

o 

o 

o 


o 


0 



CONFM 
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o 

0260 

POOAG 

0FC4 


ALS 

4 


N6£^9 0260 

o 


0261 

POOAl 

4842 


STQ^ 

CT 

SAVE REMAINDER 

N6400261 


C) 

0262 

P00A2 

09F5 


INA 

-10 

SET UP CHAR. AS NO. OR A-F 

N640 G262 

r-\ 

0263 

P00A3 

0131 


SAM 

NOAFl 


N64Q 0 263 



0264 

P00A4 

09 07 


INA 

7 


N6‘tQ 0264 



0265 

PQ0A5 

093A 

NOAFl 

INA 

$3A 


N5400265 


o 

0266 

P00A6 

E83E 


LDQ-'^ 

Cl 

RECALL INDEX TO SAVE CHAR. 

N64] 0 256 

o 

0267 

P00A7 

6A37 


STA» 

CU,Q 


N6vQ 0 26 7 


0268 

P00A8 

ODFC 


INQ 

-3 

CHECK IF DONE 

N640 0266 



0269 

PO 0A9 

0144 


SQZ 

CE 

SKIP WHEN DONE 

N540 0269 


o 

027G 

POOAA 

D83A 


RAO^ 

Cl 


NoUj Q 270 

: O 

0271 

POO AB 

OCOO 


ENQ 

0 


N640 0 271 


0272 

PDOAC 

C837 


LDA^ 

CT 

TO PROCESS ANOTHER ONE 

N54G 0272 



0273 

PflOAD 

13F1 


JMP^ 

Cl 


No400273 



0274 



¥ 




N64D0274 

■ O 


0275 



♦ 




N54Q 0275 


0276 

PO OAE 

E833 

CE 

LOQ^ 

CU + 3 


N640 0276 



0277 

POOAF 

0FA8 


QLS 

8 

ASSEMBLE INTO 2-CHAR. WORD 

N6LD0277 


o 

0278 

POOBO 

F830 


ADQ- 

CU+2 


N64] 0278 


0279 

POOBl 

C82E 


LOA^ 

CU+1 


N640 0279 

’ \ 


023 0 

PQ0B2 

0FC8 


ALS 

8 


N640 G 28 0 



0281 

POOB3 

882B 


ADO^ 

CU 


N640Q281 


o 

028? 

P 0 0 B4 

1CE7 


JMP^ 

(CV4A ) 

RETURN 

N640 0282 


0284 





ASSEMBLE DECIMAL DATA 

N640 028L 



0285 

POOB5 

OBOO 

CV6D 

NOP 

0 

ENTRY 

N6400285 


o 

0286 

P00B6 

ECFE 


LDQ^ 

(CV6D ) 

GET DATA BUFFER 

N643 0 286 

C'\ 

0287 

P0007 

F8FD 


AOQ^ 

CV6D 


Nb43 0287 



0288 

POOH8 

482B 


STQ^ 

ISAVE 


N540 0 288 



0289 

P00B9 

D8FB 


RAO^ 

CV6D 

SET EXIT 

N540 0 289 


o 

0290 

PO GBA 

OCOO 


ENQ 

0 


N640 0 290 


0291 

POOBB 

48 29 


STQ» 

SIGN 

RESET SIGN AND INITIALIZE INDEX 

Nb400291 


0292 

POOBC 

40FF 


STQ- 

I 


N640G292 



0293 

POOBO 

0122 


S AP 

DE3 

SKIP IF VALUE IS POSITIVE 

N64Q0293 



0294 

POOBE 

08 26 


RAO^ 

SIGN 

SET NEGATIVE AND SAVE VALUE W/0 SIGN 

N640 0 29 4 

' 0 

u 

0295 

POOBF 

0 8 64 


TCA 

A 


N643 0295 


0296 

POOCO 

3925 

DE3 

DVI^ 

FAGTEN,! 

DIVIDED NO. BY TEN FACTOR 

N6400 296 



0297 

POOCl 

4810 


STQ^ 

TEMP 


N64Q 0 297 



0298 

PQ0C2 

6910 


STA^ 

TEMP+1, I 

SAVE NO. 

N64a 0 298 

r-\ 


0299 

PD0C3 

DOFF 


RAO- 

I 


N640 0299 



0300 

P00C4 

GOFF 


LDA- 

I 


Nb40 D300 



0301 

P00C5 

09FB 


INA 

-4 


N6400301 


o 

0302 

P00C6 

0103 


SAZ 

□ E6 

SKIP WHEN DONE 

N643 0 30 2 

: O 

0303 

POOC7 

C817 


LDA^ 

TEMP 


Nb4iJ03Q3 


0304 

P00C8 

OCOO 


ENQ 

0 


N640 0 304 



0305 

P00C9 

18F6 


JMP» 

DE3 


N640 0 305 


o 

0306 

POOCA 

C819 

DE6 

LDA'^ 

ISAVE 

RESTORE DATA BUFFER 

N640 0 30 6 

r'' 

030 7 

PO OCB 

60FF 


STA- 

I 


N640 0 30 7 



030 8 

POOCC 

0A2B 


ENA 

$2B 

SET FOR {SIGN) 

N640 0 308 



0309 

POOCD 

E817 


LOQ^ 

SIGN 


N6i-0 0 309 


o 

031C 

POQCE 

0141 


SQZ 

DEB 


N640 0310 


0311 

POOCF 

0902 


INA 

2 

CHANGE TO NEGATIVE 

N640 0 311 

LJ 


0312 

POOOQ 

0FC8 

DE8 

ALS 

8 


N64G 0 312 


0 









o 

o 









■ 0 1 
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8 
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N64U0313 
Nd40 0 31 
N64J0315 
N64U 0 31 6 
N643 0317 
N643 0 318 
Nd 4Q G 319 
N640032Q 
N640032i 
N64G 0 322 
N64G 0323 
N640 0324 
N64j 0 32 5 
N64B0326 


Nb4G 0 32 7 
N&4JG 32 8 
Noi^O 0 329 


N640 a 33 0 
N6400331 
N6400 332 
N6400333 


■- — 
c: 
o 
o 
o 
o 

o 

o 


Nd43 0335 
N64j 0 33 6 
N6400 337 
No400336 
N6 4G 0 33 9 
N64D 0 340 


O 


O 

O 

O 

O 



CONFH 


DATE! Gl/27/99 


1 1 


PAGE 




EQUIVALENCES 


c 

o 


o 

DEF .LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 

' c.; 

0 0 0 0 

I 

GOFF 

(000255) 

0081, 0292, 0299, 0300, 0307 



0 0A8 

AMONI 

00F4 

( 000244) 

0178, 0207 

O 

(■'") 

0 048 

ADISP 

OOEA 

(000234) 

0185, 0214 

0048 

LPMSK 

0002 

(0 QQ002) 




0 048 

NZERO 

0012 

(000018) 




0 0 48 

ZROBIT 

0033 

(000051) 


o 

o 

0 0 49 

FIVE 

0043 

( flOG 067) 


0 049 

SIX 

0044 

(000068) 

0190, 0315 



00 49 

ZERO 

0022 

(000034) 



0 0 49 

ONEBIT 

00 23 

I 000035) 




00 49 

SIXTEN 

0027 

(000039) 


(J 

i ) 

0050 

COMMA 

002C 

(000044) 




0 0 50 

SLASH 

002F 

( 000047) 




0 050 

ASTRIC 

002A 

(000042) 


O 


0 051 

EIGHT 

00 26 

( DQ003S) 


j 

0051 

NINE 

002*5 

(000069) 




0 051 

THREE 

09 0 4 

( 0 0 0Q04) 




0051 

ONE 

00 03 

(000003) 



O 

0 051 

TWO 

0024 

(000036) 



0 052 

TEN 

0046 

( Q 00070 ) 


' 


0 0 53 

MASK 

00 0 3 

(000003) 

0179, 0208 



0 05 5 

GHRSL V 

0007 

( 0D00Q7) 

■ o 

O 

0 05 6 

ASMOO 

1000 

(004096) 

0 223 

0 0 5 7 

C OMLU 

08FD 

( 0 0230 1) 

0 182 



0 0 60 

HANDLE 

DOQl 

(000001) 




0061 

MSG 

0002 

{ 0 0D002) 


o 


00 62 

S OMMOR 

000 3 

( 000003) 

0189 


0063 

lOERR 

000 4 

(0 00004) 



00 64 

LISTLU 

000 5 

(000005) 

0 0 85 



0 06 5 

COMOLU 

0 0 0 6 

(000006) 

^ 0 

O 

0 066 

NEWMLU 

00 07 

(000007) 


0 067 

PROGl 

0008 

(000008) 




0 068 

PROG2 

0009 

(000009) 




0 069 

BITFLG 

OOOA 

(000010) 


■ o 

O 

0 0 70 

BUFCNT 

OOOB 

(000011) 


0 0 71 

FIELD 

00 OC 

(000012) 




0072 

SLASHF 

0010 

(000016) 




00 73 

3UFEMT 

0011 

( 000017) 


o 


o 






o 


o 


o 


o 
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DATES 01/27/99 


0 07 A 

BUFFER 

0012 

(000018) 

0 0 83 

0 2i*0 

LMESl 

QOflC 

( 000012) 

0230 

0 245 

LMES2 

0009 

(000009) 

0 232 

0248 

LMES3 

LMES4 

000 5 

( QQQ005) 

0 234 

D 251 

0 0 0 A 

(000010) 

0236 


o 

o 

C' 

1 

o 

o 

o 

0 

o 

o 

o 

o 

o 


I 


C 1 

1 

o 

o 

o 

o 

o 

o 

r"\ 

o 

o 

o 

o 

o 

c 

o 

o 

o 


o 


CONFM PAGE 11 DATE: 01/27/99 

D 

r-; S Y B C L s 


o 

DEE .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 




0 0 45 

CONFM 

00 0 0 

0 045, 

0093, 

0 094, 

0 096, 

0199 



0093 

COM2 

GOOD 







Q105 

GETDA 

DOIA 

0 173 






'O 

0109 

INSDA 

DOIE 

0108 







0121 

ASCDAT 

0021 

3111 







0138 

HEXDAT 

002A 

3 3 09 






o 

0156 

DECDAT 

0 0 33 

0 110 






0166 

CONPT 

003A 

0128, 

0146 






Q175 

GETWD 

0042 

0172 







0179 

FROCD 

0046 

0180 , 

0184 





0 

0187 

GETRT 

00 4D 

0 180 






0188 

CONER 

004E 

0217 







0191 

REDOK 

0051 

0187 







0198 

ANSW 

0059 

0193 







0 20 i^ 

WRI 

0058 

0 10 1, 

0168, 

0177, 

0196, 

0218 


} 

0 208 

WRCD 

00 5F 

3 209, 

0215 






0 211 

OTLU 

0 0 62 

0 0 87 







0212 

WRZ 

0063 

0206 






o 

0 213 

WRB 

006 4 

0 2 05 






0 215 

CONGO 

Q05F 

0229, 

0 231, 

0233, 

0235 




0216 

WRET 

0056 

3 2 09 







0 218 

WREX 

0068 

3216 






0 

0 220 

COUNT 

0069 

0 0 98 , 

010 5, 

0125, 

0141, 

0158 , 

0 16 9 

0 221 

BASE 

Q06A 

0082, 

0188 





0222 

BUFAOD 

006B 

0084, 

0126, 

0142, 

0159, 

0198 



0223 

MODE 

006C 

0 0 86 






o 

0224 

NW 

0 0 6 D 

0091 , 

0171 





0 225 

PROTYP 

006E 

00 92, 

0107 






0226 

PAR 

006F 

0 095 , 

010 e 






0229 

MESTB 

007G 

0099, 

0100, 

0166, 

016 7, 

0175, 

0 176 


3238 

MFSl 

0078 

0229, 

0 240 






0 241 

MES2 

008 4 

0 231 , 

0245 






0 2 42 

MES21 

0085 

0103 , 

0121, 

0123, 

0139, 

0140, 

0157 


0244 

MES22 

008A 

0104, 

0 124, 

0127, 

0 144, 

0145, 

0161 

o 

0 246 

MES3 

008D 

0 233, 

0248 





0 249 

MES4 

0092 

0235 , 

a 251 






0256 

CV4A 

G09C 

0 138 , 

0143, 

0282 





0 259 

Cl 

009F 

0273 







0265 

NOAFl 

Q0A5 

0263 






J 

0 2 7 6 

CE 

OOAE 

0 2 69 







0285 

C V60 

0085 

0156 , 

0 16 0, 

0 286, 

0287, 

0289 , 

0 32 5 


o 




0170, 0184, 0192 


0194, 0195 


C^: 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

O , 




CONFM 
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DATE : 

01/27/99 

0 296 

0E3 

OGCO 

0 293, 

0 30 5 



0 306 

DE6 

OOCA 

0 302 




0 312 

DE8 

QODQ 

0 310 




D326 

TEMP 

OOOE 

0297, 

0298, 

0303, 0313, 

0316, 0317, 0319, 0320, 0332 

0327 

ISAVE 

0 0E3 

0288 , 

0 306, 

0330 


0 32 8 

SIGN 

OOEA 

0 291 , 

0 294, 

0309, 0331 


0 329 

FACTEN 

0QE5 

0296 




0330 

CT 

0 0E3 

0261, 

0272 



0 331 

Cl 

OQE A 

3258 , 

0266, 

0270 


0 332 

CU 

OODE 

0 267 , 

0276, 

0278, 0279, 

0281 

0333 

NOBASE 

OQE9 

0321, 

0322 



0336 

SU12 

0002 

0337 




0337 

SBl 2 

00 03 

0 338 




0338 

DB12 

0120 

0339 





CONFM 
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date: 01/27/99 


A L 

P H A 

B E T I 

ADISP 

00^8 

AMONI 

BUFCNT 

007Q 

BUFEMT 

COMOLU 

006 5 

COM2 

CVAA 

0256 

CV6D 

FIELD 

0071 

FIVE 

INSDA 

0109 

lOERR 

MASK 

0053 

HESl 

MSG 

0061 

NEWMLU 

OTLU 

0 211 

PAR 

SIXTEN 

0049 

SLASH 

WRB 

0213 

WRCD 


CAL 

SORT 

0 F 

0 048 

ANSW 

0 193 

0 073 

BUFFER 

0 0 74 

0 0 93 

CONCD 

0215 

0 285 

DB12 

0 338 

0 049 

FRDC9 

0 179 

0 063 

ISAVE 

0 327 

0238 

MES2 

0 2 41 

0 066 

NINE 

0 051 

0226 

PROGl 

0 067 

0 050 

SLASHF 

Q072 

0 208 

WRET 

0216 


S Y H B 

0 L S 


ASCDAT 

0121 

ASMOO 

Cl 

0259 

CE 

COMER 

0188 

CONFM 

DE3 

0296 

DEd 

GETDA 

010 5 

GETRT 

LISTLU 

0064 

LMESl 

MES21 

0242 

MES22 

NOAFl 

0265 

NOBASE 

PR0G2 

0068 

PROTYP 

SOHMOR 

0062 

SU12 

WREX 

0 218 

WRI 


005 6 

ASTRIC 

0 050 

0276 

CHRSLV 

0 055 

0045 

COMPT 

016 6 

0306 

DE8 

0 312 

0187 

GETWD 

0175 

0240 

LMES2 

0245 

0244 

MES3 

0246 

0333 

NH 

0224 

0225 

REDOK 

0191 

0336 

TEMP 

0326 

020 H 

WRZ 

0212 


BASE 

0221 

BITFLG 

Cl 

0 331 

COMLU 

COUNT 

0223 

CT 

OECDAT 

015 6 

EIGHT 

HANDLE 

0060 

HEXDAT 

LMES3 

0248 

LMES4 

MES4 

0249 

MESTB 

NZERO 

0048 

ONE 

SB12 

033 7 

SIGN 

TEN 

0052 

THREE 

ZERO 

0C49 

ZROBIT 


0369 

BUFADD 

0222 

0057 

COMMA 

0 0 50 

0330 

CU 

0 332 

0 051 

FACTEN 

0329 

013 8 

I 

u D 0 C 

0 251 

LPMSK 

0 0 48 

0229 

MODE 

0223 

0 051 

ONEBIT 

0049 

0528 

SIX 

0049 

GU51 

TWO 

0051 

0 048 




GETIMT 


PAGE 


1 


DATE! Gl/27/99 


0001 
00 0 2 
00 03 
000 4 
00 0 5 
00 0 6 
00 07 
000 8 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0013 

0019 

0020 
0021 
0022 
0023 

002 4 

0025 

0026 

0027 

0028 
0029 

003 0 
0G31 
0032 


* 

«■ 

•V 

* 

* 

‘t- 

■¥■ 

>(■ 

■¥■ 


NAM GETINT DECK-ID N55 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


S U M M A R Y - 1 1 6 ^ ^ ? 

N6500002 


ROUTINE USES TO EXTRACT INTEGER FROM ^ 

» TEXT INPUT BUFFER ^ 

A=- Af- 


TEXT TERMINATORS ARE 


(1) SFF, (2) COMMA 


( 1 ) 

( 2 ) 

(3) 

(4) 

(5) 


NNNMNNN 
-NNN 
N .NNN 
. NNNcN 
- .NNNE-N 


TEXT MAXIMUM SIZES 


POSITIVE IS ASSUMED IF SIGN IS NOT PRESENT 


N650 0 003 
N650 0004 
N55Q 0 00 5 
N55D0006 
N55Q0QD7 
No50 0 008 
N650 0 00 9 
N650 0010 
N650 0 011 
N650 0012 
N55C0013 
N65G 0 014 
N65G 0015 
Nd53 0 0 1 6 
N65G OaiT 
N65 0 li 0 1 B 
N6530019 
N650 0 020 
N65U 0 021 
No50 u 02 2 
N650 0Q23 
N6500Q24 
N650 0 025 
N650 0 026 
N653 0 0 27 

FOR SINGLE PRECISION 7 DIGITSN650 u 028 

DOUBLE PRECISION 12 DIGITS N55u0Q29 

SIGN AND DECIMAL POINT ARE ALLOWED N5500030 
IN CONDUCTION WITH THE NUMBERS. N6500031 


TEXT FORMATS 5 (1) SIGNED NUMBER, (2) UNSIGNED NUMBER 

TEXT VALUE FORMATS : 


OR 

OR 


( 1 ) 

( 2 ) 


.NNNNON 

NNND-NN 


N650 0 032 


0034 



0035 



0036 


CALLING SEGUENCE : 

0 03 7 

■¥^ 


003ft 

if. 

(1) SINGLE PRECISION 

0039 



004 0 

if. 

RTJ GETINT 

0041 

•V- 

ADC BUFFER-^ (POSITIVE INCREMENT) 

0042 


Q-REGI5TER CONTAINS 7 (FOR MAX. DIGITS) 

0043 


0044 


(2) DOUBLE PRECISION 

0045 

if. 

0046 

V- 

RTJ GETINT 

0047 

Af 

ADC BUFFER-^ 

0 048 


Q-REGISTER CONTAINS 12 (FOR MAX. DIGITS) 

0049 


0050 


NOME OF THE REGISTERS IS RESTORED WHEN EXIT 

0051 


005 2 

ifL 



N650 0 03 4 
N650 0 035 
N65 0 0 0 3 6 
N650 0 0 3 7 
N&50 0 038 
N65QU039 
N550 0 Q 4 0 
N6500 Qi+l 
N65 0 9 0 42 
N65J0O-f3 
Nb50 0 044 
N65 0 0 0 4 5 
No5Q0046 
N&500047 
N650 0048 
No 5i3 u 0 49 
N650G050 
N6500G51 
N6500052 


o 

o 

o 

Q 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 


GETINT 


page 2 date: 01/27/99 


0053 

V- 


00 54 


' BUFFER' 

005 5 



005 6 


WORD 1 

0057 


WORD 2 

0058 


WORD 3 

0059 


WORD 4 

0060 


WORD 5 

0061 


WORD 6 

0062 


WORD 7 

0053 



0064 



0065 

jf 


0066 

¥ 


0 0 5 8 


E N T R 

0069 


ENT GETINT 


ASSIGNMENT AT RETURN i 

NO. OF DIGITS 

NO. OF INTEGERS 

NO. OF FRACTIONAL NUMBERS 

SIGN (0 OR 1 = +, 2 = -) 


'EV'O* '0 = UNUSED, 2= » E ' » 
EXPONENT VALUE IF E /O USED 


INPUT DIGIT 


• • ■ • • • • 


NAME 


1 =^ 


0 * ) 


N653 0 053 
N650 0054 
N65u 0 05 5 
N&5Q 0 055 
N650 0 057 
N65Q 0 058 
No50 0 959 
No 50 0 0 60 
N65G 0051 
N650GQ62 
N653fl0o5 
N65D fl 06 4 
N653 0 065 
N6500066 

N653 0 068 
N65 0 0 0 6 9 


D071 

0072 


0073 


00 ? 4 


00 7 p 


00 7 6 
0077 




0CF4 
0 0 EA 
00 02 
C012 
0 0 33 
00 43 
0 0 44 
0 0 22 
90 23 
0 0 27 
9 0 2C 
0 0 2F 
0 02A 
0 0 26 
Q 0 45 
0 0 04 
0 9 03 
0 0 24 
0 0 46 
0 0 03 


'EQU' TABLE N65C0U71 

EDU AMONI ($F4) ,ADISPC$EA) ,LPMSK<2) ,NZERO($12) ,ZR0BIT($33) N650u072 

EQU FIVE<S43),SIX ($44),ZER0{$22),0NE8IT($23) ,SIXTEN($27) N6500073 


EQU COMMA ($20 ,SLASH( S2F) ,ASTRIC<$2A) N653 0 074 

EQU EIGHT($26) ,NINE($45) ,THREE14) ,0NE(3>,TH0($2h) N65u3G75 


EQU TEN ($46) 
EQU MA3K(3) 


ONE BIT MASK 


»=^MSOS4. G^^N650Q 076 
N659 0 077 


0079 

0080 
00 81 
0082 
00 8 3 
003 4 
0 08 5 
008 6 




0 0 30 
0 0 39 
0 0 45 
0 0 44 
0 02E 
0 02B 
0 02D 


ASCII 

EQU KAR0($30) 

EQU KAR9($39) 

EQU KARE($45) 

EQU KARDiS^A) 

EQU KARPER($2E) 
EQU KARP0S($2B) 
EQU KARNEG($2D) 


CHARACTER CODES 
CHARACTER =0 
CHARACTER =9 
CHARACTER =E 
CHARACTER =0 
CHARACTER =. 
CHARACTER =+ 
CHARACTER =- 


N653 0 0 79 
N650008Q 
N650GQ81 
N550 0082 
N&5Q0G85 
N650 0 0 84 
N65:0Q85 
N653 0 086 


C. 

o 

o 


o 

o 

C-' 

'O 

C: 

o 

o 


o 


c 

o 

o 


o 


o 


GETINT 
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DATE: 01/27/99 


0 0 07 
0 QIC 
0010 
1000 
0 0 07 
OOOC 


CHRSLV{7) 
LNWD28 (28) 
LNCH16C16) 


LEVEL OF THIS PROGRAM 

MAX. NO. OF WORDS USED 6Y 1 LINE 

MAX. NO. OF DATA IN LINE 


ASHOD($1000) OUTPUT ASC MODE 


MAXE(7) 
MAXD { 12) 


MAX. DIGITS OF E-FORMAT 
MAX. DIGITS OF O-FORMAT 


PARAMETER LOCATION (OFFSET FROM BASE) 


0 0 01 
0 0 02 
0 0 03 
0 0 04 
0 0 05 
0 0 06 
0 0 07 
0 0 08 
0 0 09 
OOOA 
00 OB 
OOOC 
flOlO 

coil 

0 012 


HANDLE( 1) 

HSG(2) 

S0MM0R(3) 

I0ERR(4) 

LISTLU (5) 

GOMOLUCS) 

NEWMLU(7) 

PROGl (8 ) 

PR0G2 (9 ) 

BITFLG(lO) 

BUFCNT (11) 

FIELD(12) 

SLASHF (16) 

BUFEMTt 17) 

8UFFER(18) 


"HANDLE” 

"MSG" entry 
"SOHMOR" ENTRY 
"lOERR" ENTRY 

LIST OUTPUT “LISTLU’ 

"COMOLU" 

"NEWMLU" NEW MM LU 

"PROGl" 

"PR0G2" 

"8ITFLG" 

“BUFCNT" 

"FIELD" 

"SLASHF" 

"BUFEMT" 

"BUFFER" 


PROGRAM 


START 


PGOuO OBOO GETINT NOP 0 

POOQl 484D STQ» NOFDIG 

P0Q02 684A STA» BASE 

P0QD3 0822 TRA Q 

POOO 4 C202 LDA- MSG ,Q 

PC0D5 6848 STA^ EXTHSG 

P0006 CCF9 LOA^ (GETINT) 

P0007 83F8 ADO+ GETINT 

PO0Q8 60FF STA- I 

P0009 6846 STA-^ PARAOO 

POOOA D8F5 RAO'^ GETINT 


ENTRY 

SAVE MO. OF DIGITS ALLOWED 


FETCH "MSG" ADDRESS 
GET PARAMETER ADDRESS 

SET TO EXIT ADDRESS 


P0 008 
PGOOC 
POQOD 
POOOE 
POO OF 
POOlO 
PGOll 
P0012 


CAOO 
6879 
68 7B 
68 73 
68 78 
6873 
68 73 
E83C 


ENA 0 
STA^ EDIN 
STA^ FRACTL 
STA^ SIGNIN' 
STA^ SIGNIN+1 
STA^ EDVAL 
STA^ NOED 
LDQ^ NOFDIG 


INITIALIZED 


RECALL NO. OF DIGITS 


116 ^" 4360 ^‘’‘''-'^»’^^-'^ 
N6500089 
N65D 0090 
N65G 0 091 
N65C 0092 
N5500093 


M650 0095 
N65G 0 095 
N65D 0 097 
M65Q0Q98 
N65Q0099 
N65QC1D0 
N650 010 1 
N65D0102 
N653 01G3 
N65001Q4 
N653 QIC 5 
N55] Q1C6 
N650 QlOf 
N650 01GB 
N 65 0 u 1 0 9 
N650 0 110 


N550Q112 
N6500113 
N65 0 u 1 1 4 


N65D 0116 
N65Q Q 11 7 
N6500118 
N653 0 119 
N550 012 0 
N6500121 
N65Q G 12 2 
No5j 0123 
N653 Q12h 
N650 012 5 
N55G 0126 


N653 0 128 
N55Q 0129 
N65 0 0 13 0 
N65 0 0131 
N650 0132 
N650 0133 
N653 013 4 
N65Q 0 13 5 


C; 

c. 

o 

o 

o 

o 

o 

o 

o 

Q 

o 

o 

o 

o 

o 


date: 01/Z7/99 


0136 P0013 DD07 

0137 P0014 5722 
D138 PQ015 ODFE 

0139 P0016 0171 

0140 P0017 13FC 


INO 7 

GETl STA> CZERO),e 
INQ -1 
SQM GETS 
JMP^ GETl 


N5500136 
N55Q 0137 
No5] 0138 
N65Q 0139 
N553 0 140 


0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 
D150 

0151 

0152 

0153 

0154 

0155 
015 6 

0157 

0158 

0159 

0160 
0161 
0162 
0153 


P0018 

P0019 

POOIA 

pooie 

POGIC 
POGID 
PflOlE 
PCGIF 
P0020 
P0Q21 
P0022 
PO 023 
P0024 
P0025 
P0 026 
PG027 
PG028 
P0Q29 
P002A 
P0G2B 
P002C 


C834 
6 OFF 
8112 
6870 
El CA 
4860 
Cl OB 
60FF 

0 142 
OCFE 
DOFF 
ODOl 
4866 
CO 66 

01 51 
OF 43 
AOOA 
6860 
BO OA 
0111 
13 60 


GET3 


GET5 


GET 10 


GET 12 


LDA- BASE 
STA- I 

ADD- BUFFER,! 
STA» 8UFADD 
LDQ- BITFLG,! 
STQ» HILO 
LDA- BUFCNT,! 
STA- I 
SQZ GETIO 
ENQ -1 
RAO- I 
INQ 1 
STQ- HILO 
LOA^ {BUFADO ) ,I 
SQN GET12 
ARS 8 

AMD- LPMSK+3 
STA^ TEMP 
EOR- LPMSKH-8 
SAM GET15 
JHP» GETEND 


RESTORE PARAMETER/AOORESS 
CALCULATE "BUFFER” ADD. 


SET UP BUFFER COUNT AND BYTE POSITION 
SKIP IF NO CHANGE IN CHAR. POSITION IS 


SAVE BYTE POSITION FLAG 


ISOLATE CHAR. 

CHECK FOR END OF TEXT ($FF) 
CHECK CHAR. 

TEXT EXHAUSTED, GO 


N 6500142 
N650G143 
N650 C 144 
Nb50 0 145 
N650 0146 
N6500147 
N&50 0148 
N650 0 149 
N650 0 150 
NEEDED N6500151 
N6500152 
N6500153 
N650 015^ 
N650 0155 
N65 j 015 6 
N65G 0157 
N6500158 
N650 0159 
N65 0 0 15 0 
N6500161 
N6500162 
N6500153 


0165 

0166 
0167 
016 8 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 
0130 
0181 
0182 

0183 

0184 

0185 

0186 


P002D 
P002E 
P0G2F 
P003G 
P0031 
P0032 
PQ 033 
P 0 0 3 4 
PQ 035 
P0036 
PQ037 


C85C 
Q9D3 
0 111 
1S7B 
0 9FB 
0105 
0121 
181C 
09F5 
0131 
1319 


P0Q38 C34D 
P0039 0101 
P0Q3A 1866 


GET 15 


GET17 


GET18 


GET19 


CHECK AND ASSEMBLE DATA TEXT CHAR. 

LEGAL CHARACTER (1) NUMERIC CHARACTER 

(2) DECIMAL POINT 

(3) SIGN 

(4) 'E' OR *D* 

(5) COMMA (TERMINATOR OF FIELD) 
RECALL INPUT TEXT CHAR. 


LDA^ TEMP RECALL INPUT TEXT CHAR. 

INA -COMMA 

SAN GET17 NO COMMA, SKIP 

JMP*^ GETMA 

INA -KARO+DOMMA CHECK FOR NUMERIC (0-9) 

SAZ GET19 

SAP GET18 

JMP=»^ GET30 NEITHER NUMBER OR COMMA 

INA -KAR9+KAR0-1 

SAM GET19 IT IS BETWEEN Q - 9 

JMP- GET30 

CHARACTER IS NUMBER, SAVE 

LOA^ EDIN CHECK IF VALUE FOR EXPONENT 

SAZ GET20 

JMP^ GETIO 0 


NS5Q0165 
N550Q166 
N65Q 0157 
Nd 6 3 015 8 
N6500159 
N650ul70 
N6500171 
N650D172 
N65C 0173 
N65G Q17 h 
N650 0 17 5 
N65 1 U 1 7 6 
N650 0177 
N650C178 
N65Q0179 
N653 0 180 
N650D181 
N5500182 
N650G133 
N650 0 184 
N65QG185 
N6500186 


O 


GETINT 
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o 


o 


o 



013 7 

P0 03B 

E814 

GET 20 

LDQ^ 

PARADO 


N6500187 



0188 

P0 03C 

C622 


LDA- 

(ZERO ) , Q 


N65Q 0188 


(C) 

0139 

P003n 

9811 


SUB^ 

NOF DIG 

MAKE SURE NO. OF DIGITS IN HAS NOT OVER MAX. 

N65Q0189 

o 

0190 

P003E 

0132 


SAM 

GET25 


N6500190 


0191 

P0 03F 

0CQ4 

GET22 

ENQ 

4 

FORMAT ERROR 

N650 0191 



0192 

PC040 

ICOD 


JMP^ 

(EXTMSG) 


N650Q192 


o 

0193 







N65G0i93 

' o 

0194 

P0Q41 

C6 48 

GET25 

LDA» 

TEMP 


N653 019^. 


0195 

PQ 042 

0 9CF 


INA 

-KARO 

CONVERT NUMBER TO BINARY 

N650 0195 



0196 

P00h3 

F622 


ADQ- 

(ZERO) ,Q 


N65Q 0196 



0197 

PO 044 

0D05 


INQ 

5 

BUMP INDEX TO DIGIT STORAGE LOCATION AND 

N6500197 

o 

o 

0198 

P0045 

6201 


STA- 

1,Q 

SAVE INPUT VALUE 

N6500198 


0199 

P0046 

DC09 


RA0» 

(PARAOO ) 

BUMP NO. OF DIGIT COUNT BY 1 

N6500199 



020 0 

P0047 

E841 


LDQ^ 

FRACTL 

SET UP TO INCREMENT INT EG ER /FR ACT 10 NA L NO. 

N&5Q 0 20 G 


O 

020 1 

PQ 048 

cool 


INQ 

1 

COUNT 

N65Q 0 2D1 

■ c 

0202 

PG049 

nE05 


RAU^ 

(PARADO ) ,Q 


N65UG202 


020 3 






N650 0203 



0204 

P004A 

E840 

GET27 

LDQ-*^ 

HILO 

RECALL BYTE POSITION FLAG AND REPEAT 

N&5 j 0 20 4 


o 

020 5 

PO 04B 

18 04 


JMP* 

GET5 


N650 0 205 

o 


020 7 







N65G 020 7 



0208 

P0 04C 

0000 

BASE 

NUM 

0 

PARAMETER BASE ADD. 

N650 0208 



0209 

PO G40 

0 000 

EXTMSG 

NUM 

0 

"MSG“ LOCATION (TO BE FILLED) 

No5 0 0 209 

C) 


0210 

PQ 04E 

00 00 

NOFDIG 

NUM 

0 

MAX. NO. OF DIGITS ALLOWED 

N650 G21C 


0211 

P fl G4F 

00 00 

PARADO 

NUM 

0 


N65iJ 0 211 


/' 

0213 





CHARACTER IS NEITHER NUMBER NOR COMMA 

N6500 213 

o 

^ \ 

0214 

P0050 

C839 

GET30 

LDA^ 

TEMP 


N650 0214 


0215 

PQ051 

QCOl 


ENQ 

1 

SET FOR POSITIVE 

N6500215 



0216 

P0052 

0904 


INA 

-KARPOS 

CHECK FOR SIGN OR 

N6500216 


■^1 

0217 

P0 053 

0103 


SAZ 

GET31 


N65jQ217 

c 

0218 

P0054 

0CD2 


ENQ 

2 

SET FOR NEGATIVE 

Nb50 0218 


0219 

P0 055 

09FD 


INA 

-KARNEG^-KARP0S 

N&53Q219 



0220 

P0056 

OllE 


SAN 

GET40 


N650 0 220 



0221 

P0057 

C82E 

GETSl 

LDA^ 

EDIN 

CHECK IF E OR 0 IN 

N65uu22i 


1 

0222 

P0C58 

01G4 


SAZ 

GET32 

NO. SKIP 

N65Q 0222 



022 3 

P0059 

C82E 


LDA^ 

SIGNIN^-l 

CHECK IF 'E*/»D ' SIGN BEEN SET 

N65 0 0 2Z 3 



022 4 

PQ 05A 

0114 


SAN 

GET34 


N65S0 224 



022 5 

P00 5 R 

482C 


STO^ 

SIGNIN + 1 

SAVE SIGN FLAG 

N5500225 

o 


0226 

PQ05C 

18EO 


JMP^ 

GET27 


N5500 226 


0227 

P005D 

C829 

GET22 

LDA^ 

SIGNIN 

CHECK IF SIGN BEEN SET 

N6500227 



0228 

P005E 

01 01 


SAZ 

GET36 


N6520228 


o 

0229 

P005F 

180F 

GET34 

JMP^ 

GET22 

YES. ERROR, GO 

N653 0229 

o 

0239 

P0060 

4826 

GET36 

STQ^ 

SIGNIN 

SAVE SIGN 

N65i3 0 23 0 


0231 

P0061 

0814 


TRQ 

A 


N650 0231 



0232 

P0 062 

OC03 


ENQ 

3 


N6500232 


o 

0 23 3 

P0063 

6EE8 


STA^^ 

(PARADO ) ,Q 

SAVE SIGN 

N650 0233 
N650 0234 

o 

0234 

PQ 06h 

18E5 


JMP» 

GET27 



0235 



¥ 




N6500235 



0236 

P0065 

09FE 

GET40 

INA 

-KARPER+KARNEG 

N6530235 


0 

0237 

P0G66 

0117 


SAN 

GET47 


N&53 0237 

o 

0238 

P0067 

C821 


LDA^ 

FRACTL 

CHAR. = DECIMAL POINT, MAKE SURE IT IS FIRST 

N6500238 


0239 

PQ068 

0112 


SAN 

GET44 

ERROR 

N55 3 0 239 



o 


o 
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P0Q69 C81C 
PD06A DlOl 
PQ06B 18D3 
P006C D61C 
P00 6D 180C 


GET42 LDA^ EDIN 
SAZ GET45 
GET44 JMP» GET22 
GET45 RAO^^ FRACTL 
JMP-> GET27 


make SURE "E"/"0” NOT IN 
ERROR 


P006E 
P006F 
P0070 
P0 071 
PO 072 
P0073 
P0 074 
P0075 
P0076 
P0077 
P0 078 
P0079 
POO 7A 
P0 07B 
P007C 
P007D 
P007E 
P007F 
P 0080 
P0Q81 
P0082 


09E9 
OCOC 
0103 
0 9FE 
0C07 
0115 

0 814 
9808 
0112 
C80E 
0101 
18C5 
D80 B 
0314 
QCQ4 
09F3 

01 01 
0 AQl 
0901 
6ECD 
18C7 


GET 47 


GET50 


GET51 

GET53 


GET55 


CHECK FOR 'E' OR ^D' 

INA -KARD+KARPER CHECK FOR 0 
ENQ MAXD SET UP 0-HASK 

INA -KARE+KARD CHECK FOR E AND SET UP E-MASK 
ENQ MAKE 

SAN GET51 n I f I rr t cnoMAT 


TRQ A 
SUB^ NOFDIG 
SAN GET51 
LDA^ EDIN 
SAZ GET53 
JMP^ GET22 
RAO^ EDIN 
TRQ A 
ENQ 4 
INA -MAXD 
SAZ GET56 


STA^^ (PARAOD),Q 
JMP» GET27 


MAKE SURE "D'/'E* FORMAT 


SET E/D IN FLAG 


SET TO E/O AND SAVE 


027 0 

0271 P0D83 0000 EDVAL NUM 0 

0272 P0084 COOO NOED NUM 0 

0273 P0085 0000 EDIN NUM 0 

Q27^ P0086 0000 SIGNIN NUM u»0 

P0087 0000 

0275 PQ088 0000 FRACTL NUM 0 

0276 PQ089 0000 TEMP NUM 0 

0277 P008A 0000 HILO NUM 0 

0278 P008R 0000 BUFADD NUM 0 


CONSTANTS AND STORAGt 

exponent value 

NO. OF CHAR, FOR E/D 

'F* OR 'D' ENCOUNTERED (=1) 


DECIMAL POINT FLAG 

HI-8-3YTE OR LO-8-BYTE 
"DUPPER" ADD. (TO BE FILLED) 


0280 

0281 

0282 

0283 P008C OAFF 

0284 PO 080 GCll 

0285 P008E 6EBD 

0286 


¥ 

■r 


TEXT EXHAUSTED. 


GETEND ENA -0 

END 8UFEMT 
STA^ (BASE),Q 


SET BUFFER EMPTY 


COMMON CHECKING FOR INPUT FIELD 


O 



N650 0 2^0 
N65Q 0241 
N65G 02h2 
N65002h3 
N553 0244 

N55C O 24o 
N653 0247 
N65Q0248 
N65G 0249 
N650 0 25 0 
N650 G 251 
N&500252 
N6500253 
N6500254 
N653 0 255 
N65 J 0 25 6 
N6500257 
N650 0 258 
N6500259 
N650 0 2oG 
N 65 U 0 26 1 
N65 G 0 262 
N65Q 0 26 3 
N65G 0 26 *+ 
N6500255 
N650 0 26 6 
N553 0 267 
N650 0 268 


N&5Q0270 
N65G 0 271 
N650 0272 
N65G0 2T3 
N653 D 27 4 

N65C0275 
N6500276 
N5500 277 
N650 0278 


N650 0280 
N65 0 0 23 1 
N550e282 
N550G 283 
N653 0 284 
N65 0 0 28 5 
N6500286 


o 

o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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P0Q8F 
P0090 
P0091 
P0092 
P0093 
P0094 
P0Q95 
P0096 
PQQ97 
P0098 
P0099 
PC09A 
PO 09B 
P009C 
P009D 
P009E 
PQ09F 


CCBF 
C104 
C3F3 
OlOB 
C8F0 
0111 
18A9 
C8EC 
E8EF 
01 A3 
QDFE 
0141 
0864 
0C05 
6EB1 
ICOO 
FF60 


GETCOM 


GETNJ E 
EXPGET 


EXPGl 
GET OUT 


LDA’’^ (PARAQD) 
SAZ GETNUE 
LDA^ EDIN 
SAZ GETOUT 
LDA^ NOED 
SAN EXPGET 
JMP» GET22 
LDA^ EDVAL 
LOQ» SIGNIN+l 
SQZ EXPGl 
INQ -1 
SaZ EXPGl 
TCA A 
ENQ 5 

STA^ (PARADQ),Q 
JMP (GETINT) 


(1) THERE IS INPUT 

(2) DOES NOT END WITH 'E'/'D' 

ERROR 


ERROR, GO 

IF SIGN FOR EXPONENT IS +, 
OTHERWISE COHPLEHENT 


SAVE EXPONENT VALUE 
RETURN TO SENDER 


♦ 

if.af.li. If. 

POOAG C8E3 GETIOO LDA^ NOED 

POOAi 09FO INA -2 

P0QA2 0131 SAM GET1Q2 

P00A3 189B JMP’ GET22 

PQ0A4 D8DF GET102 RAO’ NOED 

PQQA5 QAOA ENA 10 

P00A6 28DC MUI’ EOVAL 

PQ0A7 88E1 ADO’ TEMP 

P00A8 09CF INA -KARO 

P0QA9 6809 STA’ EDVAL 

POGAA 189F JMP’ GET27 


SET UP EXPONENT VALUE 


ERROR 


CALCULAT EXPONENT VALUE 


TO REPEAT 


POO AB 
POOAC 
PQOAD 
PO OAE 
POOAF 
POOBD 
POOBl 
PQ0B2 
POOB3 
POOB4 


E8A0 

ODOC 

C8DB 

6622 

C80A 

ODFD 

6622 

COFF 

ODDI 

6622 


*a^a(■af. 

GETHA 


CHARACTER 


COMMA 


LDO’ BASE 
INQ FIELD 
LDA’ TEMP 
STA- (ZERO),Q 
LDA’ HILO 
INQ 8ITFLG-FIELD 
STA- (ZERO),Q 
LDA- I 

INQ BUFCNT-BITFLG 
STA- (ZERO),Q 


RECALL PARAMETER BASE ADD. 


SAVE BYTE POSITION FLAG 


SAVE BUFFER COUNTER 


N553 0287 
N65Q0288 
N55Q0289 
N65D029C 
N65G0 291 
N650 0292 
N65D0293 
N650 0294 
N65 C 0 29 5 
N8500296 

DO NOTHING N6500297 

EXPONENT VALUE N6500293 

N65 0 0 29 9 
N650 0 30 0 
N650 0 301 
N6500 302 
N65Q J 303 
N553 C3Q4 


N650 0306 
N65D03C7 
N65303C8 
N65Q 0 309 
No50Q310 
N650 0311 
N650 0 312 
N65u0 313 
N65Q 0314 
N65 0 0 315 
N65Q 0 315 
N6500 317 
N65C 0 318 
N65DG319 


N65D0 321 
N66QC 32 2 
N6500323 
N6530324 
N650 0 325 
N650 0 326 
N5530 327 
N65Q 0328 
N65G 0 32 9 
N65G 0 330 
N65Q 0 331 
N550 0 332 
N65Q0353 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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o 

0334 

PQ0B5 

18D9 


JMP^ 

GET COM 

o 

0336 
033 7 

0338 

0339 


0 0 D1 
00 02 
OOCO 

¥ 

P 

P 

P 

EQU 

EQU 

EQU 

GET30 0 ( --^/OS) 

GET400(GET300+1) 

GET500(GET4G0^96) 
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' o 

DEF.LINE 
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0 0 00 

I 

OOFF 

(000255) 

0 124, 

0144, 0153, 3153, 0331 



0 072 

AMONI 

00F4 

(000244) 




O 

0072 

AOISP 

OOEA 

( 000234) 



C) 

0 072 

LPMSK 

00 0 2 

(000002) 

0 159, 

0161 


0 0 72 

NZERO 

0012 

( 000018) 





0072 

ZROBIT 

00 33 

(0 00051) 




C 

0 0 73 

FIVE 

0043 

(0 00 067) 



: o 

0 073 

SIX 

0 0 4 4 

( 000068) 


0138, 0196, 0327, 0330, 0333 


0 073 

ZERO 

0022 

(000034) 

0137, 



0 073 

ONEBIT 

0023 

(000035) 




0 

00 73 

SIXTEN 

0 0 2 7 

(000039) 



o 

0 07 4 

COMMA 

Q02C 

(000044) 

0173, 

0176 


0 07 4 

SLASH 

0 0 2F 

(000047) 





0 074 

ASTRIC 

G02A 

(000042) 





0 07*3 

EIGHT 

0 0 2 6 
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0045 

(000069) 





0 075 
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0 0 75 
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00 0 3 
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o 
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TWO 
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0076 

TEN 

0046 
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0180, 0195, 0317 



0081 

KAR9 
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0045 

(000069) 
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0010 

(000016) 
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GETINT 

00 0 0 
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0126, 

0304 


0137 

GETl 

0014 

0 140 
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0143 

GET3 

0018 

0139 
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0151 

GET5 

0020 

0 205 
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GETIO 

0023 
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GET12 

0 028 

0157 
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GET15 
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0174 
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0 178 
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0190 







0 204 

GET27 

U 0 4 A 

0226, 

0234, 

0244, 

0268, 

0 319 


r'\ 

0 20 8 

BASE 
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0 240 
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GET45 

00 6C 

0 2 41 







0248 
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NAM FLCVSG DECK-ID N66 MSOS 5.0 

HASS STORAGE OPERATING SYSTEM VERSION 5,0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


* at 

I ROUTINE TO CONVERT FLOATING POINT VALUE - 

I (SINGLE PREC’ISION) INTO E-FCRMAT VALUE » 
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at 
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CALLING SEQUENCE 


RTJ 

ADC 

ADC 


FLCVSG 

NEWVA 

OLDVA 


NEW VALUE IN FLOATING 
OLD VALUE IN FLOATING 


Q-REGISTER CONTAINS NO. OF WORDS IN VALUE 
IN RETURN S 

lir'-'CALLER REGAINS CONTROL 
I2T‘ "SOMMOR" GAINS CONTROL 

OUTPUT FORMATS - ■ 

11) HEADING 


NEW 

(2) DATA 
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ENT 

■R T 

ENT 

FLCVSG 





EXT 

E R 

EXT 

ECONV 


E- 

EXT 

MMAQDR 



EXT 

MSG 




OLD 


-0.1234E67E-12 


NAME 


SUHHARY-11 

N660Q 0C2 
N6600 0G3 
N660CQ04 
N6600005 
N6600006 
N66G0007 
N6600fl08 
N&6Q0009 
N660 0010 
N6600011 
< N6600012 

N6600013 
N6600Q14 
N 66 Q a 015 
N&600016 
N6600017 
N6600i318 
N660.0 019 
N6600020 
N66Q0Q21 
N660B022 
N66B0Q23 
N660a024 
N6600025 
N6600026 
N56B0B27 
N66Q0Q28 
N660Q 029 
N6600030 
N6600Q31 
N6600032 
N66O0O33 
N6600Q34 
N&60a035 
N5600036 
N6600037 
N6600Q38 
N660Q 039 
N66GQ040 

N6600042 
N6600043 

N6600045 
N560 0 046 
N6600 047 
N66Q0048 


O 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


FLCySG 


PAGE 2 

DATES 08/19/99 


c 

o 

■ 00 5'Q 



» E Q 

U * TABLE 

N6600050 

G 


005 1 

OOF4 

EQU 

AMONI ($F4) ,ADISP{$EA),LPMSK(2),M2ER0 ($12 } , ZRO BIT f S33 ) 

N6600051 




OOEA . ■ 





o 


00 02 
0012 
■ 00 33 


.. 



O 


0052 

0 0 43 

EQU 

FIVE! $43) , SIX C$44), ZERO ($22) ,0NE8IT ($23) , SIXTEN ($27) 

N6600052 


o 


0 0 44 
0022 
0 0 23. 
0 027 




O 


o 

.0053 

0 0 2C 
Q0 2F. 

EQU 

C0MMA{$2C),SLASH($2F) ,ASTRIC'($2A) 

N6600053 

O 



002A 







0054 

0 0 26 

EQU 

EIGHT t.$ 26), NINE ($45), THREE (4), ONE (3), TWO C$2 4) 

N6600054 


o 


0 0 45 
00 04 




o 



0003 
0 0 24 






o 

0 0 5.5 

DO 46 

EQU 

TEN ($-46) 

■»*^MS0S4. 0-»^-»N66G0 055 

■ o 

0 0 5-6 

D8C2 

EQU 

MASSLUC$8C2) 


N6600056 


0057- 

18FD’-.. 

EQU 

IN00MC$18FDT 

INPUT COMMENT UNIT ■ , 

N6600057 



0058 

00 07 

EQU 

CHRSLVC7) 

LEyEL OF THIS PROGRAM 116 



o 

0059 

00E9 

EQU 

EXT8V4($E9) 

N6600Q59 

o 


0 061 


' 

SUBROUTINE POINTER (FOR REQUEST? 

N6600061 


o 

0062 

0 0 02 

-EQU 

GETFLDC 2) 

"GETFLO** GET FIELD SUBROUTINE 

N6600062 

o 

0063 

0 0 03 

EQU 

ASCHEX(3) 

••ASCH'EC” ASC TO HEX, 

N6600063 


0064 

0 0 08 

EQU 

GETINTCB) 

"GETINT" GET SINGLE/DOUBLE PRECISION 

VALUEN6600G64 



0065 

0708 

EQU 

FLOATZI1800T 

SIZE OF FLOATING POINT PACKAGE 

N6600065 


o 







o 


0067 


-•A 

PARAHETER iO(2ATION COFFSET FROM BASE? 

N56Q0 Q&r 



0 05 8, 

OQOl.,-. 

EQU 

HAN0LEC1) ■ 

"HANDtE” 

N660006B 


o 

0 0.6 9 

0 0 02-^,- 

. €QU 

8MS<T5(2) 

"HSG“ ENTRY 

N6600069 

o 

007 0 

' OOfl'E 

-EQU 

S0MM0RI3) /-• 

“SOMHOR" ENTRY 

N66Q0a70 


00,71 

0004 >■ 

■"■•EQU 

IOERR'(43 

"lOERR" ENTRY 

N6600071 



0 0.72 

- 0 0 05 

"■EQU 

LISTLU15) 

LIST OUTPUT "LIS7LU7 

N660Q072 


O 

0073 

■ 00 06 

""€QU 

C0M0LUC6) 

"COHOtU" 

N6600073 

- o 

007 4 

0 0 07 - 

.••■■EQU 

NEW ML UC 7) • 

"NEWMLU" NEW MM LU 

N660 0 07 4 


., 007 5 

0 0 03 •--■'T'S. 

-EQU 

PR0G118) 

"PROGl" 

N&600Q75 


- 

: 0076 

OD09-- 

■EQU 

PROG219) — > 

"PROG2" 

N6600Q76 


o. 

.- 0077 

OOOA--- 

EQU 

aiTFLGdO) • 

"BITFLG” 

N6600Q77 

■ o 

00 78 

. 0 0 0 B ■ - 

■EQU 

BUFCNTtll) 

"BUFCNT” 

N6600078 


0079 

- ■> oooc . 

-EQU 

FIEL'Q (12) 

"FIEL-D" 

N660G 079 



0080 

0 010 „ 

. EQU 

SLAS'HFdS) 

”SLASHF" 

N6600Q80 


o 

0081 

0011 

■' EQU 

BUFEHTC 17) 

••BUFEMT” 

N66G0Q81 

o 

0082 

0012 

EQU 

BUFFERdB) 

"BUFFER" 

N660Q082 

o 

D084 
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N6600Q85 

N6600086 

N6600087 


N5600 089 
N66G009fl 

N660G091 
N6600092 
N6600093 
N66Q0 094 
N&600095 
N6600096 
N6600097 
N6600Q98 
N66Q0Q99 
N66G0100 
N6600101 


N6600103 

N66001Q4 

N66001D5 

N6600106 

N6600107 

N6600108 

N66G0109 

N6600110 

N6600111 

N6600112 

H66G0113 

N&6QQ114 

N660011 5 

PRINT N660G116 

N6600117 

N66Q0118 

N66D0il9 


N6600121 

N660S122 

N6608123 
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0129 

P0Q24 

0 0 07 

013 0 

P0 025 

aooQ 

; 0131 

P0026 

oooo 

0132 

P0027 

0011 

0133 

PD028 

OOOG 

0134 

P0029 

14EA 

0136 



0137 

P002A 

0171 

-0138 

P002B 

1CF3 

0139 

P0G2C 

1876 

0141 



0142 

P0 02D- 

00 00 

0 143 

P002E- 

•00 00 

0144 



014 5 

P0 02F 

■2020 


P0030 

20 20 


P0031 

2020 


P0032 

2020 


PO033 

2020 


P0034 

2020 


P0035 

2020 


P0Q36 

2020 


P0037 

2020 

- 

P0038 

2Q20 


, P.0 039 

2020 


P003A 

2020 


P0 03B 

2020 


P003C 

2020 


P0030 

2020 


P003E’ 

•20 20 


P003F 

2020 

0146 


0011 

0147 

P0040 

5645 


P0041 

52 49 


P0042 

46 59 


P0043 

20-20 

0148 


0 0 04, 

,0149 

P 00.4 4 

4442 


P0045 

2052 


P0 046 

4551 


P0047 

5545 


P0048 

5354 


P0049 

20 41 


P0D4A 

424F 


P004B 

5254 


P004C 

2020 

0150 


0 0 09 


Q15'2 

0153 PG04D raOO 

0154 P004E QC^ID 


■ ADC RTl-WRCDl , RETURN ' ■ 

NU.M 0 . -THREAD . 

OTLU NUM 0 LU ITO fiE FILLED} 

SIZ NUM 17 . SIZE 

MB ADC 8UF-WRC01 BUFFER 

-dMP- (AOISFJ 


RTl 

-BAD 


RETURN -FROM- print, CHECK FOR ERROR/NEXT STEP 

SQM. BAD 

JMP» IPNT5 RETURN TO CALLER 

JMP-» lOE 


. - 9 - 

■BASE • NUM . 0 
EXTMSG NUM 0 

• 9 

BUF ALF 17, 


CONSTANTS AND STORAGE 
MESSAGE 




EQU 

MESlC ♦-BUF') 

ME2 

ALF 

4, VERIFY 


ME3 


EQU MES2t»-ME2) 

ALF 9,08 REQUEST ABORT 


9 

FILSP 


EQU MES3(»-ME3) 

FILL BUFFER WITH SPACE 
NOP 0 ENTRY 

ENQ 16 


N6600129 

N660Q130 

N660Q,13:i‘ 

N660O152 

N6600133 

N6600134 

N6600136 

N6600137 

N&600136 

N6600139 

N6600141 

N66QS142 

N6600143 

N6600144 

N&6Q0145 


N660Q146 

N66GG147 


■'N660 0148 
N660G149 


N&600150 

N66GD152 

N6600153 

N6600154 
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0155 

P004F 

GOOD 


P0050 

2020 


. 0156 

PQQ51 

6ADD 


• 0157 

P0Q52 

ODFE 

u . 

. 0156 

P0 053 

'0171 


0159 

P0054 

18FC 


. 0160 

P0055 

1CF7 

o ■ 

0162 

P0Q56 

00 00 


0163 

P0057 

0000 


0164 

P0 058 

0000 


0165 

P0 059 

aooG 

LJ 

016 6 

PD05A- 

0011 


0167 

P005B 

00 ID 


0168 

P005C 

0004 

/ 1 

0169 

P005D 

0021 


0170 

PDD5E 

00 09 



LDA 

= A 

FILl 

STA* 

8UF-,Q 


INQ 

-1 


SQM 

FTL3 


- JMP* 

FILl 

■FIL3 

■JHP* 

(FILSF) 

NEWVA 

NUM 

0 

■OLDVA 

NUM 

0 ■ 

COUNT 

NUM 

O' 

MESTB 

ADC 

BUF-WRCDl 


AOC 

MESl 


ADC 

ME2-WRCD1 


■AOC 

MES2 


ADC 

ME3-WRCD1 


ADC 

HES3 


FILL buffer with SPAIDE 


■ EXIT 


N660D155 

N6600156 

N6600157 

N6600158 

N6600159 

N66Q0160 

N660D152 
N66QQ163 
N66Q0164 
N66Q0165 
N6600166 
N5600167 
. N6600168 
N660D169 
N6600170 


I' 


o 

o 

o 

o 

o 

o 


o 


•- o, 

I 

,o 

o 


017 2-^ 
0173- 

0174 

0175 

0176 
0177" 
0173 

0179 

0180 
0181 
0182 
0187 


P0 0 5F..: 

P0060' 

P0061 

P0062 

P0063 

PG064 

P0065 

P0Q66 

P0067 


018 5 
018 6 

0187 

0188 

0189 

0190 

0191 ■ 

0192 
0193- 
0194 
0195- 
0196' 

019 7' 
0198 ’ 
019 9 
0200 - 
0 201 
0202 
0203 


P0D68 

P0069 

P006A 

PQ06B 

P006C 

P006D 

P0Q6E 


CCAO 
889F 
•68F4 
0890 
EC 9C 
F89B 
C622 
68F0 
08 98 


54F4 
15 47 
0006 
0000 
GOOD 
0-708 
14EA 


P006F 0162 
POO 70 18-32 
P0071 -00 00 


P0072 
P0073 
P0Q74 
P0075 
■P0 076 


4316 
4852 
■48 20 
5801 
090 0 


-Sf- 

GETPAR 


GET PARAEET-ERS 


LOA'^ 

ADD* 

STA^ 

RAO* 

LOQ» 

Aoa^^ 

LOA- 

STA* 

RAO* 


«■ 

LSP12 ■ 
LSPCAL 


■LSP13 


LSPACE 

BUFAOD 

■,LSP15- 


SELF 


RTJ- 

AOC 

AOC 

NUM 

NUM 

AOC 

JMP- 


IFLCVSG) 

FLCVSG 

NEWVA 

FLCVSG 

(FLCVSG) 

FLCVSG 

(ZERO) ,Q 

OLOVA 

FLCVSG 


GET NEW VALUE ADDRESS 
EUNP TO NEXT PARAMETER 

SET EXIT 


REQUEST SPACE TO BRING IN -FLOATING POINT PACKAGE 

(AMONI) 

$1540*GHRSL-V 
LSPAGE-LSPCAL 
0 
0 

FLOATZ 
(AOISP) 


CORE LOCATION OF REQUESTED SPACE 


SQP LSP15 
JMP* lOE 
NUM -O 


STQ* .LSP25' 
STQ* -15940 
STQ* LSP31 
RTJ* SELF 
NOP 0 


SPACE BE GRANTED, DO SOMETHING . 
JO ERROR (I/O ERROR) 

SET.l'aC^.'- JHERE:^ PROGRAt^;' TO,^ BE READ;, 

GENERATE RETURN ADD. 


H660B172 
N6600173 
N660 0 17 4 
N660017 5 
N6600176 
N6600177 
N66I3Q178 
N6600179 
N660G18D 
NS600181 
N6600182 
N6600183 


N6600185 
N66001S6 
N66S0187 
N6600188 
N6600189 
N66D0190 
N66D0191 
N660G192 
N668Q193 
N6600194 
N6600195 
N6600196 
N6600197 
N66.Q0198 
N66Q0199 
N6 60 0 20 0 
N6600201 
N66002Q2 
N660Q203 


O 

O 

O 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


FLCVSG 


PAGE 


6 


DATE-: 08/19/99 


o 

0204 

P0077 

,C8F£ 



LDA’^ 

SELF ' 


0205 

POO 78 

■0928 



INA 

LSP30-SELF 


020 6 

P0079 

680B 



STA» 

■LSP2 4 

O : 

G207 

P007A 

C313 



LD.A’f 

OFTB 

0208 

P007B 

9813 



SUB=» 

OFT B^l 


.. 0209 

P0 0 7C 

8 8 81 



AOD^ 

EXTMSG 


0210 

P0070 

0-8 22 



TRA 

Q 

O 

. 0211 

P007E 

C811 



LOA'^ 

FLTADD ■ 

• 0212 

P007F 

5622 



RTJ- 

IZERO),D 


0213 

P.0 08 0 

680A 



STA» 

LSP26 


■ 0214 

P0081 

4808 



STQ* 

1SP26-1 

O 

0215 

POO 82 

54F4 



RTJ- 

(AMONI) 

021 6 

POO 83 

0 807 


LSP20 

ADC 

$80 0it-CH'RSLV 


0217 

P0084 

0000 


■LSP24 

NUM 

0 


0218 

P0085 

0000 



NUM 

0 

o, ' 

0219 

P0086 

Q3C2 



ADC 

MASSLU 

0220 

P0Q87 

0708 



ADC 

FLOATZ 


0221 

P0088 

0000 


LSP25- 

NUM 

0 


0222 

P0Q69 

0 0 00 



NUM 

0 

FT ' 

0223 

P008A, 

C-QOO 


LSP26 

NUM 

0 - ■ 


0224 

P00 8B 

14 EA 



JMP- 

(AOISF) 


0225 

P0D8C- 

00 00 


QSAVE 

NUM 

0 


0226 

0 0 8G 

P 


EQU 

R£QTYP( QSAVE) 

o 

0228 








0229 

PO O 8D 

7FFF 

X 

OFTB - ’ 

ADC 

HM-ADOR 


0230 

P008E 

7FFF 

X 


ADC 

MSG 

O ■ 

0231 

P008F 

7FFF 

X 

FLTADD 

ADC 

ECONV 

0233 




•* 




0234 

P009G 

0800 


SAVDA ■ 

NOP 

0 

o 

0235 

P0091 

60FF 



STA- 

I- 

0236 

P0092 

ocoo 


- 

ENQ 

a - 


023 7 

PQ093 

CA53 


SAVl " 

. LDA» 

¥ALUE+2,Q 


0238 

PD094 

0FC8 



■ ALS 

■3 ^ 

o 

0239 

P0095 

8A52 



■•AOD^ 

VALUE+3 ,Q 

0240 

P0096 

6998 


- 

STA» 

BUPvI 


0241 

■PQ 097 

0814 



■IRQ 

A 


0242 

■PC 098 

09F3 



INA 

-12 

o 

0243 

P0099 

0123 



SAP 

SAV2 

0244 

P009A 

0002 



■INQ 

2 


0245 

P0098 

DOFF 



RAO- 

I 


0246 

P009C 

18F6 



JMP» 

SAVl 

o 

0247 

PQ0 9O 

1CF2 


SAV2 

UMP» 

ISAVOA) 


GENERATE ‘•HMADDR" LOCATION 


GET FLffAT PACKAGE SECTOR ADD. 

■TO "MMAODR’* FOR «M AOD< CONVERSION 
SAVE LSB 


RETURN CTO BE FILLED) 

THREAD 

FLOAT PACKAGE ADO. ITO 'BE FILLED) 
SECTOR ADO. (TO BE FILLED) 

'■O, "HMADDR" 

1. "MSG" 

OR F-FORHAT CONVERSION — SINGLE 


ENTRY 


ASSEMBLE INTO 2-GHAR,/W0RC 


CHECK IF ALL IN 


RETURN 


O 


O 


0249 ■ 




0250 

PG09E 

0166 

0251 

P0Q9F 

54 

F4 

02 52 

POOAO 

18 

00 

025 3 

POOAi 

00 

0 0 

0254 

P00A2 

E8 

8A 

0255 

P00A3 

E2 

04 


» 

LSP3Q 


LSP31 

lOE 


SQP 

RTJ- 

NUM 

NUM 

LDQ^ 

LDQ- 


LSP3'E 
(AM ONI) 
$1800 
0 

BASE 

lOERRfQ 


■ MH TRANSFER OK, SKIP 

■ RELEASE CORE 


I/O ERROR ENCOUNTERED , EXIT 
EXIT TO "10 ERR" 


N660020A 

N560D205 

N66G0206 

N660Q207 

N66G0208 

N6600209 

N6600210 

N6600.211 

N6600212 

N66Q0213 

N6600214 

N6600215 

N&600216 

N6600217 

N6600218 

N66Q0219 

N660022D 

N&60Q221 

N6600222 

N6600223 

.N66Q022J+ 

N6600225 

N6600226 

N5600228 

N6600229 

N6600230 

N6600231 

N6600233 

N660023A 

N6600235 

N56Q0236 

N&6S0237 

N66a0236 

N5600239 

N56Q0240 

N&6D0241 

N6600242 

N660Q2A3 

N6620244 

N5602245 

N660Q246 

N6b0G247 


N56B8249 

N6600250 

N5600251 

N660S252 

N66QB253 

N66Q0254 

N6600255 


O 

o 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FLCVSG 


PAGE 


date: 08/19/99 


025 6 

025 7 

0258 

0259 
D26Q 
0261 
0262 

0263 

0264 
Q265 

026 6 
0257 
0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 
0276- 

027 7 
0278 

0 28;0 
0281 
0282 
028-3 

0284 

0285 

0286 

028 7 
0288 

0289 

0290 

0291 


P00A5 
POO A6 
P00A7 
P0QA8 
POOA9 
POQAA 
POOAB 
PO OAC 
POOAO 
PO OAE 

POOAF 

POOBO 

POOBl 

P00B2 

PG0B3 

PQ0B4 

P00B5 

P00B6 


P0087 

P00B8- 

P0089 

POOBA 

POOBB' 

POOBC 

PODBD 

PQOBE 

POOBF 

POOCO 

POOCl 

PC0C2 


0293 

0294 PQQC3 

0295 PQGC4 
0296‘ P00C5 


0298 
0299' 
0 30 0 
0 30 1 

030:2 
0303 
030 4 
030 5 


P00C6 

PQ0C7 

P00C8 

POOC9 

POGGA 

PDQGB 

POOCC 

POOCD 


1622 


JMP- 

E8B2 

LSP35 

LDQ^ 

CEAF 


LDA» 

683D 


STA^ 

ODOl 


INQ 

CEAC 


LDA* 

683B 


STA^ 

5CF5 


RTJ» 

Q038 


ADC 

OAOO 


ENA 

58E1 


RT J‘» 

E8 A8 


LDQ» 

CEA6 


LDA^ 

6833 


STA'^ 

ODOl 


INQ. 

CEA3 


LDA» 

6831 


STA^ 

5CE0 


RTJ^ 

0 0 2E 


ADC 


. ^ 


0A09 ^ 


ENA 

5807 


RTJ^ 

C89F 

■TOPT 

LOA^ 

E89F 

. 

LDQ'-^ 

5800 

FF62 


RIJ 

C89A 


LDA.» 

■09 02 


IN A- ■ 

6898 


STA» 

•gacB 


SUB» 

0101 


SAZ 

18 €2 


JM'P» 

54F4 

ENOCON 

RIJ-^ 

18 0 0 


NUM 

00 00 

LSP40 

NUM 

C894 

NEDCON 

LOA» 

E8 94 


LDO» 

5.B0D 

FF55 


RTU 

OA 0 0 


ENA 

68C0 


STA» 

54F4 


RTJ- 

0 9 07 

FPOCD 

ADC 


(ZERO)»Q 

FLOAT PACKAGE IS IN CORE, CONVERT NO. 


COUNT 
(NENVA) vQ 
VALUE 
1 

(NEWVA) ,Q 
VALUE^-1 
{LSP3D 
VALUE-» 

0 

SAVOA 

COUNT 
(OLBVA) ,Q 
VALUE 
1 

tOLOVAJ ,Q 
VALUE+1 
ILS P3U 
VALUE-» 


GET NEW VALUE FOR CONVERSION 


HOVE **NEW‘* VALUE IN E-FCRMAT INTO OUTPUT 
GET OLD VALUE AND CONVERT 


9 

SAVOA- 

MESTB 

HEST8+T- 

PNr 

COUNT 

2 

■COUNT 

QSAVE 

EN0CON 

1SP35 


RETURN FROM CONVERSTON {FLOAT TO E-FQRMATl 


UP DATE NO. BEEN CONVERTED COUNT BY 2 


TO RELEASE CORE,... ETC. 
NOT DONE, TO REPEAT 


t AM ON I? 
$1800 
0 


PNT 


RELEA-SE CORE . 

ADD. -TfO BE FILLED} 
REQUEST CONFIRMATION 


$90 0»-GHRSLV F-READ 


N66QQ256 
N6600257 
N6600258 
N6600259 
N660G26G 
N6600261 
N&600262 
N6600263 
N66Q0264 
N6600255 
N6600266 
N&60 0 26 7 
N6600268 
N6600269 
N6600270 
N6600271 
N5600272 
N660G273 
N660Q274 
N6600275 
N6600276 
N66G0277 
N6600278 

N6600280 

N6600281 

N660-i282 

N6600263 

N6600284 

N5600285 

N6600286 

N66Q0287 

N660D288 

N56S0289 

N660029S 

N6600291 


N6600293 
N56G0294 
N660 0 29 5 
N660Q296 

N66Q0298 

N6600299 

N668Q308 

N660O3O1 

N6600302 

N&600J03 

N66Q03Q4 

N660Q305 


u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 

o 

o 

o 

o 

o 


o 


o 

o 

o 


FLCVSG PAGE' 8 


030 6 

PDOCE 

00 07 


ADC 

GETIN-FROCD 

030 7 

PDOCF 

QQDO 


NUM 

0 

0308 

POO DO ^ 

18FD 


ADC 

INC DM 

0309 

PCDOl 

00 01 


NUM 

1- 

0310 

P0DD2- 

7FBE 

- 

ADC 

REQTfP-FRDCD 

0311 

0312 

PO0D3 

14EA 


JMP- 

lAOISF) 

0313 

POOD4 

0161 

G ET IN 

SQP 

INOK 

0314 

P0DD5 

18CC 


JMP» 

IDE 

0315 

P00D6 

GOOD 

INOK 

LOA 

= AOK 


PO0D7 

4F4B 




0316 

P0008 

9883 

. 

SUB» 

REQTTP 

0317 

P0009 

0112 


SAN 

GIVEUP 

0318 

POOOA 

1C 00 


UMP 

(FLCVSG) 


POODB 

FF-24 




0319 

POOOC 

C880 

GlVEJ-p' 

LDA"^ 

MESTB+4 

0320 

PQODD 

E3 80 


LDQ^ 

ME3T8^^5 

0321 

P.OQDE 

5800 


RTJ 

PNT 


POODF 

FF3F 




0322 

POOEO 

E800 


LOQ 

BASE 


POOEl 

FF4B 




0323 

P00E2 

E2C3 


LDQ- 

SOHMOR, Q 

0324 

PO0E3 

1622 


JMP- 

(ZERO) ,Q 

0326 



¥ 



032 7 

PG0E4 

0010 

VALUE 

BZS 

VALUEU6) 


0329 





0330 


0 0 02, P 

■EQU 

SU13(»/96) 

0331 


0 0 03- P 

EQU 

SB13JSU13?H ) 

0332 


0120 P 

•EQU 

OB13(SBl3^-96 

0333 

0334 

PO 0F4 

0 0 2C 

BSS 

END 

(0B13-*‘) 

PGM = 

0120 

( 288) 

COM = 

000 0 { 0) 


DATE1 0 8/19/9 9 


1 WORD 


ABORT REQUEST AFTER PRINTING MESSAGE 
RETURN 

TO PRINT ABORT MESSAGE 

GET "SOMMOR" ADDRESS AND EXIT 


DAT = 0000 t OJ 


O 


N6600306 
N6600307 
N66Q0308 
N&60Q 309 
N660031E 
N6600311 
N6600312 
N660Q313 
N6600314 
N6600315 

N6600316 

N660Q317 

N6600318 

N6600 319 
N&600320 
N6600321 

N56QQ322 

N6600323 

N6600324 

N660 0 32 6 
N6600327 


N6600329 
N66G0330 
N6600331 
N6600332 
N6600333 
N660G 33A 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 









o 



FLCVSG 

PAGE 9 


DATE: 

08/19/99 

ri 

o 

E Q U I y 

A L E N 

C E S 






'w! 

O 










def.line 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 



O 

0000 - 

I 

QOFF 

{ OOQ’265) 

0 0 92, 

fl.23 5. 

0245 


o 


0 0 51,' 

AMONI 

. • 00F4 

10 D02441 

Q127, 

018 7, 

0215, 0251, 

D294, 03D-4 



0 051 ■ 

ADISP 

• -00.EA 

10002341 

0134, 

0193, 

0224, 0311 



O : 

0051 ■ 

LPHSK 

0002 

1 0000021 





n 

0051 

NZERO 

0012 

(000018) 







0051 

ZR08IT 

0033 

(000051) 







0 053 

FIVE 

0 0 43 

(0000671 






o . 

0 052 

SIX 

0044 

(0000681 





O 

0 052 ■ 

ZERO 

0022 

(0000341 

0181, 

G212, 

0256, 0324 



0 0 52 

ONEBIT 

0023 

(0000351 

0096 






0 0 52 

SIXTEN 

0027- 

{ 000039) 







0Q53- 

COMMA 

002C 

(G0Q044) 





o 


■ . 0 053 

SLASH 

Q02F 

(000047) 






0 0 53 -• 

ASrRIC 

002A 

(0 000421 







0 054 

EIGHT 

0026 

(0000381 






O 

0 054- 

■NINE 

■ 0045- 

(000069) 





o 

0054 ■ 

- ■•THREE ■ 

0004 

(000004) 






0 05-4 

ONE 

000-3 

(000003) 







0054 

TWO 

00 2 4 

(0000361 






o ■ 

0055 

TEN 

OO^fB 

(OQ00701 





o 

0056 

MASSLU 

.08C2 

( 0022h2) 

,0 219 





0057 

INCOM 

18FD 

(0063975 

■0308 


0216, 0305 




0058 

CHRSLV 

D0Q7 - 

(0000071 

0128 , 

0188, 




0059 

EXTBV4 

0QE9 

( OQO’233) 





o 


0 062 

GET FLO 

0002 

(000002) 






0 0 63 ■ 

. ASCHEX 

• 0 003- 

(OOO’OOS) 







0 064 ' 

GETINT 

000 8 

(0.00008) 






o 

0 065 ■ 

FLOATZ- 

070 8 

(001800) 

0192, 

0220 



r) 

0 0.68 

HANDLE 

•0001 

(QBOOOl) 







C069 ■ 

8MSG 

0002 - 

(0000025 

■0098 






0070 

SOHMOR' 

0 00 3 ' 

(0000031 

0323 





o 

0 071 

• lOERR-/ 

00 0 4- 

( 000004) 

0255 




o 

0Q72 

LISTLU 

0005 

(0000051 






0 073 

COMOLU 

0006 ■ 

(00 0'0065 

0095 



, , 



0 074 

NEWMLU 

.00 07’ 

10000071 






o 

0 075 

PROGl ■ 

000 8- 

(0008081 





o 

0076 

PR0G2 

. 0009 

( 0QOQ09) 






0077 

BITFLG 

OOOA 

(0000101 






o 









o 

o 

' 









o 

o 









o 










o 



o 
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0 0 78 

BUFCNT 

OOOB 

( oooGin 


0079 

FIELD ' 

OOOC 

(00 0012} 


0080 

SLASHF 

0010 

(000016) 


0 081 

8UFEMT- 

0011 

t 00 0017) 


0 082 

BUFFER 

0012 

(000018) 

0 0 93 

014 6 •' 

MESl 

0011 

(000017) 

0 166 

0148 

MES2 

000 4 

I 0 0 0004) 

0 1 6'8 

0 150 

HES3 

0009 

(000009) 

0 170 


DATE? 08/19/99 


o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 

o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 
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DATE! Q8/19/99 


o 


o 


s Y M B 0 L S 


O 


DEF.LINE NAME 


0 0A3 
Q1D6 
010 7 
0108 
0118 
0 122 
012 7 
0128 

0131 

0132 

0133 
0137 
0139 
01A2 
01,43 
0 14 5 
0147 > 
0149 
0153 
0156 
0 160 
0162 

0163 

0164 

0165 
0175 

0187 

0188 
0191 
0195 ' 
0197 
0199 
0203 
0216 
0217 

0 221 
0223 
0225 
0 226 
0229 
0 231 


FLCVSG- 

RED 

NOPAR 

HI 

JSIPNT 

PNT 

OUTMES 

WRCDl 

OTLU 

SIZ 

MB 

RTl 

BAD 

BASE • ' 
•EXTMSG 
8UF 
HE2 
ME3 
FILSP 
FILl 
FIL3 
NEWVA 
OLDVA 
COUNT 
M E STS 
GETPAR 
LSP12 
LSPCAL 
LSP13 
LSPACE 
BUFAD0 
LSP15 
■SELF /■ 
LSP20 ■ 
LSP24 - 
LSP25 
LSP26 
■ QSAVE 
REQTYP 
OFTB 
FLTAOD 


ADDRESS 

0000 
OOOE 
QOOE 
QOOF 
0 0 ID 
OOIF 
0022 - 
0023 
■0026 
002 7 
0028 
>002A 
002C 
002D 
0Q2E 
002F 
0040 
0044 
0040 
0051 

0055 

0056 

0057 
0053 
0059 
005F 


REFERENCED AT LINE NUMBER 


0107 


0129 

0 0 97 
0124 
0123 
0129 
0137 
■0091 
0099 

01 09 
0148 
0150 
0106 
0159 
0158 
0177 
0 182 
0101 
0116 
0119 


006 8 


0069 

0189 

006C 


OO&F- 

0189 

0071 

'■0 0-94 

0072- 

0195 

0076 

■ 0202t 

00 83 


0084 ■ 

■ 0206 

0088 

■ 0199 

0D8A 

■ ■ 0213, 

008C 

0090, 

0D8C ■ ■ 

0 303, 

QG8D 

0207, 

808F 

0211 


0175, 

0176, 

017-8, 

0179, 

0180, 0183, 

0313 

o 

0138, 

0 285, 

0301, 

0321 




0133, 

0165, 

0167, 

0169 



: 







; o 

8'254, 
0209 
0111, 
0167 
0169 
0 160 

0 322 






0113, 

0115, 

0133, 

0146, 0156, 

0165, 0240 

o o 

0 261 , 
0 272 , 

Q 260, 
0117, 

0-264 
0275 
0 271, 
0 283, 

0286, 

0284, 

0283 

8299, 

0 300, 03 19, 

0320 

■ o 







: 

0204, 

0205 





: ^ 

0214 

0 22 6, 
0 310, 

0289 

0316 





: O 


o 


o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


FLCVSG 


PAGE tz 


DATES -oa/ig/gg 


0234- 

0237 

0 247 

0250 

0 253 

0254 

0 260 

0 283 

0294 

0296 

0 299 

0305 

0313 

0315 

0319 

0327 

0 330 

0 331 

Q 332 


SAVDA-' 

0090' 

0 247, 

0269, 

0 282 

SAVl ■ 

0093- 

0 246 



SAV2 

009D 

0 243 



LSP30 ' 

009E 

0205 



LSP31 • 

OOAl 

0201, 

0266, 

0277 

lOE 

00A2 

0139, 

0196, 

0 314 

LSP35 

00A5 

0 250, 

0 291 


TOPT : 

D0B9 




ENDCON 

00C3 

0290 



LSP40 

00C5 

0200 



NEDCON 

00C6 




FROCD 

0 0 CO 

0306, 

0310 


GETIN 

OOOA 

0 306 



INOK ■■ 

0006 

0 313 



GIVEUP 

OODC 

0 317 



VALUE ■ 

GOEA 

0 237, 

0239, 

0262, 

SU13 ; 

0002 • 

0331 



SB13 

0003 

0332 



0813 

0120 

0 333 




o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


' 








o 

1 

0 


FLC¥SG 

RAGE 13 

date: 

08/19/99 



o 


E X T E R 

N A L S 






o 

0 

DEF.LINE 

NAME VALUE 

referenced 

AT LINE NUMBER 




o 

0 

o 

o 

0 046 
0 047 
0 0 48 

ECONV - 0 0 8f' 
MMAODR 008D 
MSG 008E 

0 2 31 
0 229 
0230 





. o 








o 

_ 

u 








o 

1 o 








o 

o 








o 

o 








n 

o 








o 

o 








o 

o 








o 

o 








o 

o 








o 

o 








o 

: o 








o 


»»» A L 


ADI SP 

8UFADD 

EC 0 N V 

FIME 

GiyEUP 

JSTPNT 

LSP26 

MEE 

NEWMLU 

OTLU 

■SAVE 

SOMMOR 

ZR08IT 


FICVSG 


PAGE 

14 

P H A 

B E 'T I 

CAL 

SORT 

0 F 

Q05 1 

AMONI 

0 851 

AS C HEX ' ' 

0 0 63 

0197 

BUFCNT 

0 078 

BUFEHT ■ 

0 08 1 

0046 

EIGHT 

0 054 

ENDCON • 

0294 

0Q5E 

FLCVSG 

0043 

FLOATZ 

0 065 

0 319 

Hi 

0108 

HANDLE 

0 068 

0118 

LISTLU 

0072 

LPMSK ■ 

00 51 

- 0E23 

LSP30 

G 250 

LSP31 ■ 

0 2B3 

■0147 

ME3 

0149 

MESl 

0 146 

0074 

NEWVA 

0162 

NINE 

0 054 

-.0131 

.,0 UTM ES 

0127 

PNT 

0122 

■0247 

SAVOA 

0234 

SB13 

0331 

0070 

0051 

SU13 

0 330 

TEN 

0 0 55 


DATE? 0 8/19/99 


S Y H 8 

0 L S 




ASTRIC 

0053 

BAD 

013 9 

BASE 

BUFFER 

0082 

chrslv 

0058 

COMMA 

EXTBV4 

0059 

EXTHSG 

0143 

FIELD 

FLTADO 

0231 

FRDCD 

0305 

GEIFLD 

HED 

010 6 

I 

00 0 0 

INCOM 

LSP12 

0187 

LSP13 

0191 

LSP15 

LSP35 

0 260 

LSP40 

0296 

LSPACE 

HES2 

0148 

HES3 

015 0 

MESTB 

NOPAR 

0107 

NZERO 

0051 

OFTB 

PROGl 

0075 

PROG2 

0076 

QSAVE 

SELF 

0203 

SIX 

0052 

SIX TEN 

THREE 

005 4 

TOPT 

0283 

TWO 


014 2 

BITFLG 

0077 

BMSG 

0 Q69 

BUF 

0145 

0053 

GOHOLU 

0073 

COUNT 

0164 

0813 

0332 

0079 

FILl 

0156 

FIL3 

0160 

FILSP 

0153 

0 062 

GETIN 

0313 

GETINT 

0064 

GETPAR 

0175 

0057 

INOK 

0315 

lOE 

0 254 

lOERR 

0071 

0199 

LSP20 

0216 

LSP24 

0217 

LSP25 

0221 

019 5 

LSPCAL 

0188, 

MASSLU 

0056 

MB 

0 133 

016 5 

MMADDR 

0047' 

HSG 

0 048 

NEOCON 

0299 

0229 

OLOVA 

0163 

ONE 

0054 

GNE8IT 

0052 

0225 

REQTYP 

0226 

RTl 

0 13 7 

SAVl 

G237 

0052 

SIZ 

0132 

SLASH 

0053 

SLASHF 

0080 

0054 

VALUE 

0327 

WRCDl 

0128 

ZERO 

0052 


o 

o 

o 

o 

o 

o 


o 


FLC\?OB 


PAGE 


1 


DATE? 08/19/99 


O 

O 

O 

O 

O 

o 

o 

o 

o 


o 


o 

o 

o 


0 001 
00 0 2 

0003 

0004 
000 5 
000 6 
00 0 7 
000 8 
000 9 
0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0 01,8 

0019 

0020 
0021 
0022 
0023 

002 4 

0025 

0026 
0027 
0028- 
0029 

003 0 
00 31 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0042 

0043 

0045 

0046 

0047 

0048 


■* 

V- 

'#• 


NAM FLCVD8 . DECK-ID N67 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION* LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


# ROUTINE TO CONVERT FLOATING POINT VALUE * 

# (DOUBLE PRECISION) INTO E-FCRMAT VALUE ^ 

V FOR PRINT/CONFIRMATION * 

# * 


SUMMAR7--11 


■V- 

a^ 

3|1 

-if 


CALLING SEQUENCE t 

RTJ FLCyOB 
ADC NENVA 
ADC OLOVA 

Q-REGISTER CONTAINS 


. new value, in floating 

OLD VALUE IN FLOATING 
NO. OF WORDS IN VALUE 


IN RETURN -*. 

(1) CALLER REGAINS CONTROL 

(2) ■•SOMMOR" GAINS CONTROL 


OUTPUT FORMATS X 

(1) HEADING 

NEW OLD 

(2) DATA 

4-0. 123 4567 89 0120 + 12 -0 .1234 5678 90120-12 


•9 


Jf. 

ENT 

FLCV08 

E 

N T R, Y NAME 




E 

X T E'R.'n A L S ^ , 


, EXT 

OGONV 


D-' OR F-FORMAT CONVERSION 


EXT 

HMAODR 




EXT 

MSG 




DOUBLE 


N6700002 

N6700a03 

N6700004 

N6700005 

N6700a06 

N570Dfl07 

N67000D8 

N6700009 

N67Q0ai0 

N67fl0011 

N6700012. 

N670D013 

N6700014 

N670C815 

N67Qfl016 

N670D017 

N6700018 

N6700019 

N670002D 

N&7Q0Q21 

N670aQ22 

N6700023 

N6700024 

N6700025 

N670fl026 

N&70a027 

N67QQ028 

N6700029 

N670003G 

N6700031 

N670a032 

N6700033 

N67Q0a34 

N&700035 

N678fl036 

N&70003? 

N670Q038 

N6700039 

N&70004Q 

N6700042 

N67Q0043 

N670Q045 

N6700046 

N6700047 

N6700046 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


FLCVDB 


PAGE 


2 


DATE: 08/19/99 


0051 

OOF4 
0 OEA 
■ 00 02 
- 0012 
0 0 33 


EQU 

005 2 

0 0 43 
0 0 44 
0 0 22 
0 0 23 
0027 


EQU 

0053 

D0 2C 


EQU 

0 0 2F 
002A 


EQU 

0054 

0026 
DO 45 
00 04 
0 D03 
■ 0024 

■ ^ 

0055 

0 0 46 


EQU 

0056 

08C2 


EQU 

0057 

' 18FD 


EQU 

00 58 

0007 


EQU 

0059 

O0E9 


EQU 

006^1. ■ ' 

I'l' 


• EQU 

0062 ■. 

r O0D2" 


0063 ■ 

0 0 03 ' 


• EQU 

006 4 

0008 


EQU 

0055 

0708 


EQU 


•EQU’ TABLE N670005Q 

AMONI (SFD^ADISP ($EA),LPMSK (2) , NZE'RO 1 Si 2) ,ZR0EITI$33) N670 0Q51 

riVEi$43)^SIX I$44},ZER0($22) ,0NE3IT($23'),SIXT£N {$27) N670 0 052 


COMMA ($20 ,SLASHI$2F) ,ASTRICI$2A) 

EIGHT {$ 26) , NINE {$45 )» THREE (4) , ONE f 3) , TWO i $2=41 


N6700 053 
N67D0Q54 


TEN- {$46) 
MA'SSLUl$8C2) 
■INC0H($18F0) 
CHRSLV{7) 
EXTB\f4T$E9) 


- INPUT COMMENT UNIT 
level of THIS PROGRAM, 


N&700055 

N6700056 

N6700Q57 

N670Q059 


SUBROUTINE POINTER IFOR 

GEJfLD(2) «GETFLD» GET 

ASC'HEX{3) "ASCHEC" ASC 

GET INTI 8) "GCTINT" --- GET 

FL0ATZI1800) SIZE OF FLOATING 


REQUEST) 

FIELD SUBROUTINE 
TO HEX* 

SINGLE/DOUBLE PRECISION 
POINT PACKAGE 


N6700061 

N67Q0062 

N6700063 

VALUEN6700Q64 

N6700065 


0 0 67 
0 0 6 ' 8 - 
00 69. 
0070 
0 0 71 ■ 
0072 .• 
00 73: 
0 0 74' 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 


OOOl ". - 

EQU 

H ANIL El 1) 

0 0 02 ' 

. EQU 

BMS15I2) 

0 0 03"""' 

■v> EQU 

SOMMORI35 

0 0 04.- , 

.-■-//EQU 

I0ERRT4) 

00 05."' ■ - . . 

. -- ::EQU 

LISTLUI5) 

00 06 ■ ■■ . 

■ EQU 

COMOLUI6) 

0007 ■ 

■ ■ EQU 

NEWMLUl 7) 

0 0 08- 

, QU 

PROGl (8) 

0009 ■ 

■ EQU 

PR0G2 (9 ) 

00 OA 

•EQU 

BIfFLGf 10) 

0 0 OB'.-'- 

.-EQU 

BUFCNTIli) 

GO OC 

'/:EQU 

FIEL0112) 

0010 ■ 

■vEQU 

SLASHFI 16) 

0011 

EQU 

8UFEMTI17) 

0012 

EQU 

BUFFERI18) 


parameter LOCATION (OFFSET 
"HANDLE” 

"MSG" ENTRY 
"SOHMOR" ENTRY 
"lOERR" ENTRY 
LIST OUTPUT - 
"CO MOLD" 

"NEWMLU" 

"PROGl" 

"PROG2" 

"BITFLG" 

"BUFCNT" 

"FIELD" 

"SLA SHF" 

"BUFEKT" 

"BUFFER" 


FROM BASE) 


— "LISTLU" 


NEW MM LU 


N67Q0Q67 
N6700Q6d 
N6700069 
N6700070 
N6700071 
N6700072 
N6700Q73 
N670Q074 
N670Q075 
N670-0076 
N&700Q77 
N670 0 076 
N6700Q79 
N67QQ080 
N6700081 
N6700Q82 


008 4 


N6700084 



F- WRITE 




PRINT 


N6700085 
N6700 086 
N6700087 


N670Q089 

N670D090 

N5700Q91 

N6700092 

N6700Q93 

N670QQ94 

N6700095 

N6700096 

N6700097 

N6700098 

N&700099 

N67S0100 

N6700101 


N6F0I3103 

N67001S4 

N5700105 

N6730106 

N670fll07 

N67D0108 

N670Q109 

N67G0110 

N6700111 

N6700112 

N67S0113 

N67C0114 

N670011 5 
N67Q0116 
N67aflll7 
N67fl0118 
N5700119 


N5700121 

N670ai22 

N6700123 

N670G124 

N6700126 
N5 70 0127 
N570Q128 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

G 

O 


o 


o 

o 

o 

o 

o 

o 

o 

o 


FLCVDB' 
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DATEi 08/19/99 


0129 

PQ024 

0 0 07 


ADC 

013 0 

P0025 

00 0 0 


NUM 

0131 

P0Q26 

0000 

OTLU‘ 

NUM 

0132 

P0027 

0015 

SIZ 

NUM 

0133 

P0 028 

OOOC 

MB 

ADC 

0134 

PQ029 

14EA 


JMP- 

013 6 





0137 

P0D2A 

0171 

RTl 

SQM 

0138 

P002B 

ICFS , 


JMP- 

0139 

PD02C 

18 7B ■ 

BAD 

JMP» 

0141 



'«■ 


0142 

PQ 020 

00 00 '■ 

BASE 

NUM 

0143 

P002E 

00 00 

EXTMSG 

NUM 

0144 



>>■ 


0145 

PD02F. 

2020 

8UF 

ALF 


P0030 

202 0 




P0031 

2020 




P0032 

2020 




P0033 

2020 




P0034 

2020 




P0Q35 

20 2 0 




P0036 

2020 




P0037 

2020 




P0Q38 

2020 




P0039 

2020 




P003A 

2020 




P0038 

2020 




P0D3C 

2020 




P003D 

2'Q20 




P003E 

2020 




P003F 

2Q20 



014 &• 

PGO40 

2020 


ALF 


P0041 

2020 




PD042 

2020 




P0043 

20 20 




P0 044 

2'0 2G 



0147 


3016 


EQU 

0148 

' P0045 

5645 

ME2 - ' 

ALF 


POO 4 6 

5249 




P0047 

4659 




PQ048 

2020 



0149 


0004 


EQU 

0150 

P0049 

4442 

ME3 

ALF 


P004A 

20 52 




P00 4B 

'4551 




POO 4C 

5545 




P004D 

5354 




P0Q4E 

2041 




P004F 

424F 




PG050 

52 54 




P0051 

2020 




RTl-WRCOl 

0 

0 

21 

3UF-WRC01 
( AOISF) 


RETURN 
THREAD 
LU ITO 
SIZE 

buffer 


BE FILLED) 


BAD 

(PNT) 

lOE 


RETURN FROM PRINT, CHECK FOR ERROR/NEXT STEP 
RETURN TO CALLER 


CONSTANTS AND STORAGE 

0 

0 

MESSAGE 

17, 


5, 


MESl(»-eUF) 

4,VERIF-Y 


HESZr»-'ME21 

9,08 REQUEST ABORT 


N67D0129 

N6700130 

N670Q131 

N6700132 

N6700133 

N670013^ 

N6700136 
N67QD13 7 
N6700138 
N67fl0139 

N670Q141 

N6700142 

N6700143 

N6700144 

N6700145 


N5700146 


N6700147 

N6700148 


N6700149 

N&7Q0150 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


OATES 08/19/99 


FLC\?DB PAGE 5 


0151 

• 

0009 • 


EQU 

MES3{’*ME31 


N67Q0151 

0153 



, » 


FILL 

BOFFER WITH SPACE 

N6700153 

0154 

PO 052 

OBDO 

■ FILSP 

NOP 

0 

ENTR7 

N6700154 

0155 

PO 053 

0C14 


ENQ 

20 


N67Q0155 

0156 

P0054 

COCO 


LDA 

= A 

FILL BUFFER WITH SPACE 

N67QQ156 


P0055 

20 20 






015 1 

P0Q56 

6AD8 

FILl 

STA» 

BUF,Q 


N6700157 

0158 

P0057 

GOFE 


'■ INQ 

-1 


N67Q0158 

0159 

P0Q58- 

0171 


■ SQM 

FIL3 


N670 0 159 

016 0 

P0059 

18FC 


JHP» 

FILl 


N670Q160 

0161 

P0 05A 

1GF7 

FIL3 ■ 

JMP» 

(FILSP} 

EXIT 

N670ai61 

0163 

P0Q5B 

0000 ' 

- newva’ 

NUM 

Q 


N6700163 

016 4 

P005C 

00 00 

OLDVA ■ 

NUM 

0 


N670 0 164 

016 5 

P0050 

DO ao 

COUNT 

NUM 

0 ■ ■■ 


N670 0 16 5 

0166 

P0Q5E 

OQ CC 

MESTB 

ADC 

BUF-WRCDl 


N679 0 16 6 

0167 

P005F 

0016 


AOC 

MESl 


N6700167 

0168 

P0060 

0 022 


AOC 

ME2-WRGD1 


N67Q0 168 

0169 

PB061 

00 04 


AOC 

MES2 


N6700169 

0170 

PO 062 

0 0 26 


ADC 

ME3-WRCD1 


N67Q 0170 

0171 

P0063 

00 09 


AOC 

MESS 


N670fll71 


0173 

0174 

0175 
017 6 

P0064 

GC9B 

* 

GET PAR LDA» 

GET PARAMETERS 

(FLCVOS) GET NEW VALUE ADDRESS 

N5700173 

N6700174 

N6700175 

N670Q176 

017 7 

P0065 

889A 

• AOO’*^ 

FLCV08 


N6700177 

0178 

POO 66 

68F4 

STA^ 

NEWVA 

PUMP INDEX TO NEXT PARAMETER 

N67G0178 

0179 

P0067 

D898 

RAO’^ 

FLCVDB 

N67QQ179 

0180 

P0068 

EC97 

LDQ^ 

(FLCVDO) 


N6700180 

0181 

P0069 

F896 

ADQ^ 

FLCVDB 


N6700181 

0182 

P006A 

G622 

■ COA- 

(ZERO) , Q 


N670B 182 

0183 

P006B 

68FD 

STAL 

OLOVA 


N6700183 

0184 

P006C- 

0893 

RAO* 

FLCVDB 

SET EXIT 

N6700184 

018 6 

0187 

0188 

P006D 

54F4/ 

* . . 

LSP12- RTJ- 

RE DUES 

(AMONI} 

T SPACE TO BRING IN FLOATING POINT PACKAGE 

N6700186 

N67Q0187 

N6700188 

0189 

P 0 06€ 

15 47- 

LSPCAL ADC 

$1540 + CHRSLrV>' 


N6700189 

0190 

P006F 

0 0 06 

AOC 

LSPACE-LSPCAL 


N6700198 

0191 

POQ70 

0000 • 

. NUM 

0 


N5700191 

0192 

■P0,071 

0 0 00 

LSP13 ■ NUH 

0 

CORE LOCATION OF REQUESTED SPACE 

N6700192 

0193 

PQ072 

0708 

ADC 

FLOATZ 


N673Q 193 

0194 

PQQ73 

14EA ■ 

JMP- 

(ABISP} 


N67fi 0 19 4 

0195 

0196 

P0074 

01 62 ■ 

LSPAGE SQP 

LSP15 

SPACE BE GRANTED, DO SOMETHING 

N67G019 5 
N67Q0196 

0197 

P0'075 

1832 

•JMP* 

lOE 

10 ERROR (I/O ERRORS 

N6700197 

0198 

P0076 

OOQD 

BUFAOD NUM 

0 


N670 0 198 

0199 




N6700199 


FLCV06 


PACE 


DATE-: 08/19/99 


0200 P0077 

4816 


LSP15- - 

STQ^ 

LSP25 

0201 P0078 

4858 



STQ» 

LSP40 

0202 PDD79 

4820 



STQ^ 

LSP31 

0203 P007A 

5801 



RTJ^ 

SELF 

0204 P007B 

0 BOO 


SELF 

NOP 

0 

D205 P0Q7C 

C8FE 




SELF 

0206 P007D 

0928 



INA 

LSP30-SELF 

0207 P0Q7E 

6-8 OB 



STA» 

LSP24 

0208 ■ P007F 

C813 



LDA'» 

OFTB 

0209 P0080 

9 813 



SUB^ 

OFTBs-1 

0210- P0Q81 

88AC 



ADD=»^ 

EXTHSG 

0211 P0082 

B822 



. TRA 

Q 

0212 'Pfl083 

C811 



LDA» 

FLTADO 

0213 P0084 

5622 



•RTJ- 

(ZERO),Q 

0214 -P0085 

&8 0A 



■•STAT, 

LSP26 

0 215 POO 86 

48 08 



"STQ» 

LSP26-1 

0216 P0D87. 

54F4 



RTJ- 

(AMQNI) 

0217 PD088 

0 807 


LSP2Q ■' 

AOC 

$800«-CHRSLV 

0218 PO 089 

oooo 


LSP24 ’ 

NUH 

0 

0219 PQQSA 

00 0 0 



NUM 

0 

0 220r.P008B 

0-8 C 2 


1 

ADC 

HASSLU 

022i-'P0 08C 

0-7 08 



•AOC 

FL08TZ 

0222'P008D 

0000 


LSP25 ' 

NUH 

0 

0223' PDC8E 

0000 


• 

NUM 

0 

0224' P0 08F 

00 00 


LSP26 

NUM 

0 

0225 -Pflogo 

14EA 



JMP- 

(ADISF3 

0226 P0091 

GOOD 


QSAVE 

NUM 

0 

0227 

0091 

P 


EQU 

REairPIDSAVE) 

022C- 






0238 P0092 

7FFF- 

X 

OFTB 

ADC 

HMAOOR 

0231 P0093, 

7FFF 

X 


ADC 

MSG 

0232 P0094 

7FFF 

X 

FLTAQO 

AOC 

DCONV 


SET LOG. WHERE PROGRAM TO BE READ 


GENERATE RETURN ADD. 


GENERATE- ■‘•HHADOR" LOCATION 


GET FLOAT PACKAGE SECTOR-ADD. 

TO “MMAODR" FOR HM ADO. CONVERSION 
SAVE ISB 


RETURN (TO BE FILLEOI 
THREAD 


FLOAT PACKAGE ADD. (TO BE FILLEDJ 
SECTOR ADD. (TO BE FILLED) 


0. •■HHADDR** 

1. ”HSG** 

0- OR F-FORMAT CONVERSION 


•- DOUBLE 


0235'_ 

POO 95 

B BOG 

SAVDA 

NOP 

0 

ENTRY 


0236 

POO 96 

60FF 


STA- 

I 



023 7 

PO 097 

OCGO 


ENQ 

0 



0238 

P0098 

CA5C 

SAVl 

LOA^ 

VALUE + 3 ,0 



0239 

P0.099 

0FC8 


ALS 

8 ' 

ASSEMBLE 

INTO 2 

0240 

P009A 

8A5B 


AQD^ 

VALUE=^4,Q 



0241 • 

■P009P 

6993 


STA» 

BUF,I 



0242 

P009C 

8002 


INQ 

2 



0243 ■ 

P009D 

0814 


IRQ 

A . 

CHECK IF 

ALL IN 

0244 

PQ 09E; 

•09E8 


INA 

-20 

0 24-5 

P009F 

0122 


SAP 

SAV2 



0246 

POOAO- 

DOFF 


RAO- 

I 



024 7 

PQOAl 

18F6 


JMP;* 

SAVl 

RETURN 


0248 

P00A2 

1CF2 

5AV? 

JMP'» 

ISAV0A) 


0 25 0 



» 





0251 

PGGA3 

Dies 

LSP3Q 

SQP 

LSP35 

MM TRANSFER OK^ 


N67002QO 
N670 0201 
N6700202 
N5700203 
N6700204 
N67002D5 
N670Q206 
N6700207 
N670Q208 
N67QD209 
N67QQ210 
N67Q0211 
N6700212 
N6700213 
N670Q214 
N67Q0215 
N6700216 
N6700217 
N67a0216 
N87Q0219 
N&7Q0220 
N&7Q0221 
N67QC222 
N6700223 
N6700224 
N67Q0225 
N57fi0226 
N67fl0227 

N67CQ229 

N670023B 

N670Q231 

N670Q232 

N6700234 
N6730235 
N6700236 
NS7a-0237 
N&70Q236 
N67D0239 
No70fl24Q 
N670G 2A1 
N6700242 
N67Q0243 
N6700244 
N5700245 
N6700246 
N6700247 
N6700248 


N6700250 

N6700251 


o 

o 

o 

o 

o 

o 


o 


o 

o 


c 


c 

o 

o 

o 

o 


FLCVDB 
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DATE3 08/19/99 


025,2 

POOA4 

54F4 

0253 

POO A5 

1800 

0254 

PO0A6 

•00 00 

0255 

P0QA7 

E885 

02 56 

P00A8 

E2 04 

025 7 

P00A9 

16 22 

025'8 



0259 



0260 



0261 

POCAA 

E8B2 

0262 

PQOAC 

CEAF 

0263 

PODAC 

6845 

0264 

POQAD 

0001 

0265 

POQAE 

CEAC 

0266 

POOAF 

68 43 

026 7 

POOBO 

ODOl 

0268 

POOBl 

CEA9 

0269 

P00B2 

6841 

0270 

POOB3 

5CF2 

0271 

PO 0B4 

0030 

0272 

PQ085 

OACO 

0273 

P0DB6 

580E 

0274 


0275 

P0OB7 

E8A5 

0276 

P0088 

•CEA3 

0277 

P0 0B9 

6838 

0278 

POOBA 

flOOl 

0279 

POOB0 

CEAO 

0280 

POOBG 

6636 

0281 

POSBD 

'■0 0 01 

0282 

POOBE 

CE9Q 

0283 

POOBF 

6'8 34 

0 284 

POBCO 

5CE5 

0285 

PODCl 

0 0 30 

0267 



0288 

PflOCZ 

OAOC 

0289 

P00C3 

5801 

0290 

P00C4 

C8 99 

0291 

P00C5 

E899 

0292 

P00C6 

5800 


PO0C7 

FF57 

0293 

P00C8 

C894 

0294 

P0QC9 

0903 

0295 

POOCA 

6892 

0 29 6 

POOCR 

98 C5 

0297 

POOCC 

0101 

0298 

POOCD 

18 DC 



RTJ- (AiONI) 
NUM $1800 

RELEASE CORE 

LSP31 

NUM 0 


lOE 

LDO’^ BASE 
LDQ- IOERR,Q 

I/O ERROR ENCOUNTERED , EXIT 
EXIT TO "lOERR" 


JMP- (ZERO),Q 


FLOAT 

PACKAGE IS IN CORE, CONVERT NO. 


LSP35 


* 


- LDQ» 
LDA» 
■■ STA^ 
•IN a 

■to A* 

STA=» 

INQ 

LDA» 

STA» 

, RX j* 

•ADC 

ENA 


Loa’* 

LOA'»- 

STA^ 

INQ 

LDA» 

STA«^ 

INO 

LOA'» 

STA» 

RTJ-» 

ADC 


COUNT 

JNEWVA1 

VALUE 

1 

{NEWVAJ 

¥ALUE*1 

1 

INEWVA) . 
VALUE^fZ 
(tSP31) 
VALUE-» 

0 

3AVDA 

COUNT 
tOLDVAJ , 
VALUE 
1 

(OLOVA3 , 
VALUE+1 
1 

t OLDVA3 
VALUE+2 
(LS'P311 
VALUE-^ 


Q 




Q 


a 


Q 


t Q 


'get new VALUE FOR CONVERSION 

MOVE NEW VALUE- IN D-FGRMAT INTO OUTPUT 
GET OLD VALUE AND CONVERT 


TOP? 


ENA 

RTJ-» 

LOA'-^ 

LDQ* 

RTJ 

LOA-» 

INA 


12 

3AV0A 

HESTB 

HEST8+1 

PNT 

COUNT 
3 


RETURN FROM CONVERSION (FLOAT TO 0-F0RMAT5 


STA*^ COUNT 
SUB» QSAVE 


SA7 

JMP’^ 


EN8G0N 

LSP35 


UP DATE NO. BEEN CONVERTED COUNT BY 2 


¥0 RELEASE CORE,... ETC. 
NOT DONE, TO REPEAT 


0300 

0301 POOCE 54FA 

0302 POQCF 18G0 


END CON 


RTJ- 

NUM 


{ AH ONI) 
$18 '0 0 


RELEASE CORE 


N6700252 

N6700253 

N67QQ254 

N67Q0255 

N6700256 

N6700257 

N67fl0256 

N6700259 

N6700260 

N6700261 

N67Q0262 

N67Q0263 

N670026A 

N670a,265 

N6700266 

N&700267 

N6700268 

N67O0269 

N6 700 270 

N67Q0271 

N6700272 

N5700273 

N670G27^f 

N67B0275 

N6700276 

N6700277 

N6700278 

N6700279 

N6700Z8G 

N670fi281 

N67S0282 

N57O0283 

N67Q0284 

N670B285 

N6700287 
N6700 288 
N670Q289 
N&700290 
N67QQ291 
N6700292 


N&703293 

N&70O294 

N6780295 

N6700296 

N6700297 

N&700298 


N67a0300 

N6700301 

N6700302 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


FLCVDB 


PAGE 


8 


DATE: 08/19/99 


O 

O 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0303 PODDC GOOD LSPAO NUM 0 


0 3 0.5 

030 6 P0QO1.C88E 

0307 P00D2"€88E 

0308 P0003 5800 
PO0D4 FF4A 

0309 PD0D5 OAOO 

0310 P00D6 68'EA 

0311 P0DD7 54F4 
0 312 POODS 0907 

0313 P0BD9 0007 

0314 POOOA 0000 

0315 POODB iSFO 
0 316' PO ODD 0 0 01 
0317- PODOD 7FB8 
0318. POODE 14EA 

0319 

0320 

0321 

0322 

0 32 3 
032-4 
0325 

0326' 

0327' 

0 32-8 

0329 

0330 

0331 

0333 
0 33 4 


033‘6. 
03 3’ 7 
Q33B- 
033 9" 
0 340 
0341 


NEOCON 


LOA^ MESTB*2 
LDQ^ MESTB+3 
RTJ PNT 


ADD, ITO BE FILLED-) 
REQUEST CONFIRMATION 


POODF 

01 61 


GETIN- 

SQP 

POOEO 

18C6 



JMP*' 

PGOEl 

COOO 


INOK 

LDA 

PQ0E2 

4F4B 



SUB’ 

P00E3 

98AD 



P00E4 

0112 



•SAN 

P00E5 

■icoo 



• JMP 

PQ0E6 

FF19 



LOA 

P00E7 

C80D 


GiyEUP 

P00E8 

FF79 



LDQ 

P00E9 

ESOO 



POOEA 

FF78 



RTJ 

POOEB 

5800 



POOEC 

FF32 



LDQ 

PQQED 

E8 00 



POOEE 

FF3E 



LOQ- 

POOEF 

E2 03 



POOFO 

1622 



JMP- 

PQOFl 

0 018 


■» 

VALUE 

BZS 


0 0 02 

P 


EQU 


0 0 0-3 

P 


EQU 


0128 

P 


EQU 

P0109 

0 017 



BSS 




END 


ENA 0 
STA’^ REQTYP 
RIJ- (A.^ONI) ^ 

FROGS- ADC $90 0*-CHRSL\; F-REAO 

ADC GET.IN-FRDCD 
NUM 0 
■ADC INCOM 
■NUM 1 

ADC REOTYP-FROCO 
• JMP- CADISF) 

INOK 
lOE 
-=AOK 


1 WORD 


GI¥EUP 

(FLCyOB) 

MESTB'44 

MESTB+5 

PNT 

BASE 

SOMMOR, Q 
CZEROnQ 


BZS yALUE124) 


ABORT REQUEST AFTER PRINTING MESSAGE 
RETURN TO CALLER 

TO PRINT ABORT MESSAGE 


GET “SOMMOR" ADDRESS AND EXIT 


SUl4(»/96) 
S814fSU14+15 
DB14(S814»96) 
TD814-* ) 


PGH= 0120 I 288J COM 


oaoo i 


0) 


BAT 


000 0 ( 


03 


o 



o 

N67Q0303 

o 

N6700305 

N670u306 
N6700307 
N6700 308 

o 

N6700309 

N&700310 

N6700311 

N6700312 

o 

N670D313 
N67Q0 314 
N6700 315 
N6700316 

o 

N57003i7 
N6700 318 
N6700319 
N6700320 

o 

N6700321 

N6700322 

o 

N6?a0323 

N6700324 

o 

N6700325 

N6700326 

N6700327 

N670G328 

. TT 

N6700329 


N670Q33D 

N6700331 

; O 

N6700333 

N6700334 

O 

N6700336 

N6700337 

N6700338 

N670Q339 

N6700340 

o 

N6700341 

o 


o 


o 


o 


flcvdb 


PAGE 9 


OATE: 08/19/99 


Pi 


Q U I V 

AiL E N 

G ES 




o 

o 

DEE. LINE 

NAME 

VALUE 


REFERENCED AT 

LINE NUJIBER 

0 0 00' 

I 

OOFF, 

(000255) 

0092, 0236, 

0246 

0 0 5 1 

AMONI 

00F4 

{ 0002443 

0127, 0188, 

0216, 0252, 0301, 0311 


0051 ■ ■ 

ADIS'P 

flOEA 

(0002343 

0134, 0194, 

0225, 0318 


0 051 

LPMSK 

0002 

(0000023 



o 

0 0 51 , 

‘.NZERO 

0012 

(0 00 01 83 




0 051 - 

ZROBIT 

0033 

(QQ0051I 




0052 

FIVE 

0043 

(OQOQ673 



o 

0 052 

SIX 

004i^ 

(0000683 


0257, 0331 

0 052 

ZERO 

0022 

(0000343 

0182, 0213, 

0 0 52 

ONEBIT 

0023 

(0000353 

0 096 



0 052 ■ 

SIXfEM 

0 027 

(000039) 



o 

0053 

COMMA 

002C ■ 

(QQ00443 



0 053 

SLASH 

D02F . 

(0000473 



0 053 
0054 

ASTRIC 

002A 

(0000423 




EIGHT 

■0026 

( 0000383 




0 054 

NINE 

0045 

( QDQQ693 



o 

0 054 

•THREE 

0004 , 

(0000043 




0 05 4 ■ 

ONE 

0003 

(0000033 




0 054 

• TWO 

0024 . 

(0000363 



o 

0 055 

TEN 

0046 

(0000703 

0220 


0056 ' 

MASSLIi- 

■ 08C2 

■10022423 


0 057 

INCOM 

18FD 

( 0063973 

0.315 

0217, 0312 


0 058 . 

CHRSLV 

. 0007 

(0000073 

0128, 0189, 

o 

0 059 • 

• EXTBV4' 

0 0-E9 ■ 

(0002333 



0062 ■ • 

• GETFLD 

0002 - 

(0000023 



0 0 63 ■ 

ASGHEX- 

0003 - 

1 OQQOQ3) 




0064 ' • 

GETINT- 

. 0008: 

(0000:083 

Q193, 0221 


o 

- 0 065 

■ floatz- 

. 070 8 

(0018003 


0 068 

HANDLE 

■ 0 001 

(0000013 

0,098 



0069 

• BMSG 

0002 ■ 

(0000023 



0 0 7 0 ■ ' 

SOMMOR 

■ 00 0 3 •■■ 

(0000033 

0330 


o 

0 071 

• lOERR ■ 

■ 0 00 4 

10000043 

0 256 


0 072 

• LISTLU 

0005 ■■ 

(0.000053 

0095 



0073 ■ 

• COMOLU- 

S0Q6-'' 

(0000063 



0074 ^ ■ 

• NEWMtU 

■ 00 0 7 

(0000073 



o 

0 075 

PROGi 

• Q0Q8 / 

{QOQO083 



0 076 

PROG2 

0009 

(0000093 




0077 

8ITFLG 

OOOA 

( 0000103 





o 


FLCVDB 


PAGE 10 


DATE; 08/19/99 


O 0 07-8. BUFCNT 

0079 FIELD 

0 080 . SLASHF 

0081 : BUFEMT 

^ 0082 • BUFFER 

0147 MESl 

0149 MES2 

r'v 0151 HES3 


o 


o 


o 


o 


o 


■ 'OOOB 

( D0QQ113 


■1300 C 

(000012) 


0010 

(0000163 


■0011 

( 0000173 


0 012 

( 00Q0183 

0093 

0016 

(0000223 

0167 

000 4 

( 0030045 

0169 

0009 

(0000093 

0171 


o 

o 


o 

o 

o 


o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

FLCVDB 


o 



S Y M B 0 

L S . 


o 

OEF.LINE 

NAME • 

ADDRESS 

o 

0 043, 

FLCVfJB 

00 0 0 


0106 > 

HED 

OOOE 


0107 . 

NOPAR 

flOOE 

o 

0108 • 

HI 

OOOF 

0118 ' 

JSTPNT 

uOlD 


0122 ■ 

PNT 

•OOIF 


0127 

OUTMES 

0022 

o 

0128 

WRCOl 

0023 

0131 

OTLU 

0Q26 


0132 . 

SIZ 

0 0 27 


0133 

MB 

0028 


0137 

RTl 

002A 

o 

0139 

BAD 

002C 


0142 ■ 

BASE 

-QB2D 


0143 

EXTMSG 

002E 

o 

0145 

BUF 

002F 

0148 

ME2 

0 04 5 


015 0 

HE3 

0049 


0154 

FliSP . 

0052 

o 

0157 

FILl 

0056 

0161 

FIL3 

005A 


0163 

NEW¥A 

. 005B 


0164 

0LD¥A 

0 05C 

o 

0165 

COUNT 

0050 

0166 

ME STB ■ 

005E 


0176 

GETPAR 

0064 


0188 

LSP12 

•3060 

o 

0189 

LSPCAL 

■ 006E 

0192 

■LSP13 

■ 0071 . 


0196 - 

..LSPACE 

. 0074 


■ 0198-'’- 

8UFAB0 ^ 

■0076 

o 

... 0 200 ■ 

■ LSP15 • ■ 

• 0077 

0 204 

. SELF 

- Q07B 


0217 

. LSP20 

- 0088 


0 218 

■ LSP2-4 • 

- 0089 

o 

0222 

LSP25 

0080 

0 224 

LSP26 

008F 


0226 

aSAVE 

0091 


0227 

REQTYP 

0091 

o 

0 23 0 

OFTB 

0092 

0232 

FLTADD 

0094 

o 




o 





PAGE 11 


BATE! 08/19/99 


REFERENCED AT 

LINE NUMBER 

0043, 

0107 

0176, 

0177, 0179, 0180, 0181, 0184, 0325 

0118, 

013 8, 

0292, 03Q8»r 0328 

0129, 

0097 

0133, 

0166, 0168, 0170 


0124 

0123 

0129 

0137 


A- •u' 4 

0091, 

0 25 5, 

0329 






0099., 

0210 





0157, 

0166 

0109, 

Dill', 

0113, 

0115, 

0133, 

0147, 

0149, 

0168 







0151, 

017 0 







0106, 

0160 

0161 







0159 

8178, 

0262, 

0 265', 

0268 





0183, 

0276, 

0279, 

0282 

0295 




0101 , 

0 26 1 , 

0275, 

3293, 

0 30 7, 

0326, 

032 7 

0116, 

0119 

0117, 

0290, 

0291, 

0 30 6 , 




0190 









0241 


• 0190 
•0 094 

0196 

• 0203, 

^ 0207 
■ 0 200 
0214, 
0090 , 
0310 , 
0208, 
0212 


0205, 0206 


0215 

0227, 0296 
0317, 0323 
0209 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


Pi 


FLCVOB 
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DATEJ 03/19/B9 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0 235 

.SAVDA' 

0 238 

SAVl 

02^8 

SAy2 

0 251 

LSP30 

0254 

LSP31 

0 255 

lOE 

0 261 

LSP35 

0 29 0 

TOPT 

0 301 

ENDCON 

0 303 

LSP4D 

0306 

NEOCON 

0 312 

FRDCO 

0 320 

GETIN 

0 322 

INOK 

0326 

GIVEUP 

0334 

VALUE 

0337 

- SU14 

0338 

SB14 

0339 

DB14 


0095 
0098 
Q0A2 
Q0A3 
00A6 
G0A7 
00 AA 
OQCA 
OOCE 
OQDO 
•OODl 
Q0D8 
OODF 
OOEl 
0 0E7 
OOFl 
-0002 
■0003 
0120 


0 248 , 
0 2 47 

0273, 

0289 

0 2 45 
0 206 
0202, 

0 270, 

0284 

0139, 

0197, 

0321 

0251, 

0298 


0 297 
0 201 



0 313, 
0313 

0-317 


0320 
0324 
0 238, 
■0 338 
0 339 
0340 

0 240, 

0263 


0240, 0263, 0266, 0269, 0271, 0277, 0280, G283, 0285 


O 

O 

O 

O 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 






u 


FLCVOe 
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DATtt 08/19/99 


o 






o 


EXT E R 

N A L S 




o 

o 







OEF.LINE 

NAME 

VALUE 

REFERENCED AT 

LINE NUMBER 

^ o 

o 

0046 

ocoN-y- 

0 09 4 ^ 

. 0232 



0 047 

MHADOR 

0092 

0230 



o 

0 0 48 

MSG 

0093 

0231 


o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






: o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 



o 

o 

o 

o 

o 


o 


BASE 

0142 

BITFLG 

0077 

BMSG 

COMMA 

:0D53 

COHOLU 

0073 

COUNT 

FIELD 

0079 

Fill 

0157 

FIL3 

GETFLO 

0062 

GETIN 

0320 

GETINT 

INCOH , 

0057 

INOK 

0322 

IDE 

LSP15 

0200 

LSP20 

0217 

LSP24 

L SPACE 

0196 

LSPCAt 

0189 

MASSLU 

MESTB 

0166 

MMADDR 

0047 

MSG 

OFTB 

0 23 0 

OiOVA 

0164 

ONE 

QSAVE . 

022 6 

REOTYP 

0227 

RTl 

SIXTEN 

0052 

SIZ 

0132 

SLASH 

TWO 

0 054 

VALUE 

0334 

WRCDl 





(' ') 




O 

0069 

BUF 

0145 

o 

0165 

0814 

0 339 

0161 

FILSP 

0154 


0064 

GETPAR 

0176 


0 255 

lOERR 

0071 

: O 

0218 

LSP25 

0222 

0056 

MB 

0133 


0 048 

NEDCON 

0306 


0054 

ONE BIT 

0052 

o 

0137 

SAVl 

0238 

0053 

SLASHF 

0080 


0128 

ZERO 

0052 

■ o 




' o 




o 




: O 




■ o 




■ o 




■ o 


o 


o 

o 

o 

o 


NAHEMS 


PAGE 


1 


DATE! 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 


000 1 
000 2 
0003 
GOO^t 

0 0 0:5 
QOQ'G'- 
D0 0/7-- 
000 8'- 
0GO9 
0010 - 
0011 
0012 
0013 

001 A 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 ■ 

0023 

0024 

0025 

002 5 

0027 

0028 

0030 

0031 

0032 

0033 

003 4 

D036'_ 

0037- 

0038 

0039 

0040 

0041 

0042 

0044 

0045 


0047 
004 8 
0049 


MAC 

LOC 

ADC 

ALF 

EQU 

EMC 

MAC 

LOC 

ADC 

MUM 

ALF 

EQU 

EMC 


■» 

COMAMD 


headng 

» Y • 


’ 9 - 

% 

»• 

m- 


» 9, 9. ^ 


NAH NAHEMS OFCK-ID N68 MSOS 5.0 

MASS STORAGE OPERATING SYSTE.M VERSION 5.0 
SMALL SYSTEMS' DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

A 

X,N 
•N* 

. , • A* 

•N® X»-l) 


C 

Y,M 

*M* 

0 

• , ® c ® 

•M« (»-*Y* -n 


9 * 

» ROUTINE CONTAINS ALL COMMANDS OF ^ 

» THIS DEBUG, SOME INFORMATION IS ^ 

* ASSOCIATED WITH COMMAND ^ 

^ ^ ^ i?. ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 


SUMMARY- 11 ON 68 Q 0001 
N6800002 
N6800003 
N680 0004 
N6800005 
N68Q00D6 
N6800QD7 
N68QQQQ8 
N6800Q09 
N6800Q10 
N6800 Oil 
N680fl012 
N680D013 
N68D0 014 
N680Q015 
N6800 016 
N6800017 
N6800018 
N6800019 
N680002D 
N6800021 
N68Q0022 
N 68 0 0 02 3 
N6800024 
N6800025 
N6800026 
N68GC027 
N6800028 


MARCO **COMANO" IS FOR DEBUG COMMAND LIST 

"HEADNG” IS FOR DEBUG HEADING 


MESSAGE FORMAT 
COMMAND ^ NAME 


DESCRIPTION 


MESSAGE MUST BE LIMITED TO 20 WORDS MAX. 


N6800030 
N6800031 
N6800032 
N6800 033 
N6800034 


N680 

N680 

N68Q 

N680 

N680 

N&ao 

N 68 O 


0036 
0 037 

0038 

0039 
0 0 40 

0041 

0042 


ENT NAHEMS 


ENTRY- 


NAME 


N&8QQ044 

N680Q045 








N6800047 

N6800048 

N6800049 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



N6800050 . ^ 

N6800051 

N680005Z 

N6800053 , Q 

O 

^ O 

O 
O 

o 

N6800055 n 

N68QQ056 , ^ 

O 
O 
O 
O 

o 
o 
o 
o 


N68D0057 


NAMEHS 


PAGE 


3 


DATES 08/19/99 


o 

C'! 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P002B 

P002G 

P002D 

POGZE 

PD02E- 

P003Q' 


P0031 
P0032 
P0 0.33 
P003'4 ■ 
P0035 
P0036- ^ 
POOST'V 
P0fl38 
P0039 
P0 03A 
POO 38 
P003C 


P003D 

P0Q3E 

P003F 





PO 040 

202Q 




POOL! 

2020 




P0042 

4C4F 




POO 43 

4144 




P0044 

2043 




P0045 

4F52 




P0046 

4520 




P0Q47 

494E 




P0Q48 

5445 




P0049 

4745 




P004A 

5220 

00 

5 

9 


0 0 00 

00 

6 

0. 



00 

6. 

0 

. P0Q48. 

00 OD 

OQ 

&' 

0 

P004C 

20 4C 




P004D 

4153 




P004E 

2 0 2D 




PO04F 

2D 20 




P005D 

4C4F 




P0051 

4144 




P0Q52 

20 41 




PQQ53 

53 43 




P0054 

4949 




P0055 

2 0 54 




PG056 

4F20 




P0057 

43 4F 




P0Q58 

5245 

00 

6 

0 


OOOD 


COMANO * LHX — LOAD HEX CORE.* 


COHAND' * LIT — LOAD CORE INTEGER.* 


COHANO ' LAS -- LOAD ASCII TO CORE.* 


O 


O 

o 

N6800D58 Q 

o 

o 

o 

N680Q 059 

O 

o 

o 

o 

N6800060 

O 

O 

O 

o 

o 

o 


NAHENS 


PAGE 


4 


DATE1 08/19/99 


O 


o 

C061 

D061 

P0059 

0011 


006 1 

P0Q5A 

2 0 4C 

o 


P0fl58 

5350 


P0Q5C 

202D 



P005D 

2020 



POflSE 

4G4F 

o 


P005F 

4144 


P006G 

2 0 43 



P0061 

4F52 



P0062 

4520 

o 


PG063 

53 49 


PDG64 

4E47 



PO065 

4C45 



P0Q66 

20 50 

o 


PGQ67 

5245 


P0G68 

4349 



P0069 

53 49 



PQ06A 

4F4E 

o 

005 1 
00 6'2 


0011 


0062 

P006B 

0-0 oc 


0062 

P0 0 6C 

20 4C 

o 


P006D 

4450 


P006E 

2020 



P006F 

2D20 



P0Q70 

4C4F 

o 


POQ/l 

41 44 


P0072 

20 43 



P0073 

4F52 



P0074 

4520 

o 


P0075 

44 4F 


PQ076 

5542 



P0077 

4C 45 


0 0 6-2 


0 0 OC 

o 

0063 

0063 

P 0 07.8 

OOOB 


0063 

P0079: 

0 000 


0063 

P007A 

^2020 

o 


PGQ7B 

2020 


Pa07G 

20 32 



P 00,70 

■ 2 0 4-4 



P007E 

4154 

o 


P007F- 

-4120 


POQ80' 

;4455 



PG081 

■40 50 



PO-0 82 

494E 

o 


P00S3 

•47 20 

0063 

006-4 


OOOB 



0064 

. POO'84 

- OOOB 

o 

00 6 4- 

'P0085 

2044 

P0Q86 

5043 



P0087 

2 020 


O 


COHANO ' LSP -- LOAD CORE SINGLE PRECISION.' 


COMAND * LOP -- LOAD CORE DOUBLE.’ 


HEADNG * B 9ATA DUMPING. • 


■COMAND '^DPC — DUMP CORE HEX.*' 


O 


N68Q0061 


o 

o 
o 
o 
o 
o 

N&800062 ^ 

o 

o 

■ O 

N6800063 , O 

O 

■ o 
c 
o 
o 

o 


N6BOG06-4 


o 


NAMEHS 


PAGE 5 


DATE: 08/19/99 


c 
o 
! o 
o 
o 
I o 
o 
o 
o 
o 
o 
o 
o 
o 
' o 

I 

o 


P0D88,:2D20 
P0089’4455 
P008A 4D50 
P008B -2043 
P008C 4F52 
P008D 4520 
P008E.-4845 
P008F 5820 

Q064 OOOB 

006 5 

0065 PQ090 OODD 

0065 P0091 2044 
PGQ92 4943 
PQ093 2020 
P0094 2D20 
P0095 4455 
P0096 4D50 
P0097 2043 
P0098 4F52 
PD099 4520 
P009A 49 4E 
P009B 5445 
P009C 4745 
■ P0G9D 5220 

0065 GOOD 

0066 

0066 P009E GOOD 

G066 PQ09F 2044 
POOAfl 4153 
POOAl 2020 
P0O.A2 2D2D 
■P00A3 4455 
P0QA4 4CT50 
P0OA5 2043 
P00A6 4F52 
P00A7 4520 
P00A8 4153 
PG0A9 4349 
POO A A 4920 

0066 QOOC 

0067 

0067 POOAB OOOC 

0067 PflOAC 2044 
PflOAO 5350 
POOAE 2020 
POOAF 2020 
POOBO 44 55 
POOBl 4050 
P00B2 2043 
P0083 4F52 
P0QB4 4520 
POOB5"5349 
POOB6 4E47 
P00B7 4C45 


GOMAND * DIG -- DUMP CORE INTEGER.' 


COMANO ' DAS -- DUMP OORE ASCII,' 


COMANO * DSP -- DUMP CORE SINGLE^i ' 


N68G0065 


o 

o 
o 
o 
o 
o 
o 
o 

N6800066 

; o 

: 

: o 

N6800D67 ; O 

O 

; 

: O 

o 

■ o 



o 


NAMEMS PAG€ 6 OATES OB/19/99' 


u 

0067 

. - , 

QO'OC 


0058' 

0068 

P0 0.B8: 

:0.0 OC 

o 

0068 

P0QB9 

20 44 


POOBA 

4450 



POOB8 

2Q2D 



POOBG 

2020 

o 


POOBD 

4455 


POGBE 

4D50 



POOBF 

2 0 43 



PDOCO 

4F52 

r\ 


POOCl 

4520 



P00C2 

444F 



P00C3- 

5542 



POOC^i 

4C45 

o 

0068 


QOOC 

o 

0070 

0071 
0071 

P00C5 

0012 


0071 

PD0C6 

00 00 


0071 

P00C7 

2020 

o 


PO0C8 

20 24 


P00C9 

2424 



POOCA 

2040 



POOCB 

4153 

o 


POOCC 

5320 


POOCD 

5354 



POOCE 

4F52 



POOGF 

4147 

o 


POODQ 

4520 


POODl 

hF50 



POODZ 

4552 



P0003 

41 54 

o 


POOBA 

49 4F 


P00D5 

4E53 



P00D6 

2024 



PO0D7 

2424 

o 

0 0 71 
0072 


0012 


00 7 2 

P00O8 

GOll 


0072 

P00D9 

0 0 00 

o 

0072 

POflOA 

2020 

POODB 

2020 



POD DC 

2031 



POODD 

2044 

o 


POODE 

4154 


POODF 

4120 



PQOEO 

4C4F 



POOEl 

41 44 

o 


P00E2 

494E 


PQQE3 

47 2C 



POOEA 

204D 


O 


COMANO * OOP 


DUMP DORE OOUBEE^* 


HEAONG 


TYPE 2 MASS STORAGE .DATA 

$$$ MASS STORAGE OPERATIONS $$$.' 


HEAONG * 1 DATA LOADING, HASS MEMORY." 


N6800068 


N6800070 
N68G 0 071 


N6600072 


O 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


. NAMEMS 


PAGE 


7 


OATES 06/19/99 



COMAND * LHIA — LOAD HH HEX.' 


GOMAND ' LIM — LOAD MM INTEGER.' 


COMAND ' LAM — LOAD MM ASCII*' 


COMAND ' LSM — LOAD MM SINGLE.' 


o 


o 

o 

N6800073 

O 

O 

o 

N68Q0Q7L Q 

O 

O 

O 

N680 0 07 5 

o 

o 

o 

N6800076 . ^ 

O 

O 

o 


NAMEMS 


PAGE 


8 


DATE? 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P0113 

P0114 AlAA 
P0115 204D- 
• - P0116 AD20 

P0117 5349 
P0118 4E47 
P0119 -.l+CAS 

0076 QGQB 

0077 

0077 PDllA OOOB 

0077 POllB 204C 
POllC 4440 
POllD 202D 
POllE 2020 
. POllF 4G4F 
PO120 4144 
P0121 20 4D 
P0122 4020 
P0123 444F 
: P0124 5542 
P0125 4C45 

0077 OOOB 

0078 

0078 P0126 0011 

0078 P0127 0000 

0078 P0128 2020 
P0129 2020 
P012A 2032 
P012B 2044 
PQ12C 4154 
P012D 4120 
P012E 4C4F 
P012F 4144 
PQISO 494E 
P0131 472C 
P0132 20 43 
P0133 4F52 
P0134 4520 
PD 13 5 49 40 
P0136 41 47 
P0137 4520 

0078 0011 

0079 

0079 P0138 OOOE 

0079 P0139 204C 
PQ13A 4843 
P013B 2020 
P013C 2020 
P013D 4C4F 
P013E 4144 
P013F 2043 
P0140 4F52 
P0141 4520 
P0142 4940 


eOHANO " LDM — LOAD HM DOUBLE.* 


HEADNG ' 2 DATA LOADING, CORE IMAGE.* 


COMAND ' LHC — LOAD . CORE - IM A G£ HEX.* 


o 


u 

o 

o 

N5800077 ^ 

O 

O 

O 

N6800078 

o 
o 
■ o 
o 

: O 

N6800 079 

o 
o 
' o 
o 

o 


NAMEMS 


PAGE 


9 


DATES 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

I 

o 

o 

o 

o 

o 


PQ143 4147 
P0144 4520 
P0145 48A5 
P0146 5820 
0 0 OE 

P0147 OJ310 
P0148 204C 
P0149 4943 
P014A 2Q2D 
P014B 2D20 
P014C 4C4F 
P014D 4144 
PD14E 2043 
P014F 4F52 
P015Q 4520 
P0151 494B 
PQ152 4147 
P0153 4520 
P0154 494E 
P0155 5445 
P0156 4745 
P0157 5220 


P0158 
P0159 
P015A 
P015B 
P015C 
P015D 
P015E 
P015F 
PD160 
P0161 
P.016 2 
P0163 
P0164 
P0165 
P0166 
P0167 


P0168 

P0169 

P016A 

P016E 

P016G 

P016O 

P016E 

PG16F 

PfllTO 

P0171 

P0172 


COMAND * Lie — LOAD CORE IHAGE INTEGER.* 


COMANO * LAC — LOAC CORE IHAGE ASCII.* 


HFA0NG ■ » 3 RATA LOADING. ORDINAL.* 


O 


O 

N680008D 

O 

o 

o 

o 

N6800081 

O 

O 

o 

o 

N6800 082 

O 

O 

o 

o 

o 


NAMEMS 


PAGE 10 


o 


PQ173 

A7 2C 



P0174 

2 0 4F 


■ 

PD175 

52 44 

o 


P0176 

49 4E 

0082 
00 63 

PD177 

41 4C 
ODOF 



o 

0083 

0083 

R0178 

P0179 

P017A 

OOOC 
20 4C 
484F 



PQ17B 

2 0 20 

o 


PQ17C 

2S20 


P017D 

4C4F 



P017E 

4144 



P017F 

2D4F 

o 


P0180 

5244 


PQ181 

49 4E 



Pfll82 

41 4C 



P0183 

2 0 48 

o ■; 


P0184 

4558 

' Q'0 83 


00 QG 


008A 

008A 

PQ185 

QOOE 

o 

008 A 

P0186 

20 4C 


P0187 

494F 



P0188 

2 0 20 



P0189 

2 020 

o 


P018A 

4C4F 


P018B 

4144 



P018C 

2 0 4F 



P018D 

5244 

o 


P016E 

49 4E 


P018F 

41 4C 



PS190 

2049 



P0191 

4E54 

o 


P0192 

4547 

008 4 
0085 

P0193 

4552 
0 0 OE 



o 

008 5 

P0194 

OOOD 

0085 

P0195 

2 0 4C 



P0196 

414F 



P0197 

20 20 

o 


P0198 

2 0-20 


P0199 

4C4F- 



PQ19A 

4144 



P019B 

20 4F 

o 


P019C 

5244 


P019D 

49 4E 



P019E 

41 4C 



P019F 

2041 

o 


POIAO 

5343 


POlAl 

4949 


o 


DATE5 08/19/99 


COMAND * LHO LOAD ORDINAL HEX.* 


COMAND * LIO — LOAD ORDINAL INIEGER. * 


COMAND * LAO -- LOAD ORDINAL ASCII.* 


o 


N6800 083 


o 

o 
o 
o 

Q 

o 
o 

N668008A 

O 

O 

O 

O 

N6800Q85 

O 

o 

o 

o 

o 


o 


NAMEMS 
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DATE.: 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0085 OGOD 

0086 

0086 P01A2 OOOE 

0086 P01A3 204G 
PQ1A4 534F 
P01A5 2020 
P01A6 2020 
P01A7 4C4F 
P01A8 i+lAXf 
P01A9 204F 
POIAA 5244 
PQIAB 494E 
POIAC 414C 
POIAD 2053 
POIAE 494E 
POIAF 474G 

. POIBO 4520 

00 8, 6 OOOE 

0D8 7 

0087 POIBI 0 0G;E- 

0087 P01B2 20 4C 

PD1B3 444F 
PQ1B4 2 0 213 
P01B5 2D2Q 
P01B6 4C4F 
P01B7 4144 
PD1E8 2D4F 
F01B9 5244 
POIBA 494E 
POIBB 41 4G 
POIBC 2044 
POIBO 4F55 
P018E 424C 
POIEF 4520 

008 7 OCOE 

0088 

0088 POICO 0011 

0088 POICI 0000 

0088 P01C2 2020 
P01C3 2020 
P01C4 2034 
P01C5 2'Q44 
P01C6 4154 
PS1C7 4120 
PBICB 4455 
' PQ1C9 4<D'50 
POICA 494€ 
•POICB 47 2C 
PQl'GC 20 4D 
PO1C0 4153 
POICE 53 20 
POICF 4045 
P-ClOO 404F 
POlOl 5259 


COMAND ' LSO -- LOAD ORDINAL SINGLE.* 


COMANO * LOO — LOAD ORDINAL DOUBLE.* 


HEAONG * 4 DATA DUMPING, MASS MEMORY.* 


o 


N68Q0086 


o 

o 
o 
o 
o 
o 

N6800 087 

: 

O 

O 

■ o 

N6800088 , Q 

o 

o 

o 

o 

o 

■ o 


o 


NAMEHS 
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DATE? 08/19/99 


u 

0088 


0011 


0089 

0089 

P01D2 

flOOA 

o ■ 

0089 

P01O3 

2 0 44 


P01D4 

4D48 



PQ105 

2020 



P01D6 

2020 

O ; 


P0107 

4455 


POiOa 

4D50 



P01D9 

2 0 40 



POIOA 

40 2 0 

O ; 


PDIOB 

48 45 

0089 

POIDC 

■5820 

OOOA 


o 

0090 

0090 

POlOO 

OOOG 

0090 

POIDE 

2 0 44 



POIBF 

40 49 



PGIEO 

202D 

O 


POIEI 

2020 


P01E2 

4455 



P01E3 

4050 



P01E4 

2040 

O 


P01E5 

40 2 0 


P0iE& 

494E 



P01E7 

5445 



PD1E8 

4745 

o 


P01E9 

5220 

0090 


oooc 


0091 

QQ91 

POIEA 

0 0 09 

o ■ 

0091 

POlEe 

20 44 


POIEC 

40 41 



POIEO 

2020 



POIEE 

2 02 0 

O : 


POIEF 

44 55 


PQIFO 

4B50 



POIFI 

28 4D 



P01F2 

4020 

o 


P01F3 

4153 


PQ1F4 

4349 



P01F5 

4920 


0091 


D OOB 

O , 

0092 

0092 

P01F6 

OOOB 


0092 

PG1F7 

2 0 44 



P01F8 

40 53 

o 


P01F9 

20 20 


POIFA 

2020 



POIFB 

4455 



POIFC 

4050 

o 


POIFO 

2 0 40 


POIFE 

4020 



POIFF 

5349 

o 




o 





COMANO " DHH — DUMP HM HEX.* 


COMAND « OMI — DUMP MM INTEGER.* 


COMANO * OH A — DUMP MM ASCII.’ 


COMANO » OHS -- DUMP MH SINGLE.*' 


O 


N6800089 


N680B090 


N6a00fl91 


N6890 092 


□ 

O 

o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


NAMEMS 
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DATEI 08/19/99 



COMANO * BMD — DUMP DOUBLE.' 


COHAND * MSD — MASS MEMORY DUMP BY SECTOR,* 


HEADNG » 5 HASS STORAGE' READ/WRITE.* 


O 

o 

N6800093 O 

o 

o 

o 

N6800D9A 

O 

^ o 
o 
o 
^ o 

N6800 095 

o 

o 

o 

o 

o 


o 


o 


NAHtMS 


PAGE 14 


DATES OB/'ig/gg 


o 

0095 

0096 

PQ230 

5445, 

0010 

o 

0096 

P0231 

00 QD 

009 6 

PQ232 

2 0 52 



PQ233 

4443 



P0234 

2 0 20 

o 


PD235 

2020 


P0236 

52 45 



P0 237 

4144 



P0 238 

20 44 

o 


P0239 

4953 


P023A 

4B20 



P023B 

544F 



PG23C- 

20 43 

o 


P023D 

4F52 

009 6 
0097 

P023E 

4520 
00 DO 



o 

0097 

P023F 

0009 

0097 

P0240 

2052 



PQ241 

444B 



P0 242 

202D 

o 


P0243 

2D2Q 


P0244 

5245 



P0245 

4144 



P0246 

2044 

o 


P0 247 

4953 

009 7 
0098 

P0248 

4820 
0 0 09 


o 

0098 

,P0249 

OQOO 

0098 

P024A 

2057 



P024B 

4344 



P024C 

2 0 2D 

o 


P024D 

2020 


P024E 

5752 



P024F 

4954 



P0 250 

4520 

o 


P0251 

43 4F 


P0252 

5245 



P0 253 

20 54 



P0254 

AF20 

o 


P0255 

4449 

' 0098 
0099 

P0256 

5348 

GOOD 



o 

0099 

P0257 

0 B 09 

0099 

P0258 

20 57 



P0259 

4448 



P025A 

2D2D 

o 


P025B 

2D 20 


P0 25C 

5752 



P025D 

4954 

o 




n 





COHAND • RDC — READ DISK TO CORE.* 


COMAND » ROK — READ DISK.* 


COHANO * WCO — WRITE CORE TO DISK.* 


COHAND * WOK -- WRITE DISK.* 


N 68000 g 6 


O 

o 
o 
o 
o 

N&Booogr 

O 

o 

• o 

N&SOO 098 

o 
o 
o 
o 
o 
o 
o 
o 


N68C0099 


NAM'EMS 
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DATEl 08/19/99 



o 


PQ25E 

4520 



P025F 

4449 



P0260 

534B 

O : 

0099 


00 09 


OlOl 



O : 

Q1G2 

0102 

PQ261 

0011 


0102 

P0262 

0000 


0102 

P0263 

2020 



P0264 

2 0 24 

u 


PQ265 . 

2424 



P0266 

2 0 41 



PQ267 

5558 

o 


P0 268 

494G 


P0269 

4941 



P026A 

5259 



PG26B 

20 4F 



P0 26C 

5 0 45 

u 


P026D 

5241 



PJ3 26E 

5449 



P026F 

4F4E 

o 


P0270 

5320 


P0271 

2424 



PG272 

2420 


0102 


0011 

o- ; 

0103 
010 3 

P0273 

0011 


0103 

PC274 

00 00 


0103 

P0275 

2020 


P0276 

2020 

O 


PQ277 

2031 



P0 278, 

2 0 4D 



P0279 

4147 

o 


PQ27A 

4E45 


P027B 

5449 



P027G 

4320 



P027D 

54 41 



PQ27E 

50 45 

Q 


P027F 

2053 



P0 28 0 

5441 



P0 281 

E4 45 



P0262 

40 45 

U 


P0283 

4E54 



P0284 

5320 


010 3 


0G11 

o 

010% 

GIO.L 

P0 285 

QOOA 


010 4 

P0286 

20 41 


P0287 

4446 

o 


P0288 

2020 


P0289 

2D20 



PQ28A 

4144 


O 


jYp-pr 3 MISGELIANOUS T3AIA 

HEADNG * $$$"AUXILIARY OPERATIONS $$$." 


HEADNG • 1 HAGNETIC tape STATEMENTS," 


COMANB ' AOF — ADVANCE FILE.* 




N6800101 

N68001D2 


o 

o 
o 
o 
o 
o 
o 

N6800103 Q 

O 

O 

o 

o 

N68Q010A O 

O 

O 


V 


o 


NAMEMS 
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DATES 08/19/99 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P028B 5641 
P028C 4E43 
P028D 4520 
P028E 4649 
P028F' 4C45 

0104 OOOA 

0105 

0105 P0290 OOOB 
0105 PQ291 2042 
P0292 5346 
P8293 282D 
P0294 2D20 
P0295 4241 
P0296 434B 
P0297 5350 
P0298 4143 
P0299 4520 
P 0-29 A 4649 
P029B 4C45 

0105 OOOB 
010 6 . 

0106 P029C OOOB 

0106 P029D 2041 
P029E 4452 
P029F 202D 
P02AO 2D20 
P02A1 4144 
P02A2 5641 
P02A3 4E43 
P02A4 4520 
P02A5 52 45 
P02A6 434F 

, P02A7 5244 
010 6 OOOB 

0107. 

0107 P02A8 OOOB 
■ 0107 P02A9 2042 

PQ2AA 5352 
PQ2AB 2.020 
P02AG 2020 
. P02AO 4241 
P0 2AF 4.3 4B 
P02AF 5350 
P0 280 4143 
P02B1 4520 
P02B2 5245 
P0 2B3 4.3 4F 
P02B4 5244 
010 7 OOOC 

010 8 

0108 P02B5 0009 
01D8 PQ286 2057 

P02B7 4546 
P02B8 202D 


COHAND * B5F -- BACKSPACE FILE.' 


COHANO ' ADR -- ADVANCE RECORD.' 


COHAND • aSR -- BACKSPACE RECORQw ' 


'cohand » WEF — WRITE EOF.' 


o 


N680010 5 


o 

o 
o 
o 
o 
o 

N6800106 ^ 

O 

o 

• o 

N66G0107 

o 

o 

o 

o 

N6800108 

o 

o 

o 


NAMEMS 


PAGE 17 


DATES 08/19/99 



P02B9 

2D20 




P02BA 

5752 




P02B8’ 

4954 




P02BC 

4520 




P02BD 

454F 




P02BE 

4620 



D1Q8 


00 09 



010 9 



COMAND ^ 

W 

0109 

P02BF 

0 0 07 



0109 

P02CO 

2052 




PO 2C1 

4557 




P02C2 

2Q2D 




P02C3 

2020 




PQ2CA 

5245 




P02C5 

5749 




PQ2C6 

4E44 



0109 


00 07 



Oil 0 



COMANO 


0110: 

P0 2C7 

00 07 



0110 

P02C8 

2055 




PD2C9 

4E4C 




P0 2CA 

2 0 20 




P0 2C8 

2020 




P0 2CG 

554E 




P02CO 

4-C4F 




P02CE 

41 44 



0110 


0 0,07 



0111 



COMAND 

« 

0111 

P0 2CF 

OOOB 



0111 

pa 200 - 

2 0 53 




P0201 

4G44 




P02D2 

2020 




P0 2D3' 

2020 




P020A' 

5345 




P02D5 

4C45 




P0 2'D6^ 

43 54 




P.0 2D7 

2044 




P0208 

454E 




P02D9 

5349 




P02DA 

5459 



0111 


OOOB 



0112 



HEADNG 


0112 

P02DB 

00 07 



0112 

Pa2DC 

00 00 ' 



0112 

P02DO' 

2020 




P02DE 

202Q 




P0 20F 

2 0 32 




PG2E0 

2043 




PO 2E1 

4F52 




P02F2 

4520 



0112 


0 0 07 



0113 



COHAND 

if 

0113 

P02E3 

0010 




REW — REWIND. » 


■UNL — O-’NLOAD.' 


SLO — SE1.ECT DENSITY.* 


2 CORE. ♦ 


SCN — SEARCH CORE FOR P'ATfERN.* 


N68Q0109 


N68ea 110 


N6600111 


N6800112 


N680ail3 


NAHEMS 


P02E4 
P02E5 
P02E6 
P0 2E7 
P02E8 
P0 2E9 
P02EA 
P02EB 
P0 2EC 
P02EO 
P02EE 
P0 2EF 
P0 2FO 
P0 2F1 
P02F2 
P02F3 


P02F4 

P02F5 

P02E6 

PQ2F«7 

P02F6- 

P02F9: 

PC2FA 

PQ2FB 

P02FC 

P02FO 

PQ2FE 

P02FF 

P030C 

P0301 


P0 30E 
P03G3 
P0304 
P0305 
P0306 
P03Q7 
PQ308 
P03Q9 
PQ30A 
P030B 
P03GC 
PQ30D 
P030E 
P030F 
P0310 


2 0 53 
434E 
2020 
2D20 
5345 
4152 
4348 
20 43 
4F52 
4520 
464F 
,5220 
50 41 
5454 
4552 
4E20 
0010 

OOOD 
2053 
4D4E 
2 0 20 
‘2D20 
: 5345 
4152 
4348 
2040 
4D20 
5041 
54 54 
4552 
4E20 
90 00 

00 0 £ 
20 53 
4554 
2020 
2020 
5345 
5420 
■50 41 
5454 
4552 
4E20 
49 4E 
20 43 
4F52 
•4520 
QOOE 


P0311 ODOB 
P0312 20 53 
P0313 4D50 


page 18 DATEI 08719/99 


COMAND ' SBN — SEARCH HM PATTERN.* 


COHANO * SET — SET PATTERN IN CORE.* 


COMANO * Si^P -- SET HH PATTERN.* 




O 

o 

o 

o 

N6800114 

O 

o 

o 

o 

N68Q011 5 

O 

O 

o 

o 

N&800116 

o 

o 


o 


N A HEMS 


PAGE 19 


DATEi 08/19/99 


o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P0314 

PQ315 

P0316 

P0317 

P0318 

P0319 

P031A 

P031B 

P031C 


P031D 
P031E 
P031F 
PQ320 
P0321 
P0322 
PQ323 
P032A 
PQ325 
PQ326 
PD327 
P0 32 8 


P0329 

P032A 

P032B' 

P032C 

PD320 

P032E 

P032F 

P0330 

P0 331 

PD332 

P0333 

P0334 

P0335 

P0 33 6 


PQ337 
Pfl33‘8 
P0 339 
PQ33A 
P033B 
PQ33C 
P033D 
P0 33E 
PD33F 
PO 340 
PG341 
P0 342 
P0343 


COMAND ' SPE — SEARCH PARITY.' 


COMANO * CPP — CLEAR PROTECT BITS.' 


COHAND * SPP — SET PROTECT BITS.* 


N6800117 


N&800118 


N6800 119 


u 

o 

o 

o 

o 

o 

o 

o 

o 

c> 

o 

o 

o 

o 

o 

o 

o 


NA'MEHS 
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DATES 08/19/99 


o 

o 

o 

o 

o 

o 

o 

n 

O 

o 

o 

o 

o 

o 

o 

o 

o 


0119 oooc 

0120 

0120 P0344 OQOC 

0120 P0345 2053 
P03A6 4348 
P0347 202D 
P0348 2020 
P0349 5343 
P034A 4345 
P034B 4455 
P034C 4C45 
PD34D 2050 
P034E 524F 
P034F 4752 
P0350 414D 

0120 OOOC 

0121 

0121 P0351 OQDB 

0121 P0352 2041 
P0353 4C43 
P0354 20 2D 
PQ355- 2D20 
P0356" 414C 
P0357 ,4C4F 
P0358 4341 
P0359 5445 
PD35A 2043 
P035B 4F52 
P035C 4520 

0121 OaOB 

0122 

0122 P035D OOOA 

0122 P035E 2052 
P035F 454C 
P0360 2020 
P0361 2D20 
P0362 5245 
P0363 4C45 
P0364 4153 
■ P0365 4520 
PG366 434F 
- -P0367 5245 

0122 OOOA 

0123 

0123 P0368 OOOA 

0123 P0369 2050 
P036A 5448 
P036B 202D 
P036C 2D20 
P036O 5052 
P036E 494E 
P036F 5420 
P0 37 0 5448 
P0371 5245 


COMANO » SCH -- SCHEDULE PROGRAM.* 


COHAND ' ALC — ALLOCATE CORE,* 


COMANO * REL — RELEASE CORE.* 


COMANd * PTH — PRINT THREAD.* 



O 


O 

N6800120 

o 

o 

o 

N6800121 

o 
o 
• o 

N6600122 

o 
o 
■ o 

N6800123 Q 

o 

o 

o 


o 
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DATE? 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P0372 4144 

0123 OOOA 

012 4 

0124 P0.373 OOOF 

0124 P0374 2044 

P0 375 4143 
P0376 202D 
P0377 2020 
P0378 4455 
PQ379 4050 
PQ37A 20 41 
P037B 4C4C 
P037C 4F43 
P037D 4154 
P037E 4520 
P037F 434F 
P0380 5245 
P0381 20 4'D 
P0382 41 50 

0124 OOOF 

0125 

0125 P0383 OQQE 

012 5 P0 3.84 20 44 
P0385 5054 
P0386 2020 
P0387 2020 
P0388 4455 
P0389 4-050 
PD38A -20 50 
P038B 4152 
P038C 5449 
P038O 5449 
PQ38E 4F4E 
P038F 2043 
P0390 4F52 
P0 391 4520 

0125 00 0£ 

0126 

0126 P0392 0009 

0126 PQ 393 0000 

0126 P0394 2020 
. P0395 2320 
P0396 2033 
P0397 2040 
P0398 4F56 
P0399 4520 
PG39A 4441 
P0398 5441 

0126 0009 


0127 

0127 P039C GOOD 
0127 P039D 2040 
P039E 4243 
P039F 2020 


COMAND * DAC — OUMP ALLOCATE CORE MAP.' 


COMAND ' DPT — DUMP PARTITION CORE.'* 


H'EAONG » 3 HOVE DATA-.' 


COMAND ' MBC — H0\fE BLOCK OF CORE,' 


o 


N6800124 

o 

o 

o 

o 

N6800125 ^ 

o 

o 

o 

o 

N68C0126 

O 

o 
o 
o 
o 

o 


N6800127 


NAMEMS 


PAGE 22 


OATES 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

1 

' o 
o 
o 

I O 

I o 


P03AQ 

P03A1 

P03A2 

P03A3 

PB3Ait 

PD3A5. 

P03A6 

P03A7 

PQ3A8 

P03A9 


PB3AA 
P03AB 
PD3AC 
P03AO 
PQ3AE 
PD3AF 
P03B0 
P0 3B1 
P03B2 
P0383 
P03B4 
P03B5 


PQ3B6 
P03B7 
P0388 
P03B9 
P03BA 
P0 3B8 
P038C 
P03BD 
P03B€ 
P03BF 
PO 3C0 
PQ3C1 


P03C2 
P03C3- 
P0 3CA 
P0 3C5 
P03C6 
P03C7 
P03C8 
P03C9 
P03CA 
P03CB 
P03CC 
P03CD 
P03CE 
P03CF 


COMANO * MMM — MOVE MM TO MM.' 


HEADNG 4 COMPARE DATA.' 


COMAND ‘ CCC -- COMPARE CORE TO CORE.' 


O 

O 

O 

O 

N6800128 O 

O 

O 

O 

N68Q0129 

O 

O 

O 

N6800138 Q 

o 

o 

o 

o 

o 


NAHEMS 


PAGE 23 


DATES 08/19/99 



PQ3D0 

5245 

G130 


0 0 GE 

0131 

D131 

P03D1 

DOOD 

0131 

P03D2 

2 0 43 


P03D3 

4340 


P03D4 

2 0 2:D 


P03D5 

2020 


P03D6 

434F 


P03O7 

4050 


P03D8 

4152 


P03D9 

4520 


P03DA 

434F 


P03DB 

5245 


PO 3DC 

2054 


P03DO 

4F20 


P03DE 

4D4D 

0131 


OQQD 

0132 

013 2 

P03DF 

OOOC 

0132 

P03E0 

20 43 


P03E1 

40 40 


P03E2 

20 20 


P03E3 

2D20 


P03E4 

434F 


PQ3E5 

4050 


P03E6 

4152 


PQ3E7 

452 0 


PD3E8 

4040 


P03E9 

2054 


P03EA 

4F2Q 


P03EB 

40 40 

013:2 


OiOC 

0133 

0133. 

PG3EC 

• 00 07 

0133- 

PQ3E0' 

•OflflO 

0133 

P03EE 

2020' 


P03EF 

2020 


P03F0 

2035 


Pfl 3F1 

2-0 4F 


P03F2 

5448 

. i 

P03F3 

4552 

0133 


0 0 07 

013A 

G13A 

PD3F4 

OOOC 

0134 

P03F5 

20 41 


PD3F6 

4448 


P03F7 

2020 


P03F8 

2020 


P03F9 

4144 


P03FA 

4420 


PD3F8 

4845 


R03FC 

58 20 


P03FD 

4E55 


COMAND * CCM — COMPARE CORE TO MM. * 


COMAND ' CMM — COMPARE MM TO MM, » 


HEADNG ' 5 OTHER,' 


COMAND » A3H — ADD HEX NUMBERS.* 


N660D131 


N6800132 


N6800133 


N680013A 


NAMEMS 
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date: 08/19/99 


o 


D 


^ 0135 

013 5 
0135 

o 


o 


o 


u 

0135 
0156 

0136 

O 

0136 

O 


O 

0136 

0137 

o •, 

0137 

0137 

o 


o 


o 

0137 

0138 
0138 

o 

0138 


o 


PG3FE 4042 
P03FF 4552 
P0400 5320 
OGOC 

P0401 OOOE 
P0402 2053 
P0403 4248 
P0404 2020 
P0405 2020 
PQ^Oe 5355 
PD407 4254 
Pfl4Q8 5241 
P0409 4354 
P04GA 2048 
P040B 4558 
P04QC 204E 
P0400 5540 
P040E 4245 
P040F 5253 
OOOE 

PQ410 OOOA 
Pfl411 2040 
P0412 4C55 
PD413 2020 
P0414 2020 
P0415 4348 
P0416 41 4E 
PO 417- 4745- 
P0 418 2 0 40 
P0419 4020 ' 
P041A 4C55 
OOOA 

P0 41B OQOC 
P041C 2043- 
P041D 4C55 
P041E 2020 
P041F 2020 
P0420 4348 
P0421 41 4E 
P0422 4745 
P0423 2040 
P0 424 4953 
P0425 5420 
P0426 554E 
P0427 4954 
OOOC 

P0428 0013 
P0429 2043 
P042A 5741 
P042B 2020 


COMAND * SBH -- SUBTRACT HEX NUMBERS. • 


COMAND * MLU — CHANGE HM lU. * 


COMANO * GLU — CHANGE LIST UNIT.' 


COliANO * CWA CONVERT WORD ADDRESS TO SECTOR. ' 


o 


o 

□ 

N6800135 ^ 

o 

o 

o 

o 

N6800136 

O 

o 

o 

N6800137 

O 

O 

O 

o 
o 
o 

o 


N68QQ138 


NAMEMS 
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DATE? 08/19/99 


o 


P042C 

20 20 



P042D 

434F 



P0 42E 

4E56 

c 


P0 42F 

4552 


P043Q 

5420 



P0431 

574F 



P0432 

5244 

o 


P0433 

2041 


P0A34 

4444 



P0435 

5245 



P0436 

53 5.3 

o 


P0437 

2054 


PQ438 

4F20 



P0439 

53 45 



P043A 

4354 

o 


PQ43B 

4F52 

013B 


0013 


0139 

0139 

P0 43C 

OOOB 


0139 

P0430 

2Q4C 

u 

PD43E 

5354 



P043F 

202D 



P0440 

2020 

o 


P0 441 

4C49 


P0442 

5354 



P0443 

20 43 



P0444 

4F4D 

o 


P0445 

4041 


P0 446 

4E44 



P0A47 

5320 


0139 


OOOB 

o 

014 0 
0140 

P0448 

QOOA 

1 

0140 

P0449 

00 00 


0140 

P044A 

20 4F 

o 


P044B 

4646 


P0 44C 

202D 



P0440 

2020 



PQ44E 

4558 

o 


PO 44F 

4954 


P0450 

2 0 44 



PG451 

4542 



P0452 

5547 

o 

0140 

0141 


OQOA 


0141 

P0 453 

0010 


0141 

PO 454 

0000 

o 

0141 

P0455 

2 0 44 

P0456 

5820 



P0 457 

2 0 20 



P0458 

2020 

o 


P0459 

4142 


PQ45A 

4E4F 



P045B 

52 40 


O 


COMAND ' LST -- LIST COMHANDS.'* 


HEADNG * OFF — EXIT DEBUG, ' 


HEAONG * DX — AENORMAL EXIT AFTER HI.* 


o 


o 

o 

o 

o 

o 

N6800139 

o 

o 

o 

N680014Q O 

■ O 

o 

o 

N5800141 ^ 

O 

O 

O 

o 

•'W* 



'■u 

o 

o 

o 

o 


o 


N6800143 

N68D0144 


N6600146 

N6800147 

N6800148 

N6800149 

N680015D 

N6800151 


o 

o 

o 

o 

o 

(D 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 
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DATE’: Q8/19/99 


o 


o 


EDUIVALENCES 


o • 

DEF.LINE 

NAME 

VALUE 

O : 

0 000 

I 

OOFF 


. 0053 

COl 

0013 


0 05 6 

£03 

0010 


0 057 

C05 

OOQB 

u ■. 

0058 

£07 

■ OOOB - 


0 059 

£09 

ODQO 


0060 

£0B 

- 00 OD 

O ' 

0061 

£0D 

■ 0011 

0 062 

£QF 

ODOC 


0 0 63 

£11 ' 

OOOB 


0 064 

£13 

OOOB 

O 

0065 

£15 - 

OOQD 

0 066 

£17 ' 

QOOC 


0 067- 

£19 

OOOC 


0068- 

£16 

OOQC 

o 

0 071 

£1D 

0012 

0 072 ' 

£1F 

0011 


0 073- 

£21 

GOOA 


0 074 - ^ 

£23 

,0OQG 

o : 

0075 ■ 

£25 

0008 

0076 

£27 

000 8 


0 077-- 

£29 

OOOB- 


00 7 8 ■" 

£28 

0011 

o 

0079--- 

£20 

QOOE 

0 0 60 

£2F 

0010 


0 081 

€31 

QOOF 


0 082- 

£33 

OOOF 

o 

0083 ■ 

£35 - 

^ aooc 

0 084 

£37 

. OGOE 


0 085- 

£3 9 ■ 

aOQD 


00 86 - 

£38 

00 OF 

o 

0087 

C3D 

OCOE 

0088 ■ 

£3F 

OGll 


0 089 

£41 

000 A 


0 090 

£43 

BOQC 

o 

0091 

£45 

OQQB 

0092 

£47 

OOOB 


0 093 

£49 

OOOB 

o o o 





REFERENCED AT LINE NUMBER 

1000255) 

{ 000019-) 

1000016) 

( DOQOll) 

( 000011 ) 

(0000135 
(0000135 
(000017) 

{ 0000125 
( 000011 ) 

( 000011 ) 

( 000,013) 

( 000Q12I 
( 000012 ) 

( 000012 ) 

( 000018) 

( 000017) 

(0000105 
( 00QQ125 
( OQOOll) 

{ ooaoli) 

( eoQOii) 

( 0 0.3017) 

( 000014) 

(000016) 

I 000015) 

(00 0015) 

(0000125 
(800014) 

I ODQ0131 
( 0 0,0014) 

( 0 00.0145 
( 0000175 
I 00Q0101 
( 0000121 
( 0000115 
( ,0000115 
(0000115 


G053 
0056 
,0 0 57 
0058 
0 059 
0060 
0061 
0062 
0 0 63 

0064 

0065 
0 0 66 
0 0 67 
0068 
0-0 71 

0072 

0073 

0074 

0075 
0 0 76 
8,0 77 

0078 

0079 
0 080 
0081 
0 0 62 
0 0 83 
0084 
0Q85 
00 86 
QQ87 
0 088 
0 089 
0 0 90 
0091 
0 0 92 
0 0 93 


n 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 


r \ 


O 


o 
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OATS? 08/19/99 


o 

0 0 9 A- - 

E4B 


0095 ■ 

C4D 


0096 

t4F 

o 

0 097 - 

£51 

0 0 98 • 

£53 


0 099 - 

£55 


0 102 

£57 

o 

0103 

£59 

QlOA 

£5B 


0105 

C5D 


0106 

£5F 

O ' ' 

0107 

£61 

0108 

£63 


0109 

£65 


0110 

£67 

o 

0111 

£69 

0112 • 

: £68 


0113 

£6D 


0114 

£6F 

o 

0115 

£71 

0116 

£73 


0117 • 

£75 


0118 

£77 

o 

0119 

£79 

0120 ' 

£7B 


0121 

C7D 


0122 

£7F 

o 

0123 

£81 

0124 ■ 

£83 


0125 

£85 


0126 

£87 

o 
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o 


cj 

0143 

P003E 

C8 29 


LDA» 

ONE 


0149 

P003F 

68 2-5. 


STA» 

3 


G15 0 

P0040 

OAOO- 


ENA 

0 

o 

0151 

P0041 

68 24- 


STA» 

3+1 

0152 

0153 

PC042 

6824 


STA» 

B+2 



0154 

P0Q43 

DAOl . 

GRT3 

ENA 

1 

o 

015 5 

P0Q44 

6 8 2C 


STA» 

INDEX 

0156 

P0045 

5800 X 

GRT5 

RTJ 

DFLOT 



PO 046 

0 0 2E X 





0157 

P0047 

5B9D 


NUM 

$5B9D 

o 

015 8 

P0048 

OOlC 


ADC 

B-* 

0159 

PQQ49 

0021 


ADC 

TEN-* 


0160 

PG04A 

QOIA 


ADC 

B-* 


0161 

PD04B 

4000 


NUM 

$4000 

o 

0162 

PQ04C 

C824 


LOA^ 

INDEX 

0163 

PQD4D 

9822 


SUB^ 

J 


0164 

POO^tE 

0102 


SAZ 

GRTZ 


0165 

P004F 

D821 

GRT6 

RAO"^ 

INDEX 

I r~-\ 

0166 

P0050 

18F4 


JMP» 

GRT5 

'J 

0167 







0168 







0169 





□ PLOT 

o 

0170 

PQ051 

58 00 X 

GRT7 

RTJ 


P0 05.2 

0046' X 





0171 

P0053 

58AD ■ 


NUM 

$5BAD 


,0172 

PG054 

GJIGA 


ADC 

VALUE-» 

o ■ 

0173 

P0QS5 

QOOF 


ADC 

0_» 

0174 

P0fl5.6 

0 0 08 


■ADC 

A-* 


0175 

P0057 

40 0 0 ' 


NUM 

$4000 


0176 

P0058 

C809 


LBA* 

A 

o 

0177 

P0059 

980E 


SUB» 

ONE 

0178 

PQ05A 

0121 


SAP 

YETING 


0179 

P005B 

1816 


JHP^ 

SET EXP 


C18B 

PD05C 

0813 

YET IN G 

RAO* 

U 

o 

0181 

P0G5O 

18F1 


JMP* 

GRT6 


B=l, 0 


MODE, LOAD, MULTIPLY, STORE 
8=B»i0.G 


A=VALUE/B AND CHECK IF LESS THAN 

MODE, LOAD, DliflOE, STORE 
A^VALUE/B 

CHECK IF LESS THAN 1.0 
YSE , SKIP 

OTHERHISE UPDATE INDEX AND 



0183 





o 

0184 

PQCJ5E 

00 09 


VALUE 

0185 


0061 

p 



0186 


8 064 

p 



0187 

P0067 

40C0 


ONE 

O 


P0068 

.0000 




PQ069 

0000 




0188 

P0Q6A 

42 50 


TEN 



PC 068 

0 0 08 



O 


P006C 

0 000 



0189 

P0060 

0000 


CAL PAR 


019 0 

P0 06E 

00 00 


QSAVE 


0191 

P006F 

00 0 0 


J 

O 

0192 

P007Q 

0000 


INDEX 


CONSTANTS AND STORAGES 
B2S VALUEI9) 

EQU AIVALUE»-3? 

EQU 8ifALUE+6J 
NUM $40CQ,0,0 


NUH S4250,0,0 


NUN 0 
NUM 0 
NUM 0 
NUM 0 


1 


REPEAT 


o 



N690O148 

N6900149 

N690015D 

N6900151 

N690Q152 

N&900153 

N6900154 

N6900155 

N&900156 

N&900157 

N6900158 

N6900159 

N6900160 

N6900161 

N690G1&2 

N&900163 

N69QQ16i* 

N&900165 

N&900166 

No900167 

N6900168 

N&90D159 

Na900l70 

N6900171 

N69GG172 

N690G173 

N59G0174 

N69G0175 

N6900176 

N6900177 

N6900178 

N590Q179 

N69G0180 

N69QG181 


N690018T 
N690018 Y 
N6900185 
N5900186 
N590Q187 


N6900188 


N6900189 

N6900190 

N690Q191 

N690ai92 


O 

o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


0CONV 


page 5 


DATE-; Q8/19/99 


o 


r-’j 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


D194 

019 5 

0196 

0197 

0198 

0199 

020 0 

0201 

0202 

0203 

0204 

0205 
020 6 

020 7 
020 8 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

021 6 


» 

V- 


CALCULAT-E EXPONENT VALUE 


P0Q71 

5800 

X 

SETEXP 

RTJ 

DFLOT 

P0072 

0 0 52 

X 




P0073 

5BAD 



NUM 

$5BA0 

P0074 

7FEF 



ADC 

B-* 

P0075 

7FF4 



ADC 

TEN-* 

PD0 7D 

7FED 



ADC 

B-* 

PB077 

4000 



NUM 

$400 0 

PD078 

0 8 42 


CONVS 

CLR 

Q 

P0079 

C8F5 



LOA* 

J 

P007A 

3 0 46 



OVI- 

NOlO 

P007B 

48F4 



ST Q* 

INDEX 

P007C 

3930 



INA 

$30 

P0070 

0C14 



END 

20 

P0 07E 

6EEE 



STA* 

(CALPAR) , 

P007F 

0001 



INQ 

1 

PBQ80 

C8EF 



LOA* 

INDEX 

PflOSl 

0930 



INA 

$30 

P0Q82 

6EEA 



STA* 

fCALPAR) , 


MODEi LOAD, DIVIDE, STOPE 
8=B/10, 0 


0218 

0219 

0220 
0 221 
0222 
0223 

0 22-4 

0225 

0226 
022 7 
0 22 8 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 


P0083 
P0D84 
PQQ85 
P0Q86 
P0087 
P0D88 
P0089 
POQSA 
P008B 
P008C 
P008D 
P008E 
P008F 
P009Q 
P0091 
P0 092 
P0093 
P0094 
P0095 
P0096 
-P0097 
P0098 
P0099 
P009A 


0 AOO 
6BEA 
■58QQ 
9 0 72 
58A0 
7F05 
7FDA 
7FD6 
4000 
5800 
7FFF 
FFD2 
68E0 
0930 
E8DD 
0 D 06 
6ED9 
D8DA 
C8D9 
09F3 
0111 
188E 
5800 
7FFF 


>¥■ 

¥ 


X 0IG2 
X 


X 

X 


X DIGS 
X 


CONVERT VALUE INTO 12-DIGIT iMAX.J 


ENA G 
STA» J 
RTJ DFLOT 

HUM $58AD 
ABC VALUE-* 
ADC B-* 

ADC A-* 

NUM $4000 
RTJ OFIX 


ADC lA-*) 

STA* INDEX 
INA $30 
LDQ* J 
INQ 6 

ST A* (CALPAR),Q 
RAO* J 
LDA^ J 
INA -12 
SAN DIG6 
JMP* RETURN 
RTJ OFLT 


HOOE, LOAD, DIVIDE, STORE 


SAVE DIGIT ACCORDINGLY 

CHECK IF. ALL 12 DIGITS BEEN ASSEMBLE 
NOT DONE, REPEAT 
FLOAT CURRENT DIGIT , 


N690D194 
N6900195 
N69DQ196 
N6900197 
N690Q198 
N6900199 
N6900 200 

N69D0201 
N69002Q2 
N69DB203 
N69Q0204 
N6900205 
N6900206 
N690 0 2Q7 
N690Q208 
N6900209 
N5900210 
N69Q0211 
N5900212 
N69BQ213 
N6900214 
N6903215 
N6900216 


N6900218 

N6900219 

N690G22Q 

N6900221 

N6900222 

N69G0223 

N690 8 22 4 
N690Q225 
N690 0226 
N69Q0227 
N59S0228 
N6900229 

N6900230 
N69DQ231 
N69Q0232 
N6900233 
N6900234 
N690 0 235 
N6900236 
N6900237 
N6900238 
N69S0239 
N690Q 240 
N6900241 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


DCONV 


PAGE 


6 


DATE^ fl8/19/99 


0242 

0243 

G244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 


P009B 
P009C 
Pfl 09D 
P009E 
P009F 
POOAO 
PflOAl 
P00A2 
POOA3 
P00A4 
POOA5 
P0QA6 
P00A7 


FFD4 
5 8 00 
0 0 86 
59 7E 
7FC4 
7FBD 
OBAD 
7FBB 
7FC0 
7FC5 
7FBE 
4000 
1800 


NUM 

ADC ' 

ADC 

NUM 

ADC 

ADC 

ADC 

ADC 

NUM 

JMP^ 


{INOEX-^1 

DFLOT 

$597E 

B-f?- 

VALUE-» 

$D3A0 

VALUE-* 

a-* 

TEN-» 

r«oo 

DIG2 


M00E» multiply^ COMPLEMENT, ADD 

VALUE=VALUE- INDEX* IQ 
STORE, LOAD, DIVIDE, STORE 


N6900242 

N6900243 


a=B/io.o 

STOP 


N690 

N690 

N690 

N690 

N690 

N690 

N690 

N690 

N690 

N690 


0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 


0255 
025 6 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 
0 2 6 6 

0267 

0268 
0269- 
0 27 0- 
027 1 

0272 

0273 

0274 

0275 
027 6 

0277 

0278 

0279 

0280 
0281 
0282 
0263 
0284 


P0QA8 

P00A9 

POOAA 

PG0A8 

POOAC 

POOAD 

POOAE 

POOAF 

POOBO 

POOBl 

P0QB2 

P00B3 

P00B4 

P00B5 

PflQBS 

P00B7 

P00B8 

POOB9 

POOBA 

POOBB 

pooec 


QC13 
0 A2Q 
6EC2 
0 AOO 
68C2 
5800 
0'0 90 
5B90 
7FA0 
7f B8 
7FAB 
40 0 0 

C8A9 
98B1 
0136 
C8AF 
68AB 
OAQO 
68 A A 
68 AA 
18BB 


-f 


FRACTIONAL VALUE PROCESSING 


MODE, LOAD, MULTIPLY, STORE 
VALUE = VALUE * IQ.O 


'■ 'Ina $20 SET EXPONENT SIGN TO NEGATIVE 

STA* (CALPAR),Q 
• ENA 0 

STA* J 

X LESlll RTU SFLOT 

^ NUM $5S90 , MODE, LOAD, MULTIPLY, STORE 

-A on \7AtrUE'“^ 

■ADC TEN-* VALUE = VALUE * IQ.O 

AOC VALUE-* 

NUM $4090 

^ , CHECK IF VALUE GREATER/EQUAL TO 1.0 

. LDA* VALUE 
SUB* ONE 

SAM LESS13 NO, SKIP 

LDA* ONE B=1.0'. 

STA* B 
ENA 0 

STA-» B‘+l 

o T A P a. p 

JMP* CONVS TO ASSEMBLE EXP. AND 12-DIGIT 


POOBD D8B1 
POOBE 18EE 


LESS13 


RAO* J 
UMP* LESlll 


N69QQ255 
N6900256 
N6900257 
N690Q256 
N69CQ259 
N69QQ260 
N6900261 
N&900262 
N6900263 
N69G0 264 
N6900265 
N6900266 

N6900267 
N6900268 
N6900269 
N690 0 27 0 
N690Q271 
N690Q272 
N5900 273 
N6900274 
N&900275 
N69D0276 
N690Q277 
N690G278 
N6900279 
N690028D 
N6900281 
N690Q28Z 
N5900283 
N6900284 


028 6 


N690Q286 


' o 


DCONV 


PAGE 7 


OATES 08/19/99 


o 



□ 

o 

n 

O 


028 7 
0 2 8 8 

0289 POOBF G8AD 
G290 POOCO 60FF 
Q291 POOCl QC02 

0292 POOC2 0A2A 

0293 P00C3 6301 
029A POOC4 QDOl 

0295 -P00C5 0814 

0296 P00C6 Q9EA 

0297 P0QC7 0101 

0298 P00G8 18F9 

0299 P00C9 1800 
POOCA FF5G 


«• 

STAP LDA^ CALPAR 
STA- I 
■ ENQ 2 

STARl ENA $2A 
STA- 1,B 
INQ 1 
IRQ A 
INA -21 
SAZ STAR3 
JHP» STARl 
STARS JMP RETURN 


FILL BUFFER WITH * FOR OVER/UNOER FLOW 

CHECK IF DONE 

TO REPEAT 
TO EXIT 


o 

o 

o 


0301 

3302 . 00 02'P 

0303 0003 P 

0304 0120 P 

0305 P09C8 0055 

0306 


■EQU 

EQU SPQ2lOP01=H) 
EQU DP03(DP02»96) 
BSS TDP03-^') 

END 


PGH= 0120 ( 288) COM = QOOO 1 0) DAT - 0000 


03 


O 


O 

O 


O 

o 

o 

o 

o 


N6900287 

N6900288 

N690Q289 

N6900290 

N6900291 

N6900292 

N6900293 

N6900294 

N6900295 

N6900296 

N6900297 

N6900298 

N69QQ299 


N69D0301 

N690Q302 

N69003G3 

N6900304 

N6900305 

N69003Q6 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


OCONV 


PAGE 


8 


DATE: 08/19/99 


Q 

o 


EQUIVALENCES 


o 





DEE. LINE 

NAME 

VALUE 

o 

0000 

I 

OQFF 


0043 

LPHSK 

000 2 


0043 

NOlO 

0046 

o 

0 044 

ZERO 

0022 


REFERENCED AT LINE NUMBER 

(0002551 0091, 0290 

(OOQOQ2J 0138, OlAl 

I00007Q) 0208 

(0000341 0115 


o 


1 

KJ 

o 

o 

o 

o 

o 

o 

Q 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 

o 

o 

o 

o 

o 


I ) 

DCONV 

O 


SYMBOLS 


o 

OEF .LINE 

NAME 

ADDRESS 

o 

0 036 

DCONV 

000 0 


0 057 

LAZ 

00 08 


0 058 

LAZ'EXT 

0009 

o 

0 089 

LAY 

DOOA 

0 090 

PI 

000 8 


0094 

INTI 

OOOF 


0101 

I NT 2 

. 0015 

o 

0123 

RETURN" 

0027 

0127 

NEGV 

■ 0029 


0137 

GHKONE 

. 0033 


0 140 ■ 

TOSfA R 

^ 0036 


0141 

NORMAL- 

• 0038 

o 

0146 

GRTl 

Q03C 


0154 ■ ■ 

GRT3 

0043 


0156 

GRT5 

0045 

o 

0165 

GRT6 

■ 004F 

0 170 ' 

GRT7 ■ 

0051 


0 180 

YETING' 

005G 


0184 ■■ 

VALUE 

G05.E 

o 

018 5 

A 

0061 

0186 

8 

0064 


0187 

ONE 

0067 


0168 

TEN 

006A 

o 

0189 

C A LEA R 

Q06D 

Q 190 

QSAVE 

0 06E 


0191 

J 

006F 


0 192 

INDEX 

0070 

o 

0 20 0 ■ 

SETEXP ■ 

0071 

0206 • ■ 

: CON VS ■ 

0078 


0 223 

SIG2 

0085 


0 241 

0IG6 

0099 

o 

0 261 

-LESSl 

■ QDA8 

0266 

■' LESlll 

■■'OOAD 


0 283 

■ ■ LES S 13 

■OOB'D 


0289 

STAR 

. 80BF 

o 

0292 

■ STARl 

O0C2 

0299 

■ STAR3 

■ 0 0G9 


0302 

QPOl 

Q 0.0 2 


0303 

0P02 

0003 

o 

0304 

OPO 3 

0120 


page 9 DATE't 08/19/99 


REFERENCED AT LINE NUMBER 

.0036, 0051, 0052, 0054, 0058 

0 0 53 

0124 

0055 

0100 
0 0 99 

0240, 0299 
0121 
0122 
0128 
0139 
0143 


. 0166 
■0181 
0164 


0178 

0112, 

Q-li4, 

0116, 

S 133., 

013 4, 

0174, 

0176, 

0227, 

e 230 

0160 , 

0149, 

0151, 

0152, 

0158, 

0142, 

014-8, 

0177, 

0274, 

0276 

0159, 

e20'3. 

0250, 

0269 

0263, 

0090 , 

0212, 

0216, 

0235, 

0089, 

0123 



0222, 

0147, 

0163, 

0180, 

0207, 

3155, 

0179 

0162, 

0165, 

Q209, 

0 214, 

0281 

0253 

0239 

0144 . 

0284 

0275 

0 140 

0298 

0297 





0 303 

0304 

0305 






0137, 

0 172 , 

Q185, 

0186, 

0225 

0173, 

0202, 

0204, 

0226, 

0245 

0 2 89 

0.233, 
0 231 , 

0236, 
0 2 42 

0237, 

0265, 

0283 


0246, 

0249, 


0248, 0268, 0270, 0273 
0251, C277, 0279, 0280 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

c 


o 


o 


o 


o 


o 


o 


o 


o 


DCONV 


o 




o 

E X f E R 

N A L S 





o 

DEF.LINE 

NAME 

VALUE 

0 039 

LAZY2 

0007’ 


0040 

OFLOT 

OOAE 


0040 

DFLT 

009A 

o 

0040 

DFIX 

008D 


page 10 DATEi 0 8/19/9 9 


REFERENCED Af LINE NUMBER 
0 056 

0131, 0156, 0170, 0200, 0223, 02if3, 0266 

0 2A1 

0229 


□ 

o 

o 

o 


o 


o 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 




DCONV 


PAGE 

11 


DATES 08/19/99 

o 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



o 

o 

A 

DIG2 

GRT7 

LAZYZ 

PI 

VALUE 

D18 5 
0 223 
QlFO 
0039 
Q09D 
0184 

B 

DIGS 

I 

LESlll 

QSAVE 

YETING 

Q186 
0 241 
OOOD 
0 266 
, 0190 
0180 

CAIPAR 

DPQl 

INDEX 

LESSl 

RETURN 

ZERO 

0189 
0 302 
0192 
0261 
0123 
0 0 44 

chkone 

DP02 
INTI 
LESS 13 
SETEXP 

0137 . 
0303 ■ 
0094 
0283 
0 20 0 

CONVS 
BP0 3 
INT2 
LPMSK 
STAR 

0206 
0304 
0101 
■ 0043 
0289 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


DCONV 
GHTl 
J 

NEGV 
STARl 

O 

O 

o 
o 
o 
o 
^ o 
o 
o 
o 
o 
o 
o 


o 

o 


0036 

DFIX 

0040 

DFLOT 

0 040 

DFLT 

G04C 

O 

0146 

GRT3 

015A 

GRT5 

0156 

GRT6 

016 5 

0191 

LAY 

0089 

LAZ 

0057 

LAZEXT 

0058 


012 7 

NOlO 

0043 

NORMAL 

0141 

ONE 

0187 


0292 

STARS 

0299 

TEN 

0188 

TOSTAR 

0140 

o 


LAZY2 


PAGE 


1 


DATES 08/19/99 


0001 
000 2 
0003 
000 A 
00 0 5 
000 6 
00 07 
000 8 

0009 

0010 
0011 
0012 
0013 
OOIA 

0015 

0016 
DD17 
0018 

0019 

0020 
0021 
0022 

0023 

0024 
0025- 
0026' 
0027- 
0028 
0029 
0030' 
0 031 

0032 

0033 


-» 

•» 

■5- 

» 

9- 

»• 

It- 

'# 

H- 

'* 

•» 

* 

3f- 

3f- 

V- 

» 

* 

9- 


NAf^ LAZT2 DECK- ID N70 MSOS 5.0 

HASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


V-*-*** 9 *9 *9* 999**999999*9999*999 9 ^ :f.if :^3f*999 

» * 
^ ROUTINE TO CONVERT DOUBLE PRECISION » 

» NUMBER INTO FLOATING POINT FORMAT » 

* 999 ** 9 * 999 9 ** 999 * 99 * 9 * 999999 *** 9 ** 9 * 99 * 99 * 999 * 


CALLING SEQUENCE V. 

RTJ LAZY 2 
ADC L8UFER 

"LBUFER" ASSIGNMENTS Y. 

WORDS 01^-01 NO. OF, DIGITS IN INPUT 

02- 02 NO. OF DIGITS FOR INTEGER PART 

03- 03 NO. OF DIGITS FOR FRACTIONAL PART 

04- 04 SIGN 

05- 05 1=0, OR 0 = UNUSED 

06- 06 EXPONENT VALUE (BINARY? 

07- 18 MAX. OF 12 DIGITS OF INPUT 
19-21 FLOATING POINT VALUE (RETURN) 


SUHMARY-110N7000001 
N70G0002 
N7OOOO03 
N700 0004 
N7D0QQ05 
N7000006 
N70000(I7 
N7000008 
N7000009 
N70G001D 
N7000011 
N7000012 
N7 (50 0 013 
N7000014 
N7000015 
N7000016 
N7080017 
N7G0DQ18 
N70Q0019 
N7G0OQ20 
N7000021 
N7000022 
N700G923 
N7000024 
N70.00025 
N7GD0026 
N7000027 
N7000028 
N7000029 
N700003G 
N7000031 
N700G032 
N7G0Q 033 


003 5 
0036 

0 03 8 
0039 

0041 

0042 


9 


9 

0 002 


ENTRY 

ENT LAZY2 

E X T E- R N A 
EXT» OFLOT,9FLT 

•• E Q U •• 

EQU 1PMSKJ2) 


NAME 
L S 

T 'A -B L E 


N7000035 

N7000Q36 

N7000038 

N7G0G039 

N7CG0Q41 

N7060042 


00 44 

0045 

0046 


99 9*9 
* 


***** PROGRAM START 


***99 


N700Q044 

N70Q0045 

N7Q00046 


0048 POOflG OBOO 

0049 PQOOl 4859 


LAZY2 NOP 0 

STOT QSAVE 


ENTRY 

SAVE Q-REG. 


N7000048 

N7000049 


LAZY2 


PAGE 2 


date: 08/19/99 


o 


o 

o 

o 

o 

o 


c 




o 


O 

o 

o 

o 

o 

o 

o 

o 


005 0 

P00 02 

CC 

FD 


0051 

P000 3 

01 

22 


0052 

PQ004 

88 

FB 


0053 

P0 0 05 

AO 

11 


0054 

P0 00 6 

68 

53 

PI 

0 0 5 5 

POO 0 7 

08 

F8 


0056 

PQ008 

60 

FF 


005 8 




»»» 

00 5 9 

pooe9 

flO 

08 


0060 

PSOOA 

OA 

00 


0061 

POOOB 

6A 

45 

INTI 

D062 

POOGC 

01 

42 


0063 

POOOD 

ODFE 


006 4 

P'OOOE 

18 

FC 


0065 

POOOF 

OA 

01 

INT3 

006 6 

POOlO 

68 

4B 


GO 67 

POQil 

68 

4C 


0069 




•* 

0070 

PB012 

Cl 

01 


0071 

P0013 

01 

11 


00 72 

P0014 

18 

1C 



LOA'^ 

{LAZY 2) 

GET 

SAP 

PI 


AOD"^ 

LAZY2 


ANO- 

LPHSK*15 


STA» 

CALPAR 

SET 

RAO^ 

LAZY2 

STA- 

I 



INITIALIZED 

ENQ 

8 


ENA 

0 


ST A* 

ZEROiQ 


SQZ 

INT3 


INQ 

-1 


JMP-*- 

INTI 


ENA 

1 


STA^ 

K 


STA» 

INDEX 



CHECK 

IF 

LDA- 

1 « I 


SAN 

INGl 


JMP^ 

FRACTN 

NO, 


PARAMETER 
EXIT 

AMY VALUE I INTEGER PARTI 
{TO FRACTIONAL PROCESSING) 


N7C00050 
N700GD51 
N70QG 052 
N7000053 
N700005i+ 
N700Q055 
N7000056 


N70Q0058 
N7000059 
M7000060 
N7000061 
N7000Q6Z 
N70Q0Q63 
N70Q Q 064 
N7000065 
N7Q00 066 
N7000 067 

N7000 069 
N700QQ70 
N7000071 
N7D00072 


0074 

0075 

0076 
0 0 7-7 
0 0 76 
0 0 79 
008 0 

0081 P0015 6847 




PROCESSING INTEGER VALUE 


V- 

INGl STA» J 


N7000074 
N70Q0075 
N70QOG76 
N7000077 
N700a878 
N7000 Q79 
N70DQ080 
N7000081 


0Q8 

3-' 




008 

4 

pool 6 

C8 

45 

008 

5- 

P0G17 

09 

05 

008 

6 

poQia^ 

88 

41 

0087 

P0019 

68 

07 

008 

8" 

POOiA 

OA 

OD 

008 

9 

POOIB 

98 

41 

009 

0 

PDOIC 

20 

04 

009 

1 

POOID 

68 

12 

009 

2 

POQIE, 

58 

00 



POOIF 

7F 

FF 

GQ9 

3 

P002B 

00 

00 

009 

4 

P0Q21 

58 

00 



P0Q22 

7FFF 

009 

i; 

P0023 

5F 

96 

009 

6 

P0D24 

00 

OB 

0097 

P0025 

00 

72 


ING6 


X 

X 

I ND GK 
X 
X 


LOA* 

IN A 

ADD* 

STA^ 

ENA 

SUH* 

MUT- 

STA» 

RTJ 

NUM 

RTJ 


NUM 

ADC 

AOC 


GET ONE DIGIT AT A TIME AND ASSEMBLE 


CALPAR 

GET INPUT DIGIT 


INDGK 

13 

CALCULATE 10^*1 INDEX FOR 

CURRENT INTEGER 

J 

LPHSK%2 

010 

OFLT 

f » 3 ) 


0 

DFLOT 



$5F96 

DIO-^ 

DNO10-3-» 

MODE, INDEX, MULTIPLY, NO 

INDEX 


N7fl0fl083 
N70000B4 
N7C00a85 
N7oooaa6 
N7G00087 
N70fl0 088 
N700QQ89 
N700009fl 
N7000091 
N7000092 

N7000 093 
N70Q0 094 

N700a095 

N700Q096 

N70aa097 


O 

o 

o 

o 

o 

o 

O 

O 

O 

O 

O 

O 

O 

o 

o 

o 


o 


3 


DATE-: OB/19/99 


o 


o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LAZY2 


PAGE 


0098 

0099 

0100 
0101 
G102 
0103 
OlOA 

0105 

0106 
0107 


POO 2 6 

ED40 


NUN 

$ED40 

PO 027 

0 0 2C 


ADC 

A-* 

PO 028 

0 02B 


ADC 

A-* 

P0029 

D832 


RAO* 

K 

P002A 

C832 


LDA* 

J 

P002B 

0 9FE 


INA 

-1 

P002C 

6830 


STA» 

J 

PG02D 

0102 


SAZ 

FRACTN 

P002E 

18E7 


JMP* 

ING6 

P0 02F 

00 00 

DIO 

NUM 

0 


ADO, STORE, STOP 

!A = A 9- LVALUEIKl) »tl0»»I) ) 
UPDATE POINTERS AND CHECK IF DONE 


YES, SKIP 
NO, REPEAT 


N700 0 098 
N7000 099 
N7Q00100 
N7G00101 
N7000102 
N7000103 
N700Q104 
N70001Q5 
N70Q010 6 
N70D0107 


0109 

0110 
0111 
0112 

P0030 

0C02 

FRACTN 

ENQ 

CHECK 

2 

0113 

P0031 

CE28 


LDA* 

CCALPAR) ,Q 

0114 

P0032 

0111 


SAN 

FRO 

0115 

P0033 

18 28 


JMP* 

EXPCHK 


IF ALL INPUT DIGITS BEEN ASSEMBLED 

SKIP, THERE IS FRACTIONAL PART 
ALL DONE, GO 


N70001D9 
N700011G 
N7000111 
N7000112 
N7000113 
N7000114 
N7C0011 5 


0117 

0118 

0119 

0120 
0121 
0122 

012 3 /• 

0124 

0125 

0126 

0127 

0128 
0129 

013 0 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 


» 

» 




PROCESSING FRACTIONAL VALUE 


P0034 

68 28 


FRO 

STA* 

J 

P0035 

G826 


FRl 

LDA* 

K’ 

P0D36 

0905 



INA 

5 

P0037 

8822 



■ ADD* 

GALPAR 

P0038 

6807 



STA^ 

FRV 

P0039 

OAOG 



ENA 

12 

P003A 

9823 



SUB* 

INDEX 

P003B 

2004 



NUI- 

LPMSK9-2 

P003C 

68F2 



STA* 

DIO 

P003D 

580 0 

X 


RTJ 

DFLT 

P003E 

SO IF 

X 




P0Q3F 

QQOO 


FRV 

NUM 

0 

PD040 

5800 

X 


RTJ 

DFLOT 

P0041 

0022 

X 




P0Q42 

5FA6 



NUM 

$5FA6 

P0043 

7FEB 



ADC 

O10-* 

P0044 

0 0 53 



ABC 

DNOIO-S-* 

P0045 

FD40 



NUM 

$ED40 

P0046 

OOOD 



ADC 

A-» 

P0047 

00 OC 



ADC 

A-* 

P0048 

GB14 



LDA* 

J 

PO 049 

09 FE 



INA 

-1 

P004A 

6812 



STA* 

J 

P004B 

0111 



SAN 

NOEXTY 


GET INPUT DIGIT AND FLOAT IT 
CALCULATE 10^»I INDEX 


MODE, INDEX, DIVIDE, NO INDEX 
ADO, STORE, STOP 

CHECK IF ALL FRACTIONAL DIGITS BEEN ASSEMBLED 
NO, SKIP 


N7000117 
N7000116 
N7000119 
N70OO12O 
N7000121 
N700Q122 
N7DQ0123 
N700Q124 
N7000125 
N700Q126 
N7000127 
N700Q128 
N700B129 
N7Q0G130 
N7 00 0131 
N7000132 

N7000133 

N7000134 

N700Q135 

N7000136 

N7000137 

N7000138 

N700fll39 

N7000140 

N700Q141 

N70Q0142 

N7000143 

N70QQ144 

N7000145 


O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

D 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




LAZY2 



PAGE 4 

D1A6 

P004C 

1812 



JMP» 

EXPCHK 

014-7 

P004D 

D8 0E 


NOEXTY 

RAO» 

K 

0148 

P004E 

D80F 



RAO’^ 

INDEX 

0149 

P0Q4F 

18E5 



JMP* 

FRl 

0151 




■ 9 - 


CONI 

0152 

P005Q 

00 09 


ZERO 

BZS 

ZER0I9) 

0153 


0 0 53 

P 


EQU 

ACZER0«-31 

0154 


0 0 56 

P 


EQU 

8(ZER0^6? 

0155 

P0059 

00 00 


CALPAR 

NUM 

0 

0156 

PO 05A 

GOOD 


QSAVE ' 

NUM 

0 

0157 

P0Q5B 

0000 


K 

NUM 

0 

0158 

P0 05C 

0 0 0 0 


J 

NUM 

0 

0159 

P005D 

0 0 0 0 


INDEX 

NUM 

0 

0161- 




9 - 



0162 




9 - 99 -* 9 - 


0163 




9 - 



0164 




9 - 



0165 






C HE' 

0166 




* 



0167 

P005E 

OC05 


EXPCHK 

END 

5 

0168 

P005F 

CEF9 



LDA^ 

(CALPAR) ,Q 

0169 

POOSO 

0900 



INA 

0 

0170 

P0061 

0111 



SAN 

EXl 

0171 

P0062 

1822 



JMP^^ 

DONE 

0172 

POO 63 

68F9 


EXl 

STA» 

INDEX 

0173 

P0064 

€8 57 



LDQ» 

ONE 

0174 

P0065 

48F0 



STQ» 

B 

0175 

P0066 

OCOO 

. 


ENQ 

0 

017 6- 

P0067- 

48EF 



STO^ 

841 

0177 

PD068 

48 EF 



STQ«- 

B42 

0178 

P0069 

8121 



SAP 

EXP3 

0179 

P006A 

0864 



fCA 

A 

0180 

P0 0 6R 

68F0 


EXP3 

STA^ 

J 

0181 

P006C 

OlOA 



SAZ 

EXP5 

0182 




■» 


CAL 

0183 

P0060 

5800 

X 


RTJ 

□ PLOT 


P0 06E 

0041 

X 




0184 

P006F 

5B9D 



NUM 

S5890 

0185 

P0070 

7FE5 



ADC 

8-4 

0186 

P0 071' 

CO 47 



ADC 

TEN-* 

018 7 

P0072 

7FE3 



ADC 

B-# 

0188 

P0073 

4000 



NUM 

$4000 

0189 

P0074 

C8E7 



LD A» 

J 

019 0 

P0075 

0 9FE 



INA 

-1 

0191 

P0076 

18F4 



JMP» 

EXP3 

0193 




• 9 - 



019 4' 

POO 77 

C8E5 


EXP5 

LOA^ 

INDEX 


DATES QB/19/99 


YES, SKIP 


AND STORAGES 




CHECK IF EXPONENT IS USED 


YES, USED 


B=1.G 


SKIP ON POSITIVE 
COMPLEMENT VALUE 


iQ^^l BASE ON EXPONENT VALUE 


B=B'»10.0 


CHECK IF EXPONENT VALUE IS NEGATIVE 



O 

N7000146 

r'l 

N7000147 


N7000148 


N7000149 

o 

N70D0151 


N7000152 

o 

N7000153 

N7000154 


N7000155 


N7000156 

o 

N7000157 

N70G0156 


N7000159 



o 

N7000161 


N7000162 

o 

N7000163 

N7000164 


N7000165 


N700Q166 

o 

N7000167 

N70Q0168 


N7000169 


N70G0170 

o 

N7000171 

N7000172 


N70QG173 


N700Q174 

o 

N7G00175 

N7000176 


N7000177 


N70Q0178 

o 

N7000179 

N70Q0180 


N70QQ181 


N7GQQ182 

o 

N7C00183 

N7000184 


N70G0185 

o 

N7000186 

N7000187 


N7000188 


N7CC0189 

o 

N700 019 0 

N7000191 


N7000193 

o 

N7000194 


O 


O 


o 


o 


LAZY2 


PAGE 


5 


date: 08/19/99 


0195 

P0078 

€0 00 


LDQ 

•=N$5B90 


P0079 

589D 



EXP 7 

0196 

PO 07A 

0121 


SAP 

0197 

PQ07B 

OOlO 


INQ 

$10 

0198 

P0 07C 

48 03 

EXP 7 ■ 

ST 07^ 

EXP8 

0199 

P0070 

5800 X 


RTJ 

DFLOT 


P0 07E 

0Q 6E X 




020 0’ 

P007F 

00 0 0 

EXP 8 

NUM 

0. 

02 G1 

P0Q80 

7FD2 


ADC 

A-^ 

020 2 

pooai 

7FDA 


ADC 

8-’s‘ 

0 20 3 

P0082 

7FO0 


ADC 

A-*^ 

0204 

P0083 

AOOD 


NUM 

$4000 


020 6 





0207 




SAVE 

0208 





0209 

P0084 

DC03 , DONE 

ENQ 

3 

0210 

P00 85 

CE03 

LDA-^ 

(CALPAR),Q 

0211 

P0 08& 

09FD 

INA 

-2 

0212 

P0087 

0136 

SAM 

02 

0213 

P0088 

5800 X 

RTU 

DFLOT 


P0089 

007E X 



021 4 

P0D8A 

5B70 

NUM 

$5B7D 

0215 

PO 08 8 

7FC7 

ADC- 

A-s 

0216 

PG08C 

7FC6 

ADC 

A-s^ 

0217 

P0Q6D 

4000 

NUM 

$4000 

0218 

P008E 

0C12 D2 

ENQ 

18 

0219 

P008F 

C8C3 

LOA» 

A 

022 0' 

P0090 

6EC8 

STA'* 

(CALPAR? ,Q 

0221 

P0091 

a-Dol 

INQ 

1 

0222 

P0092 

08C1 

LDA-*^ 

A-%1 

0 22 3= 

P0093 

6EC5 

STA^ 

(CALPAR) ,Q 

0 22,4 

PG094 

QDQl 

INQ 

1 

0225 

P0095 

C8BF 

LDA^ 

A+2 

0226- 

P0096 

6EC2 

STA» 

(CALPAR),Q . 

0227 

P0097 

E8C2 

LOQ» 

QSAVE 

0228 

P0098 

1C 0 0 

JMP 

(LAZY2) 


P0099 

FF66 



0229 


3J1 



0230 




10»'»1 

0231 





0232 

P009A 

' 520D DNOlO ■■ 

•NUM 

S52DO,$210B, 


P00 98- 

21 DB 




P0D9C' 

■AO 0 0 




P009D^ 

514A 




P0 09E 

•817C 




P009F 

«G0 0 




POOAO 

4F 77 




POOAI 

-35 94 ■■ 




PGQA2 

0000 



0 233- 

POO A3 

4DDF 

NUM 

$'4ODF,$5E10 , 


PO0A4 

5E10 




YES, SKIP 

SKIP ON POSITIVE EXPONENT 
(MODE, LOAD, DIVIDE, STORE) 


A=A«^8 or A=A/B 


VALUE BEFORE RETURN 

CHECK IF NEGATIVE SIGN 'DEFINED 
NO, SKIP 

CONVERT VALUE TO NEGATIVE 
A=-A 

MOVE VALUE TO CALLER BUFFER 


, RESTORE Q-REGISTER 
' ■ RETURN 

1 THROUGH lO^^iQ) 

f AOOO,$51AA,$817C,$8OO-0,$4F77,$3 59A,SOOSO 


$00 3 0, SlCaC, $4840 ,$0 0 0 0 ,$ VA7A ,$1200 , $0000 


N70 

00195 

N70 

00 

196 

N7Q 

00 

197 

N70Q0 

198 

N7 0 

00 

199 

N70 

00 

20 0 

N70 

QQ 

201 

N7Q 

00 

202 

N7000 

203 

N7C 

00 

204 


N70Q 

0 

206 

N70Q 

0 

207 

N700 

0 

208 

N700 

0 

20 9 

N700 

0 

210 

N700 

0 

211 

N700 

0 

212 

N700 

0213 

N7Q0 

0 

214 

N700 

0 

215 

N7G0 

0 

216 

N700 

0 

217 

N7GQ 

0 

218 

N700 

0219 

N70Q 

0 

220 

N7 00 

0 

221 

N700 

0 

222 

N70Q 

Q 

223 

N7Q0 

0 

22 4 

N700 

0 

22 5 

N700 

0 

226 

N700 

0 

227 

N700 

0 

228 

N70Q 

D 

229 

N700 

0 

230 

N700 

0 

231 

N70Q 

0 

232 


N7CQ0233 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Q234 


0235 


0236 
0 23 7 


0239 

0240 

0241 

0242 

0243 

0244 


PGH = 


LAZY 2 


P0QA5 

0000 


P0QA6 

4C4C 


P00A7 

4B4D 


P00A8 

0 00 0 


P00A9 

4A7A 


POOAA 

1200 


P00A6 

0 0 0 0 


POOAC 

48E1 


POOAD 

A80D 


POQAE 

00 00 


POOAF 

47 4E 


POOBO 

2000 


PflOBl 

QQOO 


P00B2 

457D 


P0QB3 

00 00 


P00B4 

00 QO 


POOB 5 

43E4 


P00B6 

0000 


P0GS7 

0000 


P00B8 

42 50 


PQ0B9 

OGOO 


POOBA 

0 0 0.0 


POOB8 

40 CO 


POOBC 

GOOD 


POOBO 

0 00 0 



00B8 

P 


0 0 8B 

P 


PAGE 6 DATES 08/19/99 


NUM $48E1,SA80Q-,$OGOO,$474E,$20 00 ,$00 0 0,$45 7D,$GOCO,$00 00 N7 0Q0 234 


NUM $43E4,S0 00 Q,$00G0f $4250 t $00 00 ,$00 0 0-,$40 CO ,$0 00 0 , $00 0 0 N7O0Q23 5 


EQU TEf?lONO10a-301 
EQU ONE?ONO10*-335 


N700Q236 

N700G237 



» 

00 Ol'- P 

EQU 

0PO1T»/96T 


0Q02 P 

EQU 

OP02r DPO liH) 


OOCO P 

EQU 

DP03( DP02»961 

POO'B'E 

GQ 02 

BSS 

END 

(0PO3-»1 

OOCO' 

( 192.1 

GOM = ^ 

OOflG f 01 DAT - 0000 C 


N700Q239 
N70D0240 
N70Q0241 
N7Q00242 
N7000243 
N700 0244 


o 

LAZY? 

PAGE 7 


OATE^ 08/19/99 

K-.-' 

EQUIVAL ENCES 





O : 

OEF.LINE NAME VALUE 


REFERENCED AT 

LINE 

NUMBER 

O 

0000 I OOFF 

0042 LPHSK 0002 

(000255) 

(000002) 

0 056 

0053, 0090, 

0130 


o 







^ o 
o 
o 

I 

o 

o 

o 

o 

I 

o 
o 
^ o 
o 

o 


o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LAZY2 


PAGE 


DATEt 08/19-/99 


; Y M B 0 

L S 

OEF.LINE 

NAME 

003 6 

LAZY2 

0054 

PI 

0061 

INTI 

0 065 

INT3 

0 081 

INGl 

008 4 

ING6 

0093 

INDGK 

010 7 

DIG 

0112 

FRACTN 

0123 

■ FRO 

0124 

FRl 

0133 

- FR\? 

0147 

NOEXTY 

0152 

■ ZERO 

0153 ■ 

A 

0154 

8 

0155 

■ CALPAR 

0156 

' QSAVE 

0157 

K 

0158 

J 

0159 

INDEX 

0167 

EXPCHK 

0172 

EXi 

0 180 

EXP3 

0194 

EXP5 

0198 

■EXP7 

0 200 ' 

'EXP8 

0209 

DONE 

0218 

•02 

0232 

ONOlO 

0236 

FEN 

0237 

ONE 

0 240 

0PO1 

0 241 

DP02 

0 2 42 

0PQ3 


ADDRESS 

ODDO 
000 6 
OOOB 
OOQF 

0015 

0016 
0020 
002F 
0030 
003 4 
0035 
003F 
004D 
0050 
0053 
00 5 6 
0059 
005A 
fl05B 
0D5C 
0050 
G05E 
00 63 
006B 
G077 
007C 
007F 
0084 

•008E 
Q 0 9 A 
QOB'8 
0 8BB 

- oaoi 
00 0 2 
OOCO 


REFERENCED AT LINE NUMBER 

0036, 0050^ 0052, 0055, 0228 
0 0 51 
0064 
0 0 62 
0071 
- 0106 
0087 

0091, 0096, 0131, 0136 

0072, 0105 

0114 

0149 

0127 

0145 

0099^ oiool 0139, 0140, 0201, 0203, 0215, 0216, 0219, 0222, 0225 

0174, 0176, 0177, 0185, 0187, 0202 

0054, DG86, 0113, 0126, 0168, 0210, 0220, 0223, 0226 
0049, 0227 

liik 01.2, 01.4, oieo. ois 9 

0067, 0129, 0148, 0172, 0194 
0115, 0146 
0 170 

0178, 0191 
0181 
0196 
0198 
0171 
0 212 

. 0097, 0137, 0236, 0237 
. 0186 
0173 
0241 
0 2 42 
0 2 43 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LAZY2 
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DATES 0 8/19/99 



o 

EXTERNALS 

o 


DEF.LINE ■ NAME 

O " 0039 DFLOT 

0039 OFLT 


VALUE 

0089 

0D3E 


O 


o 

o 


o 

o 

o 



RE-FERENCED AT LINE NUMBER 

0 094, 0134, 0183, 0199, 0313 
0092, 0132 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 


o 

o 

o 

o 

o 

o 


o 




BATES 08/19/99 


D 

O 

O 



A 0153 

DPQl 0 24-0^ 

FRO- 0123 

INfi 0061 

QSAVE 015 6 


B 0154 
DP02 0241 
FRl ■ 0124 
INf3 0065 
TEN 0236 


CALPAR 0155 
DP03 0242 
FRACfN 0112 
Jl 0158 

ZERO Q152 


DIO 0107 
EXi 0172 
FRV 0133 
K 0157 


B2 0218 

EXP3 0180 

I .. 000 0 

LAZY2 0036 


o 

o 

o 

o 

o 

o 


o 


o 

o 

o 


o 

o 

o 


DFLOT 
EXP5 
INDEX 
LPMSK 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 









o 

□ 

o 

0 03-9 

DFLT 

0039 

DNOlO 

0 232 

DONE 

0209 

019 4 

EXP7 

0198 

EXP 8 

0200 

EXPCHK 

0167 

0159 

INDGK 

0093 

INGl 

0 081 

ING6 

0084 


0042 

NOEXTY 

0147 

ONE 

0237 

Pi 

0054 

o 


OODFLf 


PAGE 


1 


OATE;S 08/1^/99 


0001 
0002 
0003 
00 0 4 

000 6 
00 07 
0008 

000 9 
9010 
0011 
0012 
0013 

0015 

0016 

001 7 
0018 
0019 

0021 

0022 

0024 

0025 


00 26 
0027 


0028 


0030 

0031 

0032 


0034 
003 5 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 





NAM 

ODDFLT 

OECK-IO N71 MSOS 5-. 0 

SUMMARY- 

110N71000Q1 




MASS 

STORAGE OPERATING SYSTEM, VERSION 5.0 


N7100a02 




SMALL SyST'EMS DIVISION, LA JOLLA, CALIFORNIA 


N7100003 



IF- 

COPYRIGHT CONTROL DATA CORPORATION 1976 


N7100004 





THIS ROUTINE RUN ANYWHERE/NON- RETRANCE 


N7100006 






"DUMHr* BUFFER IS SET UP FOR MIN. CHANGE 

N71000D7 








N7100006 





DEBUG RUNS ON THE LOWER 32K, THEREFORE 

N710Q009 





NO 65 K ADDRESSING IS NEEDED 


N7100010 








N7100011 




SPECIAL ARRANGEMENT DOES NOT USE LOW 

CORE 

N7100012 








N7100013 





E N 

TRY NAMES 


N7100015 




ENT 

DFIX 



N7100016 




ENT 

BELT 



N7100Q17 




ENT 

AVOLA 



N710GQ18 




ENT 

AVOLR 



N7100Q19 



SF- 


E X 

T E R N A L S 


N7100Q21 




EXT=» 

DFLOf 



N7100022 






QU” TABLE 


N7100024 


0 0 29 
0 0 2A 


FQU 

CELLE 141) , 

CELil (42) ,QSI25) 


N71D0Q25 


SD19 

0028 


EQU 

CELLO 143) 



N71Q0Q26 


0 003 


EQU 

GC3), SIGN {6), ERRORS (7) 


N710fl027 


0 0 0 6 
0 0 07 
0 0 22 
0002 


EQU 

Z£R01$225 , 

LPMSK12) 



N718Q028 








N7100Q3G 






PROGRAM START 

N7100031 



atft 





N7100Q32 








N7100034 

poooa 

OBOG 

OFIX 

NOP 

0 ' 

ENTRY 


N7100 035 


00 00' 

P 

EQU 

Q6FXrOFIX) 



N71Q0036 

POOQl 

58 60 


RTJ’^ 

AVOLA 

GET BUFFER 


N7100037 

P0002 

4119 


STQ- 

QS,I 

SAVE Q-REG. 


N7100038 

P0G03 

GCFG 


LDA» 

(Q8FX) 



N71G0039 

P0004 

S122 


SAP 

KLG65K 



N7100Q4D 

P00G5 

88FA 


ADD^ 

Q8FX 



N7i00Q41 

P0006 

AO 11 


AND- 

LPMSK41 5 



N7ia0 0,42 

P0007 

0822 

KLG65K 

TRA 

Q 



N7100043 

P0008 

C622 

FX5 

LDA- 

{ZERO) ,Q 



N7100 044 

P0009 

612A 


STA- 

CELLltl 



N7100 045 


ODDFLT 


PAGE 


2 


DATES aa/19/99 


O 

o 

o 

cv 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


P 0 0 O A 
PO OOB 
POOOC 
POflOO 
POOOE 
POOOF 
POOIQ 
PQOll 
PD012 
P0013 
P0014 
P0015 

pooie 

P0017 

P0018 

PO D19 

POOIA 

P0D18 

PDOIC 

POOID 

PDQIE 

POOIF 

P0020 

P0021 

P0022 

P0023 

PDQ24 

PO 025 

P0026 

P0027 

POQ28 

P0029 

P002A 

PD02B 

P002C 

P0020 

PQ02E 


INQ 1 

LDA- -I ZERO'), a 
STA- CELL2,I 
RAQ^ QFIX 

FIX LDA- CELL1,I 
SAP FXl-»^-l 



TCA 

A 


LDQ- 

CELL2,I 


Tca 

Q 


STQ- 

CELL2, I 

FXl 

ENQ 

0 


LLS 

2 


SQN 

FX2-*-l 


ENA 

0 


JMP* 

FX4 

FX2 

END 

0 


• LLS 

3 


SQZ 

FX3-*-l 


LOA- 

LPHSK+15 


JMP* 

FX6 

FX3 

LDQ^ 

LLS 


LLS 

4 


STQ* 

SHIFT 


END 

0 


LLS 

7 


LDA- 

CELL2, I 


LRS 

7 

SHIFT 

LLS 

0 


TRQ 

A 

FX6 

LDQ- 

CELL1,I 


SQP 

FX4-*-l 


TCA 

A 

FX4 

Loa- 

QS,I 


STA- 

1,1' 


■RfJ* 

AVOLR 


JMP* 

{DFIX') 

LLS 

ADC 

$00FE 


SET EXIT 

COMPLEMENT A AND CELL2 

LESS THAN UNITY, ZERO TO A 

GREATER THAN 2»=*‘16-1, S7FFF TO A 
CONSTRUCT A SHIFT 

LOW-ORDER BITS COME FROM WORD2 

COUNT FROM EXPONENT LOW 4 BITS 
ANSWER TO ACC 

COMPLEMENT 

RELEASE BUFFER 
RETURN 


0084 


FIX TO FLOAT ‘ENTRY 


0086 

0087 

0088 
0089 
0 090 

0091 

0092 

0093 

0094 

0095 

0096 


P0 02F 

PC030 
POO 31 
P0032 
P0033 
P0D3 4 
P0035 
P0036 
PD037 


DFLT 

P 


FLO 


OBOO' 

QQ2F 

5831 

4119 

CCFC 

0122 

88FA 

AOll 

0822 

C622 


0^ ENTRY 

Q8FLOT (DFLT-) 

AVOLA GET Bl 

QS,I SAVE Q 

IQ8FLCT1 
FLO 


ADD* Q8FLOT 
AND- LPHSKs-15 


TRA Q 

LDA- IZEROTfQ 



o 


N7100046 
N7100047 
N7100048 
N7100 049 
N7100050 
N7100Q51 
N710D052 
N71Q0Q53 
N7100 054 
N7100 055 
N7100056 
N7100057 
N7100058 
N7100059 
N7ia0060 
N71Q0fl61 
N7100062 
N7100063 
N7100064 
N71Q0065 
N7100 066 
N71QQD67 
N7100068 
N7100 069 
N710007Q 
N7100Q71 
N7100G72 
N7100Q73 
N7100074 
PSR 903 N7100075 
N7100076 
N7100077 
N7100078 
N71D0079 
N7100080 
N7100081 
N7100Q82 


N71G0084 


N71Q0086 

N71Q0087 

N71Q0088 

N7100089 

N710009G 

N7100091 

N71flOQ92 

N7100093 

N7100094 

N7100095 

N7100D96 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0097 

009 8 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

010 6 
OIG 7 
0108 
0109 
QUO 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 


PD038 
P0039 
P003A 
P003B 
P0Q3G 
P0Q3D 
P003F 
PGQ3F 
P0040 
P0041 
P0042 
P0Q43 
P0 044 
P004S 
P0046 
P0047 
P0048 
P0 0 49 
P004A 
P0Q4B 
P0Q4C 
P0 04D 
■P0 0 4E 
P004F 
P005Q 
P0051 
P0052 
P0 05 3 
P0054 
P0055 
PO 856 
P0057 
P0058 
PO 059 
P005A 
PO 05B 
Pi0 0 5C 
P005D 
P0G5E 
P005F 
P0060 


ODOFLT 


612A 
08F5 
C12A 
Q121 
08 64 
0101 
1812 
6129 
612A 
C129 
OCQD 
0121 


PAGE 


date: 08/19/99 



STA- CELL1,I 
RAO» aBFLOT 

SKIP PARAMETER 

ADDRESS 

FLT 

LDA- CELL1,I 
SAP FLl-»-l 
TCA A 

COMPLEMENT 


FLl 

SAZ FLIO 
JMP^ FL3 

INPUT WAS ZERO 


FLIO 

STA- CELL2,I 


FL8 

STA- CELLltl 
LOA- CELL2 ,I 

GET FIRST 

WORD 


€NQ 

SAP 


013 7 

0138 

0139 

0140 

0141 


0143 

0144 P0Q61 

0145 P0C62 


OCFF • 


: END 

412B 

SETO '■ 

STQ- 

COFF 


LDA- 

0929 


INA 

6804 


STA^ 

5800 X 


RTJ 

7FFF X 



B400 


NUM 

0 029 

L0CEL2 

ADC 

E119 

FL2 

LDQ- 

5822 


RTJ» 

ICDF 


JMP» 

EOOO 

FL3 

LOQ 

0 08F 



OFCl 

FL4 

ALS 

0132 


SAM 

ODFE 


INQ 

18FC 


JMP» 

0FE7 ^ 

FL5 

LLS 

4129 


STQ- 

E12A 


LDQ- 

0 171 


SQM 

18F5 


JMP^ 

0864 

FL6 

TCA 

€129 


LOQ- 

0 8 52 


TCQ 

4129 


STQ- 

1 8EQ 


JMP» 

0000 

FLIXX 

NUM 





* 

THIS 


' 9 - 

ALL 01 



WHEN 


¥ 





0 000 

AVOLA 

G 

4815 


STQ^ 


0 

SETG 

- 0 . 

CELLO, I 
I 

CELL2 

L0CEL2 

OFLOT 

SB400 
CELL2 
QS,I 
A.VOLR 
IQSFLOr ) 
= N$8F 


FL5-»-l 

-1 

FL4 

7 

CELL2,I 

CELL1,I 

FL6-»-l 

FL8 

A 

CELL2,I 

Q 

CELL2,I 

FL8 

0 


SET THIRD WORD TO 0 IF FIRST IS + 


RELEASE BUFFER 
RETURN 

EXPONENT FOR 15-BIT INPUT 


MOST SIGNIFICANT TBITS IN Q 


COHPLEHENT A 
COMPLEMENT Q 


ROUTINE IS DESIGNED TO ALLOW SIMULATED WLATILE STORAGE 
lATION J TEMPORARY DATA STORAGE) USED BY SUBPROGRAM OFLOT 
RUNNING IN BACKGROUND MODE. 


0 

BUFAOD 


SIMULATED VOLATILE STORAGE ALLOCATION ROUTINE 


N71D0097 
N71Q0 098 
N7100G99 
N7100100 
N7100101 
N71001DZ 
N7100103 
N7100104 
N710010 5 
N7100106 
N71001D7 
N7100108 
N710Q1Q9 
N7100110 
N7100111 
N7100112 
N7100113 
N71Q0114 

N71Q0115 

N710Q116 

N7i00117 

N7100118 

N7100119 

N7100120 

N71B0121 
N7100122 
N7100123 
N7 10 0124 
N7100125 
N7100126 
N7100127 
N7100128 
N7100129 
N7100130 
N7100131 
N7180132 
N7100133 
N71QQ134 
N7100135 


N710Q137 
N7100138 
N710 0139 
N710014G 
N710ai41 


N7100143 

N71Q0144 

N7100145 


o 

o 

o 

o 

o 

o 

o 

o 

o 

■ o 

; O 

: o 

: O 

■ o 

: o 
o 

O 


ODOFLT 


DATE-: 08/19/99 


P0063 

PQ064 

P0065 

P0066 

P0Q67 

P0068 

P0069 

P006A 

PQ06B 

P006C 

P0060 

P006E 

P006F 

P0070 

P0071 

P0Q72 

P0073 

P0074 

PD075 

P0076 

P0077 

P0078 


5801 
OBOO 
E8FE 
8D14 
48FC 
EOFF 
4CFA 
E8F9 
40FF 
6101 
C8DA 
6102 
ICFl 
00 00 
EOFF 
C202 
6QFF 
C201 
E622 
1GF9 
0078 
0 0 2D 


SELF 


AVOLR 


BUFAOD 

BUF 


RTJ«^ 

NOP 

Loa-^ 

INQ 

STO^ 

LDQ- 

STQ» 

LOQ» 

STQ- 

STA- 

LDA=*^ 

STA- 

JMP» 

0 

LOQ- 
LOA- 
STA- 
■ LDA- 
tDQ- 
JMP» 
ADC 
BIS 


SELF 

0 

SELF 

8UF-SELF 

SELF 

I 

tSELFJ 

SELF 

I 

1,1 

BUFAOD 

2,1 

I AffOLAI 
0 
I 

2,0 

I 

1,0 

(ZERO),Q 

(AVOLRl 

BUF 

BUF (45) 


GENERATE BUFFER ADDRESS 


SAVE I-REG. 

SELF BUFFER ADDRESS TO I-REG^ 

SAVE Q-REG. 

RETURN TO GALLING PROGRAH^ 

STHULATEO VOLATILE STORAGE ALLOCATION^ROUTINE 
BEGINNING LOCATION OF SIM, VOLATILE STORAGE 

RESTORE THE I REGISTER 
RESTORE THE A REGISTER 
RESTORE THE Q REGISTER 
RETURN TO CALLING PROGRAM 


N71D0146 

N7100147 

N7100148 

N71D0149 

N7100150 

N710015I 

N7100152 

N7100153 

N7100154 

N7100155 

N7100156 

N71Q0157 

N71Q0158 

N7100159 

N71Q0160 

N710Q161 

N7100162 

N7100163 

N7100164 

N7100165 

N7100166 

N710Q167 


PO 0A5 


0 0 01 
0 0 02 ' 
OOCO 
0019 


DPOl (^/96) 
OPC2<DP01i-l) 
DP031 DP02^96) 
CDPQS-*^) 


N710Q169 

N7100170 

N7100171 

N7100172 

N7100173 

N71Q0174 


OOCO 


19 2) 


= 0000 ' { 


0000 c 


o 


o 









ODDFLT 


RAGE 5 


i-w'.' 

E Q U I V 

A L E N C 

E S 




o 








DEF.LINE 

NAME 

VALUE 


REFERENCED AT 

n 

0 0 00 

I 

OQFF 

(0002553 

0111, 

0151, 


0 025 

CELL2 

0029 

(0000413 

0 048, 

0053, 


0025 

CELLl 

Q02A 

10000423 

0 0 45, 

0 050, 


0025 

as 

0019 

10000253 

0038, 

0078, 

o 

0026 

CELLO 

002B 

1 0000433 

0110 



0027 

G 

0003 

(0000033 




0 027 

SIGN 

000 6 

(0000063 



o 

0 027 

ERRORS 

0Q07 

t 0000073 



0028 

ZFRO 

0022 

( 0000343 

0044, 

0 0 47-, 


00?8 

LPMSK 

000 2 

(0000023 

0042, 

0064, 


o 


DATES OB/19/99 


LINE NUMBER 
0154, 0160, 0162 

0055, 0071, 0104, 0106, 0112, 0116, 012b, 0131, 0133 
0075, 0097, 0099, 0105, 0127 
0090, 0117 


0096, 0164 
0094 


o 

o 

o 

o 

o 


o 


o 


o 


r 




o 


o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 


o 

o 


o 


o 


ODDFLT 


PAGE 


6 


DATE: 08/19/99 


o 


o 



S Y M B 0 

L S 

o 

DEF.LINE 

NAME 

o 

0016 . 

DFIX 


0017 

DFLT 


0 018 

AVOLA 

o 

0019 

AVOIR 

0036 ' 

Q8FX 


0 043 

KLG65K 


0 044 

FX5 


0050 

FIX 

O 

0 056 

FXl 


0 061 

FX2 


0066 

FX3 


0073 

SHIFT 


0 075 

FX6 


0078 

FX4 


0 0.82 

LLS 

o 

0088 

D8FL0T 

0095 

FLO 


0 099 

FLT 


0102 

FLl 

o 

0104 

FLIO 

Q1Q5 

FL8 


0 110 

SETO 


0116 

L0CEL2 

o 

0117 

FL2 

0120 

FL3 


0121 

FLA 


0125 

FL5 

o 

0 130 

FL6 

0135 

FLIXX 


0147 

SELF 


0166 

BUFAOD 

o 

016 7 

BLIF 

0 170 

OPOl 


0171 

DP02 


0 172 

OPO 3 


o 


ADDRESS 


0000 
002F 
0061 
00 70 
0000 

00 0 7 
000 8 
OOOE 

001 A 
0019 
OOIE 

002 5 
0027 
002A 
Q02E 


002F 
0036 
003A 
003D 
0 03F 
0040 
0045 
0G4C 


004D 

0050 

0052 

0056 

005B 

0060 


00 64 
007 7 
0078 
0 001 
00 02 


QOCD 


REFERENCED AT LINE NUMBER 


0016, 

0036, 

■0049, 

00 81 

0017, 

0 088 


0158 

0018, 

0037, 

0089, 

0019, 

0080 , 

0118, 

0165 

0039, 
0 0 40 

0041 



•0 0 51 
S058 
0 0 63 
0068 
0065 




3 0 6 0, 
0066 
0091 , 

0 076 



0093, 

0098, 

0119 

0092 

0100 

0102 

0129, 

0108 

0113 

013 4 




■ 0103 

■ 0124 


0122 


0128 


0146, 0148, 0149, 0150, 
0145, 0156 
0149, 0166 
0 171 
0172 


0173 


015 2 , 


0153 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

1 o 


o 

o 

o 

o 


o 

ODDFLT 

PAGE 7 

DATES 08/19/99 

o 

EX TERNALS 



o 

DEF.LINE NAME VALUE 

REFERENCED 

AT LINE NUMBER 

o 

0022 OFLOT 004A 

3114 


o 





o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


u 


ODDFLT 


PAGE 


8 


DATEi 08/19/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y H B 

0 L S 

v-v-v- 


AVOLA 

DFLT 

FLIXX 

FX2 

L0GEL2 

ZERO 

0018 
0017 
013 5 
0 061 
0116 
0028 

AVOLR 
DPOl ■ 
FL2 
FX3 
LPMSK 

0 019 
■ 0 170 
Oil 7 
0066 
C 026 

3UF 
•DP0 2 
F13 
FX4 

Q8FL0T 

0167 

Q171 

0120 

0078 

0088 

BUFAOD 

0P03 

FLA 

FX5 

08FX 

0166 

0172 

0121 

0044 

0036 

cello 

ERRORS 

FL5 

FX6 

as 

0026 

0027 

0125 

0075 

0025 


o 

o 

! 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


CELLl 

0025 

CELL2 

0025 

DFIX 

0016 

OFLOT 

0022 

o 

FIX 

0050 

FLO 

0 0 95 

FLl 

G1D2 

FLIO 

0104 

FL6 

0 130 

FL8 

0105 

FLT 

0099 

FXi 

0056 


G 

0027 

I 

00 00 

KLG65K 

0043 

LLS 

0082 


SELF 

0147 

SEfO 

0110 

SHIFT 

0 07 3 

SIGN 

0 0 27 

o o o c 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 


ARY-11DN7200001 

N720a002 

N72QQ003 

N720000H 


N7200 006 


N72Q0006 

N7200009 

N7200010 

N7200011 

N7208013 
N720 0014 
N720G015 
N72QB016 


N72QQQ18 

N720Q 019 

N7200020 

N7201j02l 

N7200Q22 

N720Q023 

N720D024 

N7200Q25 

N7200026 

N720e027 

N7200028 

N7Z00029 

N720OO3O 

N7200031 

N7280032 

N7200033 

N7200034 

N7200Q35 

H7200036 

N7200037 

N7200038 

N720Q039 

N7200040 

M720C042 

N7200043 


N720D045 
N7200046 
Nf 200047 

N720QQ49 


O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 




ODDFTM 


'O 

0050 

■ 0 0 03 

■ 0 0 06 
0 0 07 

EQU 

o • 

0051 

00 08 
■ ■ OOOB 

EQU 



OOOC 



0052 

QOGD 

EQU 

o ■ 

005 3 

oaoE 

OOOF 

0010 

0011 

EQU 

o 

005-4 

0012 

0013 

0014 

0015 

EQU 

o 

0055 

0 016 

EQU 

-0017 
■ ,0 018 





0056 

0019 

EQU 



OOIA 


CJ 

0057 

0 0 IB 
OOlC 
OOID 

EQU 

o 

0058 

OOIE 
flOlF 
0 0 02 
0012 

EQU 

o 


0 0 22 
0 0 23 
0 0 33 


o 

0050 




0051 



o 

0062 




o 

o 

o 

o 


00&-4, 

POGGO OOO0'- 


OFLOT 

0 

0065 

PQOGl 5800 

X 


RTJ 


P0Q02 7FFF 

X 


STQ- 

0066 

006‘7 

P0003 4119 



GL'P 

QQ&a 

POO 0 4:- 0 8 44 



0 0 6-9 

PO0G5''6115 



STA- 

00 70 

P00D6'" QAFE 



EHA 

007-1 

P0007- 6117 


• 

STA- 

0072 

P0Q08 ' OABO 

1 


ENA 

0 0 73 

P0009 '611F 



STA- 

0074 

POflOA G8F5 



LOA^ 

0075 

POOOB-6114 


STOREP 

STA- 

0076 

POOOC 0844 


INTERP 

GER 

0077 

POOOO 6116 



STA- 


PAGE 2 DATE4 Q8/19/99 

Gt3) ,SIGN16) , ERRORS 17) 

FC6),Aill) ,AI (12) 

9U3) ,8ETA(14) ,CI15) 

CI(1&),D.T17) ,DELTAI18) 

SHIFCf ! 19) ,PI20) tRELADR (21) 

0PGNTI22) , IHDEX^23) ,0PC0DE(24) 

QS’125) , TEMPQC26) ,TEMGP2 (27) 

Tl( 28 ) ,T2(29) ,T3 (30 ) , MULDIV (31) 

LPMSK12) ,NZER0($i2) , ZERO ( $22) , ONE BIT ( $23 ) ,ZR0BITf$33) 


»»»»» 


P R O' G R A H 


STAR T 




0 

A VO LA 
OS, I 
A 

RELADR, I 


-1 

INOEX 

0 

HOLD I 
DFLOT 
P.I 


V, I 


A 

OPCNf ♦! 


ENTRY 

TO GET SUFFER 
SAVE Q 

CLR RELADR 


CLEAR ' ‘ 

MULT I PLY/ DIVIDE FLAG- 
SAVE RETURN' ADDRESS 
INTERPRETIVE LIST 


N720005Q 

N7200051 

N7200052 

N7200053 

N7200054 

N7200055 

N72QQ056 

N72QG057 

N72Q0Q58 


N7200Q60 
N7200061 
N72fl0 062 


N72B0064 

N72a0065 

N7200066 

N720afi67 

N720fl068 

N720GQ69 

N720a070 

N7208Q7i 

N7200072 

N72G0073 

N7200074 

N72D0075 

N7200076 

N7200077 


o 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


N7200 078 
N7200079 
N7200080 
N7200081 
N7200082 
N7200083 
N7200084 
N7200Q85 
N7200086 
N7200 087 
N7200086 
N7200089 
N720009Q 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


ODDFTN 


DATES 0 8/19/99 


LDA- 

POQQE E114 LDQ- 

PDOOF C622 LDA- 

POOiO 6118 STA- 

PGOil D114 ■ 

Pa012 1807 - JHP* 

P0Q13 C116 NXTOPC' LOA- 

P0 014 0-9 FC TNA 

POfliS 0131 SAM 

P0016 18F5 JMP* 

P0017 0904 A1 INA 

P0D18 6116 STA- 


IPJ »I 
P»I 

(ZERO) , Q 
OPCODE, I 
P,I 

DECODE 


GET OPCODE 
GET OPCODE 
PLACE IN A 


FROM VOLATILE STORAGE 
REGISTER 


OPCNT 


INTER? 


OPCNT, I 

-3 

Al-S^r 1 
INTERP 

3+1 OTHERWISE 
nPCNT . I 


NEXT 

OPCNT 


OPERATION 
.GE. 3 GO 


INCREMENT OPCNT 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


i 


o 


OODFTN 


PAGE 


0092 

0093 

P0019 

C118 

DECODE 

LDA- 

OPCODE, I 

009 4 

POOIA 

0 8 42 


CLR 

Q 

Q095 

POOIB 

0FE4 


LLS 

4 

0096 

POOIC 

6118 


STA- 

OPCODE, I 

0097 

0098 

PODID 

EA02 

EXECUTE LDQ^ 

FLINS,Q 

0099 

PDfllE 

lA 01 


JMP» 

FLINS.Q 

010 0 

POOIF 

Q0 5F 

FLINS 

ADC 

FENO-FLINS 

010 1 

P0020 

00 60 


ADC 

FLIT-FLINS 

0102, 

PQ021 

0060 


ADC 

FLIT-FLINS 

0103 

P0G22 

00 60 


ADC 

FLIT-FLINS 

0104 

P0023 

0 0 5F 


ADC 

FEND-FLINS 

QID 5 

P0024 

0010 


ADC 

CHMQ-FLINS 

010 6 

P0Q25 

0016 


ADC 

NIOX-FLINS 

0107 

PQ026 

■0 0 8C 


ADC 

FCOM-FLINS 

0108 

P0027 

0229 


AOC 

OFSUB-FLINS 

0109 

P0028 

OOAE 


ADC 

DFMPY-FLINS 

0110 

PQ029 

Q15B 


ADC 

OFDII/-FLINS 

0111 

P002A 

OOIF 


AOC 

3FLD0-FLINS 

0112 

P0 02B 

0060 


AOC 

FLIT-FLINS 

0113 

PO 02C 

0 0 56 


ADC 

DFLST-FLINS 

0114 

P002D 

0233 


ADC 

oFaoo-flins 

0115 

P002E 

0018 


AOC 

inox-flins 


4 date: 08/19/99 


DECODE NEXT OPCODE 


EXECUTE NEXT OPERATION 
GET PROCESSOR ADO. ACCORDINGLY 

Q-END OF SEQUENCE 
1=FIN RETURN TO USER 
2^FIN RETURN TO USER 
3=FIN RETURN TO USER 
4=END OF SEQUENCE 
5=CHANGE»MO'D£ ABS. OR REL. 

6- NO INDEX 
7=GOMPLEHENT 
3=SU8TRACT 
9= MULTIPLY 
10= 01 VIDE , 
ll=LOAO ACCUMULATOR 
12=FIN RETURN TO USER 
-13=ST0RE ACCUMULATOR 
14=ADO 
15=IND£X 


N7200092 
N720Q093 
N7200094 
N7200095 
N7200096 
N7200097 
N7200098 
N72Q0099 
N72001QO 
N720Q101 
N72001D2 
N7200103 
N72001D4 
N720 010'5 
N720D106 
N72D01Q7 
N720010B 
M7200109 
N7200110 
N72Q0111 
N7200112 
N720flll3 
N7200114 
N720011 5 


0117 

0118 
0119 



'*■ 

‘ C 

0120 

P002F 

C115 

CHMO 

LOA- RELAOR, I 

0121 

P0030 

0842 


CL'R Q 

0122 

P0 031 

0111 


SAN A2-»-l 

0123 

P0032 

OCOl 


ENQ 1 

0124 

P0033 

4115 

A2 

STQ- RELAOR,! 

0125 

0126 

P0Q34 

18 D£ 


JMP-» NXrOPC 

NO INDEX 

0127 

PQ035 

OAFE 

NIBX 

ENA -1 

0128 

0129 

P0036 

1806 


UMP» STONOX 

0130 

Pfl 037 

OAFE 

INDX 

ENA -1 , 

0131 

P0038 

6117 


STA- INDEX,! 

0132 

P0039 

587A 


RTJ* OPERND 

0133 

P003A 

C201 


LDA- 1,Q 

0134 

P005B 

0 9FE 


INA -1 

0135 

P0G3C 

6117 

’ STON0X 

STA- INDEX, I 

0136 

P003D 

18D5 


JMF» NXTOPC 


H A N G £ 


MODE 


ABSOLUTE/RELATIVE SWITCH 

IF RELAOR=B,SET 


TO 1. OTHERWISE 


OPERATION CODE 


RESET INDEX 


INDEX. 

BEFORE CALLING OPERND 


OPERNO TO 


INDEX 

OPERAND 


TO INDEX 


N720flll7 
N7200118 
N7200119 
N72Q012D 
N720fll21 
N7200122 
N7200123 
N720 012 4 
N72Q012 5 
N72fl0126 
N72QG127 
N72Q 0128 
N7200129 
N72Q0130 
N7200131 
N7200132 
N7200133 
N72Q0134 
N7200135 
N7200136 


ODDFTN 


DATE-; 08/19/99 




P003E 
P003F 
POO 40 
P0041 
P004? 
P0043 
P0Q44 
PQ045 


5875 
C2 03 
6105 
C2D2 
6104 
C201 
0900 
6103 


DFLD0 


P0046 OCOl' 
P0047 0121 
P0048 OCFE 
P0049 4106 


P004A 

PQQ4B' 

P0D4C- 

P0040 

P004E 

PG04F 

P005Q 

PG051 

P0052 

P0053 

P0054 

P0055 

PQ056 

P0057 

P0058 

P0059 

P005A 

PO 05B 

P005C 

P005D 

P005E 

P005F 

P0060 

P0061 

P0062 

P0063 

P0Q64 

P0065 

P0066 

P0067 

P0Q68 


El 05 
411B 
El 04 
411A 
0127 
0364 
EllB 
8 8 52 
4118 
EllA 
0 8 52 
411A 
610F 
0111 
1-815 
DFCl 
BD32 
OF 48 
0900 
6112 
Cl OF 
EllA 
0FE8 
AOll 
610F 
C118 
EllA 
0FF7 
AOll 
6110 
OFEF 


RTJ» 

LDA- 

STA- 

LDA- 

STA- 

LDA- 

INA 

STA- 


STEP2B 


LDQ- 

STQ- 

LOQ- 

STQ- 

SAP 

TCA 

LDQ- 

TCQ 

STQ- 

LDQ- 

TCQ 

STQ- 

STA- 

SAN 

ALS 

EOR- 

ARS 

INA 

STA- 

LDA- 

tOQ- 

LLS 

AND- 

STA- 

LBA- 

LDQ- 

LLS 

ANO- 

STA- 

LLS 


OPERND 
3,D ^ 

2,Q 

G+1»I 

ELIMINATE MINUS ZERO 
G,I OPERAND TO G 

load operand into G. nciTA 

UNPACK OPERAND INTO C» CI» 0» AND DELTA. 
SAVE SIGN IN SIGN. 

1 

-1 

UNPACK FROM G INTO C, Cl, D, AND DELTA 

TEMGP2,I G+2 

G+1,I ^ , 

TEMPO, I G+1 

C iTC PP «_ » - 1 

A COMPLEMENT G 

TEHGP2, I 

TEMGP2,I COMPLEMENT G+2 

TEMPO, I 

TEMPO, I COMPLEMENT G+1 

C,I 

A4-»“l 

ARGO 

ONEBIT+15 S8000 

8 
0 

' DELTA, I 

• C,I 

• TEMPO, I 

Q 

■ LPMSK*! 5 $7FFF 

• C,I 

• TEMGP2, T 

• TEMPO, I 

23 

• LPMSK+l 5 

• Cl, I 
15 


S8000 


$7FFF 


$7FFF 


N7200139 

N7200140 

N7200141 

N7200142 

N7200143 

N7200144 

N72DD145 

N7200146 

N7200147 

N7200148 

N7200149 

N72OO150 

N7200151 

N72Q0152 

N7200153 

N720015-4 

N720Q155 

N7200156 

N7200157 

N7200158 

N7200159 

N720016G 

N7200161 

N720Q162 

N7200163 

N7200164 

N720016 5 

N7200166 

N720Q167 

N7200166 

N7200169 

N7200170 

N7200171 

N7200172 

N7200173 

N7200174 

N7200175 

N7200176 

N7200177 

N7200178 

N7200179 

N72Q0180 

N7200181 

N7200182 

M7200183 

N7200184 

N7200185 

N7200186 

N7200187 

N72DQ188 


o 

n 

L**.*«J 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


ODDFTN 


PAGE 


6 


OATEJ 08/19/99 


O 

O 

O 

O 

O 

o 


0189 PG069 A803 

0190 P006A 6111' 

0191 P0G6B 18A7 

0192 P0Q6G 7FC0 

0193 P006D 08 44 

0194 P006E' 61 OF 

0195 P006F 6110 

0196 PCD70 6111 

0197 P0Q71 6112 

0198 PQ072 OAOl 

0199 P0073 6106 

0200 P0074 189E 


H7FC0 
ARGO ■ 


AND^ H7FC0 
STA- 0,1 
JMP» NXTOPC 
NUM $7FC0 
CL'R A 
STA- C,I 
STA- Cl, I 
STA- 0,1 
STA- DELTA, I 
ENA 1 
STA- SIGN, I 


JMP^ NXTOPC 


ARGUMENT IS ZERO. 


o 

o 


o 


o 

o 


o 


o 


o 

o 


o 


N72D0189 
N7200190 
N7200191 
N7200192 
N7200193 
N7200194 
N7200195 
N720 0196 
N72S0197 
N7200198 
N7200199 
N720Q200 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


ODQFTN 
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DATES 08/19/99 




STORE 


P0075 
P0076 
P0077 
P0078 
PC079 
P007A 
P0078 
P007C 
P007D 
P0D7P 
P007F 
P0080 
P0081 
P0082 
PQ083 
P008A 
P0085 
PO 086 
P0087 

P0 088 

P0089 

P0D8A. 

P008B 

PG08C 

P0 0 6D 

P008E 

Pfl,08F 

PQ090 

PG091 

P0092 ' 

■ P0093 
P0 09 A 
P0095 
P0096 
P0097 ' 
P0098 
P0099 
P0D9A 
PG 098 
P009C 
P009D 
P0.09E 
P009F 
PGOAO 
POOAl 
P00A2 


5811 
583D 
C103 
6201 
CiOA 
6202 
C105 
6203 
1895 
5 8 G8 
E119 
CllA 
6304 
58C0 
7FFF 
ICOl 
0000 
0000 
ElOF 

01 54 

4103 
■ ■4104 

4105 

181D 

Clio 
DFCl 
OF El 

AOie 

6104 
C112 
AOOA 
B 0 2A 
8104 
OFET 
' 6103 

4104 
'Elio 

cm 

OFCl 

0FE9 

4105 
E106 
01 69 
C103 
03 64 
6103 


DFLST 


ANXI 

FEND 

FLIT 


DFEXIT 
FLTSf 0 


FLSTl 


RTJ» FLTSTO 
RTJ» OPERNO 
IDA- G,I 
STA- 1,Q 
LDA- GH-l,! 

STA- 2»Q 
LDA- G»-2,I 
STA- 3,,Q 
JMP* NXfOPC 
■RTJ* FLTSTO 
LDO- QS,I 
LDA- P,I 
STA^ OFEXIT 
RTJ AVOLR 

JMP» COFEXIT) ' 

HUM 0 
0 0 
LDQ” C,I 

IF C IS ZERO- 
SQN FLSTl -s^-l 
SIQ- G,I 
STQ- GsH,I 
STQ- G+2,T 
■JMP» FLSTA 
•LOA- Cl, I 
ALS 1 
LIS 1 

AND- LPHSK»2 5 
ST A— G'^l , I 
LOA- DELTA, I 
AND- LPMSKs-8 


GET ADDRESS OF OPERAND 


REPACK ACCUMULATOR BEFORE 

RESTORE Q 

GET RETURN ADDRESS 


RETURN TO USER 


THEN ACCUMULATOR 


ZERO 


EOR- 
ADD- 
. LLS 
STA- 
■ STQ- 
LDQ- 
LDA- 
ALS 
LLS 
STO- 
LDQ- 
SQP ■ 
LQA- 
TCA 
STA- 


0NE3IT»-7 
G>H, I 
7 

G,I 
Gf^"! , I 
Cl, I 
D,I 
1 
9 

G*-2 , 1 
SIGN.,1 
FLSTA-*-! 
G , I 
A 

G,I 


SFEOO 


SOOFF 

$0080 


SIGN 


NEG. 


n 


N7200203 
N7200204 
N7200205 
N7200206 
N72D0207 
N720Q208 
N72GG209 
N7200210 
N7200211 
N7200212 
N72Q0213 
N7200214 
N720G215 
N72Q0 216 
N7200217 
N720Q218 
N7ZD0219 

N72Q0 22Q 

N7200221 

N720B222 

N7200223 

N7200224 

N7200225 

N720 0 22 6 

N7200227 

N7200228 

N7200229 

N72B0230 

N7200231 

N7200232 

N7200233 

N7200234 

N7200235 

N7200236 

N7200237 

N72G0238 

N7200239 

N720024D 

N7200241 

N720Q242 

N7200243 

N7200244 

N7200245 

N720G246 

N729G247 

N7200248 

N7290249 

N7200250 

N720Q251 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


I 


ODDFTN 
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8 


dates 08/19/99 


o 


G 

O 

O 


0252 

0253 
025A 

0255 

0256 
025 7 

0258 

0259 


P00A3 

PG0A4 

P00A5 

P00A.6 

P00A7 

P00A8 

POOA9 

POOAA 


C1D4 
0 8 69 

6104 
C105 
0 8 64 

6105 
0 BOG 
ICDB 


FLSTA 


LDA- GiH,I 
TCA A 
ST A- G5H,I 
LDA- G+2,I 
TCA A 
STA- GH-2,1 
NOP 0 

JMP» {FLTSTOJ 


COMPLEMENT G. 


REMOVE FOREGROUNDS^’?- 
EXIT FROM REPACK OF ACCUMULATOR 



o 
o 
o 
I o 
o 
o 

I 

o 
o 
o 
o 
o 

o 


I 


o 


N7200252 

N72G0253 

N7200254 

N7200255 O 

N7200256 

N72QD257 

N720Q 258 

N7200259 Q 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


ODDFTN 


PAGE 


date-. 08/19/99 


0262 

0263 

0264 

0265 

0266 
0267 
026 8 

02 6.9 
027:0 
0 271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 
0280- 
0281 
0282 

0283 

0284 

0285 

0286 

028 7 
0288 

0289 

0290 
0 291 
8292 

0293 

0294 

0295 

029 6 

0297 

0298 

0299 
0300' 
0301' 

0302 

0303 
0 304 
fl30’6 

03 0 6 
0307 


POOAB 
POOAC 
POOAD 
PQOAE 
POOAF 
POOBO 
POOBt 
P0 0B2 


ClOF 
■0111 
18BF 
08 04 
8106 
‘6106 
18CB 
00 00 


P00B3- 

P00B4- 

P00B5 

POOB6 

PO0B7 

P0QB8 

P00B9 

PO DBA 

POOBB 

POOBC 

POOBO 

POOBE 

POOBF 

POQCO 

POOCl 

POOC2 

PO 0C3 


Q900 
E114 
C'EFC 
6106 
C115 
0106 
Cl 0 8 
OF Cl 
OF 41 
6108 
F108 
160? 
€1 08 
,F117 
•D114 
■ICFO 
OOGO 


PO 0C4. 

POOC5 

P00C6' 

PG0C7 

P00C8 

POOC9 

POOCA 

P00C8“ 

PGOCC 


FCOM 


ACMOK 


ALZE5?0 

if- 

S- 

OPERNQ 


0IRE3T 


COMP'LEHENT 


A5 

ABSDIR 
■OP A OR 


■CARRY 


LOA- 

SAN 

JHP» 

SET 

,eoR- 

STA- 

NUM 


LOQ- 

LDA* 

STA- 

LOA- 

SAZ 

LDA- 

ALS 

APS 

STA- 

ADCl- 

LDQ~ 

AOQ- 

RAO- 

OHP» 

0 


CHANGE SIGN 


OPERAND 


01.27 

■ 

SAP 

SKP-»-l 

8001 


INQ 

1- 

AOll 


ANO- 

!LPMSK>H 5 

0164 


SQP 

SKP-’^-l 

D103 


. RAO- 

G, I 

0 FFQ 

^ : 

■" LLS 

16 

AOll 


AND- 

LPMSK?H5 

OFFO 


■ LLS 

16 

1CF6 

^SKP 

JMP^ 

;(CARRYI 


C,I 
ACMOK 
ARGO 
A 

SIGN^I 
SIGN, I 
ANXT 

^ GET ADDRESS OF NEXT 

GET ADDRESS OF NEXT OPERAND ^ 

15 BIT ADDRESSING ARTIHNETIC IS BEING USED* 

REFER TO E0 06 , APEN'DIX ON 15 BIT ARITHMETIC 
0 

P I 

lALZERO^ ,Q 
F X 

RELADR, I 
ABSDIR-»-l 
F,I 
1 
1 

F,I 
F,I 
OPAiDR 
F X 

INDEX, I 
P I 

C'OPERNO) 

^ THIS ROUTINE ASSUMES THAT A SUM IS 

WITHIN THE QA REGISTER. A CHECK IS 
CARR¥ IN THE A AND Q REGISTERS AND 
BITS ARE ADDED. 

CHECK FOR CARRY IN A REGISTER 
YES - ADD IN CARRY BIT 
• ■■ MASK OFF CARRY BIT IN A REGISTER 
CHECK FOR CARRY IN 0 REGISTER 
YES - ADO IN CARRY BI'T 
EXCHANGE A AND Q REGISTERS 
■■ MASK 'OFF CARRY BIT.XN Q REGISTER 
■ - RESTORE Q AND A REGISTERS^^^^ 

NO - RETURN WITH Q AND A REGISTER IN PROPER 
FORMAT 


IF RELATIVE ADDRESS MODE. 
GO TO ABSOLUTE DIRECT 

SIGN EXTEND RELATIVE ADDRESS 


EFFECTIVE ADDRESS "I IN 
MOVE PSEUDO PROGRAM COUNTER 
RETURN EFFECTIVE ADR -1 IN Q 


»5^HSOS4.0 
^»-MSOS4. 0 
»»MSOS4.0 
^»MSOS4.0 


CONTAINED 
MADE FOR- 
THE CARRY 


N72Q0262 
N7200263 
N7200264 
N7200265 
N7200266 
N720Q267 
N72QG268 
N7200269 
N720Q270 
N720G271 
N720D272 
N7200273 
N7200274 
N7200275 
N7200276 
N7200277 
N72D0278 
N7200279 
N720028D 
N7200281 
N7200282 
*‘^N7200283 
*»N7200284 
»^»N7200285 
»»N72G0286 
N7200287 
N720O288 
N720E289 
N720 0 29 0 
N7200291 
N72Q0292 
N7200293 
N7200294 
A N7200295 
N7200296 
N72G0297 
N7200298 
N72B0299 
N7 20 0300 
N7200301 
N72003B2 
N7200303 
N720S304 
N72Q 0 30 5 
N7200306 
N7200307 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


ODDFTN 
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O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0310 

0311 

0312 

0313 
031 4 

0315 PQOCD 58E5 

0316 POOCE 5300 
POQCF 0129 

031 7 

0318 POODO Q1Q6 

0319 POODl 0123 

0320 P00O2 0804 

032 1 POQ03 BIOS 

0322 P00D4 6106 

0323 

0324 

0325 P00D5 ClOF 

0326 P00D6 0111 

0327 POOD? 1895 
0323 POODS 2108 

0329 P0OD9 OFEl 

0330 POODA QF41 

0331 POODB AOll 

0332 PQOOC 611B 

0333 POODD 4103 

0334 POODE cm 

0335 POODF 210B 

0336 POOEO OFEl 

0337 POOEl 0121 

0338 P00E2 flOOl 

0339 P0OE3 411A 

0340 P00E4 Clio 

0341 P00E5 210C 
6342 P0OE6 OFEl 

0343 P00E7 0121 

0344 P00E8 DOOl 

0345 P00E9 4108 

0346 POOEA Clio 

0347 POOEB 210B 

0348 POOEC OFEl 

0349 POOED 9F41 

0350 POOEE AOll 

0351 POOEF 5109 

0352- POOF0 4104 

0353- PQOFl CllA 
035*4 P00F2 3108 

0355 P0QF3 58CF 

0356 POOF4 610A 

0357 POOF5 4104 

0358 PD0F6 ClOF 


♦ 


M U L 


9 


FLOATING POIN 


OFMPY 

RTJ» 

OPERND 

RTJ 

FLTSET 



IF F IS N€G., 


SAZ 

JMPOUT-^-1 


SAP 

FLTl-^-1 


SET 

A 


EOR- 

SIGN, I 


STA- 

SIGN, I 




STEP 5. A. . 

FIT 1 

iDA- 

G,I 


■ SAN 

NOZERO-^-1 

JMPOUT 

JMP"^ 

ARGO 

NO ZERO 

MUI- 

A, I 


LLS 

1 


ARS 

1 


AND- 

LPMSK^l 5 


STA- 

TEMGP2, I 


STQ- 

G,I 


LDA- 

D,I 


MUI- 

A, I 


LLS 

1 


SAP 

1 


INQ 

1 


STQ- 

TEMPO, I 


LDA- 

GI,I 


MUI- 

AI,I 


LLS 

1 


SAP 

1 


INQ 

1 


STQ- 

F,I 


LDA- 

Cl, I 


MUI- 

A, I 


LLS 

1 


ARS 

1 


AND- 

LPHSK»-1'5 


STA- 

F-+1 ,1 


STQ- 

Gs-i , I 


LDA- 

TEMPO, I 


ADD- 

F,I 


• RTJ» 

CARRY 


STA- 

F42,I 


STQ- 

G+1,I 


LDA- 

C,I 


o 


DATE-3 0 8/19/99 


T I P L Y 
T MUITIPLY OF F’^G 


STEPS 1,2,3 AND 4 OF MPY 
CHANGE SIGN. 


$7FFF 

CAILSBJ 

CA!MSB) 


ROUND 

DAIMSBJ ROUNDED 


ROUND 

CI’^AIIMSB) ROUNDED 


$7FFF 

CI»A ILSB) 

CT»A YHSB) 

OA TMSB) 

CIAI (HSB) 

FORMAT QA REGISTERS 
CIAI{HSB)+DAIHS8) IN 
CIA ' IMSB) 


N720 0 31D 
N7200311 
N7200312 
N7200313 
N7200314 
N7200315 

OR DIV N72D0316 

N72Q0317 

N72C0318 

N7200319 

N720Q320 

N7200321 

N72QQ322 

N7200323 

N720Q324 

N72Q0325 

N720O326 

N72QQ327 

N7200328 

N72Q0 329 

N7200330 

N7200331 

N7200332 

N720Q333 

N720Q334 

N7200335 

N7200336 

N7200337 

N72S0338 

N7200339 

N7209340 

N7200341 

N7200342 

N7200343 

N7280344 

N7200 345 

N7200346 

N7200347 

N720Q348 

N7200349 

N7200350 

N7200351 

N7200352 

N720 0 353 

N7200354 

N7200355 

N7200356 

N7200357 

N7200358 


C; 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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date; 08/19/99 


0359 

P00F7 

2100 

MUI- 

B,I 


0360 

POOFS 

OF El 

LLS 

1 


0361 

P00F9 

0121 

SAP 

1 


0362 

PO OFA 

ODOl 

• • INQ 

1 

ROUND 

0363 

PflOFB 

0 814 

■ IRQ 

A . 

CBIMSB) 

0364 

POOFC 

•El 04 

■■ LDQ- 

6rt-l,I 

CTA' C MSB5 

0365 

PDflFO 

810A 

■ AOD- 

F+2,I 

DA+CIAI+C8 

0366 

PQOFE '58C4 

RTJ» 

CARRY 

DA+CIAI+CB in a + CIA»» IN Q 

036 7 

PDOFF 

8109 

. ADD- 

F .iH ,I 

GI^A (LSB) 

0368 

PQIDO 

58C2 

RTJ» 

CARRY 

DA + GI AI + CB(MSB)+CIA ILSBJ INA 

0369 

POlOl 

4104 

STO- 

G+1 ,I 

CIA»»'' (MSB) 

0370 

P0102 

6105 

STA- 

G + 2,I 

DA+CIAI+CB{MSB) + CIAILSB) 

0371 

P0103 

ClOF 

■ LDA- 

CiI 


0372 

P01D4 

210C 

MUI- 

AI, I 


0373 

PG105 

OFEl 

LLS 

1 


0374 

P0106 

OF 41 

ARS 

1 


0375 

P01C7 

AOll 

- AND- 

LPM3K+15 

$7FFF CA’^I IN QA REGISTERS 

037 6 

P0108 

8105 

■ ADO- 

GT2,I 


037 7 

P0109 

58B9 

PT J» 

CARRY 


0378 

POlOA 

6105 

STA- 

Gi-2,1 

LSB OF PRODUCT 

0379 





OA+GIAI + CB + CIA1L58) + CAI-IL 

0380 

POIOD 

0814 

IRQ 

A 

CAI' '(MSB) 

0381 

POIOC 

8104 

ADD- 

G 1 » I 

CIA*»MMSB) 

038? 

PO IQO 

0122 

SAP 

SKPl-*-l 

. IS THERE A CARRY 

0383 

PQIDE 

01 03 

RAO- 

G,I 

ADO IN CARRY BIT- YES 

0384 

POlOF 

AOll 

AND- 

LPMSK+15 

CAI’'9-CIA* '* 

0385 

PQllO 

811B 

3KP1 AO0- 

TEMGP2-, I 

CAI*-»-CIA» * •^^CA (LSB) 

0356 

POlll 

0122 

SAP 

SKP2-»-l 


038 7 

PQ112 

0103 

RAO- 

G,I 

MSB OF PRODUCT 

0388 

P0113 

AOll 

ANO- 

LPHSK+1 5 


0389 

P0114 

6104 

SKP2 STA- 

G'S"! f I 

ISB OF PRODUCT 

0390 

poll 5 

C1D5 

SHIFTA LDA- 

G^-2,1 

THIS LOGIC SQUEEZES OUT 

0391 

P0116 

OFCl 

ALS 

1 

THE CARRY SLOTS IN 

0392 

P0117 

E104 

■ LDQ- 

G»1,I 

CELLS G+1 AND G+2 

0393 

PflllS 

OFEl 

LLS 

1 


0394 

' P0119 

61Q5 

STA- 

G»2,I 


0395 

POllA 

410 4 

STQ- 

G^l y I 



+ CIA' 


1HSB)IN 


N72DQ3i?9 
N720 0360 
N7200361 
N7200362 
N7200363 
N7200364 
N7200365 
N720Q366 
N720Q367 
QN7200368 
N720Q369 
N7200370 
N7200371 
N720G372 
N72O0373 
N72Q0374 
N72Q0375 
N720D376 
N72Q0377 
N7200378 
N72QQ379 
N720038D 
N7200 361 
N72003B2 
N7200383 
N7200384 
N7200'385 
N72Q0'386 
N7200337 
N7200388 
N72S0389 
N7200390 
N72Q0391 
N72Q0392 
N7200393 
N72QB394 
N7200395 


039,7 

0398' 

0399 

0400 ^ 

0401 

0402 
04D3 

0404 

040 5 

0405 

0407 

0408 

0409 
0 410 
0411 
0 412 
0 413 
0414 
0 415 

041 6 
0 417 

0418 

0419 

0420 

0421 

0422 
0 42 3 

0424 

0425 
0 42 6 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 
G442 

0443 

0444 

0445 
0446' 
0447 
0 44 8 
0449 


ODDFTN 


PAG'E 12 


DATE: 08/19/99 


POllB 
POllC 
POllO 
POllE 
POUF 
P012C 
P0121 
P0122 
P0123 
P0124 
P0125 
P0126 
PQ127 
P0128 
Pfll29 
P012A 
P012B 
P012C 
■P012O 
P012E 
P012F 
POl'3 0 
P0131 
P0132 
P0133 
Pfll34 
PG135 
P0136 
P0137 
P0138 
P0139 
P013A 
P013B 
P013C 
P013D 
O013E 
P013F 
P0140 
PG141 
P0142 
P0143 
P0144 
P0145 
P0146 
P0147 
P0148 
PD149 
P014A 
PG14B 
PQ14C 
P014D 
P014E 
PQ14F 


OCOQ 
4113 
C1D5 
61 OA 
C104 
6109 
El 03 
C109 
GFEl 

4108 
E109 
ClOA 
OFEl 
A033 

4109 
610 A 
El 08 
0173 
0113 
18F3 
7F 80 
C109 
OFFF 
OF 41 
AOli 

6104 

0 814 
A911 
6103 
£1 09 
GIQA 
0F63 
AOll 

6105 
El 04 
0920 
0131 
1811 
QDOl 
Aflll 

01 60 
0105 
OFFO 
AOll 
QFFD 
4104 
6105 

■C103 
■0124 
0112 
QFCF 
6103 
El 04 


NRHLIZ 


STEP6 


H7F 80 
STEP5A 


ENO 

0 



STQ- 

SHIFCT, I 



1.DA- 

G»-2,I 



STA- 

F*2,I 



LDA- 

Ga-1,1 



STA- 

FM-l,! 



Loa- 

G,I 



LOA- 

Ffl,I 



LLS 

1 



STQ- 

F,I 

IMSB) 


LDQ- 

FH-1»I 



LDA- 

F+2,I 



LLS 

1 



ANG- 

ZROBIT 

SFFFE 


ST 0- 

FH-1,1 

(ISB) 


STA- 

F+2,I 

(LSB) 


LDQ- 

F,I 



SQM 

STEP6A-»-l 



RAO- 

SHIFCTt I 



JMP* 

STEP6 



NUM 

$7F80 



LDA- 

F+1 



LLS 

31 



ARS 

1 



AND- 

LPMSK+15 

$7FFF 


STA- 

G»-l 

ISB 

0^15 

TRQ 

A 



AND- 

LPHSKiH 5 

$7FFF 


STA- 

G,I 

MSB 

0,15 

L D Q— 

F%1,T 



LDA- 

Fh-2,1 



LRS 

3 



AND- 

LPMSK41 5 

$7FFF 


STA- 

Gf^^1I 

LSB 

0,9 

LOQ- 

G+1,I 



INA 

$20 

ROUND 

TO 39 BITS 

SAM 

1 



JMP» 

STEP6B 



INQ 

1-,- 

CARRY 

INTO ISB 

ANO- 

LPMSK’4l5 

$7FFF 


5QP 

STEP6B-=«^-l 



RAO- 

G^'I 

CARRY 

INTO MSB 

LIS 

16 



AND- 

LPHSK'+l 5 

S7FFF 

MASK OFF 


LLS 

STQ- 

STA- 

LDA- 

SAP 

RAO- 

ALS 

STA- 

LDQ- 


16 

G+1,I 
G^2 > I 
G,I 

STP6-^-l 
DELTA , I 
15 
G,I 
G + 1,I 


SAVE- ISB 
SAVE LSB 

CHECK FOR CARRY IN ISE 
SHIFT RIGHT EY ONE 

NORMALIZE FOR ROUNDING OF 7FFF,7FFF,7F 
RESTORE ISB 


N7200397 
N7200398 
N7200399 
N720 0400 
N720G 401 
N72Q0 402 
N72Q0403 
N7200404 
N7200405 
N720fl4D6 
N720 0 4Q7 
N7200408 
N720C409 
N72D0410 
N72Q0411 
N7200 412 
N7200413 
N7200 414 
N7200415 
N7200416 
N7200417 
N720 0 418 
N7200419 
N?29042fl 
N 720 0 421 
N7200422 
N720 0 423 
N7200424 
N7200425 
N7200426 
N 720 0-42 7 
N7200428 
N7200429 
N720Q43Q 
N7200 431 
N72G0 432 
N7200433 
N7200434 
N7200435 
N720D436 
N7200437 
N72G0 438 
N7200 439 
N720Q440 
N7200441 
N72B0 442 
N72Q0 443 
N720 0444 
N7200445 
N72Q0446 
COEF .N720G447 
N7200448 
N72Q0449 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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date: 08/19/99 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0450 P0150 C105 

0451 P0151 A800 
P0152 FF19 

0452 PD153 4110 

0453 P0154 6111 
0<+54' P0155 C103 

0455 P0156 610F 

0456 P0157 C112 
0A57 P0158 BlOE 

0458 P0159 9113 

0459 P015A 6112 

0460 P0158 0822 

0461 P015C DF47 

0462 P015D 0900 

0463 P015E 0102 
Oi+64 P015F 1800 

P0160 00C3 

0465 

0466 P0161 GllF 

0467 P0162 9023 

0468 Pfli63 0102 

0469 P0164 18D0 
P0165 F.EAD 

0470 P0166 CIDF 

0471 P0167 610B 

0472 P0168 Clio 

0473 P0169 610C 

0474 P016A Gill 

0475 P016B 610Q 

0476 P016C C112 

0477 P016D 610E 

0478 P016E CllC 

0479 P016F 610F 

0480 PQ170 GllD 

0481 P0171 6110 

0482 P0172 CUE 

0483 P0173 6111 

0484 P0174 C023 

0485 P0175 6112 

0486 P0176 CQ22 

0487 P0177 611F 

0488 P0178 180D 
P0179 FF58 


G«-2,I 

H7FC0 


MULOI'Vt I 
0NE8IT 
DIV-»-l 
Nxropc 

C, I 

A, I 
Cl, I 
AI,I 

D, I 

B, I 

BELT A, I 
BETA, I 
T1,T 

C, I 
T2,I 
Cl , I 
T3, I 
0,1 

GNEBIT 
DELTA, I 

ZERO 

HULOIV, I 
FLfl 


RESTORE LS8 


SAVE IS8 IN C 
SAV^E LSB IN 0 

SAVE HSB IN C 


UNDERFLCW IF Q=:-,A=0« 
HULTIPLY/DIVIDE FLAG 
$0001 

GO GET NEXT OPCODE 

PLACE C, Cl, 0, AND DELTA INTO 
A, AI, B AND BETA 


RESTORE C, Cl, 0, AND DELTA 


$0001 

SET DELTA TO 1 FOR HULTIPLY 
C L'H A R 

HULTIPLY/DIVIOE FLAG 


o 

o 

o 

o 


N72Q045D 
N72Q0 451 

N720O 452 
N72Q0453 
N7200 454 
N7200455 
N7200456 
N72D0457 
N720 0458 
N7280 459 
N7200460 
N7200 461 
N7200462 
N7 20 0 46 3 
N7200464 

N7200465 

N?2Qa466 

N720Q467 

N7200468 

N7200469 

N72a047|] 
N720a471 
N7200472 
N72Q0473 
N7200474 
N72B0475 
N7200476 
N7200477 
N7200478 
N7200479 
N7200480 
N720 0 481 
N7200482 
N7200483 
N720Q484 
N720Q485 
N7200486 
N720Q487 
N720O488 


.'**V 

u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 
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Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

n 


0491 
049 2 

0493 

0494 PD17A 5800 
P0173 FF37 

0495 P017C 587C 

0496 

0497 P017D 0112 

0498 PQ17E 1600 
P017F 00A2 

0499 PC180 0123 

0500 P0181 0804 
G5D1 P0182 B106 
G502 P0183 6106 

0503 P0184 ClOB 

0504 PQ185 9031 

0505 P018 e 0101 

0506 P0187 1800 
05Q7 PQ188 C109 

0508 P0189 0101 

0509 PD18A 180A 

0510 P0188 ClOA 

0511 P018C 0101 

0512 POiaO 1807 

0513 P018E ClOE 

0514 PfllSF 9023 

0515 P0190 0101 
Q516 P0191 1803 

0517 P0192 1800 
P0193 FE7F 

0518 P0194 GG3D 

0519 P0195 6113 

0520 P0196 ClOE 

0521 P0197 0864 

0522 P0198 0901 

0523 P0199 610E 

0524 P019A ClOB 

0525 P0198 0112 

0526 P019C 1800 
P019D F'ECF 

0527 P019E CiOC 

0528 P019F 0900 

0529 POIAO "210C 

0530 POlAl- 310B 
0 531 

0532 P01A2 0133 

0533 P01A3 '0864 

0534 P01A4 -8100 

0535 P01A5 180C 

0536 PG1A6 AOll 


D I V 

DFOIV RTJ OPERNO 
RTJ» FLTSET 

#■ 

SAN A6-«‘-l 
JMP DTVZER 

A6 SAP FLf2-^-l 

SET A 
EOR- SIGN, I 
STA- SIGN, I 
FLT2 LDA- A, I 

SUB- ONE8IT 
SAZ PLUSl- . 
JMP* FLT3 
PLUSl LDA- F«-1,I 

SAZ PLUS12-*-! 
JMP* FLT3 
PLUS12 LDA- Fih2,I 

SAZ PLUS13-*-! 
JMP* FLT3 

PLUS13 LDA- BETA, I 
SUB- ONEBIT 
SAZ EXP01-*-! 
JMP* FLT3 

■ EXPOl - JMP NXTOPC 

FLT3 LDA- ONEBITit-13 
STA- SHfFCT,! 

LDA- BETA, I 
TCA A 
INA 1 
STA- -BEfA,! 

LDA- A, I 
SAN F02-*-l 
JMP ARGO 

■. FD2 LOA- AI,I 

■INA 0 
MUI- AI,I 
DVI- A, I 

■ SAM F03-*-l 
TCA A 
■ABO- 8,1 
JMP* NORM 

F03 AND- LPMSK^-15 




DATES 08/19/99 


IDE 

GET NEXT OPERAND ADDRESS 

STEPS 1, 2, 3, AND 4 CF MPY 
SET A,AI,B, e£TA,F,F+l,F-«-2 

IF F IS ZERO, GO TO DiyZER 


N7200491 
N7200 i,92 
N7200493 
N7200 494 

OR DIV, AND N0RMALN72Q0495 

N7200496 

N72a0497 

N7200498 


$4000 

IS FIRST WORD OF DENOMINATOR A + OR - 1 

NO 

YES 


DENOMINATOR IS A *1,0— GET NEXT OPCODE 


N7200 499 
N72Q0500 
N7200501 
N7200502 
N7200503 
N7200504 
N7200 505 
N7200506 
N7200507 
N7200508 
N72GQ509 
N7200510 
N7200511 
N72D0 512 
N7200513 
N7200514 
N7200515 
N7200516 


$20 0 0 

TEMP STORAGE-^-MSB 


IF A ,EQ 0 GO TO ARGO 


N7200518 
N7200 519 
N720Q520 
N7200521 
N720 3 52 2 
N720Q523 
N7200524 
N720Q525 
N72Q0526 


N7200527 

N720Q528 


-AI*AI IN QA REG 

IAI*AI3/A IN A REG. Q REG, CONTAINS 
NO ROUNDING IS REQUIRED ON LSB 


N7200529 

REMAINDERN7200530 

N7200531 

N72O0532 


POS. A REG. 
8-tAI*AI)/A - 


N720Q533 

N72G0534 

N7200535 


N72Q0 536 


o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


NEG. A REG 


$7FFF 


date: 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


ODBFTN 


G537 

P01A7 

9100 

0538 

P01A8 

0123 

0539 

P01A9 

8 0.32 

0540 

POIAA 

0864 

0541 

POIAB 

1806 

0542 

POIAC 

El OC 

0543 

POIAD 

ODFE 

0544 

PO lAE 

41 BC 

0545 

PDIAF 

0101 

0546 

PfllBO 

0 8 64 

0547 

POIBI 

ElOC 

0548 



0549 

P.01B2 

0128 

0550 

P01B3 

ODFE 

0551 

P01B4 

8032 

0552 

P01B5 

611A 

0 553 

P01B6 

0164 

055** 

P01B7 

COOF 

0555 

poiea 

6113 

0556 

P01B9 

EO 11 

0557- 

POIBA 

Dll A 

055 8 

POIBB 

OFCl 

0559 

POIBC 

OF 61 

0560 

PGIBD 

310B 

0561 

PGIBE 

00 GO 

056 2 

PQIBF 

611A 

0553 

PfllCO 

0 8 44 

0564 

POICI 

OF 61 

0565 

P01C2 

31DB 

0566 

P01C3 

El lA 

0567 

P01C4 

OFCl 

0568 

P01C5 

OF 62 

0569 

P01C6 

0F41 

05 7 0 

P01G7 

AGll 

0571 

P01G8 

611B 

0572 

P01C9 

0814 

0573 

POICA 

AOlO 

0574 

PGICB 

611A 

0575 

PGICC 

0101 

0576 

PO ICD 

18 03 

0577 

POICE 

CUB 

0578 

POICF 

OlOF 

0579 

POIDO 

El 13 

0580 

POiOl 

CllA 

0581 

P01D2 

0 8 64 

0582 

P01D3 

ODFE 

0 53 3 

P01O4 

L113 

0584 

P0105 

8032 

0565 

P01D6 

611 A 

0586 

P01D7 

EllB 

0587 

P01D8 

0146 

0588 

P01D9 

0 9FE 

0589 




FD4 


NORM 

» 


STEP5E 


TSTl 

CPROC 
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SUB- B,T 
SAP FD4-»-l 
AOD- 0NEBITIH5 
TCA A 
JMP^ NORM 
LOO- AI,I 
INQ -1 
STQ- AI,I 
SAZ N0RM-*-l 
TCA A 
LDO- A I, I 

SAP STEP5E-»-l. 
INQ -1 

ADO- ONEBITfrlS 
STA- TEMPQ,I 
SQP STEP5E-'^-l 
LDA- LPMSKS-13 
STA- 3HIFCT,I 
LDQ- tPMSK+15 
LOA- TEMPO, I 
ALS 1 
LRS 1 
DVI- A, I 
INQ 0 

STA- TEMPO, I 
CLR A 
LRS 1 
DVI- A, I. 

LDQ- TEMPO, I 
ALS 1 
LRS 2 

A pc i 

AND- LPMSK+15 
STA- FEMGP2,I 
FRO A 

AND- LPMSK»H4 
STA- TEMPO, I 
SAZ rSTl-*^-l 
JHP^ CPROC 
LDA- TEMGP2,I 
SAZ 0ON£-'»-l 
LOO- SHIFCT, I 
LOA- TEMPO, I 
TCA A 
INQ -1 
STQ- SHIFCT,! 
ADO- 0NE8lf»-15 
STA- TEMPO, I^ 
LDO- TEMGP2,I 
SQZ OONE-»-l 
INA -1 

Q REGISTER 


(-B+,IAI^AI3 /A - $ 8000-) 

NEG. A REG. $3000 
B-(AI^AI) /A 


POS. A REG. 

0 


AI=AI-1 
A REG. = 
A .NE. Q 


8-iAI»AI')./A 


FORM AI»*2*»-15 + (B-(AI»AI1/A)»2^^-30 
IF LOWER ACCUM IS NEGATIVE 
rjCfiapMCMT UPPER BY 1 

$8000 - and INCREMENT LOWER BY 1 TO PUT END 
AROUND SORROW INTO PROPER POSITION 

DECREMENT MSB BY 1 $1FFF 

TEMP STORAGE 

jyp'pp 

Q-A CONTAINS AI»2»’^ -15+ (B-AI-AI/Al»2-’^-30 


iyA*(AI+2*»-15+TS-Al’’Al/A1 + 2»»-3 0 


$7FFF 


IS I SB ZERO 
NO 

YES LSB 
IS LS8 ZERO 
NO 


$8000 

IS LSB ZERO 
CONTAINS MSB 


ISE 

ISB 

LSB 

ISB 


MSB 

ISB 


N7200537 

N7200538 

N7200539 

N72G0540 

N7200541 

N7200542 

N7200 543 

N7200544 

N7200 545 

N720D546 

N7200 547 

N7200548 

N7200549 

N7200550 

N720Q551 

N7200552 

N7200553 

N720 0 554 

N7200555 

N7200556 

N7200557 

N7200558 

N7200559 

N72QQ560 

N7200561 

N7200562 

N720fl563 

N720G564 

N72Qi565 

N7200556 

N720e 567 

N7200568 

N7200-569 

N7200570 

N72QQ 571 

N720G572 

N720B573 

NT2GS574 

N7200575 

N72C0576 

N720B577 

N72G0578 

N7200579 

N72Q0580 

N720 0581 

N72G0582 

N720fl583 

N72B0584 

N7200535 

N72S0 586 

N7ZQG587 

N7200588 

N7200589 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



I o 

1 

o 
o 
! o 
o 

o 


o 

o 

o 

o 

o 

o 
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DATEi 08/19/99 


o 


C_I' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0621 P01F8 QOOO 

0622 P01F9 C203 

0623 POIFA 61QA 

0624 POIFB 611B 

0625 POIFC C202 

0626 POIFO 6109 

0627 POIFF C-2 01 
062 8 POIFF 6108 

0629 P0200 F109 

0630 P0201 411A 

0631 PD2Q2 0127 

0632 P0203 EllB 

0633 P0204 0352 

0634 DQ205 4HB 

0635 P0206 FllA 

0636 P0207 0852 

0637 P0208 411A 

0638 P0209 0864 

0639 P020A 610B 

0640 

0641 P02QB 0111 

0642 P020C 1605 

0643 P020D 8FC1 

0644 P020E B032 

0645 P020F 0F48 

0646 P0210 090Q 

0647 P0211 610E 

0648 PD212 CIQB 

0649 P0213 EllA 

0650 P0214 0FF8 

0651 P0215 AOll 

0652 P0216 610B 

0653 P0217 cue 
065-4 PQ218 FllA 

0655 P0219 QFF7 

0656 P021A AOll 
G65-7- P0 21B 61 DC 

0658 P021C OFFF 

0659 P0210 AB18 

0660 P021E 6100 

0661 P021F C108 

0662 P0 220 IBD? 


0 0 
LDA- 3,Q 
STA- Fs-2,1 
ST A- !TEMGP2,I 
LOA~ 2»Q 
STA- F3-1,I 
LDA- 1,0 
STA- F,I 
LBQ- Fa-1,1 
STQ- TEHPQfl 
SAP STEP2A-»-l 
LDQ- TEM6P2, I 
TCa Q 

STQ- TE^^GP2,I 
L-DQ- TE«PQ,I 
TCQ Q 

STQ- ¥EMPQ,I 
TCA A 
STA- A, I 

IF F IS ZEI 
SAN A9-^-l 
JMP*^ ARGFO 
AIS 1 

FOR- ONEBITa-15 
ARS 8 
INA 0 
STA- 8ET;A^,I 
LDA- A, I 
LDQ- TEHPQ,I 
LLS 8 

AND- LPHSK.alS 
STA- A, I 
LDA- TEMGP2.I 
lOQ- ¥EHP0,I 
LLS 23 
AND- -LPNSK+15 
STA- AI,I 
LLS 15 
AND^ RSLTB 
STA- B,I 
LDA- F,I 
JMP» IFLrSET) 


F + 2 
F+l 

COMPLEH-ENT F+2 
COMPLEMENT F+1 

GO TO ARGFO tSET BETA,A,B=05 
$8000 

F+i 

$7FFF 

Fa-2 

Fa-1 

$7FFF 

$7FC0 


o 


o 


o 


o 


N72aQ521 

N7200622 

N720 0 623 

N720062H 

N7200625 

N7200626 

N72Q0627 

N7200628 

N72QQ629 

N72QD63D 

N7200631 

N72D0632 

N72D0633 

N72Q0o34 

N72Q0635 

N7200636 

N7200637 

N7200638 

N7200639 

N720064D 

N7200641 

N7200642 

N7200 643 

N7200644 

N7200645 

N720 0646 

N7200647 

N7200648 

N7200649 

N7200650 

N7200651 

N7200852 

N7200653 

N72GQo54 

N7200655 

N720Q656 

N7200 657 

N7200658 

N7200659 

N7200560 

N7200661 

N7200662 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 


o 


u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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056 4 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
068 2 

0683 

0684 
068 5 

0686 
0 687 


0688 
068 9 


D690 

0691 


0692 

0693 

0694 


P0221 OCOl 
P0222 1805 
P0223 0814 


P0224 

P0225 

P0226 
P0227 
P0228 
P0229 
P022A 
P022B 
P022C 
P022D 
PG22E 
P022F 
P0230 
P0 231 
P0232 
P0233 
P0234 

PQ235 

PG236 

P0237 

P0238 

P0239 

PQ23A 

P023B 

P023C 

PQ23D 

PC23E 
PO 23 F 
P0240 
P0241 
P0242 
P0243 
P0244 
P0245 
P0246 
PQ247 


OCOO 

0121 

0C02 

C107 

AA19 

8A18 

6107 

CAIO 

610F 

CAOB 

6110 

CA06 

6111 

CAG'D 

6112 

1800 

FOOE 

7 FDD 
7FC0 
0000 
7FFF 
'7FFF 
OOQO 
7FFF 
7FFF 
4000 

0Q7F 
0 07F 
FF80 
7FFF 
BFFF 
OFFF 
80 00 
40 0 0 
2000 
807F 



DIVIDE CHECK WHEN DIVIDE BY ZERO 

DIVZER 

ENQ 

1 


JMP* 

SETERR 

OVFUNF 

trq 

A ■ 

-Sf- 

ENQ 

OVERFLOW 

0 


SAP 

SETERR-*-! 


ENQ 

UNDERFLOW 

2 

SETERR ■ 

LDA- 

ERRORS, I 


AND» 

ERASE, Q 


ADD’» 

SET8IT, Q 


STA- 

ERRORS, I 


LDA-» 

RSLTA,Q 


STA- 

G,I 


LDA» 

RSLTAI, Q 


STA- 

Cl, I 


LDA'» 

RSLTB, Q 


STA- 

D,I 


LOA^ 

RSLTEX, Q 


STA- 

DELTA, I 

NXTOP3 

JMP 

NXTOPC 



OVERFLOW, underflow 
$7FGO,S7FCO,$0000 

rsltb' 

NUM 

RSLTAI 

NUH 

$7FFF,$7FFF,$GOOO 

RSLTA." 

NUN 

$7FFF,S7FFF,$4000 



EXPONENTS 

RSLIEX 

NUM 

$7F,$7F,-$7F 

ERASE 

NUN 

$7FFF,$BFFF,$DFFF 

SET BIT 

NUM 

$3000 ,54000 ,$2000 

H807F 

NUM 

$807F 


DATES 08/19/99 


OVERFLOK OR UNDERFLOW 


SET F«P. ACCUMULATOR 


N7200664 
N72G0655 
N7200666 
N720D667 
N7200668 
N7200669 
N7200670 
N72Q0671 
N7200672 
N720Q673 
N7200674 
N7200675 
N7200676 
N7200677 
N7200676 
N7200679 
N720G6a0 
N720Q681 
N7200 682 
N7200683 
N72Q0684 
N72Q0685 

N7200686 

N7200687 


N7200688 

N7200689 


N72Q0690 

N7200691 


N7200692 

N7200693 

N7200694 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



u 


o 


N72S0697 Q 

N720Q698 ^ 

N72Q0699 
N7200700 

N72007G1 Q 

N7200702 

N7200703 

N72Q07Qif O 

N72QD713 5 ^ 

N720Q706 
N72007G7 

N7200708 O 

N7200709 ^ 

O 


O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


I 
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DATE'S 08/19/99 



0711 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0713 

0714 
Q715 

0716 

0717 P0252 5800 
PQ253 FE5F 

0718 P0254 C203 

0719 P0255 611B 

0720 P0256 C201 

0721 P0257 €202 
072?! P0258 4109 

0723 P0259 6108 

0724 P025A EilB 

0725 PQ25B 410A 

0726 P025C 0121 

0727 P025D 0864 

0728 P025E OFCl 

0729 P025F 0111 

0730 P0260 18D2 

0731 P0261 BQ32 

0732 PS262 0F48 

0733 'PO 263 0900 
0734- P0264 610E 
0735 ■ P0265 C103 
0736 P0266 El 09 
0737',P0267 A8DF 

0738 P0268 0122 

0739 P0269 8800 
P026A FEC4 

0740 P026B 0FE8 

0741 ■P026C 610B 

0742 P'0260 -0814 

0743 P026E AOOA 
Q74'4 P026F 611A 

0745 P0270 ClOA 

0746 P0271 E109 

0747 P0272 0FE8 

0748 P0273 AOIA 

0749 P0274 BllA 

0750 P0275 410G 

0751 P0276 6100 

0752 P0277 Dili 

0753 P0278 £110 

0754 P0279 OFCl 

0755 P027A OFEl 

0756 P0278 4110 

0757 P027C 6111 

0758 PD27D E106 

0759 P027E 0168 


***^tf^ ADDITION 

^ FLOATING POINT ADO G+F, RESULT IN G. 

DFADO RTJ OPERND 

LDA- 3-,Q 
STA- TEHGP2,I 
LDA- 1,Q 
LDQ- 2,Q 

FADD2 STQ- F^l »I 
STA- F,I 

LDQ- TEMGP2, I F+2 

STQ- F42,I 
SAP A10-»-l 

rCA A 

AlO ALS 1 
• SAN 1 

■ JMP» NXfOP3 ADD 0, THUS JMP OUT 

. EOR- 0NE8IT«-15 $8300 

■ ARS 8 

■INA 0 EXTRACT BETA 

STA- BETA, I 
LDA- F,I 
I 0Q« F%^i, X 

AND# H807F GET RID OF EXPONENT 

SAP All-#-l 

AOn H7F8Q $7F80-EXTEND SIGN 


Ail 


LLS 8 
STA- A, I 
IRQ A 

AND- LPMSK48 
STA- TEMPO, I 
LDA- F»-2,I 
LDQ- F41,I 
LLS 3 

AND- LPHSK+2 4 
EOR- TEHPQ,I 
STQ- AT, I 
STA- B,I 
LDA- D,I 
LDQ- Cl, I 
ALS I 
LLS 1 
STQ- Cl, I 
STA- 0,1 
LDQ- SIGN, I 
SQP FA0O21-’-#-l 


STORE A AND B 

A-S,15MSB 

$Q0FF 

IEMPQ=0'S FOLLOWED B¥ 8 SIGN BITS 

SFFOO 

AI=16IS-B 

8=8LSB,8 SIGN BITS 

RE'MOVE BIT 15 FROM BOTH Cl AND D 
IF SIGN IS NEGATIVE 


O 

c 


O 


N720Q711 


N7200713 

N7200714 

N7200715 

N7200716 

N720Q717 


N7200718 

N7200719 

N7200720 

N7200721 



N728Q740 
N72Q0741 
N72Q8742 
N7200743 
JUSTIFIEDN7200744 
N720Q 745 
N720074b 
N7200747 
N7200748 
N72Q0 749 
N720 0750 
N7200751 
N72GG752 
N7200753 
N7200 754 
N7200755 
N720Q756 
N7200 757 
H72Q0 758 
N7200759 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE1 08/19/99 


P027F 

P0280 

P0281 

P0282 

P0283 

P0284 

P0285 

P0286 

P0287 

PQ288 

P0289 

P028A 

P0288 

P028C 

P028D 

P028E 

P028F 

P0290 

P0291 

P0292 

P0293 

P0294 


0364 
6111 
Clio 
0 8 64 
6110 
ClOF 
0864 
610F 
GlOF 
0119 
ClOE 
6112 
ClOO 
611A 
ClDG 
6110 
El OB 
1300 
00C9 
C112 
910E 
611A 


P0295 0131 
P0296 1814 

P0297 C112 
PG298' ElOE 
P0299 610E 
P029A 4112 


PQ299 

P029C 

P029O 

PQ29E 

P029F 

P02AO' 

P02A1 

P02A2 

P02A3 

PG2A4 

P02A5' 

P02A6 


P0 2A? 
P02A8 
P02A9 
P0 2AA 
P02AB 


ClOB 
El OF 
61 OF 
41 OB 
CIQC 
€110 
6110 
41 OC 
CIOD 
£111 
6111 
410'D 


C112 
91 OE 
611A 
0822 
60D2 


TCA 
STA- 
LDA- 
TCA 
STA- 
LDA- 
• TCA 
STA- 
FA0D21 LDA- 
SAN 
LDA- 
STA- 
LDA- 
Sf A- 
LDA- 
STA- 
LDQ- 
JMP 


FA22 


LDA- 

SUB- 

STA- 


SAM 

JMPs^ 


LDA- 
SUB- 
STA- 
AOO'SS rPA 
INQ 


A 

D,I 
Cl, I 
A 

Cl, I 

G,I 

A 

C,I 

C,T 

FA22-^"1 
BETA j I 
DELTA, I 

B, I 

TEMPQ,I 
AI,I 
Cl, I 
A ,I 
STOCD 

DELTA, I 
BETA, I 
TEHPQ,I 

IF F .GE, 

1 

AD0S3 
IF F .LT, 
DELTA , I 
BET A , I 
BETA, I 
DELTA, I 

A, I 

C, I 
C,I 
A ,I 
A^1,T 
GH,I 
C»-1,I 
A^i , I 
A ^2 , 1 
C+2,I 

A«-2,I 


BELT A, I 
SETA, I 


COMPLEMENT C, Cl, AND D 


IF AGCUH IS ZERO, USE SECOND VALUE AS ANSWER 


FIRST WORD IS NOT ZERO 

TEHPQ=OELTA-0ETA 

GO TO ADD STEP3 (ADDS31 


EXCHANGE EXPONENTS 


BET A= DELTA 
OELTA=BETA 


C + 1=A--H- 
A 9-1=041 


C9-2= A9-2 

ft i X p 

C, Cl, 0 ARE NOW THE LARGER NUMBER 
AI, 8 ARE NOW THE SMALLER NUMBER 


TEMPQ,I 

Q 

-45 

IF SHIFT .GE. 


TEMPQ=DELTA-BETA 

Q=0€LTA-BETA 


N7200760 
N7200761 
N72G0762 
N720D763 
N7200764 
N7200765 
N72Q0766 
N72QQ767 
N7200768 
N7200769 
N7200770 
N7200771 
N7200772 
N72Q0773 
N7200774 
N720 0775 
N7200776 
N7200777 

N7200778 

N7200779 

N720078D 

N7200781 

N7200782 

N7200783 

N7200784 

N720D785 

N720 0786 

N72Q0787 

N7200788 

N72Q 0 789 

N72B0790 

N7200791 

N72G0792 

N7200793 

N72QG794 

N7200795 

N72S879B 

N720 0 797 

N7200798 

N7200799 

N7200800 

N72Q0801 

N720O8O2 

N7200803 

N7200804 

N72QG 805 

N7200306 

N72008C7 

N7200808 

N720 0809 

N7200810 

N7200811 


oodftn 
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0812 

PD2AC 

0178 

SQH 

0813 




0814 

P02AD 

cm 

LDA- 

0815- 

P02AE 

61 lA 

STA- 

0816 

PG2AF 

Clio 

. LQA- 

0817 

P02B0 

El CF 

LDQ- 

0818 

P02B1 

1800 

JMP 


P0 2B2 

00 A8 


0819 

PQ 2B3 

0F60 

LRSINS LRS 

0820 

P02B4 

7FF0 

H7FFG' NUM 


0821 

0822 

0823 

0824 

0825 

0826 
0827 
0826 

0829 

0830 

0831 
0332 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 
085 0 

0851 

0852 

0853 

0854 

0855 

0856 

0857 
0 85 8 

0859 

0860 
0861 
0862 
0863 


P02B5 
P02B6 
P02B7 
P02B8 
PD2B9 
PG2BA 
P02BB 
P02BC 
P02BO 
■PG2BE 
P02BF 
P02C0 
P02C1 
P02C2 
P0 2C3 
P02C4 
P02C5 
PQ2C6 
P02C7 
P02G8 
P02C9 
P02CA 
P02CB 
P0 2CC 
P02CO 
P02CE 


Elio 

cm 

0F64 
A8F8 
■El OF 
0161 
BO 06 
6111 
Clio 

ElOF 
0F62 
0F41 
AOll 
6110 
0814 
AOll 
610F 
El OC 
CiOD 
0F62 
6100 
El OB 
CIOC 
0F62 
4108 
61 OC 


P02CF 
P0200 
P02D1 
P0 2D2 
P02S3 
PO 2D4 
P0 205 
P02D6 


CllA 
9006 
0822 
F8E0 
48 lA 
0131 
1816 
CilA 


AS3 0 


11 


AS31 




LDQ- 

LOA- 

LRS 

AND^ 

LDQ- 

SQP 

EOR- 

STA- 

LDA- 


AS3Q-’^-l 
LEAVE THE 
0^1 

TEMPQ,I 
Cl, I 
G,I 
STOCD 

0 

'B7FF0 
STEP3 
Cl, I 
D,I 

H7FF0 

C, I 

LPMSK1-4 

D, I 
GI,I 


LARGER NUMBER IN THE ACCUMULATOR 


$7FF0 


SGQOF 

D=0,11LSB,4 


SIGN BITS 


LDQ- 

C,I 


LRS 

2 


ARS 

1 

S7FFF 

AND- 

LPMSK+15 

STA- 

Cl, I 

CI=0,15ISB 

TRQ 

A 

$7FFF 

ANO- 

LPMSK+1 5 

STA- 

LOQ- 

AI,T 

C~0SS,13MSB 

LDA- 

8,1 


LRS 

2 

B=101SB,6SIGN BITS 

STA- 

3,1 

LDO- 

A, I 


LDA- 

AI, I 


LRS 

2 


STQ- 

A, I 

A=SSS,13MS8 

STA- 

AI,I , 

AI=16IS8 


STEP 4. 

SHIFT SMALLER NUMBER RIGHT 


TABS. (BETA -DELTAn 
POSITIVE 


AND SET fHE SIGN OF MSB TO 
SHIFT ISB RIGHT 1, AND SET THE SIGN OF IS8 

SHIFT LSB RIGHT 1, ANO SET THE SIGN OF LS 8 

CLEAR THE CARRY TO BIT 15 ANO AOO 1 TO MSB 

POSITION THE SMALLER NUMBER 


POSITIVE 

POSITIVE. 


LOA- 

suo- 

TRA 

AOOT 

STQ» 

SAM 

JMP’f- 

LOA- 


TEMPQ,I 

LPHSK+4 

Q 

LRSINS 

LRS2 

1 

GE15 
TEMPO, I 


DELTA -SET A- 15 


IF i (DELTA-8ETAJ .GE. 15) GO TO GE15 


N7200812 
N720Q 813 
N72Q0 814 
N7200815 
N7200816 
N7200817 
N7200 816 

N7200819 

N72Q082D 

N7200821 

N7200822 

N7200323 

N7200824 

N7200825 

N7200826 

N7200827 

N7200 828 

N72Q0829 

N72Q0830 

N72G0 831 

N72DQ832 

N7200833 

N7200834 

N7200835 

N7200836 

N7200837 

N720 0 836 

N7200839 

N720 0840 

N72Q0841 

N7200842 

N7200843 

N7200844 

N720 0 845 

N720Q846 

N720Q847 

N72Q 0848 

N7200849 

N720 0 850 

N72B0851 

N7200 852 

N72QG853 

N7200 854 

N72Q 0855 

N72Q0 856 

N72Q 0 857 

N720 D858 

N7200859 

N720Q860 

N7200861 

N7200862 

N7200863 
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OATEi 08/19/99 


D 

0864 

P0207 

88DB 


ADD^ LRSINS 


0865 

P02D8 

63 OB 


STA’^ LRSl 


13866 

P02O9 

6 0 23 


ADD- 0NE8IT 

o : 

0867 

PQ2DA 

6803 


STA-* LRS 

0368 

P020n 

ClOO 


LOA- 3,1 


0869 

PQ20C 

El CC 


LDO- AI,I 


087 0 

P0 2DD 

0F60 

LRS 

LRS 0 

O ; 

0871 

P020E 

0F41 


ARS 1 

0872 

P02DF 

AQll 


AND- LPMSK+15 


0873 

P02E0 

6100 


STA- B,I 


0 87 4 

P02E1 

FI OR 


LOO- A, I 

O 

0875 

P02E2 

CIOC 


LOA- AI,I 

0876 

P02E3 

OF 60 

LRSl 

LRS 0 


0877 

P02E4 

OF 41 


ARS 1 


0878 

P02E5 

AQll 


AND- LPMSK“*15 


0879 

P02E6 

610C 


STA- AI,I 

o 

088 0 

P02E7 

0814 


IRQ A 


088 1 

P02E8 

AOll 


AND- LPHSK41 5 


088 2 

P02E9 

6108 


STA- A, I 

o ■■ 

0883 

P02EA 

180E 


JMP» STEP5 

0864 

P0 2EB 

CIQC 

GEl 5 

LDA- AI,I 


0885 

P0 2EC 

E108 


LDO- A, I 


0886 

PO 2E0 

OF eo 

LRS2 

LRS 0 

o 

0887 

P02EE 

0F41 


ARS 1 

0883 

P02EF 

AOll 


AND- LPMSK+15 


0889 

P02F0 

6100 


. STA- 8,1 


089 0 

P02F1 

0814 


TRQ A 

o 

0891 

P02F2 

AOll 


AND- LPMSK + 15 

0892 

P02F3 

610C 


STA- AT, I 


0893 

P02F4 

ClOB 


LDA- A, I 


0894 

P02F5 

OF 40 


ARS 13 

o 

0895 

P02F6 

AOll 


AND- LPMSK+15 

0896 

0897 

P02F7 

610B 

♦ 

STA- A, I 



0898 



Sf. ' 

STEP 5 

o 

0899 

0900 

P0 2F8 

08 42 

» 

STEPS • 

CLR 0 


0901 

P02F9 

cm 


LDA- D,I 


0902 

P02FA 

310D 


ADD- 8,1 

o 

0903 

P02F8 

6111 


STA- 0,1 

0904 

P02FC 

0123 


SAP AS6-»-l 


0905 

P02FD 

AOll 


AND- LPMSK+15 


0986 

P02FE 

61 11 


STA- D,I 

o 

0 90 7 


» 

STEP6 

0908 

P02FF 

OCOl 


ENQ 1 


0909 

P0300 

FllO 

AS6 

ADG- GI,I 


0910 

P0301 

4110 


STQ- Cl, I 

o 

0911 

P0302 

0 8 44 


CLR A 

0912 

P0303' 

0164 


.•SOP ASBO-^^-l 


0913 

PQ304 

0814 


TRQ A 


0914 

P0305 

AOll 


AND- LPMSK+1 5 

o 

0915 

P0306 

6110 


STA- Cl, I 

0916 

P0307 

OAOl 


ENA 1 


DELTA-BETA*! 
DELTA-BETA .LT. 15 

S7FFF 

$7FFF 

S7FFF 

DELTA -BETA .GE« 15 

$7FFF 

$7FFF 

?7FFF 


$7FFF - CLEAR THE CARRT BIT 
D=B*0 


$7FFF - CLEAR THE CARRY BIT 


N7200364 

N7200865 

N7200866 

N7200867 

N7200666 

N7200869 

N720037G 

N7200871 

N720aa72 

N7200873 

N72Q Q37Z* 

N72Q0875 

N7200876 

N7200877 

N7200878 

N72Q0879 

N7200880 

H7200881 

H720O882 

N72Q0883 

N7200884 

N7200885 

N7200886 

N7200887 

N7200888 

N7200889 

N7200890 

N72B0891 

N7200892 

N7200893 

N720 3894 

N7200895 

N7200396 

N720a397 

N7200898 

N7200899 

N7200900 

N7200901 

N7200902 

N720Q903 

N7200g0i+ 

N720G905 

N72009Q& 

N72D09Q 7 

N72G0908 

N7200909 

N720.0910 

N7200911 

N72B0912 

N7200913 

N720Q914 

N72G0915 

N7200916 


o 






O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 
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DATES 08/19/99 


P0308 
P03D9 
P03QA 
P030B 
P030C 
P0 30D 
P03QE 
P030F 


611A 

Clio 

810C 

6110 

0123 

AOll 

6110 

DllA 


AS60 


STA- TEMPQ,I TEMPO = COUNT FOR CARRYS INTO MSB 

LDA- Cl, I 
ADO- Al, I 
ST A- Cl, I . 

SAP AS601-^-l 

AND- LPMSK+15 $7FFF - CLEAR THE CARRY BIT 

C “J* A Cl I 

RAO- TEMPO, I TEHPQ=IEHPO+l 

STEP7 

LDQ- TEMPO, I 
ADO- A, I 
A D Q- G ■, I 
SOP AS61-'*^-l 

SUBTRACT END AROUND CARRY-INCREASE LSB BY 1 


P0310 EllA 
PC311 FlOB 
P0312 FlOF 
P0313 016E 


P0314 
P0315 
P0316 
P0317 
P0318 
P0319 
P031A 
P031B 
P031G 
PQ31D 
P031E 
P031F 
P0320 
P0321 
P0322 
P0323 
P0324 
P0325 
P0326 
P0327 
P0328 
PC329 
P0 32A 
P032B 
P032C 
P032D 
P032E 


P032F 
P0 330 
P0331 
P0332 
P0333 
P0 334 
P0335 
P0336 


Foil 
Clll 
0901 
6111 
0129 
A Oil 
6111 
Clio 
0901 
6110 
0123 
AOll 
6110 
ODOl 
41 OF 
Clll 
Elio 
OF Cl 
OFEl 
6111 
Alio 
ClOF 
OFCl 
0123 
Clll 
ao 04 
6111 


ElOF 
Clio 
FO 32 
0157 
0900 
0115 
Clll 
0900 


AS601 


ASdI 


$7FFF - CLEAR THE CARRY BIT 
TEHPO=IEHPO+1 


LPMSK+1 5 

D,I 

1 

D,I 

AS61-»-l 
LPMSK»1 5 
D,I 
GI,I 
1 

Cl, I 

AS61-^-l 
LPMSK-n5 
Cl, I 
1 

C, I 
0,1 
Cl, I 
1 

1 

D, I 
CI,I 

C, I 
1 

Tll-»-l 

D, I 

LPMSK+2 

Q, I 


$7FFF - CLEAR THE CARRY BIT 


$7FFF - CLEAR THE CARRY BIT 


S7FFF - CLEAR THE CARRY BIT 

INCREASE MSB BY 1 - 
C = QVS,13HSB 

SQUEEZE OUT LEADING ZtRO BITS 


10LSe,6 SIGN BITS 
: 16IS8 


$0003 

REPLACE SIGN BITS 


IF RESULT IS MINUS ZERO, GO TO ARGO 
MINUS ZERO IS Q=7FFF, A=FFFE 


C, I 
Cl, I 

ONEBIT^-15 

AS62-»-l 

0 

AS62-=»-l 

D, I 
0 


$ 8000 


o 


N72Q0917 
N720Q918 
N720Q919 
N720092Q 
N7200921 
N720S922 
N7200923 
N7200924 
N7200925 
N7200926 
N72DQ927 
N7200928 
N7200929 
N7200930 
N7200931 
N720G932 
N7200933 
N7200934 
N720D935 
N7200936 
N7200937 
N7200938 
N720093g 
N7200940 
N7200941 
N7200942 
N7200943 
N72Q0944 
N7200945 
N72Q0946 
N7200947 
N7200948 
N720D949 
N72QQ95.0 
N7200951 
N72I10952 
»FIN 3.1»^N7200953 
N72Q0954 
N7200955 
N720Q956 
N7200957 
N7200958 
N72G0959 
N7200960 
N7200961 
N7200962 
N7200963 
N720Q964 
N7200965 
N72QQ966 
N7200967 
N720Q968 
N7200969 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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r") 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0970 PD337 0112 

0971 P0338 1800 
P0339 FD33 

0972 
0 973 

0974 

0975 

0976 

0977 

0978 P033A GFAl 

0979 P033B QF6F 

0980 PO 33C 0872 

0981 P033D Clio 

0982 PG33E 017C 
0963 P033F ElOF 

0984 PC340 411A 

0985 PD341 0FE2 

0986 PQ342 410F 

0987 P0343 EllO 

0988 P0344 Clli 

0989 P0345 QFE2 

0990 P0346 4110 

0991 P0347 EllA 

0992 P0348 0111 

0993 P0349 0FE2 

0994 P034A 1800 

0995 PG34B 0112 

0996 P034C ElOF 

0997 P034D 411A 

0998 P034E OFEl 

0999 P034F 410F 
IQOO P0350 Elio 

1001 P0351 Cill 

1002 P0352 OFEl 

1003 P0353 4110 

1004 P0354 FllA 
100 5 PQ355 cm 

1006 P0356 OFEl 

1007 P0357 611A 

1008 P0358 Clio 

1009 P0359 ElOF 

1010 

1011 P035A 410F 

1012 P035B 0168 

1013 P035C 0864 

1014 P035D 0852 

1015 P035E 410F 

1016 P035F 6110 

1017 P0360 CllA 

1018 P0361 0864 

1019 P0362 A014 

1020 P0363 611A 

1021 PG364 Clio 


AS62-^-l 

ARGO 


QLS 

LRS 

EAQ 

LOA- 

SQM 

LDQ- 

STQ- 

LLS 

STC- 

LDQ- 

LOA- 

LLS 

STQ- 

LDQ- 

LOA- 

LLS 

JMP^ 

RAO- 

LDQ- 

STQ- 

■LLS 

STQ- 

LDQ- 

LDA- 

LIS 

STQ- 

LDQ- 

LDA- 

LLS 

STA- 

LT)A- 

LDQ- 

SAVE 

STG- 

SQP 

TCA 

TCQ 

STQ- 

STA- 

LOA- 

¥CA 

AND- 

STA- 

LOA-* 


DATE: 08/19/99 


AND OVERFLOW V IN BITS 1 AND 0 
, THEM V IS SIGN EXTENSION 
, THEN RESULT OVERFLOWED INTO V 


CHECK IF SIGN AND OVERFLOW EQUAL (SAME= 


S=V» SIGN EXTENSION 
TEMPORARY STORAGE FOR C 


S=V, OVERFLOW INTO V 
temporary STORAGE FOR C 


OELTA='DELTA+i 


THIRD WORD 


3 MAGNITUDE OF THE RESULTS 
C--A AND B IN A REG 

COMPLEMENT AI OR Cl 
COMPLEMENT A OR G 

KEEP IN A REG. 

THIRD WORD 

SFFFG 

THIRD WORD 
RELOAD A REG. 


N720097D 

N720C971 

N7200972 
N72Q0973 
N7200974 
N72G0 975 
N7200976 
H7200977 
N72QQ978 
N7200979 
0,DIF=1TN720D980 
N7200981 
N7200982 
N72Q8983 
N7200984 
N7290935 
N7200986 
N7200987 
N7200988 
N720D989 
N720099Q 
N7200991 
N72Q0992 
N7200993 
N7200994 
N7200995 
N7200996 
N72Q0997 
N72G0998 
N7200999 
N7201OOO 
N7201001 
N7201002 
N72010D3 
N7201304 
N7201C05 
N7201Q06 
N7201QQ7 
N7201008 
N72Q10D9 
N7201010 
N7201011 
N7201Q12 
N7201G13 
N720 1014 
N720 1015 
N7Z01016 
N7201017 
N7201018 
N7201019 
N720102Q 
N7201021 


u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE'S 0 8/19/99 


PQ365 OCFE 
P0366 1802 


1035 

1036 

1037 

1038 

1039 
1G4Q 
1041 


P 0367 
P0368 
P0369 
P036A 
P036B 
PQ36C 
P036O 
P036E 
PG36F 
P037Q 
PO-371 
P0372 
P0373 
P0374 
P0375 
P0376 
P0377 
P0378 


ODOl 

4106 

ocoo 

41 0€ 
ElOF 
0155 
0114 
CllA 
0112 
18 0 0 
FCFB 
4103 
Clio 

6104 
CllA 
6111 

6105 
1800 


ENQ 

JMP- 

PQS ENQ 

ST0S3N STQ- 
. ENQ 
STQ- 
LDQ- 
SQN 
SAN 
LOA- 
SAN 
JMP 

NORMAL STQ- 
LDA- 
STA- 
LDA' 
STA- 
STA- 
JMP 


-1 

STOSGN , 

POSinV'E, SET SIGN= + 1 
1 

SIGN, I 
0 

BETA, I 
C,I RESTORE Q 

NORMAL-^-1 
NORMAL-^-1 

TEMPO, I THIRD W 

NORMAL-»-l 

ARGO RESULT 


THIRD WORD 


RESULT IS ZERO 


G,I 
C I , I 
GH,I 
TEMPO, I 
0,1 
G+2,I 
NRMLIZ 


THIRD WORD 
THIRD WORD 



P0379 

FDAl 





1043 






’^796') 

1044 


0009 

p , 

EQU 

DPDK 

1045 


00 OA 

P 

EQU 

0PO2I 

DPOl't-lJ 

1046 


D3CD 

P 

EQU 

OP03‘X 

DP02»96) 

1047 

P037A 

0 0 46 


BSS 

{DP03 

) 

1048 




END 



PGM = 

0 3C0 

{ 

9601 

COM = 

0900 { 

0^ 


GGQO ( 


o 

o 

o 

o 

o 

o 


o 


N7201022 
N7201023 
N7201024 
N72Q1Q25 
N7201026 
N7201027 
N7201C28 
N7201029 
N7201030 
N7201031 
N7201032 
N7201033 
N72Q 1034 

N7201D35 

N7201036 

N72C1037 

N7201Q38 

N7201039 

N7201Q40 

N7201041 


N7201043 
N7201044 
N72D1045 
N7201046 
NTZOIO^+Z 
N7201 048 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE) 


08/19/99 


: Q u I V 

A L E N C E S 

OEF.LINE 

NAME ■ 

VALUE 

0000 

I 

OOFF 

0 050 

G 

000 3 


0050 
0 050 
0 051 

SIGN 

ERRORS 

F 

000 6 
000 7 
00 08 

0051 

A 

OOOB 

0 051 

AI 

OOOC 

0052 
0 052 
0 052 ■ 

BETA ' 
C 

GOOD 

OflOE 

OOOF 

0053-- 

Cl 

0010 

0053 

0 

0011 

0053 
0 0 5 4 
0 054 
0 054 ■ 

0 055 
0055 

0055 

0056 
0056 

DELTA 

SHIFCT- 

RELAOR ' 
OPCNT ■ 
■INDEX 
OPCODE' 

as 

TEMPO 

0012 
0013 
001 4 

0015 

0016 

0017 

0018 
0019 
OOIA 

0 0 56 

TEMGP2 

COIB 

0057 

T1 

OOlC 


REFERENCED AT LINE NUHBER 


1000255} 

(000003} 

0144, 

014 6, 

0149, 

0158, 

0249, 

0251, 

0252, 

0254, 


0383 , 

0387, 

0339, 

C 390, 


Q 443, 

0444, 

0448, 

0449, 

(000006} 

0156, 

0199, 

0247, 

0269, 

( 000007} 
( 000006} 

0 673, 
0 280, 

0 676 
0 283, 

0 28 6, 

0287, 

0408, 

0411, 

0412, 

0 413, 


0725, 

0 735, 

0736, 

0745, 

10000111 

0328, 

0335, 

0347, 

0471, 

0776, 

0792, 

0795, 

0 796, 

(0000121 

)341, 

0 372, 

0 473, 

0 527, 

0879, 

088i*, 

0892, 

0919 

( 00D0131 

0359, 

0475, 

■0534, 

0537, 

1000014} 

0 457, 

0477, 

0513, 

0520, 

{ 000015} 

0170, 

0178, 

0182, 

0194, 

0768, 

0793, 

0794, 

07 97, 


0986, 

0996, 

0 999, 

1009, 

(000016} 

0187, 

0195, 

0230, 

0242, 

0816, 

0 822, 

0830, 

0 83 5, 


0981, 

0987, 

0990, 

1000, 

(000017) 

0190, 

0196, 

0243, 

0 334, 

0903, 

0906, 

0932, 

0934, 

i 000018} 

0177, 

0197, 

0235, 

0446, 

(0000191 

0398, 

0415, 

0 458, 

0519, 

(0000201 

0075 , 

0079, 

0082, 

0217, 

(0000211 

0 0 69, 

012 0, 

0124, 

0 281 

(0000221 

00 77, 

0 08 5, 

0090 

0 290 

(0000231 

0071, 

0 131, 

0135, 

( 0000241 

0(381, 

0093, 

0096 


(O0Q0251 
< 0000261 

0 0 66 , 
0161, 

0216 

0167, 

0169, 

0179, 

0'6 30 , 

0635, 

0 837 , 

0 649, 


0984, 

0991, 

0997, 

1004, 

(000027) 

0159, 

0164, 

0166, 

0183, 

(0000281 

0704, 

0478, 

0719, 

0611 

0724 



Gl6 0 , 

020 8, 

0210, 

0212, 

0226, 

0227, 

0255, 

0257, 

0302, 

0333, 

0352, 

0357, 

0392, 

0394, 

0395, 

0399, 

0 401, 

0 40 3 , 

0 450, 

0 454, 

0600 , 

0 60 5, 

0609, 

1035, 

0270, 

0 321, 

0322, 

0 501, 

0502, 

0758, 

0239, 

0345, 

0351, 

0354, 

0356, 

0365, 

0418, 

n *7 f. c. 

0 42 6, 

0427, 

0 507, 

0510, 

Q 623 , 

0 f Hb 

0503, 

0524, 

0530, 

0560, 

0565, 

0599, 

0799, 

0800, 

0803, 

0 843, 

0846, 

0 874, 

0529, 

0 542, 

0 544, 

0 547, 

0657, 

0750, 

0660, 

0 751, 

0772, 

0840, 

0842, 

0868, 

0 523, 

0647, 

0734, 

0 770, 

0 779, 

0788, 

0223, 

0 265, 

0 325, 

0358, 

0 371, 

0455, 

0798, 

0801, 

0802, 

0817, 

0826, 

0 83 1 , 

1011, 

1015, 

1029 




0 340, 

0 346, 

Q452, 

G472, 

0481, 

0 612, 

0909, 

0910 , 

0915, 

0918 , 

0920, 

0923, 

1003, 

1008, 

1016, 

1021, 

1036 


0 453 , 

0 474, 

0483, 

0614, 

0 682, 

0752, 

0937 , 

0 946, 

0950, 

0955, 

0957, 

0968, 

0456, 

0459, 

0476, 

0485, 

0684, 

0 77 1 , 

0 555, 

0579, 

0 5 63, 

0 59 5 



0278, 

0 291 






0 184, 

0339, 

03 53, 

0 5i>2, 

0557, 

0 562 , 

0 65 4, 

0 744, 

0749, 

0 773, 

0780, 

0808, 

1007, 

1017, 

1020, 

1032, 

1038 


0332, 

0 3® 5, 

0571, 

0577, 

0 58 6, 

0591, 


0228, 
0364, 
0 422, 
1037, 
1026 

0234, 

0369, 

0425, 

1040 

0238, 
0370, 
{}43 0, 

0 240, 
0376, 
0431, 

0241, 
0378 , 
0 438, 

0246 
0381 
0 442 

0367, 

0626, 

0400, 

0628, 

0402, 

0629, 

0404, 

0661, 

0 406, 
0722, 

040 7 
0 723 

0604, 

0882, 

0774, 

0608, 

0885, 

0839, 

0639, 

0893, 

0844, 

0 648, 
0896, 
0847, 

0652, 

0927 

0869, 

0 741 
0375 

0873, 

0789, 

0470, 

0838, 

0889, 

08G7, 

0479, 

0928, 

G902 

1028 

0610, 

0945, 

0678, 

0952, 

0765, 

0962, 

0767 

0983 

0680, 

0938, 

0753, 

0940, 

0756, 

0943, 

0762, 
0 947, 

0764, 

0951, 

0775 
0 963 

0767, 

0988, 

0778, 

0761, 

0992, 

0787, 

0 814, 
1001, 
0 790, 

0823 , 
1005, 
0806, 

0 829, 

1039 

0995 

0901 


0566, 

0615, 

0574, 

0856, 

0580, 
0 863, 

0585, 

0917, 

0590, 

0924, 

0 596 
0926 

0 594, 

0601, 

0 62 4, 

0 632 , 

0 634, 

0 653 


o 


o 
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PAGE 
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o 

0057 

f 2 

OOID 

(000029) 

0 48Qt 


0 057 


ODIE 

TO 00030) 

0 482, 


0057 

flULOI'V 

OGIF 

(OD0031) 

0 0 73, 

o 

0 058 

LPMSK 

0002 

(000002) 

0181, 

0536, 






0888, 


0058 

NZEPO 

0012 

T000018) 



0 058 

ZERO 

0022 

T 000034) 

0 Q8D, 

o 

0058 

ONEBIT 

0023 

10 00035) 

0174, 


0 058 

ZROBIT 

0033 

(000051) 

Q 410 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DATES 08/19/99 


0 613 

0615 

0466, 

018 6, 

0554, 

0891, 

0487, 
0 233, 
0556, 
0895, 

0617 

0236, 

0570, 

0905, 

0300 , 
0 573, 
0914, 

0304, 

0651, 

0922, 

0331, 

0656, 

0931, 

0 350 , 
0743, 
0936, 

0375, 
0 74.8, 
0942, 

0486 

0237, 

0467, 

0 484, 

0504, 

0514, 

0518, 

0539, 

0551, 


O 


0384, 

0828, 

0956, 

0383, 

0834, 

1019 

0421, 

0837, 

0 42 4, 
0857, 

0429, 

0872, 

0436, 

0878, 

Q A4Q 
0831 

0 564, 

0593, 

0616, 

0644, 

0731, 

0 866, 

0 964 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


I 


o 


ODDFTN 
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DATE: 08/19/99 


n 


SYMBOLS 


o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DEF.’LINE 

NAME 

ADDRESS 

REFERENE 

, 0043 

OFLOT 

0000 

0 0 43, 

0 075 

STOREP 

DOOB 

0088 

Q 07 6 

INTERP 

OOOC 

0 08 5 

NXTOPC 

0013 

0125, 

0 089 

A1 

0017 

Q 0 87 

0093 

DECODE 

0019 

0 0 83 

0 098 

EXECUT 

OOID 

ao 98, 

0114, 

0100 

FLINS 

OOIF 

0 120 

GHHD 

002F 

0105 

0124 

A2 

0 033 

0122 

0127 

NIDX 

0035 

0 106 

0 130 

INDX 

0037 

0 115 

0135 

STONDX 

003C 

0128 

G142 

OFLDD 

003E 

0111 

0156 

A3 

0049 

0154 

0 17 0 

STEP2B 

0056 

0162 

0173 

A4 

0059 

0 171 

0192 

H7FC0 

0Q6C 

0 189, 

0 193 

ARGO 

006D 

0172, 

020 6 

OFLST 

0075 

0 113 

0 214 

ANXT 

0070 

0 271 

0215 

FEND 

0 0 7E 

3100 , 

0 216 

FLIT 

007F 

0101, 

0 221 

QFEXIT 

Q085 

0 218, 

0222 

FLTSTO 

0 08 6 

0206, 

0 230 

FLSTi 

00 8D 

0 225 

0 258 

FLSTA 

00A9 

Q 229 , 

0265 

FCOM 

OOAB 

0107 

0 268 

ACHOK 

OOAE 

0 2 66 

0272 

ALZERO 

0 0 B2 

0279 

0277 

OPERND 

0083 

013 2, 

0 28 0 

DIRECT 

00B6 


Q 267 

A5 

00 BD 

8 282 

0289 

A8SDIR 

ODRF 

0 29 0 

OP A 'DR 

OOCO 

0288 

0 293 

CARRY 

O0C3 

0 3 0 6, 

0306 

SKP 

OOGC 

0 298 , 

0315 

DFMFY 

DOCO 

0109 

0325 

FLTl 

0005 

8319 , 

0327 

JMPOUT 

00D7 

0 318 


REFERENCED AT LINE NUMBER 


o 


o 


0136, 

0191, 

0200, 

0214, 

0469, 

0517, 

0685 

O 

0099, 
Oil 5 

0100, 

OlDl, 

010 2, 

010 3, 

0104, 

0105, 0106, 0107,. 0108, 0109, 0110, 0111, 0112, 0113 

o 








o 








o 

0 451 
0267, 

0327, 

0526, 

0 971, 

1 034 



o 

010 4 
0102, 
0 22 0 
0215, 

0103, 

0259 

0112 





o 

0248 







o 

0142, 

0207, 

0292, 

0 315, 

0 494, 

07 Gif 

0717 

o 

0355, 

0366, 

0368, 

0 377 




o 


o 


o 

o 


o 

o 


o 


o 


o 

o 

o 

o 

n 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



OODFTN 
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0328 

NOZERO 

Q0D8 

0326 

0385 

SKPl 

0110 

0362 

0389 

SKP2 

0114 

0 386 

0 390 

SHIFTA 

0115 

0 618 

0397 

NRMLIZ • 

OllB 

10 41 

0 4D4 

STEP6 

0122 

0 416 

0 417 

H7F80 

012F 

0739 

0 418 

STE-P6A 

0 13 0 

0414 

0 45Q 

STP6 

015 0 

0 445 

0 451 

STEP6B 

0151 

0 434' 

0458 

GOMBIN 

0159 


0466 

TESTOV 

0161 

0 463 

0 47 0 

OIV 

0166 

0 468 

0 49«i 

OFOiy 

Q17A 

0110 

0 499 

A6 

0180 

0 497 

0503 

FLT2 

0184 

Q 499 

0507 

PLUSl - 

0188 

0 505 

0 510 

PLUS12 

018 E 

0 508 

0 513 

PLUS13 

018E 

0511 

0 517 

EXPOl 

0192 

0515 

0 518 

FLT3 

0194 

0 506. 

0 52 7 

F02 

019E 

0 525 

0 536 

FD3 

OlA 6 

0 532 

0542 

F04 

OlAC 

0 538 

0 547 

NORM 

0131 

0 535. 

0558 

• STEP5E- 

OIBB 

0 5 49- 

0577 

TSTl 

OIGE 

0 575 

0579 

CRROC 

0 100 

0 576 

0595 

DONE 

OIDF 

0 57 8 

0621 

FIT SET • 

01F8 

0 316- 

0639 

STEP2A 

02D A 

0, 6 3 1 

0 643 

A9 

0200 

0 641 

0647 

■ ARGFQ 

0 211 

0 6 42 

0 665 

-QIVZER 

0221 

0 498 

0667 

OVFUNF 

0223 

0464 

0 673 

■ SETERR 

022 7 

0 6 66 

0685 

■ NXT0P3 

0233 

0730 

0687 

RSLT8 

0235 

0 659 

0 68 8 

- RSLTAI 

0238 

0679 

0 6-89 

RSLTA 

G23B 

0677 

0 691 

RSLTEX 

Q23E 

0683 

G 692 

ERASE 

0241 

0674 

0 693 

SET8IT 

0244 

0 675 

C 694 

H8G7F 

024 7 

0 737 

0 701 

OFSUB 

0248 

0108 

0717 

0FADD 

0252 

0114 

0722 

FAOD2 

0258 

0709 

0 72 8 

AlO 

025E 

0 726 

0740 

All 

026B 

0 738 

0768 

FADD21 

028 7 

0 759 

0778 

FA22 

0292 

0769 

0809 

A00S3 

02AA 

0785 

0819 

LRSINS 

02B3 

0 859 


OATEJ 08/19/99 


0 A3 7 


05S9» 0512, 0516 


0541, 
0 553 


0587 

D495, 


0670 

0681 


0545 


0662 


0 864- 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 


o 

o 

o 

o. 

o 

o 

o 

o 
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0 820 

H7FF0 

0284 

0825 



0 822 

AS30 

02B5 

Q 812 



0829 

LI 

02BC 

0 827 



0 839 

AS31 

02C6 




0870 

LRS 

02OD 

0 867 



0 876 

LRSl 

0 2E3 

0 8 65 



0 884 

GE15 

02;eb 

0862 



0886 

LRS2 

02ED 

0 860 



0900 

STEP5 

02F8 

0 8 83 



0909 

AS6 

0300 

0904 



0917 

AS60 

0308 

0 912 



0926 

AS601 

0310 

0921 



0 945 

AS61 

0322 

0929, 

0935, 

fl 941 

0962 

Fll 

032F 

0954 



0 976 

AS62 

033A 

0965, 

0967, 

0970 

0 983 

SHFT2 

033F 




0995 

SHFTl 

034B 

0982 



1007 

RESUME 

035 7 

0994 



1011 

STOCO 

035A 

0 777, 

0618 


1025 

POS 

■ 0367 

1012 



1026 

STOSGN 

0368 

1023 



1035 

NORMAL 

0372 

1030, 

1031, 

1 033 

1044 

OPQ 1 

000 9 

1045 



1045 

OP02 

OOQA 

1 0 46 



1046 

0P03 

03C0 

1047 




o 


o 


o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


u 


OOQFTN 


PAGE 32 OATES 08/1G/99 


o 


C' 


□ 


EXTERNA LS 

o 


o 


OEF.LINE NAME VALUE 

OOA6 AVOLA 00 0 2 

00A7 AVOLR 0033 


REFERENCED AT LINE NUMBER 

0 0 65 
0 219 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 
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date? 08/19/99 



O alphabetical SOflT OF SYHBOLS 

A2 0124 

AI 0051 

AS601 0926 

CHMO 0120 
DFEXIT 0221 
DONE 0595 
FA22 0778 
FLIT 0216 
GE15 0884 
JMPOUT 0327 
NORM 0547 
OPCNT 005 5 
QS 0056 

SHFTl 0995 
STEP2B 017D 
STOSGN 1026 
TSTl 0577 


O 


O 


O 


O 


o 


o 


o 


o 


o 


o 


0 051' 
0643 
0822 
0052, 
0093 
0701 
0050 
0 53 6' 
0518 
000 0 
0 886 
0085 
0507 
0 63 7 
030 6 
0451 
0057 


Al 

ABSDIR 

AS31 

BETA 

DELTA 

DIRECT 

EXE CUT 

FD4 

FLTSET 

INDEX 

LRSINS 

NZERO 

PLUS12 

RSLTEX 

SKPi 

STOCD 

TEMGP2 


0 0 89 
0289 
0839 
D052 
0 053 
0 280 
0 098 
0542 
0621 
0 055 
0819 
0058 
0510 
0691 
0385 
1011 
0 0 56 


AID 

ACMOK 

AS6 

C 

OFADO 

DIV 

EXPOl 

FEND 

FLTSTO 

INDX 

MULDIY 

ONEBIT 

PLUS13 

SET BIT 

SKP2 

STON9X 

TEMPQ 


0728 
0268 
0 909 
0 0 52 
0717 
0 470 
0517 
0215 
0222 
0130 
0 057 
0058 
0513 
0693 
0389 
0135 
0 056 


All 

A0DS3 

AS60 

CARRY 

QFQIY 

OIVZER 

F 

FLINS 

G 

I NT'ERP 
NIDX 
OPA’DR 
POS 

SETERR 
STEP2A 
STORE'P 
T F«;Tnv 


A3 0156 

ALZERO 0272 
AS61 0945 
Cl 0053 

DFLDD 0142 
DPGl 104 4 
FADD2 0722 
FLSTl 0 23 0 
H7F80 0417 

LI 0829 

NORMAL 1035 
OPCODE 0055 
RELADR 0054 
SHFT2 0983 
STEP5 0900 
STP6 0 450 
ZERO 0058 


A4 0173 
ANXT 0214 
AS62 0978 
COMBIN 0458 
OFLOT 0043 
DP02 1045 
FADD21 0768 
FLSIA 0258 
H7FGC 0192 
LPMSK 0058 
NOZERO 0328 
OPERND 0277 
RESUME 1007 
SHIFCT 0054 
STEP5E 0558 
11 0 0.57 
ZROBIT 0058 


A5 0287 

ARGO 0193 
AVOLA 0046 
CPROC 0579 
OFLST 0206 
DP03 1046 
FCOM 0265 
FLTl 0325 
H7FF0 0820 
LRS 0870 

NRMLIZ 0397 
OVFUNF 0667 
RSLTA 0689 
SHIFTA 0390 
STEP6 0 40 4 
Til 0962 


A6 

0499 

ARGFO 

0647 

AVOLR 

0047 

0 

0053 

OFMPY 

0315 

ERASE 

0692 

FD2 

0527 

FLT2 

0503 

H807F 

0694 

LRSl 

0876 

NXT0P3 

0685 

P 

0054 

RSLTAI 

0688 

SIGN 

0050 

STEP6A 

0418 

T2 

0057 


r>-*. 

u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


000 1 
000 ? 
00 03 
000 i+ 
000 5 
000 6 
ODO'7 
0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
002 4 

002 5 
0026 
0027 
002 8 

0029 

0030 

0031 

0032 

0033 

0035 

003 6 

003 8 

0039 

0040 

0042 

0043 
00 44 
0045 


0047 

0048 

0049 


ECONV 


PAGE 


DATE: 08/19/99 


OQ 02- 
3 0 22 
0 0 46 


V- 

■3- 

W* 

^ Sr 
if. 

■3^ 

if. 

¥ 


NAM ECONV DECK-ID N73 NSOS 5;.0 

MASS STORAGE OPERATING SYSTEM VERSION 3.0 
SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 




SUBROUTINE TO CONVERT VALUE TO FLOAT 


V-9^3-V’3-V-3-V-V- 

CALLING SEQUENCE : 

RTJ ECONV 

AOC BUFFER-^ ^POSITIVE COUNTS! 

"BUFFER" ASSIGNMENT ^ 


WORD 1 NO. OF DIGITS 
WORD 2 MO. OF INTEGER 

3 NO. OF FRACTIONAL NUMBERS 

4 SIGN I0 = i-, !=-•) 

5 »E*/'0* {0=UNUSEO, 2=*E’, 

6 EXPONENT VALUE 

7 INPUT DIGIT (BINARY) 

8 • * • • 


'DM 


ENT ECONV 


ENTRY 


N A 

F-FORMAT OR 
X r E R 


M ^ 

E-FORHAT CONVERSION 


EXT» LAZYl 

EXT» PLOT, FLOAT, Q8QFIX 


EQU 

EQU 

EQU 


■» 


LPMSK12.') 

ZER0T$22) 

N010I$46) 




EQU 


TABLE 


SUHMARY-11UN730Q001 
N730Q002 
N7300DQ3 
N730Q004 
N73GQ005 
N73D00Q6 
N7300007 
N73000Q8 
N73000Q9 
N7300010 
N730a011 
N730Q012 
N7300Q13 
N7300014 
N7300015 
N73DQQ16 
N73 0 0 017 
N73Q0 018 
N7300019 
N7300020 
N7300021 
N7300022 
N7300 023 
N7300024 
N73C0025 
N73G0026 
N7300027 
N7300 028 
N7300029 
N730QQ30 
N7300031 
N7300 032 
N7300033 

N7300035 
N7300036 

N7300038 
N7300039 
N73G0040 

N7300 042 
N7300043 
N7300044 
N730CQ45 


PROGRAM 


start 




N7300047 

N7300046 

N7300049 


o 


C.P'Tl 

I 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


c 


o 


2 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


c 


0051 

005? 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

006? 

0053 

0064 

0065 

0066 

0067 

0068 
0069 
OOFO 
0071 
007 2 
0073 

007 4 

0075 

0076 
0D77 
0078 
0079^ 
0080- • 
0061 

008 2 
008 3 
00 8 4 
008 5 
008 6 

008 8 


009 0 
0091 
009? 


PDOOO 

POOOl 

FOOD? 

P00Q3 

P0Q04 

P0005 

PflOQ6 

P0007 

P00D8 

P0009 


coNy 


QBQO 
CCFE 
88FD 
6805 
08FB 
01 54 
5800 
7FFF 
0000 
1CF6 


ECONV 


LAZ- 

LAZEXT 

* 

■ 9 - 

9 - 

9 

9- 

* 

» 

■» 

9- 

9 

9 

* 

■5f 

» 

■9 

* 

9 

9 

9 

•9 

9 

9 

9 


9 

9*999 

9 


PAGE 


NOP Q 

loa» lEcoNy) 

ADD'* ECONV 
ST A* LAZ 
RAO^ ECONV 
SON ETOI 
RTJ LAZYl 

NUM 0 

JHP» lECONVJ 


DATES 08/19/99 


ENfR-Y 


SET EXIT 

SKIP ON FLOAT TO INTEGER 


RETURN 


9 99 99 999*99 99999999999 9 9 99 * 9 *****^*************’^****'*^ 
9 - 


ROUTINE TO CONVERT SINGLE PRECISION VALUE 
iFtOATING POINTI INTO E-FORMAT (INTEGER) 


* 999 ** 99*99999999999999999999999999999999999999999999 


POINT VALUE 

03 SIGN 
0^4-05 ' 0. * 

06-12 7 DIGITS 

13 * E * 

14 SIGN 
15-16 EXPONENT 


ENTRY 


NAME 


99999 


PROGRAM 


STAR 


99999 


o 


o 

o 


0094 

0095 

0096 

0097 
0093' 
0099 


P 0 0 0 A 

48 

IE 

ETOI 

STQ» 

POOOB 

68 

59 

PI 

STA» 

POOOC 

60 

FF 


STA- 

POOOD 

C8 

37 


LDA»- 

POOOE 

68 

38 


STA^ 

POOGF 

C8 

36 


LDA^ 


QSAVE 

CALPAR 

I 

ONE 

B 

ONE + l 


SAVE Q- REGISTER 


N7300Q51 

N7300052 

N7300053 

N7300054 

N73Q0Q55 

N7300Q56 

N7300057 

N73Q0058 

N73Q0059 

N7300060 

N73GQ062 

N7300S63 

N7300064 

N73QG065 

N7300G66 

N7300067 

N7300068 

N7300069 

N7300070 

N730S071 

N7300072 

N730a073 

N7300 074 

N7300075 

N73Q0076 

N730a077 

N730fl076 

N73Q0879 

N73Q0080 

N7300a81 

N7300D82 

N730Q083 

N7380034 

N73G0085 

N7300Q86 

N7300088 


N7300u9C 

N730Q091 

N73D0092 


N73ea094 

N7300095 

N73B0096 

N7300Q97 

N7300096 

N7300099 



O 

O 

O 

o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


HCONV 


PAGE 
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DATES 08/19/99 


0100 POQIQ 6837 


STA '» 3 *1 


PD Oil 
P0012 
P0013 
PQOIA 
PQ015 
PD016 
PQ017 
P0018 

P.0 019 
-PSfl lA 
P0018 
POOIC 
pooin 

POOIE 

POGIF 


0C03 

0A30 

6722 

0001 

0814 

09EF 

0101 

18F9 

QA2B 
6102.- 
6100 
0 A2E 
6104 
0A45 
610C 


FILLl 


FILL BUFFER WITH i-0 . 0 0 0 0 Q OOE-s- 0 D 


INQ 
IRQ 
■ INA 
SAZ 
JMP* 

* 

FILSTG ENA 
STA- 


STA- tZERO'),B 


1 

A 

-16 

FILSIG 

FILLl 


STA- 13^1 
ENA $2E 
STA- 4»I 
ENA $45 
STA- 12il 


INSERT 


INSERT 

INSERT 


N7300100 

N7300102 
N7300103 
N7300104 
N730010 5 
N73G0106 
N730D107 
N73001G8 
N7300109 
N7300110 
N73D0ill 
N7300112 
N7300113 
N7300114 
N7300115 
N730ail6 
N7300117 
N7300118 
N7300119 


0121 

0122 

0123 

0124 

0125 
012 6 

0127 

0128 

0129 

0130 

0131 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 


POO 20 
PO021 
PG022 
P0023 
P-0 024 
P0025 
P0026 
P0027 


P0 028 

P0029 
POO 2 A 
P0Q2B 
P0D2C 
P002D 
PDQ2E 
PQ02F 
P0030 
P0031 
P G 03 2 
PO033 


ClOl 
68 45 
C522 
68 42 
0134 
OllE 
E8 02 
18E1 


0900 . 

OlOC 

580 0' 

7FFF 

5B70 

0037 

0036- 

4000 

0A2D 

OC02 

6E31 


% 


CHECK 


LOA- 1,1 

STA» yAtue+1 

LDA- (ZERO), I 
■STA» VALUE 
. SAM COHVAL 
•SAN LESSl 
RETURN LDD’^ QSAVE 
JMP* LAZEXT 


VALUE IS NEGATIVE 


TO COMPLEMENT VALUE 
RESTORE Q-REGISTER 


QSAVE 

COHVAL 


0147 

0148 P0034 C831 

0149 P0035 9011 

0150 P0036 0111 


LESSl 


TOST A R 
PLOT 


COMPLEMENT 'VALUE_^^^ 
CHECK FOR SFFFF 


NUM 

ADC 

ADC 

NUM 

ENA 

ENQ 

STA=» 


$5B70 

VALUE-» 

VALUE-* 

$40 0 0 
$20 
2 

(CALPAR) -,Q 


MODE, LOAD, COMPLEMENT, STORE 

END OF SEQUENCE 
INSERT 


CHECK 

LDA» VALUE 
SUB- LPMSK+15 
SAN NORMAL 


FI VALUE LESS THAN 
SONH IN FLOATING PT . - 
CHECK FOR $7FFF 
NO, SKIP 


ONE 

$40CO,OOOOJ 


N73G0121 
N730D122 
N7300123 
N7300124 
N73G0125 
N7300126 
N730Q127 
N73GD128 
N730Q129 
N730G 130 
N7300131 

N 73 00 13 3 
N73QQ134 
N730 013 5 
N73G0136 
N7308137 
N730G138 

N7300139 

N7300140 

N7300141 

N7300142 

N7300143 

N730Q144 

N73Q0145 

N7300147 

N7300146 

N7300149 

N73Q0150 


o 


o 


ECOMV 


PAGE 


4 


DATE'S 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 



TO FILL BUFFER WITH 
5 

GREATER THAN 1, SKIP 
GO, VALUE LESS THAN 1.0 

GREATER THAN 1, GO 

FOR VALUE = 1.0 

SET UP +0.100QOQOE+01 

TO EXIT 

CONSTANTS AND STORAGE LOCATIONS 
ONE IN FLOATING POINT 


o 

o 


o 


o 


0175 

0176 

0177 

0178 

0179 

018Q 'POOAB JAOl 

0181 P0C4C -6810 

0182 P004D C81A 

0183 P0Q4E 68F? 
0184' P004F 0819 

0185 POQ50 68F6 

0186 

0187 PODSl 5S00 
P0052 002C 

0188 PQ053 58A0 

0189 P0054 flflll 

0192 PQ055 7FF0 
0191 P0056 7FF2 
Q19E P0057 4000 

0193 P0058 C8F0 

0194 P0059 98EA 

0195 P005A 013F 


VALUE IS GREATER THAN ONE 
CALCULATE EXPONENT VALUE SIZFl 

. GRfl <ENA 1 
S T A J 

GRTll LOA» TEN R=1Q.0 

-STA» 3 . ' 

LOA» TENrH 
STA’*^ R’+-i 

. ■ CONVFRT VALUE- TO LESS THAN 1 TCAL. 

X- GRI15 . RTJ FLOT 
X 

HUM $5BAQ 
ADC VALUE-» 

ADC 

ADC A-» 

NUM $4000 
LDA» A 
SUB» ONE 
SAM EXPV 


MODE, LOAD, DIVIDE, STORE 
tA=VAlUE/B? 

STOP 

CHECK IF LESS THAN l.C 


O 

O 


YES, SKIP 


O 


-- 1Q»»I 


10»»I3 


N7300151 

N7300152 

N730D153 

N73Q0154 

N7300155 

N7300156 

N73DQ157 

N730Q158 

N7300160 

N7300161 

N73Q0162 

N7300163 

N7300164 

N738'0165 


N73Q8167 

N73Q0168 

N73Q0169 

N73Q0170 

N730Q171 

N7300172 

N730Q173 


N73S0175 

N7300176 

N7300177 

N7300178 

N7390179 

N73a018G 

N73CQ181 

N73Q0182 

N7300183 

N7300184 

N?38ei85 

N7300186 

N73Q0187 

N73QQ188 

N73G0ia9 

N730S190 

N7300191 

N7300192 

N7300193 

N7300194 

N7300195 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


ECONV 


PAGE 


5 


DATES 08/19/99 


o 


o 

o 

o 

o 

o 

o 


o 


o 

o 

’O 

o 

o 


0136 

P0053 

08 DE 

RA0» 

J 

019 7 

P00 5C 

5800 X 

RTJ 

PLOT 


P005D 

0 0 52 X 



0198 

P0 05E 

5B9D 

NUM 

S5B9D 

019 9 

P0 05F 

7FE6 

ADC 


020 0 

P006D ' 

00 07 

ADC 

TEN-» 

0201 

P0061 

7FE4 

ADC 

B-9- 

0202 

PQ962 

4000 

NUM 

$4000 

0203 

P0063 

18E0 

JMP’^ 

GRT15 

020 5 





020 6 

PD064- 

GOOD CAL PAR 

NUM 

0 

020 7 

P0065 

0000 VALUE 

NUM 

0,0 


P0066 

00 0 0 



0209 





0210 

P0067 

42 50 TEN 

NUM 

$4250,0 


P0068 

OOOO 



0211 

Pfl069 

0 0 0 0 J 

NUM 

0 


0213 







0214 






SET 

0215 







0216 

P006A 

5800 

X 

EXPV 

RTJ 

PLOT 


P006B 

0 0 50 

X 




021 7 

P006C 

5BA0 



NUM 

$58A0 

0218 

P006D 

7FD8 



ADC 

3-» 

0219 

P006E 

7FF8 



ADC 

TEN-» 

0220 

PD0 6F 

7F06 



ADC 


0221 

PG070 

4000 



NUM 

$4000 

0222 

P0071 

0 8 42 


CON VS 

CLR 

Q 

0223 

P0072 

C8F6 



LOA’ 

J 

0224 

P0073 

3046 



OVI- 

NOlO 

0225 

P0074 

48D3 



ST Q'» 

INDEX 

0226 

P0075 

QCOE 



ENQ 

14 

0227 

P0076 

0930 



INA 

$30 

0228 

P0077 

6 EEC 



STA» 

T CAL PARI ,Q 

0229 

PO 078 

0001 



INC 

1 

0230 

P0079 

C8CE 



LOA» 

INDEX 

0231 

PGQ7A 

0930 



INA 

$30 

0232 

P007B 

6EE8 



STA» 

(CALPAR) ,Q 


NO, BUMP EXPONENT SCALE BY 1 AND REPEAT 
CALCULATE B=B^10.0 

CALLING PAR. ADDRESS (FILLED,) 

TEN IN FLOATING POINT 

UP EXPONENT VALUE 
18=8/10.0) 

SEPARATE EXPONENT INTO TENTH AND UNIT 
convert exponent value INTO ASCII AND SAVE 


N730 

N73Q 

N730 

N73Q 

N730 

N730 

N730 

N730 

N730 

N730 

N730 


0196 

0197 

0198 

0199 
0 20 0 
0201 
0 20 2 
0 20 3 

0205 
0 206 


N7300209 

N730021C 

N7300211 


N7300213 

N7300214 

N7300215 

N730Q216 

N730 0 217 
N7300218 
N73Q0219 
N7300 220 
N7300221 
N73Q0222 
N7300223 
N73S022% 
N73O0225 
N7300226 
N730O227 
N730Q228 
N73002§9 
N7300230 
N730Q231 
N7303232 


o 

o 


0234 

023-5 

0236 

0237 


*• 


N7300234 
N7300235 
N73C0236 
N73GQ237 
N730 0 23 8 


o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 


o 


CONVERT VALUE INTO 7 DIGITS 


o 


ECONV 


PAGE 


6 


DATE3 08/19/99 


0239 




# 

ENA 


0240 

P0 07C 

OAOO 


DIGIT 

0 

0241 

P007D 

68CA 



STA'^ 

INDEX 

0242 

P007E 

5800 

X 

0IG7 

RTJ 

FLOT 


P007F 

006B 

X 



$5BA4 

0 2 43 

P0080 

5BA4 



NUM 

0244 

0245 

P0B81 

7FE3 



ADC 

VALUE-* 

P0082 

7FC3 



ADC 

8-» 

0246 

POO 83 

5800 

X 


RTJ 

Q8QFIX 


P0084 

7FFF 

X 


STA» 


0247 

P0085 

68E3 



J 

$30 

0248 

PDQ86 

0930 



INA 

0249 

P0087 

E8C0 



LDQ^ 

INDEX 

0250 

POOS8 

0005 



INQ 

5 

0251 

P0D89 

6EDA 



STA» 

(CALPAR) ,Q 

0252 

POO 8A 

D8B0 



RAO» 

INDEX 

0253 

P0088 

C8BC 



- LOA^ 

INDEX 

0254 

P008C 

D9F8 



INA 

-7 

0255 

P008D 

0111 



SAN 

SEVEN 

0256 

P008E 

1897 


EX ■ 

JMP^ 

RETURN 

0257 




•» 



0258 

P008F 

5800 

X 

SEVEN 

RTJ 

FLOAT 


P0Q90 

7FFF 

X 



(J-*S 

0259 

P0091 

FFD7 



ADC 

0260 

P0092 

5800 

X 


RTJ 

FLOT 


P0093 

0D7F 

X 




0261 

P0094 

59 7E 



NUM 

$597E 

0262 

P0D95 

7FB0 



ADC 

B-» 

0263 

P0096 

7FCE 



ADC 

VALUE-* 

0 26-4 

P0097 

OB AD 



NUH 

$DBAO 

0265 

P0098 

7FCC 



ADC 

VALUE-* 

026 6 

P0099 

7FAC 



ADC 

8-* 

025 7' 

P009A 

7FCC 



ADC 

TEN-* 

0268 

P009B 

7FAA 



ADC 

B-* 

0269 

P0Q9C 

4000 



NUH 

$40 8 0 

0270 

P009D 

18E0 



JMP‘» 

DIG7 


modEt load, divide, stop 

J=VA1UE/B 

CONVERT VALUE '(DIGITS INTO ASCII 
SET UP INDEX AND SAVE DIGIT 

CHECK IF ALL 7 DIGITS BEEN CONVERTED 

NO, SKIP 
TO EXIT 

FLOAT CURRENT DIGIT 


NODE, MULTIPLY, GOMPIEHENT, ADD 

STORE, LOAD, DIVIDE, STORE 
(VALU£=VALUE- (FLOAT (JS*BS 

8=B/10 

TO REPEAT 


N730 0239 
N7300 240 
N7300241 
N7300242 

N7300243 

N730Q244 

N7300246 

N73Q0246 

N7300247 

N7300248 

N7300249 

N730fl250 

N7300251 

N73D0252 

N73Q0253 

N7300254 

N73Q0255 

N7300256 

N7300257 

N730Q258 

N73QQ259 

N730026D 

N7300 261 
N73Q0262 
N73Q0263 
N7300264 
N7300265 
N7300266 
N7300267 
N7300268 
N73002b9 
N730Q270 


0272 





0273 





0274 





0275 





0276 





0277 





0278 

P009E 

ccoo 

SMAtl 

ENQ 

0279 

P009F 

0A2D 


ENA 

0280 

POOAO 

6EC3 


STA* 

0281 

0282 

POOAl 

OAOO 

- 9 - 

ENA 

0283 

P00A2 

68C6 


STA* 




FOR VALUE LESS THAN 1,0 

13 SET EXPONENT SIGN'TO 

$20 ; 

(CALPAR) ,Q 

SEARCH FOR EXPONENT VALUE 

0 

J 


N7300272 
N73Q0273 
N73Q0274 
N730Q275 
N7300276 
N7380277 
N7300278 
N7300279 
N73D0 280 

(SCALE FACTORS N7300281 

N7300282 
N730Q 283 


ECONV 


PAGE 


7 


DATE 


06/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0284 

P00A3 
PO 0A4 

5800 X 
0093 X 

SMAL5 

0285 

PQ0A5 

5B9D 


0286 

PQ0A6 

7FBE 


0287. 

PQ0A7 

7FBF 


0288 

POO A8 

7FBC 


0289 

0290 

P0OA9 

4000 


0291 

POOAA 

C8BA 


0292 

POOAB 

9898 


0293 

POOAC 

0122 


0294 

POOAO 

08BB 


0295 

0296 

POOAE 

18F4 

» 

0297 

PflOAF 

C894 

SMAL7 

0298 

PDGBO 

6895 


0299 

PQOei 

G8 93 


D300 

PO0B2 

6894 


D301 

P0QB3 

18BD 



RTJ 

NUM 

AOC 

ADC 

AOC 

NUM 


LDA^ 

SUB» 

SAP 

RAO’^ 

JMP» 


LBA» 

STA^ 


LDA^ 

STA» 

JMP* 


PLOT 

$5690 

yALUE-*^ 

T£n-*^ 

yALue-s^ 

$4000 

VALUE 

ONE 

SMAL7 

J 

SMAL5 

ONE 

B 

ONE + 1 
CONVS 


VALU£=VALUE’^10.0 

CHECK IF VALUE EQUAL OR GREATER THAN 1.0 

VALUE been convert TO 1.0 OR GREATER-, 
BUMP POINTER ANO REPEAT 

B=1.0 


SKIP 


N7300284 

N7300285 

N7300286 

N73D0287 

N730D286 

N7300289 

N7300290 

N7300291 

N73QQ292 

N73G0293 

N73Q0294 

N730D295 

N7300296 

N73QD297 

N7300298 

N730D299 

N7300300 

N7300301 


030 

3 




030 

4 




030 

5 



C8AF 

030 

6 

PD 

DB4 

030 

7 

P00B5 

60FF 

030 

8 

PQ 

0B6- 

OCOl 

030 

9 

PQ 

0B7' 

0A2A 

031 

G 

PO 

0B8 

6301 

031 

1 

PO 

0B9 

ODOl 

031 

2 

PO 

GBA 

0814 

031 

3 

PO 

OBB 

09F0 

031 

4 

PO 

OBC- 

0101 

031 

5 

PO 

DBD 

18F9 

031 

6 

PO 

OBE 

18CF 






* 



STAR 

LDA-^ 

GALPAR 


STA- 

I 


ENQ 

1 

STARl 

ENA 

S2A 


STA- 

1,B 


INQ 

1 


f RQ 

A 


INA 

-15 


SAZ 

START 


JMP» 

STARl 

STARS 

JMP» 

EX 


FILL BUFFER WITH FOR VALUE IS $7FFF/$FFFF 

SET UP BUFFER ADDRESS 

LOAD 


N7300303 
N7300304 
N7300305 
N73D0 306 
N730 0 30 7 
N730Q308 
N73D0309 
N730Q31D 
N7300311 
N7300 312 
N7300313 
N73QQ314 
N730B315 
N730fl316 


O 

o 


0318 


0319 

00 01 

0320' 

00 02 

0321 

ooco 

0322 PQOBF 

QOOl 

0323 



EQU OPIQ 1^/961 
EQU DPllLDPlQ^l) 
EQU 0P12IDFll»96i 
BSS (DP12”») 

END 


O 


PGM= OOGO ( 


192) COM = 0000 { 


0? DAT = QOeO { 


N730G318 
N7300319 
N7300320 
N7300321 
N73QQ 322 
N73G0323 


O 


O 


O 


□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


€CONV 


PAGE 


8 


DATE? Q8/19/99 



O 


EQUIVALENCES 


c 





DEF.LINE 

NAME 

VALUE 

o 

0 000 

I 

QCFF 


0 0 43 

LPMSK 

0002 


0044 

ZERO 

0022 

o 

0045 

NOlO 

0046 


REFERENCED AT LINE NUMBER 

(000255) 0Q96, 0307 
(Q00002) 8149, D152 
( 000034) 0106, 0126 
(000070) 0224 


o 

o 

o 


o 

o 

o 

o 

o 

I 

i ^ 
o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

ECONV PAG£ 9 DATE: 08/19/99 

o 


S Y M B 0 L S 

o 



□EF.LIN€ 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 



0 

0 036 

ECONV 

0 00 0 

0036, 

0052, 

0053, 

0055, 

0059 



0 058 

LAZ 

0006 

0 054 







0 0 59 

, LAZEXT' 

0 0 0 9 

0 131 






0 

0094 

ETOI 

OOOA 

0 056 






0 095 

PI 

DQOB 

0111 







QIO 5 

FILLl 

0012 







0113 

FILSIG 

0019 

0110 

0 2 5 6 






0 13 0 

RETURN 

0026 

0165, 





'O 

0134 

QSAVE 

0028 

0 094, 

013 0 






0136 

GONVAL 

0 029 

0128 







0148 

LESSl 

0034 

0129 







0151 

TOSTAR 

0037 

0137 






U 

0152 

NORMAL 

' Q038 

0150 







0157 • 

EXTl 

G03D 

0154 




0292, 

0297, 


0 170 

ONE 

0044 

0097, 

0Q99, 

0153, 

0194, 

0 

0 171 

B 

■ 0046 

0 0 98 , 

0100, 

0183, 

018 5, 

0190, 

0199, 

0172 

INDEX 

9048 

0225, 

0230, 

0 241, 

0249, 

0252, 

0253 


0173 

A 

0049 

0 191, 

0193 






0 180 

GRTl 

004P 

0155, 

0158 





0 

0 182 

GRTll 

004D 

0 203 






0187 

GRT15 

0051 




0 232, 

0 251 , 


0206 

CALPAR 

0 06 4 

0095 , 

0145, 

0161, 

0226, 


0 20 7 

VALUE 

00 65 

0125, 

0127, 

0140, 

Q141, 

0148, 

015 7, 

0 

0 210 

FEN 

3 

0067 

0182, 

0184, 

0290, 

0219, 

0267, 

0287 

0211 

0069 

0181, 

0196, 

0223, 

0247, 

0259, 

0 283 , 


Q 216 

EXPV 

006A 

0195 







0 222 

CONVS 

00 71 

0301 






0 

0 240 

OIGIT 

007C 







0242 

0IG7 

0 07E 

0 270 







0256 

EX 

008E 

0316 







0258 

SEVEN 

fi08F 

0255 






0 

0278 

SMALl 

0 0 9'E 

0156 






0 284 

SMAL5 

D0A3 

0295 







0 297 

SMA17 

OOAF 

0 293 







0 30 6 

STAR 

0 0 B 4 

0151 






0 

0 309 

STARl 

00B7 

0315 






0 316 

STAR3 

OOBE 

0 314 







0 319 

0P1Q 

0 00 1 

0 320 







0 320 

OPll 

00 02 

0 321 






n 

0321 

0P12 

OOCO 

§322 







o 

o 

o 


o 
• o 
o 
o 
o 
o 

0299 

0201, 02 I 81 , 0220-, 0245, 0262, 0266, 0268, 0298, 0300 Q 

■ O 

0280, 0306 

6189, 0244, 0263, 0265, 0286, 0288, 0291 

0294 ^ 

: O 
^ O 
O 
O 

o 

o 

■ o 


o 

o 

E X T E R 

ECONV 
N A L S 


o : 





BEF.LINE 

NAME 

VALUE 

O 

0 039 

LAZ'Yl 

00 07 


0 0 40. 

FLOT 

0QA4 


0040 

FLOAT 

0090 

O 

0 040 

aaoFix 

0084 

O 




O 




O 




O 




o 





!>AGE 10 


DATES 08/19/99 


REFERENCED AT LINE NUMBER 


0133, 018 7, 0197, 0216, 02L2, 0 260 , 0284 

0 2 58 

0246 


O 

□ 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 




ECONV 


PAGE 

11 


DATE^ 08/19/99 

o 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 

V-’l-V- 


0 

o 

A 

DP12 

PLOT 

LAZYl 

RETURN 

TOSTAP 

0173 
0 321 
0040 
0039 
013 0 
0151 

B 

ECONV 

GRTl 

lESSl 

SEVEN 

VALUE 

0171 
0 0 36 
0180 
0148 
0258 
0 207 

CALP(\R 

ETOI 

GRTll 

LPMSK 

SMALl 

ZERO 

0 206 
0 0 94 
0132 
0 0 43 
0278 
0 0 44 

GOHVAL 

EX 

GRT15 

NOlO 

SNAL5 

0136 

0256 

0187 

0045 

0284 

CONVS 

EXPV 

I 

NORMAL 

SMAL7 

0222 
0216 
000 0 
0152 
0297 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


DIG7 
EXTl 
INDEX 
ONE 
STAR 

O 

O 

O 

O 

o 

o 

; O 

: O 
O 
O 

o 

o 

o 


02L2 

DIGIT 

0240 

DPIO 

0319 

QPll 

0320 

(3 

o 

o 

015 7 

FILLl 

0105 

FILSIG 

0113 

FLOAT 

0040 

0172 

J 

0211 

LAZ 

0058 

LAZEXT 

0059 


017 0 

PI 

0095 

Q8QFIX 

0040 

QSAVE 

0134 


0.30 6 

STARl 

0309 

STARS 

0316 

TEN 

0 210 

o 


LAZYl 


PAGE 


DATES G8/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


1 

z 

3 

4 
e; 

6 

7 


000 
OQO 
DOO 
000 
000 
000 
QCQ 
000 8 
00 0 9 
0010 
0011 
OOlZ 

0013 

0014 

0015 

0016 

0017 

0018 
0019 
QDZQ 
COZl 
OOZZ 
O0Z3 
00Z4 
0QZ5 
0 0Z6 
0 0Z7- 
OQZB 
0QZ9 
003 0 

0031 

0032 

0033 
0 03 4 
0035 
0Q36 

0038 

0039 

0041 

0042 

0044 

0045 


0047 

0048 

0049 


'if- 

-#• 

¥ 

'S- 

5- 

■If- 

*»■ 

It- 


NAM LAZYl DECK-ID N74 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


7 


ROUTINE TO CONVERT SINGLE PRECISION NO, 
INTO FLOATING POINT 


CALLING SEQUENCE : 

RTJ LAZYl 
ADC LBUFER 

•LBUFER* ASSIGNMENTS 3 

WORD 01 NO. OF DIGITS 

02 NO. OF INTEGER 

03 NO, OF FRACTIONAL NO. 

04 SIGN (0=4-, =-) 

05 *E*/»D» fi=D, 2=E) 

06 EXPONENT VALUE 

07 INPUT DIGIT JBINARY VALUE* 


14 VALUE IN FLOATING POINT IRETURN FILLED* 

15 VALUE IN FLOATING POINT 


SUMMARY- 11 QN740 0001 
N740QD02 
N7400003 
N740 0004 
N7400005 
N7hOOQ06 
N7400007 
N74Q0008 
N7400009 
N7400010 
N7400Q11 
N740Q012 
N7400013 
N7400014 
N7400015 
N7400Q16 
N74Q 0017 
N7400016 
N7400019 
N7400020 
N7400021 
N740OD2Z 
N74G0023 
N7400Q24 
N7400025 
N74C00Z6 
N7400027 
N7400028 
N7400029 
NT400Q30 
N7400031 
N 740 003 2 
N7400033 
N7400034 
N7400035 
N7400Q36 


ENT LAZYl 


ENTRY 


NAME 


EXTERNALS 
EXT» PLOT, FLOAT 


0 0 02 


EQU LPMSKC2) 


E Q U 


TABLE 






0051 P.00G0 0800 


LAZTl NOP 0 


PROGRAM 


ENTRY 


START 




N7400038 

N7400039 

N7400 041 
N7400042 

N7400044 

N7400045 


N7400047 

N7400048 

N7400049 


N7400051 


u 


n 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


LAZYl 


PAGE 


2 


DATE*; 08/19/99 


00 

52' 

PODOl 

4836 


STQ"^ 

QSAVE 

00 

53 

P0002 

CCFD 


LDA'» 

(LAZY15 

00 

5 4 

P0003 

0122 


SAP 

PI 

00 

55 

POD04 

88F8 


ADD^ 

LAZYl 

00 

5 6 

P0005 

AOll 


ANO- 

LPMSK+1 

00 

57 

P0006 

6832 

PI 

STA» 

CALPAR 

00 

58 

P0007 

D8F8 


RAO* 

LAZYl 

00 

59 

P0008 

60FF 


STA- 

I 

00 

61 




ENA 


00 

62 

P0009 

OAOl 


1 

00 

63 

POOOA 

682F 


STA* 

K 

00 

64 

POOOB 

OAOO 


ENA 

Q 

00 

65 

POOOC 

6827 


STA* 

A 

00 

66 

PflOOO 

6827 


ST A * 

A-H 


SAVE Q-REGISTER 

SAVE CALLING PARA METER ADD-^ 

SET EXIT 

N'lTIALIZE POINTERS 

SET 'A* TO ZERO 


N7A-0Q052 
N7A00053 
N7f^Q0054 
N740D055 
N7A-OQ056 
N7400057 
N7A00058 
N7400 059 

N74fl0061 

N7%00062 

N74Q0063 

N7400064 

N7400065 

N7400066 


0068 

0069 

0070 


0071 

PO 

OOE 

Cl 

OL 

0072 

PO 

OOF 

01 

11 

0073 

PO 

010 

1 8 

44 

007 4 

PO 

oil 

68 

24 

0075 

PO 

012 

18 

28 




CHECK 

IF 

INTEGER VALUE USED 


LDA- 

1,1 




SAN 

INTPRO 




JMP* 

ANYFXP 

NO, 

GO 

INTPRO 

STA* 

J 




JMP* 

HUNDER 




N74Q0068 
N740G069 
N7400070 
N7400071 
N?;*00Q72 
N7400Q73 
N74G0074 
N7400 075 


0C7 7 

0078 

0079 




8 

0 

P0013 

4A7A 

DNOlO 



P0014 

1200 




PQQ15 

48E1 




P0016 

A800 




P0017 

47 4E 




P0018 

2000 




P0019 

4570 




POOIA 

0 0 00 


8 

1 

POOIB 

43E4 




POOIC 

00 00 




PQOID 

4250 




PO OlE 

03 00 




POOIF 

40C0 




P0020 

0 000 


8 

2 



if- 

8 

3 




8 

4 




8 

5 

P0021 

3E66 

FNOl 



P0022 

6666 




P0023 

3CD1 




P0024 

EB85 




P0Q25 

3B41 




P0026 

8937 




P0027 

3968 



NUM 


NUM 


10»^6 THROUGH 1 

S4A7A,$1200»$48El,f A800»$474E,$2000 ,$457D,$OCOO 


$43E4,$OOGO, S'42 5O,$Ofl0G,$4OC8 ,$00 5 0 


10»»C-i) THROUGH 10*^T-71 
$3E66, $ 6 66 5, $3CD1,$EB85,$3B41, $8 937, $3968, $DB’8C 


N7400Q77 
N7400 Q78 
N740Q079 
M7400080 


N7t*00 081 


N7400082 
N740G083 
N7400 Q84 
N74Q0085 



N7400 086 


o 


N?400 088 
N7400089 

N7400090 

N7400091 

N7400092 

N74Q0093 

N7400094 

N7400Q95 

N74GG096 

N7400097 


N7400099 
N740O1OO 
N74G0101 
N74001Q2 
N740D103 
N74001D4 
N740010 5 
N7400106 
N7400i07 
N7400108 
N7400109 
N7 48 0110 


N7400111 


N7400112 


N740Qli3 
N740eii4 
N7400115 
N74G011 6 
N7400117 
N7400118 
N740O119 
N7400120 
N7400121 
N74iC122 
N74001Z3 
N74Q0124 
N74Q0125 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


LAZYl 


PAGE 


dates 08/19/99 


0126 

PQ053 

0 000 


OlO 

NUM 

0 


0128 








0129 






CHECK 

IF ANY FRACTIONAL VALUE 

0130 








0131 

P0G54 

0C02 


ANYEXP 

ENQ 

2 

GET NO. OF FRACTIONAL DIGITS IF ANY 

0132 

P0Q55 

CEE2 



LDA» 

(CALPAR) ,Q 


0133 

P0056 

0111 



SAN 

CALFRA 

TO CALCULATE FRACTIONAL VALUE 

0134 

P0057 

181D 




IFEXP 

NO MORE INPUT DATA, GO 

0135 








0136 

P0058 

680C 


GALF?A 

STA» 

J 


0137 

P0 059 

OAOl 



ENA 

1 


0138 

P005A 

68 DB 



STA» 

INDEX 


0139 




n?- 




0140 






CALCULATE A=A + FLO A T { L VALU E t KJ )»-»10«-I) 

0141 








0142 

P005B 

C6DD 


ASMFRA 

LDA» 

K 

GET INPTU INTEGE (FRACTION) 

0143 

P005C 

0905 



INA 

5 


0144 

P0050 

88DA 



AOO» 

CALPAR 


0145 

P005E 

6 3 06 



STA^ 

V2 


0146 

P005F 

C8D6 



LDA-*^ 

INDEX 


014 7 

P0060 

-GFCl 



ALS 

1 

CALCULATE INDEX FAGTOP 

0148 

P0061 

68F1 



STA«^ 

DIO 


0149 

P0062 

5800 

X 


RTJ 

FLOAT 

CONVERT OT FLOATING PCINT 


P0063 

QO 43 

X 





0150 

P0064 

0000 


V2 

NUM 

0 


0151 

P0 065 

5800 

X 


RTJ 

PLOT 



P0066 

0 0 46 

X 





015 2 

PO 0 67 

5F96 



NUM 

$5F96 

MODE, INDEX, MULTIPLY, NO INDEX 

0153 

PD068 

7FEA 



AOC 

D10-» 


0154 

P0069 

7FB5 



ADC 

FN01-2-* , 


0155 

P006A 

ED 40 



NUM 

$EQ40 

ADO, STORE, STOP 

015-6 

P006B 

7FC7 



AOC 

A-» 


015-7 

PD06C 

7F-C6 



ADC 



0158 

P0060 

C8C7 



t’DA-» 

J 

CHECK IF ALL DIGITS CONVERTED 

0159 

PQ06E 

B9FE 



INA 

-1 


0160 

P0Q6F 

0104 



SAZ 

IFEXP 

DONE, SKIP 

0161 

P0070 

68C4 



STA» 

J 

SAVE COUNT AND UPDATE POINTERS, REPEAT 

0162 

P0071 

□ 8C7 


, , 

RAO» 

K 


0163 

P0072 

08C3 



RAO-* 

INDEX 


0164 

P0073 

18E7 



jHpi^ 

ASMFRA 

TO REPEAT 

016 6 








0167 






CHECK 

IF EXPONENT USED 

015 8 








0169 

P0074 

OC0 5 


IFEXP 

ENQ 

5 

GET EXPONENT VALUE IF ANY 

017 0 

PQ075 

CEC2 



LDA^ 

(CALPAR), Q 


0171 

P0076 

0900 



INA 

0 


0172 

P0077 

0111 



SAN 

ASMEXP 


017 3 

P0078 

1823 



JMP* 

ST55Q 

GO, VALUE IS UNNSED OR ZERO 


N740D126 


N7400128 

N7400129 

N7A00130 

N7A00131 

N74QQ132 

N7400133 

N7400134 

N7400135 

N7400136 

N7400137 

N7400136 

N7400139 

N740Q140 

N7400141 

N7400142 

N7400143 

N740Q144 

N7400145 

N7400146 

N740Q147 

N7400148 

N7400149 

N7400150 

N74D0151 

N74Q0152 

N7400153 

N740Q154 

N7400155 

N74G0156 

N740Q157 

N74GQ158 

N74B0159 

NF403168 

N7400161 

M7400162 

N7400163 

N7400164 


N74Q6166 

N74Q0i67 

N7400166 

N7400169 

N7400170 

N7400171 

N7400172 

N7400173 


o 


LAZYl 


PAGE 5 


OATEI 0 8/19/9 9 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0174 

0175 
017 6 

017 7 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

018 5 
0186 
0137 
0188 

0189 

0190 
0191- 

0192 

0193 

0194 

0195 

0196 

0197 

0198 
G199 
020 0 

0201 
0202 
0203 
020 4 
020 5 

020 7 
020 8 
020 9 
0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0 221 


P0079 £000 
P007A 40C0 
P007B 48B5 
P007C OCOO 
P007D 48B4 
P007E 68B7 

P007F 0121 
P0080 08 64 
P0081 6893 
P0082 5800 
P0083 0066 
P0084 5B9D 
PO085 7FAB 
P0086 7FA8 
P0087 7FA9 
P0088 4000 
P0089 C8AB 
P008A Q9FE 
P0086 0101 
P008C 13F-4 

P0080 C8A8 
PC08E OlOC 
P008F EO CO 
P0090 58AD 
P0091 0131 
P0092 ODEF 
P0093 4803 
P0G94 5800 
P0 095 0 0 83 
P0096 0000 
P0097 7F9B 
P0098 7F98 
P0099 7F99 
P009A 4000 


PD09B 0C03 
P009C CE9B 
P009O 09FO 
P0 09'E 0136 
P009F 5800 
PODAO 0095 
POOAl 5B7’D 
P00A2 7F9Q 
POO A3 7F8F 
P00A4 4000 
P00A5 OCOD 
P0 0A6 C8 8C 
P00A7 6E90 


ASMEXP 

LDO 

= NS4QC0 


STQ» 

B 


ENQ 

0 


STQ^ 

Ba-1 


STA» 

INDEX 


CHEC 


SAP 

SAVEX 


TCA 

A 

SAVEX 

STA» 

J 


RTJ 

PLOT 


NUM 

$5890 


ADO 

B-» 


ADC 

TEN-» 


ADC 



NUM 

$4000 


LBA» 

J 


INA 

-1 


SAZ 

ST48G 


JMP» 

SAVEX 


ST4 80 

LB A* 

INDEX 

SAZ 

ST550 


LOQ 

=N$5BAD ' 


SAM 

ST50Q 


INQ 

-$10 

ST500 

STQ» 

ST502 

RTJ 

FLOT 

ST502 

NUM 

0 


ADC 



ADC 



AOC 

A-a^ 


NUM 

$4000 




CHEC 


ST550 

END 

3 

■LDAs^ 

tCALPAR) ,Q 


INA 

-2 


SAM 

DONE 


RTJ 

FLOT 


NUM 

$5870 


ADC 

A-» 


ADC 



NUM 

$4000 

DONE 

ENQ 

13 


LDA^ 

A 


STA» 

fCALPAR) ,Q 


ASSEMBLE EXPONENT 


IF A?ALU£ IS NEGATI8/E 
SKIP ON POSITIVE (HU 
COMPLEMENT VALUE 


IB=B^1Q.0) 


SKIP ON EXP. = 0, OTHERWISE CAL. i0»»I 
TO REPEAT 

CHECK IF EXP. IS a-, OR 0 
FOR EXE. = 0 


FOR EXP. = - 
SET TO $5B90 

FILLED 

A=A/B OR A=A^B 

FOR SIGN AND SAVE VALUE 


COMPLEMENT VALUE WHEN SIGN IS NEGATIVE 
A=-A 

SAVE VALUE IN CALLER BUFFER 


N7400174 

N7400175 
N74D0176 
N7400177 
N7400178 
N7400179 
N7400180 
N7400181 
N7400 182 
N7400183 

N7400184 
N7400185 
N7400186 
N740 0187 
N74DQ188 
N740Q189 
N7400 190 
N74Q0191 
N740Q192 
N74Q0193 
N740Q194 
N7400195 
N7400196 

N74Q0197 
N7400198 
N7400199 
N740 0 20 0 

N7400201 

N740G202 

N7400203 

N7400204 

N7400205 

N7400207 
N7400208 
N7408209 
N7400 210 
N74Q0211 
N7400212 
N7400213 
N7400214 

N7400215 

N7400216 

N740Q217 

N7400218 

N7400219 

N7400220 

N74G0221 


r"') 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



LAZTl 


c 

0222 

PO 0A8 

0 001 

INQ 


0223 

POO A9 

C88A 

LDA» 


022 4 

POOAA 

6E8D 

STA^ 

o 

0225 

PDDA8 

E88B 

LDQ* 

0226 

POOAC 

ICOO 

JMP 


POO AD 

FF52 


o 

0228 



EQU 


0229 


0 0 01 P 

o 

0230 


0002 P 

EQU 

0231 


OOCO P 

EQU 


G232 

PQOAE 

0012 

BSS 


0233 



END 

■ o 

PGM= 

OOCO 

1 1921 

COM = 0 

o 





o 





o 





, o 





. Q 





o 

1 





1 

1 





o 

1 





o 

1 





' o 






page 6 DATES 08/19/99 


1 

A + 1 

tCALPAR),a 

□SAVE RESTORE Q-REGISTER 

(LAZYl? RETURN TO CALLER 


DP10C»/96T 
OPlKDPlO + 11 
DP12 {DP11»96? 

roPis-^ ) 


000 I OJ OAT = 0000 { 01 


o 


o 


N740Q222 

N7400223 

N7400224 

N7400225 Q 

N7400226 ^ 

o 

N7400228 

N7400229 

N740023D Q 

N740 0 231 

N7400232 

N7400233 

O 


O 


O 


O 


O 


0 


o 


o 


o 


o 


o 


o 


LAZYl 


PAGE 7 


DATE! 08/19/99 


o 


o 


u 

E Q U I V 

A L E N 

C E S 

o 

DEF^LINE 

NAME 

VALUE 

o 

Q 000 

T 

GOFF 


0 045 

LPHSK 

0002 

o 





REFERENCED AT LINE NUMBER 

!QD0255) 0059 

< 0 000029 0 056 


o 


o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 




o 

o 


o 


o 

o 

o 

o 

o 


o 

o 

o 

o 


o 

o 

o 


o 


DATEI 08/19/99 


o 


LA7Y1 


O 


S Y H B 0 L S 

o ■■■“■ 



DEF.LINE 

NAME 

ADDRESS 

o 

0 039 

LAZYl 

00 0 0 


0 057 

PI 

000 6 


0Q74''. • 

INTPRO 

. 0011 

o 

0 080 

ONOlO 

0013 

0085 

FNOl 

0021 


0089 

■ TEN 

002F 


0091 

B 

0031 

o 

0092 

A 

0033 

0093 ’ 

J 

• 003 5 


0094 - 

INDEX ■ 

■Q036 


0095 

QSAVE 

0037 


0 096 

GALPAR 

0038 


0097 

, K 

0039 


0 102 

HUNGER 

003A 


0111 

V 

0044 

o 

0126 

010 

0053 

0131 

ANYEXP* 

005 4 


013 6 

CALFRA 

■0058 


0142 

■ ASMFRA 

Q05B 

o 

0 150 

V2 

0064 

0169 ' 

IFEXP 

0074 


0 174 

ASMEXP 

0079 


0182 

SAVFX 

Q081 

o 

0194 

ST48Q 

Q08D 

0199 

ST5D0 

0093 


0 201 

ST502 

0096 


0210 

ST55Q 

009B 


0219 

DONE 

OOA5 

'O 

0229 

DPIO 

0001 


0 230 

OPll 

000 2 


0 231 

0P12 

OQCO 


o 


PAGE 


REFERENCED AT 


0039, 

0053, 

0 054 


0072 


0115 


0154 


0186 


0175, 

0177, 

0065, 

0066, 

0 074, 

0107, 

0138, 

014 6, 

0052, 

0 225 

0 0 57 , 

OIQ 4, 

0063, 

0102, 

0075, 

012 5 

0105 


0109, 

0114, 

0 0 73, 

0124 

0133 


0164 


0145 


0134, 

0160 

0172 


0180, 

0192 

0191 


0197 


0199 


0173, 

0195 

0213 


0230 


0231 


0 2 32 



LINE NUMBER 
0055, 0058, 0226 


018 5, 
0117, 
0121, 
0163, 


0132, 

0120 , 


0 1. 8 7 0 20 3 

Qlial 0156, 0157, 0202, 0204, 0216, 0217, 
Q123, 0136, 0153, 0161, 0182, 0189 
0178, ,0194 

0144, 0170, 0211, 0221, 0224 
0142, 0162 


0148, 0153 


0 220 , 


0223 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


o 

n 


o 


LAZYl 


PAGE 9 


DATEI 08/19/99 



o 

E X 1 E R 

N A L S 


o 





DEF.LINE 

NAME 

VALUE 

o 

0 0 42 

PLOT 

OOAO 


0 042 

FLOAT 

0063 

o 




o 





o 


o 

o 


o 


o 


o 

o 

o 

o 

I 

I 

I ^ 

! o 


REFERENCED AT LINE NUMBER 

OllEt D151., Q18S, 0200, 0214 
0110, 0149 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




LAZYl 


PAGE 

10 


DATE? 08/19/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S T M B 

0 L S 



O : 

A 

DONE 

IFEXP 

SAVHX 

0092 

0219 

0169 

0132 

ANYEXP 

OPIO 

INDEX 

ST480 

0131 
0 229 
0094 
0194 

ASMEXP 
DPll 
I NT PRO 
ST500 

0174 
0230 
0 074 
0199 

ASMFRA 

DP12 

J 

ST502 

0142 
0231 
0093 
0 201 

B 

FLOAT 

K 

ST550 

0091 

0042 

0097 

0210 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


CALFRA 0136 CALPAR 0096 DIO 0126 DNOlO 

PLOT OOA2 FNOl 0085 HUNDER 0102 I 

LAZYl 0039 LPMSK 0QA5 PI 0057 QSAVE 

TEN 0089 V 0111 W2 0150 


0080 

0000 

0095 


n 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


ODFLOT 


PAGE 


1 


DATE4 08/19/99 


GOG 1 
GOO 2 
00 03 
0QQ4 


•» 


NAM ODFLOT DECK-ID N75 MSOS 5,0 

MASS STORAGE OPERATING S7STEM VERSION 5.0 
SMALl SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11 ON7500001 
N7500QQ2 
N750Q003 
N7500004 


0006 
00 07 
000 8 

0009 

0010 
0011 
0012 


* 

9 


THIS ROUTINE RUN ANYWHERE/NON-RETRANCE 

"DUMMY” BUFFER IS SET UP FOR MIN. CHANGE 

DEBUG RUNS ON THE LOWER 32K, THEREFORE 
NO 65 K ADDRESSING IS NEEDED 

SPECIAL ARRANGEMENT DOES NOT USE LOW GORE 


N75QQ006 
N7500Q07 
N750 0008 
N750Q009 
N750001Q 
N75000il 
N7500012 
N7500013 


0015 

0016 
DQl 7 
0018 
0019 
002 0 
0021 
0022 

0023 

0024 

0025 

0026 
0027 
0 0 28 

0029 

0030 

0031 

0032 

0033 
003 4 

0035 

0036 

0037 

0038 

0039 

0040 


9 

9 

9 


CONTROL DATA CORPORATION, LA JOLLA DIVISION 
1700 FLOATING POINT PACKAGE FOR UTILITY FORTRAN, C006 
REFER TO APPENDIX C OF ERS FOR C006 FOR 
DETAILS OF THIS PACKAGE. 

POINT PKG. 

LIST OF FLOATING POINT OPERATION COOES. 



0 

XXX 

(NOT USED) 


1 

XXX 

(NOT USED) 


2 

XXX 

(NOT USED) 


3 

XXX 

(NOT USED) 


4 

FEND 

END OF CALLING S' 


5 

CHM0 

CHANGE MODE REL/A8S 


6 

NIOX 

NO INDEX 

■J?- 

7 

FCOM 

COMPLEMENT 

45: 

8 

FSUB 

SUBTRACT 


9 

FMPY 

MULTIPLY 


A 

FDIV 

DIVIDE 


B 

FLOD 

L OAD 


C 

XXX 

(NOT USED) 


0 

FL3T 

STORE 


E 

FAOD 

ADD 


F 

INOX 

INDEX 


9 

9 


G, THE PSUEOO ACCUMULATOR 
C,n,ANO DELTA. 


IS BROKEN UP INTO 


N750B015 
N750 0016 
N75Q0017 
N7500016 
N750D019 
N75Q002Q 
N75000Z1 
N7500022 
N7500023 
N7500024 
N75Q0025 
N75D0026 
N7500027 
N750G028 
N7500029 
N7500030 
N75C0031 
N7500032 
N7500833 
PSR 752 N750S034 
N75eOQ35 
N7500036 
N75Q0037 
N75Q0038 
N7500039 
N750004Q 


0 0 42 
0 0 43 


ENT PLOT 

E 

N 

r 

•R 

Y 

'ENTRY 

NAM 

POINT 

E 

TO FLOATING 

N750Q042 

N7580Q43 

0045 



E 

X 

T 

E 

R N A L 

S 


N7500Q45 

0047 


EXT^ OBU ' 








N75G0047 

0049 



«• 

E 

Q 

U 

" T 

A B L 

E 

N7500049 


o 


o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


ODFLOT 
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0050 

0 0 03 
00 05 
0 0 06 
0 0 0 7 


EQU 

0051 

0 0 09 
OOOA 
QOOD 
00 OB 
0 0 OC 
OOOE 
OOOF 


EQU 

0052 

0010 

0012 

0011 

0014 

0015 


EQU 

00-53 

0054 

0 013 


' EQU 

0 05 5 

QD02 
0012 
0 0 22 


EQU 


Gt3) ,SIGN(5),ERR0RS?6),Fi7) 

A{ 9 ),eil 0 ) ,8ETAtl31 ,C(113 ,01121 , DELTA J14) ,SHIFCIil5) 

P(16J ,?ELADRI18),INDEX{17J ,OPCODE(20) ,QSI21) 

OPCNI 119) 

LPHSKC25 ,CPMSK(S12) ,ZER0I$22) 


0057 

0058 

0059 

0 0 o i 

0062 POOCJQ 00 00 , 

0063 POOOl 5300 X 
P0002 7FFF X 

0064 PQ0Q3 4115 

0065 

0066 POOB4 0844 

0067 P0005 6112 
006-8 P00Q6 OAFE 

0069 P0007 6111 

0070 POQOfi C8F7 

0071 P0009 611G 

0072 POOGA 0844 

0073 POOOB 6113 

0074 POOOC Elio 

0075 PQOOD C622 

0076 POOOE 6114 

0077 POQOF DllO 

0078 POOlO 1807 

0079 

003 0 POOH C113 

0081 P0012 09FC 

0082 P0013 0131 

0083 P0014 18F5 

0084 P0015 0904 

0085 P0016 6113 


jf- 




PROGRAM 


START 




FLOT 0 0 

RTJ OBU 

STQ- QS,I 

GLR A 

STA- RELADR, I 
ENA -1 
STA- INDEX, I 
LDA‘» FLOf 


STOREP STA- 
INTERP CLR 
STA- 
LOQ- 
LDA- 
STA 


P,I 


QPDNT,I 
P I 

{ZERO') ,Q 
OPCODE, I 
RAO- P,I 
JMP» DECODE 


ENTR'Y 

SET UP DUMMY BUFFER 


SAVE Q 


CLR R-ELAOR 


SAVE RETURN ADDRESS 

INTERPRET IVE LIST. 


G'FT "OP” CODE 


NXTOPC LDA- OPGNT,I 
INA -3 
SAM Al-«^-l 
JMP» INTERP 

A1 INA 341 OTHERWISE INCREMENT OPCNT 

STA- OPCNT, I 


GET NEXT OPERATION CODE 
IF OPCNT GE. 3, GO TO INTERP 


N75D005D 

N750QQ51 


N7600Q52 


N7500053 

N7500B54 

N7500055 


N7500057 
N750Q058 
N750 0Q59 

N75Q0061 

N7500062 

N75Q0Q63 

N7500Q6-+ 
N7500065 
N7500Q66 
N7500Q67 
N7500068 
N7500 069 
N75fl007G 
N7500071 
N75Q0072 
N7500073 
N750QQ74 
M75fl0075 
N7500Q76 
N7500077 
N750G078 
N7500Q79 
N750Q080 
N7500081 
N7500082 
N7500083 
N7500 084 
N7500085 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


c 


o 

o 


o 
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008 6 




LDA- OPCODE, I 

0067 

P0017 

Cl 14 

DECODE 

0088 

P0018 

0 8 42 


CLR Q 

0089 

PO 019 

0FE4 


LLS 4 

0090 

0091 

POOIA 

6114 

, K- 

STA- OPCODE, I 

0092 

POOIB 

EA02 

EXECUT 

■LDQ» FtINS,0 

0093 
009 4 

POOIC 

lAOl 


UNP» SELF,Q 


DECODE NEXT OPCODE 


EXECUTE NEXT OPERATION 
GET PROCESSING ENTRY 
TO PROCESSOR 


N7500086 

N7500087 

N750Q088 

N7500089 

N7500Q90 

N7500Q9i 

N750Q092 

N7500093 

N750009it 


0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
OlOA 
0105 
010 6 

0107 

0108 

0109 

0110 
0111 
0112 
0113 
Oil A 





PROCESSING 

JUMP TABLE 

PflfllD 

0 0 26- ELI NS 

ADC 

FEN 0-SELF 

00 

= 

END OF SEQUENCE 

POOIE 

002A 

ADC 

DONE-SELF 

01 


FIN 

POOIF 

D02A 

ADC 

DONE-SELF 

02 


FIN 

P0020 

0 0 2A 

ADC 

DONE-SELF 

03 


FI N 

P0021 

0 0 26 

AOC 

FENO-SELF 

04 

= 

END OF SEQUENCE 

PCD22 

0010 

ADC 

CHMD-SELF 

05 

HZ 

CHANGE MODE lABS 

PO 023 

0016 

ADC 

NIDX-SELF 

06 

rr 

NO INDEX 

P0024 

0069 

ADC 

FCOM-SELF ■ . 

07 

zz 

COMPLEMENT 

P0025 

015C 

ADC 

FSUB-SELF 

08 

tz 

SUBTRACT 

P0026 

00 89 

AOC 

FNPY-SELF 

09 

HZ 

MULTIPLY 

PD027 

OQEO 

AOC 

POIV-SELF 

10 

zz 

DIVIDE 

P0028 

D02B 

ADC 

FLDD-SELF 

11 

zz 

LOAD ACCUMULATOR 

P0029 

002A 

ADC 

DONE- SELF' 

12 

zz 

DONE 

P002A 

OOIF 

AOC 

FL5T-SELF 

13 


STORE 

P002B 

0164 

AOC 

FAOD-SELF 

14 


ADO 

P002C 

0018 
OOID P 

ADC 

EQU 

IN0X-SELF 

SELFIFLINSJ 

1 5 


INDEX 


OR REL.l 


N7500096 
N7500097 
N750Q096 
N7500099 
N750aiQ0 
N750Q101 
N7500102 
N75001G3 
N7500104 
N7500105 
N75001C6 
N75QQ1G7 
N7500108 
N750S109, 
N75OO110 
N7500ill 
N7500112 
N7500113 
N750011 4 


Oil 6 
Oil 7 
0118 / 

0119 PO'02D 

0120 P002E 

0121 'POOEF 

0122 P0030 

0123 PQ031 

0124 P0032 


0126 

0127 

0128 

0129 P0033 

0130 P0034 


0132 

0133 

0134 


» 


C112 

CHMD 

■ LOA- 

RELA0R' 

0842 


CLR 


0111 


SAN 

A2-»-l 

acoi 


ENQ 

1 

4112 

AE 

SIQ- 

RELADR' 

18DE 


J?1P» 

NXTOPC 

OAFE 

NIOX 

ENA. 

-1 

1806 


JMP» 

STONQX 


* 


CHANGE 

I 


Note TABS. OR REL,} 

A8S0LUTE/RELATI¥€ SWITCH 

IF RELAOR=0 ,SET TO 


I 


NO INDEX 


OTHERWISE 


N750Q116 

N7500117 

N7500118 

N7500119 

N75C0120 

N7500121 

N750Q122 

N7500123 

N750Q124 


N7500126 

N750D127 

N75a0128 

N7500129 

N7500130 


INDEX 


N750Q132 

N7500133 

N7500134 
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o 
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o 
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o 
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o 

o 

o 

o 

o 


0135 

P0035 

OAFE 

INDX 

ENA -1 

0136 

P0036 

6111 


STA- INDEX, I 

013 7 

P0037 

5856 


RTJ» OPERND 

0138 

»DQ38 

C2Q1 


LDA- 1,Q 

0139 

P0039 

Q9FE 


INA -I 

0140 

P003A 

6111 

STOM0X 

STA- INDEX, I 

0141 

P003B 

1805 


JHP’^ NXrOPC 

0143 





0144 



^ ^ ^ it 

STORE 

0145 





0146 





0147 


0 0 3C P 

FLST 

EQU FLSTt^J 

0148 

P003C 

5 831 


RTJ- FLTSTO 

0149 

P0030 

5850 


RTJ’^ OPERND 

Q15D 

PC03E 

C1D3 

FOK 

LDA- G,I 

0151 

PD03F 

6201 


STA- 1,Q 

0152 

P0040 

C104 


LDA- G=H,I 

015 3 

P0041 

6202 


STA- 2,Q 

0154 

P0042 

18CE 

ANXT 

JMP^ NXTOPC 

015 6 





0157 




END 01 

0158 





0159 

P0043 

582A 

FEND 

RTJ» FLTSrO 

0161 

P0Q44 

Elio 

FLIT 

LDO- P,I 

0152 

P0D45 

48BA 


STQ^ PLOT 

0163 

P0046 

El 15 


LOO- QS,I 

0164 

PQ047 

1CB8 

DONE 

UMP» (FLOT) 

0165 





0167 



it- 


0168 



If 

LOAD 

0169 





0170 

PO 0 48 

5845 

PLOD 

RTJ* OPERND 

0171 

P0049 

C202 


LDA- 2,0 

017 2 

P004A 

6104 


ST A— G *■! , I 

0173 

P0048 

C201 


LDA- 1,0 

0174 

P004C 

0900 


INA 0 

0175 

P004D 

6103 


STA- G,I 

0176 




LOAD OPERAND 

017 7 




UNPACK OPERAN' 

0178 




SAVE SIGN IN 

0179 

P0G4E 

DC 01 


ENQ 1 

0180 

PD04F 

0121 


SAP A3-^-l 

0181 

P0050 

OCFE 


ENQ -1 

0182 

P0051 

4105 

A3 

STQ- SIGN, I 

0183 




PACK C,0, and 


RESET INDEX BEFORE CALLING OPERND 

OPERND TO INDEX 

OPERAND TO INDEX 


FLOATING STORE 

REPACK ACCUMULATOR 
GET ADDRESS OF OPERAND 

G TO OPERAND 


• SEQUENCE 

REPACK ACCUMULATOR BEFORE 


SAVE RETURN ADDRESS 
RESTORE Q-REGISTER 
RETURN 


ELIMINATE MINUS ZERO 
OPERAND TO G 
INTO G. 

•0 INTO C,D AND DELTA. 
SIGN. 


DELTA INTO G. 


N75Q0135 

0 

N7500136 


N750Q137 


N7500138 

0 

N7500139 

N7500140 


N7500141 



0 

N75QQ143 


N7500144 


N75Q0145 

0 

N7500146 

N7500147 


N7500148 


N75Q0149 

0 

N7500150 

N7500151 


N7500152 


N7500153 

0 

N7500154 

N750Q156 

0 

N7500157 

N7500158 


N7500159 



0 

N750B161 


N7500162 


N7500163 

0 

N7500164 

N750D165 


N7500167 

0 

N750Q158 


N750D169 


N75CD170 

; 

N750G171 

N7503172 


N7500173 


N7580174 

0 

N75G017 5 

N7500176 


N7500177 


N75GQ178 

0 

N7500179 

N7500 180 


N7500181 


N75G0182 

0 

N7500183 


0 


o 


o 
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P0G52 

P0053 

P0054 

PQ055 

P0G56 

PC057 

P0058 

P0059 

P0D5A 

P005B 

P005C 

P005D 

P005E , 

P005F 

poo&a 

P0061 
P0062 
P0D63 
PQG64 
P0065 
P0D66 
PQ067 
P0968 
P0069 
P006A 
pooee 
P0 0 6C 
P006D 
P0C6E 

P0‘Q6F 
P007fl 
R 0:0 71 
P0072 
P0073 
P 0:07 4 
P0075 
PO O 76 
P0077 
P0078 
P0079 
P007A' 
P007B 
■ P007C 
P007D 
P007E 
P007F 
P0080 
P0081 
P0082 
P9083 
P0084 
P0085 


El 04 
0122 
0 8 64 
08 52 
610B 
0111 
18 OE 
QFCl 
B032 
0F48 
0900 
610E 
ClOB 
0FE8 
AOll 
61 OB 
OFEF 
A86B 
610C 
18AB 

0 8 44 
610B 
610C 
61 OE 
Q:A01 
6105 

1 8 A'4 
0000 
El OB 

01.53 

4103 
4104- 
1813 
Cl OC 
OFCl 
OFEl 
6104 
CiOE 
AOCA 
902A 
8104 
QFE7 
6103 

4104 
El 05 
0165 
0 8 64 

6103 
C104 
0 8 64 

6104 
1CE7 


STEP2B 


ARGO 


LOG- 

SAP 

TCA 

TCQ 

STA- 

SAN 

JMP^ 

ALS 

EOR- 

ARS 

INA 

STA- 

LDA- 

LLS 

AND- 

STA- 

LLS 

AND^ 

STA- 

CLR 

STA- 

STA- 

STA- 

ENA 

STA- 

JHP» 

0 

LDQ- 

SQN 
STQ- 
STQ- 
JMP* 
LOA- 
ALS 
LIS 
STA- 
LOA- 
ANG- 
EOR- 
A DO- 
LLS 
STA- 
STQ- 
LOQ- 
SO.P 
TCA 
STA- 
LOA- 
■fCA 


FLSTA JMP» 


FLTSTO 


FLSTl 


G*"! » I 

STEP2B---1 

A 

Q 

C,I 

A4-«^-l 

ARGO 

1 

ZEROs-16 

8 

0 

DELTA, I 
C,I 
8 

LPMSK n 5 

G,I 

15 

H7F80 

0,1 

NXf OPC 

A ARGUMENT IS ZERO^ 

C, I 

D, I 

DELTA, I 
1 

SIGN, I 
NXTOPG 
0 

C I 

if C IS ZERO, THEN ACCUMULATOR IS ZERO 
FLSTl-»-l 
G,I 
G*1 ,1 
FLSTA 
0,1 
1 
1 

Gn,i 
DELTA, I 
LPMSK+8 
ZEROa-8 
G4l , I 
7 

G,I 
G«-l ,I 
SIGN, I 
FLSTA-^-l 

G,I . IF SIGN IS NEG. 

gU',I COMPLEMENT G. 

A 

IfLISTO) exit from repack of ACCUMULATOR 


N7500184 

N75G0185 

N7500186 

N750Q187 

N75Q0188 

N7500189 

N7500190 

N750Q191 

N7500192 

N7500193 

N75G0194 

N750019 5 

N75Q0196 

N7500197 

N7500198 

N7500199 

N75002QO 

N7500201 

N750Q202 

N7500203 

N7500204 

N7500205 

N75002B6 

N75002B7 

N7500208 

N75002Q9 

N7500210 

N7500211 

N7500212 

N75QG213 

N7500214 

N7500215 

N7500216 

N75Q0217 

N7509218 

N7500219 

N75Q0220 

N7508221 

N7506222 

N75G0223 

N750 0224 

N75Q0 22 5 

N7500226 

N7508227 

N7500228 

N7500229 

N75Q0230 

N7500231 

N7500232 

N7500233 

N7500234 

N750D235 

N750 0236 


o 

□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


.0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0252 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 


027 8 
0279 
0 28 0 
0281 
0282 

0283 

0284 

0285 

0286 
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PO 

086 

Cl 

OB 

PO 

087 

01 

11 

PO 

088 

18 

DD 

PO 

0 89 

08 

04 

PO 

08A 

B1 

05 

PO 

08B 

61 

05 

PO 

0 8C 

18 

B5 


P008D 

P008E 

P008F 

P009Q 

P0091 

P0092 

P0093 

P0094 

PQ095 

P0096 

P0Q97 

P0098 

P0099 

P0 0 9A 

P009B 

P0 09C 

P0090 

P009E 

P009F 

POO AO 

POQAl 

P00A2 

P00A3 

P00A4 

POOA5 


0000 
Elio 
C622 
0128 
6107 
C112 
0112 
El 07 
1802 
F1Q7 
E622 
1809 
6107 
C112 
0104 
0171 
FD32 
FI 07 
18 0 2 
El 07 
Fill 

coil 

08B2 

DllO 

1CE7 


■H- 

FCOM 

ACMOK 


OPERMD 


ABSIND 

RELIND 

INOIR 

DIRECT 


RELDIR 

A5 

ABSDIR 
OP A DR 

KL65K 




UDA- 

SAN 

JHP* 

SET 

EOR- 

STA- 

JMP» 

**■» 


0 

LDQ- 

LDA- 

SAP 

STA- 

LDA- 

SAN 

LDQ- 

JMP’f 

ADQ~ 

LOQ- 

DiiP» 

STA- 

LOA- 

SAZ 


;qh 

AOQ" 

ADQ- 

DHP» 

L D O'” 

AOQ- 

LDA- 

LAQ 

RAO- 

JHP» 


GET ADDRESS OF NEXT OPERAND 


COHPLEMENf 

C,I 
ACHOK 
ARGO 
A 

SIGN,I 
SIGN, I 
ANXT 

iI’’bit°adoressinPIrtihhetig IS M 

REFER TO E006, APENOIX ON 15 BIT ARITHMETIC 
0 

P,I 

(ZERO) ,Q 
DlRECT-=^-l 
F,I 

RELAOR, I 
RELIND-^“1 
F,I 
INOIR 
F,I 

(ZERO) , 

OPA OR 
F,I 

REL AD R» 

ABSDIR- 
A5-^-l 
ZEROi-16 
F,I 
OPA GR 
F,I 

INDEX, I 
LPMSK+l 5 
Q 

P,I 

fOPERND) 


Q 


I 

S--1 


GO TO DIRECT 
SAVE address in F 
IF RELATIVE ADDRESS MODE, 
GO TO RELATIVE INDIRECGT 
OTHERWIEE ABSOLUTE 

(USE 15 BIT ARITHMETIC 


IF RELATIVE ADDRESS MODE, 

GO TO ABSOLUTE DIRECT 

(USE 15 BIT ARITHMETIC) 


-EFFECTIVE ADDRESS -1 IN Q 


MOVE PSEUDO^PROGRAM COUNTER 

RETURN EFFECTIVE ADR -1 IN Q 


MULTIPLY 


DA6 

58E6 

*■ 

FMPY 


OPERND 

DA7 

58 0 0 • 


RTJ 

FLTSET 

0A8 

0 0 90 



IF F IS NEC 

0A9 

0106 


SAZ 

JMPOUT-*-! 

OAA 

0123 


SAP 

FLT1-'*“1 

OAB 

0804 


SET 

A 


STEPS 1,2,3 AND 4 OF MPY OR DIV 


N7500238 
N7500239 
N7500240 
N7500241 
N750Q242 
N75DQ243 
N75D0244 
N7500245 
N75QQ246 
N7500247 
N7500248 
N75G0249 
N750O25O 
N7500251 
N75Q.0252 
N7500253 
N7500254 
N76QQ255 
N7500256 
N7500257 
N7500258 
N7500259 
N7500260 
N7500261 
N7500262 
N75Q0263 
N75QQ264 
N75 Q Q 26 5 
N750 0 25 6 
N750Q267 
N7500268 
N750 0 269 
N7500270 
N75QC271 
N7500272 
, N7508273 

PSR 752 N75SQ274 
^s^FTN 3. Q^»N7500275 
N75G 0276 


N750Q278 

N7500279 

N7530280 

N7500281 

N7500282 


N7500283 

N7500284 

N7500285 

N7500286 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

■ o 
o 

■ o 

■ o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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0267 

0288 

0289 

0290 

0291 

0292 

0293 
029A 

0295 

0296 

0297 

0298 

0299 
030 0 
03Q1 
030 2 
030 3 

0304 

0305 
0 30 6 

0307 

0308 

0309 

0310 

0311 

0312 
Q313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 
0329. 

0330 

0331 

0332 

0333 

0334 

0335 

0336 
033 7 

0338 

0339 


POOAC 

B1 05 


EOR- SIGN, I 

POOAO 

6105 


5TA- SIGN,I 




STEP 5. A, 

POOAE 

ClOB 

FLTl 

LDA- C,I 

POOAF 

Dili 


SAN NOZERO-’^-l 

POOBO 

13 B 5 

JHPOUT 

JMP* ARGO 

POOBl 

2109 

NOZERO 

MUI- A, I 

PQ0B2 

QFEl 


LLS 1 

P00B3 

0F41 


ARS 1 

PQ0B4 

AOll 


AND- LPMSK+15 

P0QB5 

6108 


STA- F + 1,I C*AaSB) 

PO0B6 

4103 


STQ- G,I C^ACMSBJ 

P0087 

ClOB 


LDA- C,I 

P00B8 

210A 


MUI- B,I 

P00B9 

OFEl 


LLS 1 

POOBA 

4107 

If 

STQ- F,I 

POOBB 

■C109 


-LDA- A, I 

POOBC 

21 OC 


MUI- D,I 


POOBO 

POOBE 

POOBF 

POOCO 

POOCl 

P00C2 

POOC3 


OFEl 

0814 

€103 

8107 
5834 

8108 
5832 


P00C4 OFCl 
P00C5 OFFO 
P00C6 6103 


P0 0C7 
POOC8 
P00C9 
PQflCA 
PO OC B 
POQ€C 
POOCO 
POOCE 
POOCF 
POOOG 
Pfl ODl 
P0Q92 
P00D3 

PO0D4 

P0055 

P0DC6 

POOQ7 

POODS 

P00D9 

POOOA 


0 AOO 
610F 
Cl 03 
OFFl 
0133 
DlOF 
18FC 
7F80 
OFEF 
410B 
OF 41 
AOll 
610C 

ClOF 
81 GO 
910F 
610E 
0822 
0F47 
0900 


STEP 5C 


ROUND 

NORMAL 
STEPS ■ 


H7F 80 
STEP6A- 


COMBIN 


LLS 
IRQ 
LDQ- 
ATIO- 
RTJ^ 
ADD- 
RTJ^ 
ROUND 
ALS 
LLS 
- STA- 

ENA 

■STA- 

LDA- 

LLS 

SAM 

RAO- 

JMP» 

NUM 

LLS 

STO- 

ARS 

AND- 

STA- 

LDA- 

ADD- 

SUS- 

STA- 

fRA 

ARS 

INA 


1 
A 
G,I 

F, I 

TSTBOR 

F%1,I 

TSTBOR 

AND TRUNCATE 

1 

16 

G, I 


TO 23 BUS, 


0 NORMALIZE 
SHIFGT,! 

G,I 

1 

srep6A-^-i 
SHIFCT^I 
STEPS 
$7F 80 
15 
C,I 
1 

LPMSK+15 
0»I ■ 

LEAST SIGNTFIEANT BITS IN T) 
DELTA,! 

BETA,! 

SHIFCI,! 

DELTA,! 

Q 

7 

0 


STEP 5E 
AND G+1 ACCUH 

COMBINE EXPONENTS 


BETA AND 


MOST SIGNIFICANT BITS 


N75Q0287 
N7500288 
N7500289 
N7500 290 
N7500291 
N750Q292 
N75QQ293 
N7500294 
N7500295 
N7500296 
N7500297 
N7500 298 
N7500299 
N75003QD 
N7500301 
N750Q 302 
N750D303 
N750G3Q4 
N7500305 
N7500306 
N7500307 
N7500308 
N7500309 
N75Q0310 
N7500311 
N75G0312 
N7500313 
N75Q0314 
N7500315 
N75B0316 
N75S0317 
N7500 318 
N7500319 
DELTAN750032J3 
N75D032i 
N75Q0 322 
N7500323 
N7500324 
N7500325 
N7500 326 
N7500327 
N7500328 
N7500329 
N750033Q 
N7500331 
N75G0332 
N7500333 
N75B0334 
N7500335 
N7500336 
N7500337 
N75Q0338 
N75D0339 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


Cj 

C' 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 


o 


ODFLOT 


Q340 

0.341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 
0 352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 
037.1 
G372 

0373 

0374 


POOOB 

POODC 

POODD 

poonE 

PO OOF 
POOEO 
PQOEl 
P0QE2 
P00E3 
P00E4 
P00E5 
P00E6 
P00E7 
P00E8 
PD0E9 
POOEA 
POOEB 
PQOEC 
PCOED 
POQEE 
POOEF 
POOFO 
POOFl 
P00F2 

P00F3 

P00F4 

P0OF5 

PO0F6 

P00F7 

P00F8 

P00F9 

POOFA 

POOFB 

POQFC 


0376 

037 7 

0378 

0379 

0380 
Q381 

0382 

0383 

0384 

038 5 

0386 

0387 

0388 

0389 


0101 
1379 
CIOC 
0940 
0133 
A 8 ED 
610C 
1811 
0 AOO 
6 IOC 
ClOB 
0901 
0132 
610B 
180A 
CQ31 
610B 
CiOE 
0901 
61 0€ 
902B 
0 112 
DCOO 
18 63 

18 00 
FFIC 
0000 
0125 
AOll 

onoi 

0162 

Foil 

0901 

1CF8 

aocE 


PQIOI 

P0102 

PQ1C3 

P0104 

P0105 


COl 


A 10 ox 


C02 




POOFO 5800 
PQQFE FF8E 
POOFF 5839 

POlOB 0111 


TSTB 


FDIM 


1B52 
0123 
0 804 
810 5 
6105 
0 106 


A6 


P FLT2 


PAGE 


SAZ COl 
JHP^ OVFUNF 
LDA- 0,1 
INA 64 
SAM AlOOX 
AMD^ H7F8 
STA- 0,1 
JMP^ FMPXIT 
ENA 0 
STA- D,I 
LDA- G,I 
INA 1 
SAM C02 
STA- G,I 
JMP* FMPXIT 
LDA- ZERO^HS 
STA- C,I 
LDA- DELTA, I 
INA 1 

STA- DELTA, I 
SUB- ZEP0»-9 
SAN FMPXIT-'»-l 
ENQ 0 
JMP» OVFUNF 


OATES 08/19/99 


T ST BOR 


JMP 

NXTOPC 



0 

SAP 

0 

TSTB-^-1 IF 

A IS 

NEG. 

AND- 

LPHSK+15 



INQ 

1 

Q IS 

NEQ. 

SOP 

TSfB-»-l IF 

ADQ- 

LPMSK+15 



INA 

1 



JMP» 

(TSTROR) 



ECU 

H7F8 (HTFaQ-) 




DiyiDE 



Rf J 

OPERNO 

GET 

NEXT 

RTJ» 

FLTSET 




OyERFLOW IF Q=+,A=0. 
UNDERFLOW IF Q=-.,A=D*. 


CARRY INTO G 


END AROUND 


OPERAND ADDRESS 

STEPS 1,2 ,3 AND 
AND NORMALIZE 


4 OF MPY OR DIV 


CAM Aft-at-i 

IF F IS ZERO, GO TO DIVZER 
JMP» DiyZER 
SAP FLT2-’^-l 
SET A 
EOR- SIGN, I 
STA- SIGN, I 
EQU FLT2J*-) 


N7500340 

N7500341 

N7500 342 

N75Q0343 

N7500344 

N7500345 

N750Q346 

N75Q 0347 

N75QQ348 

N7500349 

N7500350 

N750Q351 

N750Q352 

N7500353 

N7500354 

N7500355 

N750 0356 

N7500357 

N750O358 

N750D359 

N750G360 

N75Q0361 

N7500362 

N7500363 

N75Q0364 

N7500365 

N75Q0366 

N7500367 

N7500368 

N7500369 

N750037Q 

N7500371 

N7500372 

N75QQ373 

N75Q0374 


N7500376 

N75Q0377 

N750D378 

N750Q379 

.N7500380 
N7500381 
N7500382 
N75D0383 
N75QD384 
N750Q385 
N7500386 
N75Q 0387 
N75Qfl38B 
N7500389 


O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 




ODFLOT 



PAGE 9 

0390 

P01D6 

El CB 


LDO- 

C,I 

0391 

P0107 

CIOC 


LDA- 

D,I 

0392 

PO 103 

OFCl 


ALS 

1 

0393 

P0109 

0F61 


LRS 

1 

0394 

POlOA 

OF 41 


ARS 

1 

039 5 

POlOB 

410B 


STQ- 

C , I 

0396 

POIOC 

A85C 


AND^ 

RSTLA 

0397 

POlOO 

61 OC 


STA- 

D,I 

0398 

PQIOE 

Cl OO 


LOA- 

BET A,I 

0399 

PQIOF 

0864 


TCA 

A 

040 0 

PQllO 

0901 


INA 

1 

040 1 

POlll 

6100 


STA- 

BETA , I 

0402 

P0112 

Cl OB 


LDA- 

C,I 

0403 





IF C.E. 0 , 

0404 

P0113 

0112 


SAN 

FD2-»-l 

0409 

P0114 

1800 


JMP 

ARGO 


P0115 

FF50 




0406 

PG116 

0 8 64 

FUZ 

TCA 

A 

0407 

poll? 

0900 


INA 

0 

0408 

P0118 

210A 


MUI- 

B,I 

0409 

P0119 

3109 


DVI- 

A, I 

0410 

PO llA 

ODOO 


INQ 

0 

0411 

POllB 

OFFO 


LLS 

16 

0 412 

POllC 

0 8 64 


TCA 

A 

0413 

POllD 

OFCl 


ALS 

1 

0414 

POllE 

91 09 


SUB- 

A , I 

0415 

POllF 

0131 


SAM 

A7-»-l 

0416 

P0120 

ODFE 


INC 

-1 

0417 

P0121 

0814 

A7 

TRQ 

A 

0 418 

P0122 

8 IOC 


Aon- 

D,I 

0419 






0 42 0 

P0123 

El OB 


LDQ- 

C , I 

0421 

P0124 

0122 


SAP 

STEP5E-^-l 

0422 

P0125 

ODFE 


INQ 

-1 

0 42 3 

P0126 

8 8 4C 


ADD^ 

H6000 

0424 



If 



0 42 5 



if. 



0426 






0 42 7 






0428 

P0127 

OFCl 

ST'EP5'E 

ALS 

1 

0 42 9 

P0128 

OF 61 


LRS 

1 

0430 

P0129 

3109 


OVI- 

A , I 

0431 

P012A 

ODOO 


INQ 

0 

0432 

P012B 

61 03 


STA- 

G , I 

0433 

PQ12C 

08 44 


CLR 

A 

0434 

P012D 

QF61 


LRS 

1 

0435 

P012E 

31 09 


OVI- 

A, I 

0 43 6 

PD12F 

ODOO 


INQ 

0 

0437 

P0130 

OFFO 


LLS 

16 

0438 



If 



0439 






0440 

P0131 

OFCl 


ALS 

1 

0441 

P0132 

9109 


sue- 

A, I 


DATE? 08/19/99 


SHIFT C»D TO 14 BITS AND 9 BITS 
TO GUARANTEE DIVISION WITH NO 
OVERFLOW 


7FFF 


-SETA 1=BETA 

FORM -Cs^B 
GO TO ARGO. 


-C»B 

-C^B/A 


I REMAINDER MUST BE NEGATIVE) 
IF ES'R.GE.CtD'ECREHENT RESULT 

BY 1 


RO UNOEO 
D-(C^B/A) 

FORM A80VE»2»»-15 


IF LOWER ACC IS NEG, DECREMENT 
UPPER BY 1 AND INCREMENT 
LOWER BY 

1 TO PUT THE END AROUND 
BORROW INTO 
PROPER POSITION. 


ROUND REMAINDER IN A IF A. 
G£. 1/2, ROUND Q UP BY 1. 


N750Q390 
N7500391 
N7500392 
N7500393 
N75QQ394 
N7500395 
N750Q396 
N75G0397 
N7500396 
N75Q0399 
N75004QQ 
N7500 401 
N7500 402 
N75004Q3 
N7500404 
N7500405 

N7500406 
N750Q407 
N7500408 
N75Q0409 
N7500 410 
N750Q411 
N7500412 
N7500 413 
N75Q0414 
N7500415 
N7500416 
N750 0 41 7 
N75Q0418 
N7500 419 
N7500420 
N7500 421 
N7590422 
N750Q 423 
N7500424 
N7500 425 
N7500426 
N75Q0427 
N75Q0428 
N750 0429 
N750D430 
N7500431 
N7500432 
N750O 433 
N7500434 
N75Q0435 
N7500436 
N750Q437 
N75Q0 43 8 
N75Q0439 
N75Q0440 
N7500441 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 









N750Q i»42 

N7500443 

N7500 444 

N7500445 

N750 D 446 

N7500447 

N750G448 

N750Q449 

N7500450 

N7500 451 

N7500452 

N7500453 

N7500454 

N7500455 

N7500456 

N7500457 

N7500458 

N7500459 

N750046C 

N7500451 

N7500462 

N7500463 

N7500464 

N750C465 

N7500466 

N75Q0467 

N7500468 

N7500469 

N75D047G 

N7500471 

N750S472 
N7500473 
N7500 474 
N7500475 
N7500476 
N7508477 
N750 0478 
N7500479 
N7500480 
N7500 481 
N750i 482 
N7500 483 
N750fl484 
N7500485 
N75Q0486 
N75Q0487 
N7500488 
N750O489 
N75 0O49.O 
N7500491 
N7500 492 
N7500493 


C 

O 

O 

O 

O 

o 

o , 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE? 08/19/99 



O 


N75Q0 A94 

□ 

N750 0 49 5 
N7500496 

o 

N75Q0497 

o 

N750O*«98 

N7500499 

N75005QO 

o 

N7500 501 
N750Q502 

o 

N7500 503 

o 

N750 0 50 4 
N750Q505 
N7500506 
N7500507 

o 

N75Q05C6 

N75005D9 

N7500510 

o 

N75D0512 


N7500 513 
N7500514 
N750Q515 
N7500 516 

o 

o 

N75Q0517 

N75Q0518 

N750G519 

N75Q0520 

N7500521 



o 

N7500523 

N7500524 

N7500525 

N750Q526 

N7500527 

N7500528 

o 



o 

N7500529 
N750 0530 
N7500531 

o 


o 


O 


ODFLOT 


PAGF 


12 


DATE! 06/19/99 


0532 

P0186 

6107 


STA- F,I 

G53 3 

PQ18 7 

0121 


SAP A10-*-l 

C53^* 

PQ 188 

0 8 64 


TCA A 

3 53 5 

P0189 

OPCl 

AlO . 

ALS 1 

0 536. 

POISA ' 

0111 ' 


SAN ATOQ 

0 53r 

P018R 

1RD7 


JMP» NXT0P3 

0538 

P018G 

B8F5 

AlOC 

FOP^ HBGOC 

0539 

PO 180 

OF 48 


ARS _ T 

05 4C 

POISE 

09 00 


I N A Q 

0 5 41 

P018F 

6100 


STA- BETA, I 

0542 

P0190 

C107 


LDA- F,I 

0 54 3 

PD191 

E108 


LOO- F+l,I 

G544' 

P0192 

.A8E6' 


ANO*^ H807F 

U 5 4 P 

P 0 1 9 3 

0121 


SAP ' Ail-*-l 

0546 

P0194 

88D0 


AOO» MS8B 

0"47 

pcig-? 

0FE8 

A1 1 

LLS 3 

0548 

PS 196 

6109 ^ 


STA- A»I 

0 549 

POi'97 

41 C A 


STQ- B,T 

0550 

P0198 

CIOC 


LDA- D,I 

0551 

PG199 

3FC1 


ALS 1 

0552 

F019A 

El 05 , 


LOG- SIGN, I 

0 55 3 

P019 9 

61GC 


STA'- 0,1 

0554 

FO 19C 

0165 


SQP FA9n21-»-l 

uF5P 

P019D 

0 8 1>4 


TCA A 

0 556 

poigp 

61 QC 


STA- Dll 

0557 

P019F 

C1O0 


LOA- C,I 

055 8 

PQ lAC 

G 8 64 


TCA A 

0 5 5 9 

POlAl 

61GB 


STA- C,I 

0 560 
0561 

C1A2 F 

FADDBl 

EQU FAI?02ir*^J 

0562 

PG1A2 

C108 


LDA- C,I 

0 56 3 

PQl A3 

0115 


SAN FA22-*^-l_ 

0564 

P01A4 

CIO'O 


LOA- 8ETA.fI 
STA- DELTA,! 

0565 

POl A5 

61 CP 


05b6 

PD 1 A 6 

CICA 


LOA- B,I 

0 56 7 

P01A7 

E1C9 


L D Q— A , I 

0568 

P01A8 

18 55 


jwpv STOCO 

056 9 

P01A9 

ClOE 

FA22 

IDA- DELTA,! 

0 57 0 
0 P 7 1 

PCI Aa 

91GD 


SUB- 3ETA,I 

D57 2 




IF F.GETG^ 

0 57 3 

C b7 4 

PC lAH 

G12E 


SAP ADDS 3- ‘^-l 

0575 

PCI AC 

CICE 


LDA- DELTA, I 

C576 

PSIAD 

'El CD 


LDQ.- BETA, I 

0577 

POl'AF 

61 CD 


STA- BETA, I 

0578 

0579 

PGIAF 

41CE 

* 

STD- DELTA, I 

'S580 

POIBO 

G109 


LDA— A , I 

0581 

POlPl 

Cl pq 


inn- c,r 


P01B2 

610B 


STA — G 1 1 

0583 

P01B3 

4109 


STQ- A , I 

0584 

PQ 1'B4 

ClOA 


LDA- B,T 


ADD 0» THUS" JMP OUT 
EXTRACT BETA 


STORE A AN 3 P 
A=0, 15MS9 

R=a LSB, S SIGN' BITS 

PEHOVE BIT 15 OF A REG 
FROM 0 ^ 


complement c ano d if 
SIGN IF NEQATI¥F 


IF ACC IS Z'ROl USE SECOND 
VALUE AS ANSWER 


GO TO AOC STEP- 3 CADOS3T . 
' OTHERWISF 

EXCHANGE EXPONENTS 


N75GQ532 
N7500533 
N7ED053R 
N75C u 53 5 
N750 0 53 6 
N75 j0 537 
N75C0538 
N75G0539 
N750 OSAO 
NT51] G 5A1 
N75G j 5‘+2 
N7EG0 5*+3 
N75G 0 54 A 
N 75u 0 5A5 
N750 05 hd 
N 7 j j 5 h 7 
N750 0 sA8 
N"^5" 0 5A9 
N75G 055C 
N'^5 0 0 55 1 
N 750 0 552 
N750G553 
N75 0 0 55 4 
N75 j 0 55 5 
N7500556 
N750 0557 
N7500558 
N75G 3559 
N7500560 
N75D0561 
N750C562 
N750 0 563 
N75e0564 
N7500565 
N75D 0566 
N75G 0 567 
N7500568 
N7503559 
N7500570 
N ^500571 
N75GG57Z 
N75Q0573 
N7500574 
N75i- 0 575 
N753S576 
N75D0577 
N75Q057S 
N75G3579 
N7500 58 0 
N75GD581 
N75 3 0 58 2 
N 753 G 583 
N7538584 




OOFLOT 
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DATES 08/19/99 


0585 

P0185 

El DC 


LOQ-* D,I 



0586 

P01B6 

61 OC 


STA- Q,I 



0587 

P01B7 

41 OA 


STQ- B,I’ 



0588 




C AND 0 ARE 

NOW THE LARGER NUMBER 


0589 



»■ 

A AND 3 ARE 

NOW THE SAMLLER NUMBER 


0590 

P0188 

Cl OF 


LDA- DELTA, I 



0591 

P0169 

910D 


SUB- BETA,! 



0592 

POIBA 

0 8 22 

ADDS3 

TRA Q 



0 59 3 

P01B8 

86B2 


ADO» LRSINS 



0594 

POIBC 

6814 


STA» LRS 



0595 

P018D 

QDE2 


INQ -29 



0596 




IF SHIFT .GE 

.. 29, 


0597 

POIBE 

0173 


SQH AS3 0-=*^-l 



059 8 




LEAVE THE LARGER NUMBER IN ACCUMULATOR 

AND GO ON 

0599 

POIBF 

Cl DC 


LDA- Q,I 



06Q0 

POlCfl 

El OB 


LDQ- C,I 



0601 

POICI 

183C 


JMP» STOCO 



0602 




STEP 3 



0603 

P01C2 

ElOB 

AS30 

LDQ- C,I 



0604' 

P01C3 

CIOC 


■to A- D-,I 



060 5 

P01C4 

QF68 


IRS 8 



0606 

P01C5 

0FE6 


LLS 6 



0607 

P01C6 

OF 41 


ARS 1 



0608 

P01C7 

A8A0 


ANO» RSTLA 

7FFF 


060 9 

P01C8 

610C 


STA- D,I 

D=0,10LSe,5 SIGN BITS 


0 610 

P01C9 

0 814 


TRQ A 



0611 

POICA 

A89D 


AND* RSTLA 

7FFF 


0612 

POICB 

610B 


STA- C,I 

C=0SS,13MSB 


0613 







0614 

POICC 

€109 

AS31 

LDQ— A f I 



0615 

PQICD 

GlOA 


LDA- 8,1 



0616 

POICE 

QF68 


LRS 8 



0617 

POICF 

OF €6 


LLS 6 



061 8 




STEP 4* 



0619 




SHIFT SMALLER NUMBER RIGHT (ABS .1 BETA- 

DELTAJ ) , 

062 0 




AND SET THE 

SIGN OF MSB TO POSITIVE 


0621 




SHIFT LSB RIGHT 1, AND SET THE SIGN OF 

LSB POSITI-VE. 

0622 




CLEAR THE CARRY TO BIT 15 AND ADO 1 TO 

MSB 

0 62 3 



#■ 

POSITION THE 

: SMALLER NUMBER 


0624 







0625 

POIDO 

0F60 

LR5 

LRS 0 



0626 

POIDI 

OF 41 


ARS 1 



0527 

P01D2 

A 8 95 


AND» RSTLA 

7FFF 


0628 

P01D3 

61GA 


STA- 8,1 



0529 

PQ 1D4 

0814 


TRQ A 



0630 

PGIO 5 

A892 


AND* RSTLA 

■7FFF 


0631 

P01D6 

6109 


STA- A, I 



0632 

P01D7 

0 8 42 


CLR Q 

STEP 5 


0 63 3 

P01D8 

CIOC 


LDA— 0,1 



0 63 4 

P01D9 

810A 


ADD- 8,1 



0635 

POIDA 

0122 


SAP AS6-»-l 

IF A.L,0, 

CARRY OCCURRED 

0 63 6 

POIDB 

A88C 


AND'*^ RSTLA 

TFFF 


0637 




STEP 6. 




N750D E85 

N7500586 

N7500587 

N75CD588 

N750Q589 

N7500590 

N7500591 

N7500592 

N7500593 

N750059^ 

N750Q595 

N7500596 

N750C597 

N7500598 

N75DQ599 

N75006Q0 

N75006Q1 

N750D6D2 

N7500603 

N750Q&D4 

N7500605 

N7500606 

N750Q&D7 

N7500608 

N7500609 

N7500610 

N7S00611 

N75Q061H 

N750 0 613 

N7500614 

N7500615 

N75Q0616 

N7500617 

N7500618 

N7500619 

N7508o2(i 

N7500 621 

N7508 622 

N7500623 

N750 0 62 4 

N7500625 

N7500626 

N7500627 

N750 0628 

N7506629 

N750Q630 

N7500631 

N750C632 

N7500 633 

N7500634 

N750Q635 

N750Q636 

N75DQ&37 


o 


ODFLOT 
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0ATE1 08/19/99 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


053 8 
G639 
0640 
0541 

0642 

0643 

0644 
064 5 
06 46 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0562 

0663 

0664 

0665 

0666 
0667 
066 3 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 
068Q 
0681 
0682 

0683 

0684 

0685 

0686 

0687 

0688 
0689 


POIDG 

OCOl 


ENQ 

POIDD 

F109 

AS6 

ADQ- 

POlOE 

FI OB 


ADQ- 

POIDF 

0165 


SQP 

PDIFO 

F887 


ADQ^ 

POIFI 

0901 


INA 

P01E2 

0122 


SAP 

P01E3 

OOOl 


INQ 

P01E4 

A883 


AND'^ 

P01E5 

OF Cl 

AS61 

ALS 

PQ1E6 

610C 


STA- 

P01E7 

410B 


S TO- 

P01E8 

F889 


AD 

P01E9 

0154 


SQN 

POIEA 

0901 


INA 

PQIEB 

0112 


SAN 

POIEC 

1800 


JMP 

POIED 

FE78 



POIEE 

0FE3 

AS62 

LLS 

POIEF 

A004 


AND- 

PCIFO 

0822 


TRA 

POlFi 

Cl oc 


LDA- 

P01F2 

lAOl 


JMP» 

P01F3 

1804 

SHFCNT 

JMP^ 

P01F4 

1306 


JMP^ 

P01F5 

1805 


JMP^ 


P01F6 

P01F7 

PQ1F8 

P01F9 

PQIFA 

POIFE 

POIFC 

POIFD 

POIFE 

POIFF 

P0200 

P0201 

P0202 


1801 
El GB 
0FF2 
1804 
DlOE 
EiOB 
OFF! 

41QB 

0167 

OCFE 

4105 

EIOB 

0852 


SHFT2 


SHFTl 


STOCO 


JMP* 

LDQ- 

LLS 

JMP’^ 

R A 0- 

LDQ- 

LLS 

STQ- 

SQP 

ENQ 

SIQ-* 

LDO- 

rca 


AROUND 

7EFF 


7FFF 


CARRY INCREASE ISB BY 1 


1 

A, I 
G,I 

AS 6 1-'^- 1 
SUBTRACT END 
RSTLA 

1 

AS61-'^-l 
1 

RSTLA 

1 

D,I 
G *I 

IF RESULT IS MINUS ZERO, GO TO ARGO 
MINUS ZERO IS Q=7FFF, A= FFFE. 

H8 00 0 
AS62-»-l 
1 

AS62-*-l 

ARGO 

STEP 7. 

SAVE SIGNS AND OVERFLOW ¥ , IN BITS 1 AND 0 
IF S ,E. V-, THEN V IS SIGN EXTENSION^^ 

IF S.NE.V, THEN RESULT OVERFLOWED INTO V, 
3 

LPMSK+2 

Q 

D,I 

SHFCNT,a 


S=V, SHIFT LEFT 2 

S NOf -= V, NO SHIFT 

S not = V, NO SHIFT 

S=V, SHIFT LEFT 2 
S=V, SHIFT LEFT 2 


SV 

00 

SHFT2 

01 

SHFTl 
10 

SHFTl 
11 

SHFT2 
C,I 
2 

STOCD 
DELTA, I 
G,I 

SAVE THE SIGN AND MAGNITUDE OF THE RESULTS 
G 1* 

A0DS7A-^-l 

-1 SIGN=-1 

SIGN,I 

G,I RESTORE C 

Q 


INCREMENT THE EXPONENT 


N7500636 
N750 0639 
N75Q0640 
N7500641 
N7500642 
N7500643 
N7500644 
N75QQ645 
N7500646 
N750 0647 
M7500 648 
N7500649 
N7500650 
N7500651 
N7500652 
N7500653 
N750e654 
N7500655 
N7500656 
N7500657 

N7500658 

N750D659 

N7500660 

N7500661 

N750Q 662 

N75Q0663 

N7500664 

N75B0665 

N750fl666 

N7500667 

N75006&6 

N750 0669 

N7500670 

N75O0671 

N7S0 0 672 

N75Q 0673 

N750 0674 

N7500675 

N750Q676 

N7500&77 

N750 0678 

N7500579 

N750O68O 

N7500681 

N75GQ682 

N7500683 

N758Q 684 

N75D0685 

N7500686 

N7500687 

N7500688 

N7500689 


o 

cp-q 

L.1 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 



o 

o 

o 


o 


N750069D 
N75G0691 
N75DQ692 
N7500693 
N75flOo94 
N7500695 
N7500 696 
N7500697 
N750a698 
N7500699 

N750Q700 

N7500701 

N75D07D2 

N7500703 

N75007D4 

N75GG7G5 


N7500 707 
H750G708 
N7500709 
N750Q7i0 
N7500711 
N750B712 


O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATES 08/19/99 


o 


EQUIVAL EN 


o 

DEF.LINE 

NAME 

o 

0 0 00 

I 


00 50 

G 

o 

0050 

SIGN 

0 050 ' 

ERRORS 


DQ50' 

F 

o 

0 0 51 

A 


0 0 51 

B 


QC51 

BETA 

o 

0051 

D 

0051 

0 

o 

0051 

DELTA 

0 051 

SHIFCT 


0 052 

P 


0 0 52 

RELAOR 

o 

0052 ■ 

■ INDEX 

0 052 

OPCODE 


0 052 

QS 


0 053 

• OPCNT 

o 

0 055 

LPMSK •• 

0 055 

CPMSK 


0 055 

'ZERO 

o 



o 



o 



o 



o 



o 




o 


E S 


VALUE 


REFERENCED AT 

OOFF 

1000255) 



0003 

< 0000035 

0150 , 

0152, 



0 317, 

0321, 

000 5 

{00Q0055 

0182, 

0 20 9, 

000 6 

(00000 65 

0 484, 

0 487 

0007 

< 0000075 

0256, 

0259, 



0542, 

0 543 

0009 

(0000095 

3294, 

0305, 



0639 


ADDA 

(0000105 

3 301 , 

0408, 

GOOD 

(0000135 

0 334, 

0398, 

000 B 

(0000115 

0188, 

0196, 



0 489, 

0 557,. 

GOOD 

(0000125 

0202, 

0206, 



0 586, 

0599, 

OOQE 

(OOaOlA) 

0195, 

0207, 

OOOF 

( 0000155 

0320, 

0324, 

0010 ' 

(0000165 

0071, 

0 07 4, 

0012 

( 0000185 

0067, 

0119, 

0011 

( 0000175 

0 0 69, 

0136, 

0 OlA 

(0GQ0205 

0076, 

0087, 

0015 

(0000215 

0 0 64, 

0163 

0013 

( 0000195 

0 0 73 , 

0080 , 

0002 

<0030025 

0198, 

0223, 

0012 

(000018) 

0691 


0022 

(0000345 

0075, 

0 192, 


LINE NUHDER 



0172 , 

0175, 

0184, 

0215, 

0432, 

0445, 

0700, 

0701 

0229, 

0245, 

0246, 

0 287, 

0261, 

0264, 

0269, 

0271, 

0409, 

0414, 

0 430, 

0435, 

0472, 

0 549, 

0566, 

0 584, 

0 401, 

.0465, 

0541, 

0 564 , 

0199, 

0205, 

0212, 

0 241, 

0559, 

0562, 

0 581, 

0 582, 

0218, 

0306, 

0331, 

0342, 

0 604, 

0609, 

0 633, 

0 649, 

0222, 

0335 

0333, 

0336 , 

0357, 

0275 

0 0 77, 

0161, 

0253, 

0123, 

0257, 

0265 


014D, 

0090 

0272 



0085 

Q273, 

0297, 

0330, 

0368, 

0 224 , 

0 254, 

0262, 

0268, 


O 

o 

o 


0216, 

0221, 

0225, 

022 7, 

0228, 

0232, 

0233, 

0235, 

0299, 

0309 


0288, 

0 367, 

0388, 

0552, 

0687, 

0694 





O 

0298, 

0303, 

0310, 

0312, 

0450, 

0 452, 

0453, 

0 473, 

0531, 

0 532 


0441, 

0457, 

0466, 

0469, 

0 548, 

0567, 

0580, 

0583, 

0 614, 

0631 

o 

05 87, 
0570, 
0 2 91, 
0600, 
0346, 

Q 61 5, 
0 576, 
0 30 0, 
0 60 3, 
0349, 

0 623, 
0577, 
0 32 8, 
0612, 
0391, 

0 634 

0591, 

0350, 

0640, 

0397, 

0704 

0353, 

0650, 

0418, 

0356, 

0677, 

0491, 

0390, 
0681, 
0 550, 

0395, 
0 684, 
0 553, 

0402, 
0688, 
0 556, 

0 420 
0 695 
0585 

o 

0 665 
0359, 

0 493, 

0 565 » 

05 69 , 

0575, 

0578, 

D590, 

0660 



■ o 


o 


0371., 0663 ■ O 

0355, 0360 

: O 
O 
O 

o 

o 

o 


o 


o 


ODFLOT 


PAGE 17 


DATE? 08/19/99 


o 


n 


SYMBOLS 


o : 

DEF^LINE 

NAME ■ 

ADDRESS 

o 

0 0 43 

FLOT 

oooo 


0 071 

STORE? ■ 

0009 


0 072 

INTER? 

0 0 0 A 

o 

0080 

. NXfOPC 

0011 

0 084 

A1 

0015 


0087 

OECOD E 

0017 


0092 

EXECUT 

OOIB 

o 

0098 

FLINS 

DOID 

0114 

SELF 

OOID 


Q119 

GHHD 

0020 

o 

0123 

A2 

0031 

0129 

NIOX 

0033 


0135 

INOX 

0035 


0 140 

STONDX 

003A 

o 

0147 

FLST 

003C 

0 150 

FOK 

0 03E 


0154 

ANXT 

0042 


0159 

FEND 

0043 

o ■ 

0161 

FLIT 

004 4 

0164 

DONE 

0047 


0170 

FLOD 

0048 


0182 

A3 

0051 

o 

0188 

STEP2B 

0056 

0191 

A4 

0059 


0 204 

ARGO 

0066 


0 211 

FLTSTO 

0 06'D 

o 

0218 

FLSTi 

■ 0 073 

0236 

FLSTA 

00 85 


0 241 

FCOM 

0086 


0244 

AGMOK 

0089 

o ■ 

0252 

OPERND 

008D 

0259 

ABSIND 

009 4 


0 261 

■RELIND 

0096 


0262 

INOIR 

0097 

o 

0264 

DIRECT 

0099 

0267 

RELDIR 

009C 


0269 

A5 

009E 


0 271 

ABSOIR 

GOAO 

o 

0272 

OP A DR 

OOAl 

0 275 

KL65K 

00A4 


REFERENCED AT LINE NUMBER 


0 0 43, 

0070 , 

0162, 

0164 





0083 





0365, 

0494 


0124, 

0082 

0141, 

0154, 

0203, 

0210, 




0078 








0092, 
0 0 93, 
3113 

0103 
0121 

0104 
0113 
0130 
0111 

0114 

0098, 

0099, 

3100, 

0101, 

0102, 

0103, 

0104, 0105, 0106, 0107, 0108, 0109, OllG, 0111, 0112 

0 247 
0 0 98, 

0102 







0 0 99, 

0109 

0180 

0185 

0189 

0190, 

0 100, 

0101, 

0110 





0 243, 

0 293, 

0405, 

0-657, 

0699 



0148, 

0159, 

0236 






0214 
0217, 
0105 
0 2 42 

0 23 0 






0 528 

0137, 

0 149, 

0170, 

0276, 

0 281, 

0379, 

0516 , 

0253 
0 260 
0255 








0267 

0266 

0263, 

0270 








O 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 

o 

o 

o 

o 

o 

o 


o 


o 
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DATES 08/19/99 


0 281 
0 291 

0293 

0294 
031 5 
0319 
0322 
0326 
0 32 7 
0335 
Q 342 
0 348 
0355 

0365 

0366 

0373 

0374 
0379 
0 365 
0389 
0 406 
0417 
0 42 8 
0444 
0448 
0457 
0 461 
0 465 
0476 
0478 
0484 


FMP'Y 

FLTl 

JMPOUT 

NOZERO 

ROUND 

NORMAL 

STEP6 

H7F80 

STEP6A 

COMBIN 

COl 

AlOOX 

002 

FMPXIT 

TSTBOR 

TSTB 

H7F8 

FDIV 

A6 

FLT2 

FD2 

A7 

STEP5E 

A8 

FLTSET 

STEP2A 

A9 

ARGFO 

OIVZER- 

OVFUNF 

SETERR 


o 

0 494 

NXT0P3 

0496 

RSLTB 


0497 

RSLTA 


0498 

RSTLA 

0 

0500 

RSLTEX 

0 501 

LRSINS 


0 502 

ERASE 


0 503 

SEFBIT 


0504 

H8000 

U 

0 50 5 ■ 

H7FE0 


0 506 

H7F10 


0507 

HFFCO 

o 

0508 

MH7F10 

0509 

H807F 


0 510 

MS8B 


0516 

FSUB 

o 

0528 

FAOO 

0 531 

FA002 


0535 

AlO 


0 538 

A 10 0 

o 

0547 

All 

0 560 

FADD2i 


00A6 
OOAE 
OOBO 
OOBl 
Q0C4 
OOC7 
OOCA 
OOCE 
OQCF 
0006 
OOOD 
Q0E3 
OOEA 
OOF3 
OOF 5 
DOFC 
OOCE 
OOFO 
0102 
0106 
0116 
0121 
0127 
0135 
0138 
0141 
0144 
0148 
0153 
015 5 
0159 
0163 
0165 
0168 
0168 
016B 
Q16E 
016F 
0172 
0172 

0175 

0176 

017 7 

0178 

0179 
0165 
017A 
0181 

018 5 
0189 
018C 
0195 
01A2 


0107 


0285 


0 284 


0 2 92 


0 446 


0705 


0325 


0201, 

0374, 

0323 


0340 


0344 


0352 


0347, 

0 354, 

0311, 

0313, 

0367, 

0 370 

0 3 45 


0108 


0382 


0385 


0404 


0415 


0 421 


0 442 


0282, 

0180, 

0454 


0 459 


0460 


0384 


0341, 

0 3 63 

0477, 

0 A81 

0537 


0490 , 

0510 

0 468, 

0 488, 

0 39 6, 

0608, 

0492 


Q 593 


0 4 85 


0 486, 

0 504 

0 423, 

0462, 


0471 


0474 


0498 

0611, 


0 627-* 8 630, 0 636, 0643, 0647 


0.544 
0546 
0 106 
Q112 
0521 
0 533 
0536 
0545 
0554 


O 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 


o 


o 


o 






O 

\y,y 


ODFLOT 
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DATES 0 8/19/9 9 


o 

0569 

FA22, 

01A9 

Q 563 


O 


0 592 

ADDS3 

OIBA 

0 573 




0 603 

AS30 

01C2 

0 597 


o 

o 

0 614 

AS31 

OICC 

0594 


Q 625 

LRS 

OIQO 




0639 

AS6 

OIDD 

0 635 

0 645 



0 648 

AS61 

01E5 

0641, 

o 

G 

0 662 

AS62 

OlEE 

0654, 

0 656 

Q67G 

SHFCNT 

01F3 

0666 

0 676 



0677 

SHFT2 

01F7 

0 670 , 



0680 

SHFTl 

OlFA 

8672, 

0 674 

o 

O 

0 684 

STOCD 

OlFD 

0568, 

0601, 0679 

0 693 

AOOS7A 

0206 

0 6 85 




0696 

■ ADDS? 

0209 

0692 

0 697 



0700 

A0DS7B 

0200 

0696, 

o 

O 

070 8 

OP19 

00 0 5 

0709 


0709 

OPll 

000 6 

0 710 




0710 

0P12 

0240 

0711 



o 






o 

o 






o 







o 

o 






o 






^ o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 


C) 

ODFLOT page 20 date,: 08/19/99 

O 

EXTERNA LS 

^ - 

OEF.LINE NAME VALUE REFERENCED AT LINE NUMBER 

O ; 0047 OBU 0002 0063 

O 


o 

o 

o 


o 

o 

O 

O 

O 

o 


o 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATES 08/19/99 



o 

A L 

P H A 

3 E T I 

CAL 

o 

A 

0051 

A1 

0 0 84 

A5 

0259 

A6 

0385 


ADDS? 

0696 

A00S7A 

0693 


AS61 

0 64 8 

AS62 

0 662 

o 

CPHSK 

0055 

D 

0 051 

DPll 

0709 

DP12 

0710 


FA0D21 

0560 

FCOH 

0 241 


FLST 

0147 

FLSTl 

0218 

o 

FOK 

015 0 

FSUB 

0516 

HFFCO 

0507 

I 

0 000 


LPS 

0 62 5 

LRSINS 

0 501 


OPADR 

0272 

OPCNT 

0 053 

o 

RELiNO 

0261 

ROUND 

0315 

SHFCNT 

0670 

SHFTl 

0680 


STEP6A 

0327 

STOCO 

0 684 


o 


o 

o 

o 

o 


o 

o 

o 

o 

o 

o 


SORT 

0 F 

S Y M B 

AlO 

0535 

A 100 

A7 

0 417 

A8 

AD0S7B 

0700 

ANXT 

B 

0 0 51 

BETA 

DBU ■ 

0 0 47 

DECODE 

ERASE 

0502 

ERRORS 

FD2 

0406 

FDIV 

FLSTA 

0236 

FLTl 

G 

0 0 50 

H7F10 

INDEX 

0 052 

INOIR 

MH7F10 

0 508 

MS8B 

OPCODE 

0 0 52 

OP'ERNO 

RSITA 

0 497 

RSLTB 

SHFiT2 

0677 

SHTFCT 

STONDX 

0140 

STOREP 


0 L S 



0538 

AlOOX 

0348 

0444 

A9 

C461 

0154 

ARGO 

0204 

0051 

D 

0051 

0087 

DELTA 

0051 

0050 

EXECUT 

0092 

0379 

FEND 

0159 

0 291 

FLT2 

0389 

0506 

H7F8 

0374 

0262 

INOX 

0135 

0510 

NIDX 

0129 

0252 

OVFUNF 

047 8 

0496 

RSLTEX 

05 0 0 

0051 

SIGN 

0050 

0071 

TSTB 

0373 


o 


All 

0547 

A2 

0123 

A3 

A BSD I R 

0 271 

A6SIND 

0259 

AGHOK 

ARGFQ 

0465 

AS30 

0603 

AS31 

CHHD 

0119 

COl 

0342 

C02 

DIRECT 

0264 

DIVZER 

0476 

DONE 

F 

0050 

FA22 

0569 

FAOD 

FLDD 

0170 

FLINS 

0098 

FLIT 

FLTSET 

0448 

FLTSTO 

0211 

FMPXIT 

H7F80 

0326 

H7FE0 

0505 

H80 00 

I nte rp 

0072 

JMPOUT 

0293 

KL65K 

NORMAL 

0319 

NOZERO 

0294 

NXT0P3 

P 

0052 

QS 

0052 

RELADR 

RSTLA 

0 498 

SELF 

0114 

SETBIT 

STEP2A 

0 45 7 

STEP2B 

0188 

STEP5E 

TSTBOR 

0 366 

ZERO 

0055 






O 

018 2 

A4 

0191 

O 

0 244 

AOOS3 

0592 

0 614 

ASS 

0 63 9 


0355 

C0M8IN 

0335 


016 4 

DPIO 

0708 

O 

0528 

FADD2 

0531 

0161 

FLOT 

0043 


0365 

FMpy 

0281 


0504 

H807F 

0509 

O 

0 275 

LPMSK 

0055 

0 494 

NXTOPC 

0080 


0052 

RELOIR 

0267 


0 50 3 

SETERR 

0484 

O 

0 428 

STEPS 

0322 




O 




O 




o 




o 




o 


o 

o 

o 

o 

o 

o 


OTDFXFL 


PAGE 


1 


DATES 08/19/99 


00 0 1 




hi AM 

ODFXFL 

DECK- ID N76 HSOS 5.0 SUMMARY- 

110N7600001 

0 0 0 2 



-If- 

MASS 

STORAGE OPERATING SYSTEM VERSION 5.0 

N760G002 

ooo:? 




SMALL SySTEHS 

DIVISION, LA JOLLA, CALIFORNIA 

N7600003 

0 0 0 4 




COPYRIGHT CONTROL DATA CORPORATION 1976 

N760 0004 

000 6 





THIS ROUTINE RUN ANYWHERE/NON-RETRANCE 

N760000& 

0007 






"DUMMY" BUFFER IS SET UP FOR MIN. CHANGE 

N7600007 

000 8 







N7600008 

000 9 





DEBUG RUNS ON THE LOWER 32K, THEREFORE 

N760 0809 

0010 





NO 65 K ADDRESSING IS NEEDED 

N7600010 

OQll 







N760OQ11 

0012 




SPECIAL ARRANGEMENT DOES NOT USE LOW CORE 

N7600012 

0013 







N7600013 

0015 





E 

NTRY NAMES 

N7600015 

0016 




ENT 

Q8QFIX 


N7600016 

0017 




ENT 

Q8FX 


N7600017 

0018 




ENT 

Q8QFLT 


N76fl0018 

0019 




ENT 

Q8FL0T 


N7600019 

002 0 




ENT 

IFIX 


N760 0020 

0021 




ENT 

FLOAT 


N7600021 

0022 




ENT 

OBU 


N760C022 

002 4 



!¥• 


E 

X ternals 

N76Q0024 

002 5 




EXT» 

PLOT 


N760S025 

0027 





■« 

E a u table 

N7600027 

0028 


0029 
0 0 2A 
0015 


EQU 

CELL2 (41) 

,CEL11(42) ,QS121) 

N7600028 

0029 


0 0 03 


EQU 

G(3),SIGN15) , ERRORS 16) 

N7680a29 



00 05 
0006 






0030 


0 0 22 
00 02 


EQU 

ZER0($22) 

,LPMSK!2) 

N7600030 

0032 







N76110032 

0033 






PROGRAM START *=***9- 

N7600 033 

003 4 







N7600034 

0036 

POOOO 

DBOO 

Q8QFIX 

NOP . 



N760G036 

0037 

POOQl 

5867 

RTJ^‘ 

oau 


N7600037 

0038 

P0G02 

4115 


STQ- 

QS,I 

SAVE Q 

N7600038 

0039 

P0003 

G103 


LO A- 

G,I 

PARAMETER IS IN PSEUDO-ACC. 

N7600D39 

0040 

P0004 

612A 


STA- 

CELLlfl 


N76G004Q 

0041 

P0005 

C1D4 


LDA- 

G»-l ,I 


N7600041 

0042 

P0006 

6129 


STA- 

CELL2,I 


N7600042 

0043 

P0007 

C8F8 


LOA» 

Q8QFIX 

SAVE RETURN 

N76G 0 04.3 

0044 

P0008 

68 02 


STA* 

Q8FX 


N76Q0D44 

0045 

PQ0Q9 

18 OF 


JMP» 

FIX 


N76D0Q45 


OOFXFL 


PAGE 


2 


DATEt 08/19/99 


PflOOA 

POOOB 

POOOC 

PflOOO 

POOOE 

POODF 

PD 010 

POOH 

P0Q12 

P0013 

P0014 

P0015 

P0016 

P0017 

P0018 

P0019 

POOIA 

POO IB 

POOIC 

POOID 

POOIE 

OOOIF 

P0020 

P0021 

P0022 

O0023 

P0024 

P0Q25 

P0D26 

P0 027 

P0028 

P0029 

P002A 

P002B 

P002C 

P002D 

P0C2F 

P002F 

P0030 

P0031 

P0032 

P0033 

P0034 

PQ035 

P0036 


OBOQ 
535D 
4115 
CCFC 
0122 
88FA 
AOll 
0 822 
C&22 
612A 
ODOl 
C622 
6129 
08F2 
C12A 
0124 
0 8 64 
£129 
B 8 52 
4129 
OCOG 
0FE2 
0152 
0 AOO 
1812 
OCOO 
QFE3 
Cl 42 

coil 

180A 
E8QE 
QF'F4 
1*8 05 
OCOO 
0FE7 
Cl 29 
QF67 
OFEO 
0 814 
E12A 
0161 
0 8 64 
£115 
1CD4 
OOFE 


Q8FX 


KLG65K 

FX5 


SHIFT 


HOP 

RTJ» 

STQ- 

LDA* 

SAP 

ADD» 

AND- 

TRA 

LDA- 

STA- 

INQ 

LDA- 

STA- 

RAO» 

LDA- 

SAP 

TCA 

LDO- 

TCQ 

SIQ- 

ENQ 

LLS 

SON 

ENA 

ENQ 

LLS 

SQZ 

LCA- 

JHP=!^ 

LOQ» 

LLS 

STO’^ 

ENQ 

LLS 

LDA- 

LRS 

LLS 

TRQ 

LDQ- 

SQ.P 

TCA 

LOQ- 

JMP» 

ADC 


0 

oeu 

QSH 

(Q8FX) 

KLG65K 

Q8FX 

LPMSK+1 5 

Q 

(ZERO)^ Q 
CELLl ,I 
1 

IZERO), Q 
CEL12 ,I 
Q'8FX 
CEL LI, I 
FXl-»-l 
A 

CELL2 ,I 

CELL2,I 

0 

2 

FX2-»-l 

0 

FX4 

0 

3 

FX3-»-l 

LPNSK«-15 

FX6 

LLS 

4 

SHIFT 

0 

7 

GELL2, I 
7 
0 
A 

CELLl , I 
FX4-»-l 
A 

QS,I 

tQBFXl 

SOOFE 


ENTRY 

SAVE Q-REG- 


RETURN 2 CELLS AFTER RTJ 
COHPLEHENT A AND CELL2 


LESS THAN UNITY, ZERO TO A 


GREATER THAN 2*^1 6-1 , S7FFF TO 
CONSTRUCT A SHIFT 

LOW-ORDER BITS COHEFPOH W0R02 


COUNT FROM EXPONENT LOW 4 BITS 
ANSWER TO ACC 


CQMPLEHENT 

RETURN 


0094 

0095 P0037 OBOO 

0096 P0Q38 5830 


Q8QFLT NOP 
RTJ^*^ 


FIX TO FLOAT ENTRY 


O 


N7600047 
N7600048 
N7600049 
N7600050 
N7600051 
N7600052 
N7600053 
N7600054 
♦»FIN 3.0’»N7600055 
N7600056 
N76Q0057 
N7600058 
N76Q0059 
N76Q0060 
N760Q061 
N7600062 
N7600063 
N7600064 
N76QQ065 
N7600066 
N780G067 
N7600068 
N7600Q69 
N76Q0070 
N7600071 
N7600 072 
N76Q0073 
N76Q0074 
N7600 075 
A N7600 076 

PSR 903 N76Q0077 
N7600078 
N76C0079 
N76G0080 
N760D081 
N7600082 
N760Q 083 
N760a084 
N76Qfl085 
N7600Q86 
PSR 903 N7600087 
N7600088 
N7600Q89 
N7600Q90 
N760Q091 
N7600092 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


N7600094 
N7600 095 
N760Q096 


o 

ODFXFL 


o 

0097 

P0039 

4115 


SIQ- 


0098 

P003A 

612A 


STA- 


0099 

P003B 

C8FB 


LDA» 

o 

0100 

P003C 

68 02 


STA» 

0101 

P003D 

180C 


JMP» 

o 

0103 





Q1D4 

PQQ3E 

OBOO 

Q8FL0T 

NOP 


0105 

P003F 

5829 


RTJ» 


010 6 

P0040 

4115 


STQ- 

o 

0107 

P0041 

CCFC 


LDA* 

0108 

P0042 

0122 


SAP 


0109 

P0043 

B8FA 


AOD-* 


0110 

P0044 

AOll 


AND- 

o 

0111 

P0045 

0822 

FLO 

TRA 

0112 

P0046 

G62 2 


LDA- 


0113 

P0047 

612A 


STA- 


0114 

P0048 

D8F5 


RA 0*- 

o 

oil 5 

P0049 

C12A . 

FLT 

LDA- 

0116 

PO QUA 

0121 


SAP 


0117 

PD04B 

0864 


TCA 


0118 

P004C 

OllB 

FLl 

SAN 

o 

0119 

P004D 

6129 


STA- 

0120 

P004E 

612A 

FL8 

SIA- 


0121 

P004F 

COFF 


LDA- 


0122 

P0D50 

0929 


INA 

o 

0123 

P0051 

6804 


STA» 

0124 

P0052 

5800 X 


RT.J 



P0053 

7FFF X 




0125 

P0054 

B400 


NUM 

o 

0126 

P0055 

0029 

LOGEL2 

ADC 

0127 

P0G56 

El 15 

FL2 

LDQ- 


0128 

POO 57 

1CE6 


UMP* 


0129 

P0058 

ED 00 

FL3 

LDQ 

o 


PO 059 

0 0 8F 



0130 

PQ05A 

QFCl 

FL4 

ALS 


0131 

P005B 

0132 


SAM 


0132 

PO 05C 

ODFE 


INQ 

o 

0133 

P005D 

1 8FC 


JMP* 

0134 

P005E 

QFE?' 

FL5 

LLS 


0135 

POO 5F 

4129 


STQ- 


0136 

P0060 

E12A 


LDQ- 

o 

0137 

P0061 

0171 


SQM 

0138 

P0062 

18EB 


JMP^ 


0139 

P0063 

0 8 64 

FL6 

TCA 


0140 

P0064 

£129 


LDQ- 

o 

0141 

P0Q65 

08 52 


TCQ 

9142 

P0066 

4129 


STO- 


0143 

P0067 

18E6 


JHP» 


o 


o 

o 
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QS,I SAVE Q 

CELLltl 

Q8QFLT SAVE RETURN 

Q8FL0T 

FLr 


0 ENTRY 

0 8U 

QS,I SAVE 0 

IQ8FLCT ) 

FLO 

Q8FL0T 
LPMSK+l 5 
Q 

CZER0),Q 

CELLl 

Q8FLOT SKIP PARAMETER ADDRESS 

CELL1,I 

FLl-=^-l 

A .COMPLEMENT 

FL3-»-t 

GELL2,I INPUT WAS ZERO 
CELL2^-1,I 

1 

CELL2 

LOGEL2 

FLOT 

S8400 

CELL2 

QS,I 

IQ8FLOT) RETURN ■ 

=NS8F EXPONENT FOR 15-6IT INPUT 

1 

FL5-«^-l 

-1 

FLA 

7 MOST SIGNIFICANT 7BITS IN Q 

CELL2,I 

CELLINI 

FL6-*-l 

FL8 

A COMPLEMENT A 

CELL2, I 

Q COMPLEMENT Q 

CELL2 ,I 

FL8 


0145 


OOOA P 


EQU IFIXIQ8FX1 


N76Q0097 
N7600 098 
N76Q0099 
N7600 100 
N7600101 


N7600103 

N7600104 

N760Q105 

N76Q0106 

N760C107 

N7600108 

N76Q01Q9 

N760Q110 

N7600111 

N7600112 

N7600113 

N7600114 

N7600115 

N7600116 

N7600117 

N7600118 

N760Q119 

N760012G 

N7600121 

N7600122 

N7600123 

N760012L 

N7600125 

N7600126 

N7600127 

N7600126 

N7630129 

N76GQ13D 
N76G0131 
N76BI3132 
N7600133 
N76Q0134 
N7600135 
N76G 0136 
N76Q0137 
N7600138 
N7600139 
N76QQ140 
N7600141 
N760014Z 
N7600143 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


N76D0145 



o 

o 

o 

O 


N7600146 

N7600148 

N76Q0149 

N760Q150 

N76S0151 

N7600152 

N7600153 

N7600154 

N760D155 

N76Q0156 


N760Q158 

N76Q0159 

N760D16Q 


N7600162 

N760fll63 

N76G0164 

N76a0165 

N76a0166 

N7600167 

N7600168 

N76001&9 

N7600170 

N7600171 

N7600172 

N760Q173 


N7600175 

N7600176 

N7600177 

N7600i78 

N7600i79 

N76001BG 
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□ 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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EQUIVALENCES 


DEF.LIME 

NAME 

VALUE 


REFERENCED AT 

LINE NUMBER 



0 000 

I 

OOFF 

C 000255) 

0121, 

0168 




0028 

C£LL2 

0029 

(000041) 

0 0«^2, 

0060 , 

0065, 0067, 

0 083 , 

0 119 

0 0 28 

CELLl 

002A 

10000423 

0040, 

0057, 

0062, 0087, 

0098, 

0113 

0 0 28 

QS 

0015 

<0000213 

0038, 

0050 , 

0090, 0097, 

0106, 

0127 

0 0 29 

G 

0003 

< OC00Q3) 

0039, 

0041 




0029 

SIGN 

00 0 5 

( 0000053 






0 0 29 

ERRORS 

000 6 

(.0000063 






0 030 

ZERO 

0022 

( 0000343 

0056, 

9 05 9, 

0112 



0030 

LPMSK 

0002 

<0000023 

0054, 

0076, 

0110 




o 
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C) 

o 


SYMBOLS 


o 


OEF.LINE 

NAME 

o 

0 016 

Q8QFIX 


0017 

Q8FX 


0 018 

Q8QFLT 

o 

0019 

Q8FL0T 

0020 

IFIX 


0021 

FLOAT 


0022 

OBU 

o 

0 055 

KLG65K 

0056 

FX5 


0 0 62 

FIX 


0 0 68 

FXl 

o 

0 073 

FX2 

0078 

FX3 


0 085 

SHIFT 


0 087 

FX6 

o 

0090 

FX4 

0092 

LLS 


0111 

FLO 


Oil 5 

FLT 

o 

0118 

FLl 

0120 

FL8 


0126 

LOG EL 2 


0127 

FL2 

o 

0129 

FL3 

0 13 0 

FL4 


0134 

FL5 


0139 

FL6 

o 

0165 

SELF 

0172 

TEMP 


0173 

BUFFER 


0176 

DPIO 

o 

0177 

OPll 

0178 

0P12 

o 

o 



o 

o 


ADDRESS 


OQOO 
OOO A 
0 037 
003E 
OOOA 
003E 
006 8 
0011 
0012 
0018 


OOIE 
0023 
0028 
002F 
0031 
003 4 
0G36 
0045 
0049 
004C 
004E 
005 5 
0056 
0058 
0G5A 
005E 
0063 
006B 
0 071 


0072 


OOOl 
00 02 
ooco 



o 

o 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 


o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


O 

£ X T E R 

o 

OEF .LINE 

o ^ 

0025 


ODEXFL 

N A L S 

NAME VALUE 
PLOT 0053 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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o 


OPll 

017 7 

DPI 2 

0178 

ERRORS 

0029 

FIX 

0062 

FL5 

0134 

FL6 

0139 

FL8 

0120 

FLOAT 

0021 

FX4 

0090 

FX5 

0056 

FX6 

0 087 

G 

0029 

LPMSK 

TEMP 

0030 

0172 

Q8FL0T 

ZERO 

0019 

0030 

Q8FX 

0017 

08QFIX 

0016 


O I 

o 

O I 

o 

o 

o 

o 

o 

o 

o 

o 

o 


